Opened by J-jayz-Z at 2005-09-20 10:57
User since
2005-04-13
625 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-04-13
625 Artikel
BenutzerIn
Hi, ich würde gerne in meinem script das Widget ändern. Wie muss ich das machen? Also beispielsweise beim klick auf einen Button ein Label Widget in ein Textwidget ändern? Meine sehr unschöne Idee:
Code: (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 $main = tkinit;
$main->Label(-text => 'Hallo')->pack();
$main->Button(-text => 'change', -command => \&foo)->pack();
MainLoop();
sub foo {
$main->destroy();
$main = tkinit;
$main->Label(-text => 'blubb')->pack();
}
perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'
http://perl-tutor.de
http://perl-tutor.de