Perl Tk Checkbutton beim Klick Funktion ausführen (gelöst) (Graphische Oberflächen)

[thread]18118[/thread]

Perl Tk Checkbutton beim Klick Funktion ausführen [gelöst]

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+7 replies
Gast hollligoooo

2013-02-06 15:16

Hallo,

gibt es eine Möglichkeit bei Perl Tk bei einen Checkbutton, das ich eine Funktion ausführen lassen wenn ich ihn anklicke(checke)?
Habe leider nichts gefunden...

Vielen Dank
- +6 replies
- GwenDragon
  
  2013-02-06 15:41
  
  User since
  2005-01-17
  14784 Artikel
  Admin1
  
  Schau dir bitte mal PerlTkTutorialKapitel7 an. Das hilft vielleicht erst mal weiter. ;)
  
  Und das ist auch ganz nützlich:
  http://search.cpan.org/perldoc?Tk%3A%3ACheckbutton
  http://www.perltk.de/tk_widgets/wtk_checkbox.html
  
  Ansonsten kurz gesagt -command als Parameter übernimmt eine referenz auf die Callbackfunktion.
  Last edited: 2013-02-06 15:47:56 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +5 replies
  - Gast hollliiigoooo
    
    2013-02-06 15:58
    Danke für die Info aber eine frage hab ich doch noch...
    
    Wenn ich in meinem Code
    
    Code: (dl )
    
    $f3->Checkbutton(-text => "text",-variable=>\$test)->pack(-anchor=>'w');
    
    zu
    
    Code: (dl )
    
    $f3->Checkbutton(-text => "text",-variable=>\$test,-command=>{print "Test"})->pack(-anchor=>'w');
    
    einfüge dann wird dieses print "Test" immer ausgeführt auch zu programmstart?
    ich will es aber nur ausführen lassen wenn der button geklickt wird?!
    
    Grüße ;)
    Last edited: 2013-02-06 15:59:28 +0100 (CET)
    - Linuxer
      
      2013-02-06 16:02
      
      User since
      2006-01-27
      3891 Artikel
      HausmeisterIn
      
      Hi, du solltest IMHO schon eine Referenz auf eine Subroutine mitgeben...
      
      Code: (dl )
      
      ... -command => sub { print "Hallo\n"; } ...
      
      Beachte das Stichwort sub
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
    - Muffi
      
      2013-02-06 16:16
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Kann es sein, dass dir die Zeilen oben im Skript fehlen?
      
      Code (perl): (dl )
      
      1 2
      
      use strict; use warnings;
      
      Wenn ja, würd ich die hinzufügen.
      1 + 1 = 10
    - +2 replies
    - GwenDragon
      
      2013-02-06 16:42
      
      User since
      2005-01-17
      14784 Artikel
      Admin1
      
      Du hast wohl ganz übersehen, dass ich Callbackfunktion schrieb, daher:
      -command => sub { }
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - Gast hollliiigoooo
        
        2013-02-06 17:00
        
        Danke funktioniert ;)
        Last edited: 2013-02-06 17:04:31 +0100 (CET)

View all threads created 2013-02-06 15:16.