Perl TK - Programm - #44672 (Graphische Oberflächen)

BrownWolf

2003-10-25 22:51

User since
2003-08-15
308 Artikel
BenutzerIn
[default_avatar]

Hallo,

da ich in nächster Zeit vermutlich öfters mit Linux arbeiten werde, denke ich das mir TK helfen könnte.
Nun war ich dabei ein einfaches Programm zu schreiben.
Ich habe gleich einen eurer TK Tutorials unter Links benutzt.

http://www.pl-forum.de/work/perl/perltk.html

Quote
-textvariable => \$text Wie -text , nur das sich der Text ändert, wenn $text sich ändert.

Was ist damit gemeint ? Mein Code:

Code (perl): (dl )

#!/usr/bin/perl -w
use Tk;
use strict;

my &#36counter = 0;
my &#36var = "Du hast schon &#36counter Mal den Button geklickt.";

my &#36windows = MainWindow->new;
my &#36label = &#36windows->Label(
               
             -textvariabl
e => \&#36var,
               
            );
my &#36button = &#36windows->Button(
               
               
-text => "Hier klicken",
               
               
-command => sub { ++&#36counter }
               
              );
&#36label->pack();
&#36button->pack();
MainLoop;

Nur funktioniert so nicht ...
Aber der Inhalt von $var ändert sich doch.

Code (perl): ()

1
2
3

sub _{s;;xrqIpiql\\{}p{pl{R>rl{N{}gjwpkssq]>rl{N;;;*{{}=*{_};;
&#36{{}={q{{{}}}=>[reverse+split+reverse+q;}{;]};&#36{{}->{q{{{}}}}->[@{{}];}
&#36{{}=reverse+_(q{{}}=>q{{}})^chr(30)x+length&_(q{{}}=>,q{{}})and+print;