Opened by Crian at 2004-12-16 12:47
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Aha, also 'MouseWheel' =)
Danke
Wofür steht das D in Ev('D')? Das wird bei mir in perldoc Tk::bind nicht erklärt (bzw. taucht da nicht auf).
Wie auch immer, es funktioniert jetzt jedenfalls.
\n\n
<!--EDIT|Crian|1103202273-->
Danke
Wofür steht das D in Ev('D')? Das wird bei mir in perldoc Tk::bind nicht erklärt (bzw. taucht da nicht auf).
Wie auch immer, es funktioniert jetzt jedenfalls.
Code: (dl
)
$mw->bind('<MouseWheel>', [ sub { $Config{text_widget}->yviewScroll(-($_[1]/120)*3, 'units') }, Ev('D') ] );<!--EDIT|Crian|1103202273-->
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
use strict; use warnings; Link zu meiner Perlseite