Opened by Ronnie at 2003-09-02 15:21
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Oder wie ich beschrieben hab mit dem Button daneben. An den kannst Du (dann) die Return-Taste binden.
Also in der Art:
(uingetestet)\n\n
<!--EDIT|Crian|1062504521-->
Also in der Art:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
my $f = $top->Frame()->pack(-expand => 1);
my $e = $f->Entry(-width => 50,)->pack(side => 'left', -expand => 1, -fill => 'x');
my $such_b = $f->Button(-text => 'Suchen', -default => 'active', -command => \&suchen,)->pack(-side => 'left');
$top->bind ('<Return>', sub{$such_b-> invoke()});
sub suchen {
my $such = $e->get();
...
}
(uingetestet)\n\n
<!--EDIT|Crian|1062504521-->
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