Aimail

Vine 2.0 でホイールマウスを使えるようにしました。

マシン: FUJITSU FMV-BIBLO NE7 23X
マウス:Microsoft InteliMouse
 

これに関する情報はかなり多いのですがとりあえずはこんな感じでNetscapeやGNOMEのファイルマネージャー(Midnight Commander)や、Terminal等は問題なく動いています。

/etc/X11/XF86Config の 以下の部分に変更を加えます。

# **********************************************************************
# Pointer section
# **********************************************************************

Section "Pointer"
    Protocol    "IMPS/2"
    Device      "/dev/mouse"
    Buttons 4                               <--- 追加
    Buttons 5                               <--- 追加
    ZAxisMapping 4 5              <--- 追加

# When using XQUEUE, comment out the above two lines, and uncomment
# the following line.

#    Protocol   "Xqueue"

# Baudrate and SampleRate are only for some Logitech mice

#    BaudRate   9600
#    SampleRate 150

# Emulate3Buttons is an option for 2-button Microsoft mice
# Emulate3Timeout is the timeout in milliseconds (default is 50ms)

#    Emulate3Buttons              <--- コメントアウト
#    Emulate3Timeout    50    <--- コメントアウト

# ChordMiddle is an option for some 3-button Logitech mice

#    ChordMiddle

EndSection
 

次にネットスケープ用に ~/.Xdefaults に追加します。

!! Netscape Communicator 4.xx

Netscape*drawingArea.translations:  #replace\
 <Btn1Down>:  ArmLink()\n\
 <Btn2Down>:  ArmLink()\n\
 ~Shift<Btn1Up>:  ActivateLink()\n\
 ~Shift<Btn2Up>:  ActivateLink(new-window)DisarmLink()\n\
 Shift<Btn1Up>:  ActivateLink(save-only)DisarmLink()\n\
 Shift<Btn2Up>:  ActivateLink(save-only)DisarmLink()\n\
 <Btn1Motion>:  DisarmLinkIfMoved()\n\
 <Btn2Motion>:  DisarmLinkIfMoved()\n\
 <Btn3Motion>:  DisarmLinkIfMoved()\n\
 <Motion>:  DescribeLink()\n\
 <Btn3Down>:  xfeDoPopup()\n\
 <Btn3Up>:  ActivatePopup()\n\
 \
 None<Btn4Down>:  LineUp()LineUp()LineUp()LineUp()LineUp()\n\
 None<Btn5Down>:  LineDown()LineDown()LineDown()LineDown()LineDown()\n\
 Shift<Btn4Down>:  ColumnLeft()\n\
 Shift<Btn5Down>:  ColumnRight()\n\
 Ctrl<Btn4Down>:  PageUp()\n\
 Ctrl<Btn5Down>:  PageDown()\n\
 Alt<Btn4Down>:  xfeDoCommand(back)\n\
 Alt<Btn5Down>:  xfeDoCommand(forward)

Netscape*globalNonTextTranslations: #override\
 ~Meta ~Alt ~Ctrl<Key>space:  xfeDoCommand(spacebar)\n\
 ~Meta ~Alt ~Ctrl<Key>Delete:  PageUp()\n\
 ~Meta ~Alt ~Ctrl<Key>BackSpace:  PageUp()\n\
 ~Meta ~Alt ~Ctrl<Key>Up:  LineUp()\n\
 ~Meta ~Alt ~Ctrl<Key>Down:  LineDown()\n\
 ~Meta ~Alt ~Ctrl<Key>Left:  ColumnLeft()\n\
 ~Meta ~Alt ~Ctrl<Key>Right:  ColumnRight()\n\
 ~Meta ~Alt ~Ctrl<Key>osfDelete:  PageUp()\n\
 ~Meta ~Alt ~Ctrl<Key>osfBackSpace:  PageUp()\n\
  Meta  Ctrl<Key>f:  fishcam()\n\
   Alt  Ctrl<Key>f:  fishcam()\n\
  Meta  Ctrl<Key>t:  net_showstatus()\n\
   Alt  Ctrl<Key>t:  net_showstatus()\n\
 ~Meta ~Alt ~Ctrl<Key>osfUp:  LineUp()\n\
 ~Meta ~Alt ~Ctrl<Key>osfDown:  LineDown()\n\
 ~Meta ~Alt ~Ctrl<Key>osfLeft:  ColumnLeft()\n\
 ~Meta ~Alt ~Ctr
;;=============================================================================;;                    scroll on  mouse wheel
;;=============================================================================
;; scroll on wheel of mouses
(define-key global-map 'button4
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 5)
      (select-window curwin)
)))
(define-key global-map [(shift button4)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 1)
      (select-window curwin)
)))
(define-key global-map [(control button4)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down)
      (select-window curwin)
)))

(define-key global-map 'button5
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 5)
      (select-window curwin)
)))
(define-key global-map [(shift button5)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 1)
      (select-window curwin)
)))
(define-key global-map [(control button5)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up)
      (select-window curwin)
)))l<Key>osfRight:  ColumnRight()\n\
 ~Meta ~Alt ~Ctrl<Key>Prior:  PageUp()\n\
 ~Meta ~Alt ~Ctrl<Key>Next:  PageDown()\n\
 ~Meta ~Alt ~Ctrl<Key>osfPageUp:  PageUp()\n\
 ~Meta ~Alt ~Ctrl<Key>osfPageDown:  PageDown()\n\
 \
 None<Btn4Down>:  LineUp()LineUp()LineUp()\n\
 None<Btn5Down>:  LineDown()LineDown()LineDown()\n\
 Shift<Btn4Down>:  ColumnLeft()\n\
 Shift<Btn5Down>:  ColumnRight()\n\
 Alt<Btn4Down>:  xfeDoCommand(back)\n\
 Alt<Btn5Down>:  xfeDoCommand(forward)

以上でホイールマウス快適ですよね?


linux

[へなちょこlinuxへ]   [ホームへ]