Thread Mausrad mit Scrollbalken verbinden: wie? (9 answers)
Opened by pktm at 2005-01-14 00:24

Crian
 2005-01-17 23:11
#42768 #42768
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Pörch ... nun musste ich 5 Module installieren um dann zu sehen, dass es einfach funktioniert?!

Füg mal

Code: (dl )
1
2
3
4
5
6
7
8
9
    $mw->bind('<Left>',          sub { $text->yviewScroll(-1, 'units') } );
    $mw->bind('<Up>',            sub { $text->yviewScroll(-1, 'units') } );
    $mw->bind('<Down>',          sub { $text->yviewScroll( 1, 'units') } );
    $mw->bind('<Right>',         sub { $text->yviewScroll( 1, 'units') } );
    $mw->bind('<Alt-Up>',        sub { $text->yviewScroll(-3, 'units') } );
    $mw->bind('<Alt-Down>',      sub { $text->yviewScroll( 3, 'units') } );
    $mw->bind('<Prior>',         sub { $text->yviewScroll(-1, 'pages') } );
    $mw->bind('<Next>',          sub { $text->yviewScroll( 1, 'pages') } );
    $mw->bind('<MouseWheel>',    [ sub { $text->yviewScroll(-($_[1]/120)*3, 'units') }, Tk::Ev('D') ] );
am Ende von getScreen_ConfigDumpEdit() ein.
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread Mausrad mit Scrollbalken verbinden: wie?