Opened by Crian at 2003-11-20 11:50
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Klappt wunderbar:
Die Funktionalität für Home/End lässt sich sowohl über die beiden aktiven als auch über die beiden auskommentierten Zeilen erreichen, ich glaube aber, dass die aktiven Zeilen den Vorzug bekommen sollten, da ich aus der Beschreibung herauslese, dass see() intern etwas aufwändiger ist. Aber da kann man sich natürlich auch täuschen, und wie immer: bei Reaktionen auf Usereingaben muss man keine Millisekunden herausquetschen (im Gegensatz zu Dingen in Schleifen, die sehr sehr oft durchlaufen werden).
Code: (dl
)
1
2
3
4
5
6
$txt->bind('<Prior>', sub { $txt->yviewScroll(-1, 'units') } );
$txt->bind('<Next>', sub { $txt->yviewScroll( 1, 'units') } );
#$txt->bind('<Home>', sub { $txt->see('1.0') } );
#$txt->bind('<End>', sub { $txt->see('end') } );
$txt->bind('<Home>', sub { $txt->yviewMoveto(0) } );
$txt->bind('<End>', sub { $txt->yviewMoveto(1) } );Die Funktionalität für Home/End lässt sich sowohl über die beiden aktiven als auch über die beiden auskommentierten Zeilen erreichen, ich glaube aber, dass die aktiven Zeilen den Vorzug bekommen sollten, da ich aus der Beschreibung herauslese, dass see() intern etwas aufwändiger ist. Aber da kann man sich natürlich auch täuschen, und wie immer: bei Reaktionen auf Usereingaben muss man keine Millisekunden herausquetschen (im Gegensatz zu Dingen in Schleifen, die sehr sehr oft durchlaufen werden).
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