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
Ich möchte an eine Textarea ein Handling mit Page Up und Page Down binden.
Ich stelle mir das so vor:
Aber so geht es nicht, denn:
Auf den perldoc-Seiten zu Tk::Scrolled, Tk::Text und Tk::bind standen die keysyms leider nicht drauf...
Wenn das jemand nachsehen kann hätte ich auch gern noch die für Pos1 / Home und Ende / End.
Danke im Vorraus, Crian
Ich stelle mir das so vor:
Code: (dl
)
1
2
3
4
5
my $txt = $wm->Scrolled('Text', ... );
...
$txt->bind('<PageUp>', sub { $txt->yviewScroll(-1, 'units') } );
$txt->bind('<PageDn>', sub { $txt->yviewScroll( 1, 'units') } );Aber so geht es nicht, denn:
Code: (dl
)
Tk::Error: bad event type or keysym "PageUp" at C:/Perl/site/lib/Tk/Derived.pm line 467.
Auf den perldoc-Seiten zu Tk::Scrolled, Tk::Text und Tk::bind standen die keysyms leider nicht drauf...
Wenn das jemand nachsehen kann hätte ich auch gern noch die für Pos1 / Home und Ende / End.
Danke im Vorraus, Crian
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