Thread Primitives Telefonbuch: Perl TK (18 answers)
Opened by Ronnie at 2003-09-02 15:21

Crian
 2003-09-02 16:07
#42273 #42273
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Oder wie ich beschrieben hab mit dem Button daneben. An den kannst Du (dann) die Return-Taste binden.

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

View full thread Primitives Telefonbuch: Perl TK