4 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
package Teil; use strict; use warnings; use Tk; use Tk::PNG; =head1 METHODEN =head2 suchfeld( $top, $breite_des_entrys, $methode_fuer_button, $diverse_optionen_href ) Erzeugt ein Frame mit den Kindelementen Entry und Button (mit Lupe als Bild), sowie einer Bindung des Entries auf die Enter-Taste um das Kommando des Buttons auszuführen. =cut sub suchfeld { my $self = shift; my $top = shift; my $entry_w = shift; my $btn_cmd = shift; my $opts = shift; my %sf = (); # sf = suchfeld $sf{frame} = $top->Frame(); if( exists $opts->{pack} and $opts->{pack} == 1 ) { $sf{frame}->pack(); } $sf{entry} = $sf{frame}->Entry(-width => $entry_w)->pack(-side => 'left',); $sf{photo} = $top->Photo(-file => 'C:/Perl/Scripten/CELEX/CELEX/Divers/GUI/Images/Gnome-mix/16x16/actions/mail_find.png'); $sf{button} = $sf{frame}->Button(-image => $sf{photo}, -command => $btn_cmd)->pack(-side => 'left',); $sf{entry}->bind('<KeyPress>', $btn_cmd); return \%sf; } # /suchfeld 1; # /Teil, Name von der Redaktion geändert ^^
1
2
3
4
5
6
7
use Teil;
my $mw = tkinit();
my $sf_href = Teil->suchfeld($mw, 20, sub{ print "hello\n"; }, {pack => 1});
$mw->MainLoop();
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/usr/bin/perl use strict; use warnings; use Tk; my $mw = tkinit; my $var = "test"; my $entry = $mw->Entry( -textvariable => \$var )->pack; $entry->bind( '<Return>', \&aufruf ); MainLoop; sub aufruf{ print "Hallo ",$entry->get,"\n"; }
renee+2007-09-13 12:18:41--Code (perl): (dl )1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17#!/usr/bin/perl use strict; use warnings; use Tk; my $mw = tkinit; my $var = "test"; my $entry = $mw->Entry( -textvariable => \$var )->pack; $entry->bind( '<Return>', \&aufruf ); MainLoop; sub aufruf{ print "Hallo ",$entry->get,"\n"; }
4 Einträge, 1 Seite |