Opened by theresa at 2008-04-16 15:46
User since
2007-07-17
90 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-07-17
90 Artikel
BenutzerIn
Hallo,
gebe einen String mit einer Methode zurück (aus einem Fenster), der kommt aber nicht an. Hab versucht eine Referenz zurückzugeben und dann zu dereferenzieren, war nichts, und "nur so", war auch nix.
Das Programm dazu:
gebe einen String mit einer Methode zurück (aus einem Fenster), der kommt aber nicht an. Hab versucht eine Referenz zurückzugeben und dann zu dereferenzieren, war nichts, und "nur so", war auch nix.
Das Programm dazu:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use Tk;
my $var = foo();
print "profil:" . $$var;
#print "profil:" . $var;
sub foo(){
my $text = "Welches Profil soll bearbeitet werden?";
my $mw = tkinit(-title=> 'Profil');
my $frame1 = $mw -> Frame() -> pack();
$frame1->Label( -text => $text)->pack( -side => 'left' );
my $campus_frame = $mw->Frame()->pack();
my $campus_but = $campus_frame -> Button(-text=>"HAW_Campus", -command => sub {$mw->destroy(); my $var = "A"; return \$var}) -> pack();
#bzw. ohne \
$mw->focusForce();
$campus_but->focus();
MainLoop();
}