Opened by Froschpopo at 2005-04-03 20:31
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
Mit der -validatecommand Option kannst du alle Eingaben pruefen (genaueres in der perldoc zu Tk::Entry).
Du kannst aber ebenfalls mit bind auf den 'Key'-Event ein Callback setzten der die Eingabe auf die richtige Laenge stutzt.
Code: (dl
)
1
2
3
4
5
my $maxlength = 10;
my $mw = tkinit;
$mw->Entry(-validatecommand => sub { $_[3] + 1 <= $maxlength ? 1 : 0 },
-validate => 'all')->pack();
Du kannst aber ebenfalls mit bind auf den 'Key'-Event ein Callback setzten der die Eingabe auf die richtige Laenge stutzt.
,,Das perlt aber heute wieder...'' -- Dittsche