Re: XF86Config in /root, wie ändern?

From: Timo Fuchs <fuchs(at)pinuts.de>
Date: Thu, 02 Dec 1999 16:12:05 +0100

Stefan Fischer wrote:
> p.s.: Funktioniert eine Wheel-Mouse unter FreeBSD (ich meine natürlich
> die Räder...)? Auf einer Website habe ich einen Hinweis gefunden, als
> Protokoll "imps/2" einzugeben, nur leider akzeptiert aber FBSD bei
> einer PS/2-Mouse nur "auto" oder "PS/2"...

Ja, funktioniert. Bitte folgendes Abtippen (Paste'n'Copy ist unter
Umstaenden auch erlaubt) und Einsetzen in die /.Xdefaults bzw. weiter
unten in die ~/.emacs:
(HINWEIS: Nicht blind reinpasten, weil die Zeilenumbrueche u.U.
nachbearbeitet werden muessen !!)

-=> ~/.Xdefaults
cutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUT
! WheelMaus:
!# Scrolling on wheel mouse: half a page normally, line per line with
shift
XTerm.vt100.translations: #override\n\
 Shift<Btn4Down>,<Btn4Up>:scroll-back(1,line)\n\
 Shift<Btn5Down>,<Btn5Up>:scroll-forw(1,line)\n\
 Ctrl<Btn4Down>,<Btn4Up>:scroll-back(1,page)\n\
 Ctrl<Btn5Down>,<Btn5Up>:scroll-forw(1,page)\n\
 <Btn4Down>,<Btn4Up>:scroll-back(1,halfpage)\n\
 <Btn5Down>,<Btn5Up>:scroll-forw(1,halfpage)\n\

!# In the scrollbar we map buttons 5 & 4 to 1 and 2 otherwise, core dump
!# This will move proportionnaly to cursor position but we dont know how
to
!# program the same exact behavior as in the text widget.
XTerm.vt100.Scrollbar.translations: #override\n\
     <Btn5Down>: StartScroll(Forward)\n\
     <Btn4Down>: StartScroll(Backward)\n\

!## Athena text widgets
*Paned.Text.translations: #override\n\
 Shift<Btn4Down>,<Btn4Up>: scroll-one-line-down()\n\
 Shift<Btn5Down>,<Btn5Up>: scroll-one-line-up()\n\
 Ctrl<Btn4Down>,<Btn4Up>: previous-page()\n\
 Ctrl<Btn5Down>,<Btn5Up>: next-page()\n\

None<Btn4Down>,<Btn4Up>:scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()\n\

None<Btn5Down>,<Btn5Up>:scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()\n\

!## Athena table of contents, for toc widgets of xrn & xmh
*toc.Translations: #override\n\
 Shift<Btn4Down>,<Btn4Up>: scroll-one-line-down()\n\
 Shift<Btn5Down>,<Btn5Up>: scroll-one-line-up()\n\
 Ctrl<Btn4Down>,<Btn4Up>: previous-page()\n\
 Ctrl<Btn5Down>,<Btn5Up>: next-page()\n\

None<Btn4Down>,<Btn4Up>:scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()scroll-one-line-down()\n\

None<Btn5Down>,<Btn5Up>:scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()scroll-one-line-up()\n\

!## NETSCAPE
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\
        Ctrl<Btn4Down>: PageUp()\n\
        Ctrl<Btn5Down>: PageDown()\n\
        Shift<Btn4Down>: LineUp()\n\
        Shift<Btn5Down>: LineDown()\n\
         None<Btn4Down>:
LineUp()LineUp()LineUp()LineUp()LineUp()LineUp()\n\
         None<Btn5Down>:
LineDown()LineDown()LineDown()LineDown()LineDown()LineDown()\n\
        Alt<Btn4Down>: xfeDoCommand(forward)\n\
        Alt<Btn5Down>: xfeDoCommand(back)\n

Netscape*globalNonTextTranslations: #override\n\
 Shift<Btn4Down>: LineUp()\n\
 Shift<Btn5Down>: LineDown()\n\
 None<Btn4Down>:LineUp()LineUp()LineUp()LineUp()LineUp()LineUp()\n\

None<Btn5Down>:LineDown()LineDown()LineDown()LineDown()LineDown()LineDown()\n\
 Alt<Btn4Down>: xfeDoCommand(forward)\n\
 Alt<Btn5Down>: xfeDoCommand(back)\n
endCUTendCUTendCUTendCUTendCUTendCUTendCUTendCUTendCUT

--------------------------------------------------------------------
Und noch in die ~/.emacs:

-=> ~/.emacs
cutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUTcutCUT
;;=============================================================================
;; 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)
)))
endCUTendCUTendCUTendCUTendCUTendCUTendCUTendCUTendCUT

HTH

Gruesse
Timo

To Unsubscribe: send mail to majordomo(at)de.FreeBSD.org
with "unsubscribe de-bsd-questions" in the body of the message
Received on Thu 02 Dec 1999 - 16:11:50 CET

search this site