Subs für Reiterwechsel - #44180 (Graphische Oberflächen)

J-jayz-Z

2005-07-19 00:59

User since
2005-04-13
625 Artikel
BenutzerIn

Ich hab hier ein Notebook, das ich aufrufe und es aus einem anderen Notebook Text übernimmt und in einem Label Widget darstellen soll. Allerdings wird das neue, was übernommen wurde, wenn ich nochmal etwas eingebe nur unten dran gehängt und das alte nicht gelöscht. Kann mir da jemand helfen? Hier die sub, die ich mit -raisecmd aufrufe:

Code: (dl )

sub get {
$page2->Label(-text => $entry->get())->pack() if($entry->get());
$entry->delete('0.0','end');
}

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