[Tk] Tk-Spinbox - Command ausführen (solved) (Graphische Oberflächen)

[thread]19104[/thread]

[Tk] Tk-Spinbox - Command ausführen [solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 16

Articles: hide open all | hide show old branches

+11 replies
Kean

2014-05-22 11:41

User since
2004-08-18
463 articles
BenutzerIn

Ich nutze das Modul Tk-Spinbox, bei welchem man ein Eingabefeld mit zwei Up and Down Pfeilen hat.

Über den Parameter "-command" habe ich eine Subroutine angelegt welche eine Aktion ausführt. Das funktioniert auch super wenn man hoch oder runter klickt.

Jetzt kann man ja aber auch manuell in das Eingabefeld etwas eintippen, wie kann ich danach die Subroutine ausführen ohne aus UP oder DOWN zu klicken?

Ich würde gerne über Tk-Bind die Taste "Return" auf die Spinbox legen, nur kann ich über invoke auch nur Up oder Down angeben und damit ändert sich ja wieder das Datum... ist irgendwie ein reines ausführen des Command möglich?
- +9 replies
- styx-cc
  
  2014-05-22 12:30
  User since
  2006-05-20
  533 articles
  BenutzerIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/usr/local/bin/perl use strict; use warnings; use Tk; my $mw = tkinit(); my $txt_var; my $spin = $mw->Spinbox(-from => 0, -to => 100, -textvariable => \$txt_var)->pack(-side => 'left'); $spin->bind('<Return>', sub {print shift . "\n" . $txt_var}); MainLoop;
  
  Ich hoffe ich habe es korrekt verstanden.
  
  Gruß
  
  edit: typo
  Pörl.
  - +8 replies
  - Kean
    
    2014-05-22 13:03
    User since
    2004-08-18
    463 articles
    BenutzerIn
    
    Nein nicht ganz. Ich habe bei mein[/code]er Spinbox über das "-command" Attribut eine Routine hinterlegt und will nun diese auslösen.
    
    Hier der Code:
    
    Code: (dl )
    
    1 2 3 4
    
    my $spinbox = $mw->Spinbox(-from => 1980, -to => 2037, -command => sub { print $anzeige_jahr_w->get()})->pack(); $spinbox->bind('<Return>',sub { ... Command von Spinbox ausführen ohne die Sub doppelt anzulegen ...});
    
    Man kann ja manuell in der Spinbox die Zahl ändern. Den Command kann man aber nur auslösen durch klicken auf die Pfeile. Deshalb das Bind so dass man die Zahl ändern kann und mit Enter dann der Inhalt ausgegeben wird.
    - +3 replies
    - styx-cc
      
      2014-05-22 13:23
      
      User since
      2006-05-20
      533 articles
      BenutzerIn
      
      Geht:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
      
      #!/usr/local/bin/perl use strict; use warnings; use Tk; my $mw = tkinit(); my $txt_var; my $spin = $mw->Spinbox( -from => 0, -to => 100, -textvariable => \$txt_var, -command => sub {print $txt_var . "\n"} ) ->pack(-side => 'left'); my $cmd = $spin->cget('-command'); $spin->bind('<Return>', $cmd); MainLoop;
      
      Allerdings wuerde ich um an den Inhalt zu kommen, dann mit der -textvariable arbeiten, denn in @_ hast du unterschiedliche Argumente (mal das aufrufende Objekt, mal den Wert), je nach dem ob du via Bind oder ueber die spinboxinternen Funktionen aufrufst.
      
      Gruß
      Last edited: 2014-05-22 13:27:56 +0200 (CEST)
      Pörl.
      - +2 replies
      - Kean
        
        2014-05-22 13:25
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Ich dachte echt nicht dass es so simpel geht aber habe es gerade eben aus reiner Verzweiflung auch einfach mal probiert.
        
        Und es funktioniert wirklich. Hier meine Lösung, nur etwas anders geschrieben wie deine:
        
        Code: (dl )
        
        $spinbox->bind('<Return>', $spinbox->cget(-command));
        
        Vielen Dank für die Hilfe!
        
        GUIfreund
        
        2014-05-23 16:58
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        Das hat aber den Nachteil, dass du bei jedem '<Return>' erst erneut den cget ausführst. Da halte ich die Lösung von styx-cc für besser.
        Gruß
        GUIfreund
    - deleted 2014-05-23 16:43
    - +3 replies
    - GUIfreund
      
      2014-05-23 16:54
      
      User since
      2011-08-08
      559 articles
      BenutzerIn
      
      Wenn es dir nur darum geht, das doppelte Hinschreiben des Callbacks zu vermeiden, gib dem Callback einen Namen:
      
      Code (perl): (dl )
      
      1 2 3
      
      sub spin_cmd {print $anzeige_jahr_w->get()}; my $spinbox = $mw->Spinbox(-from => 1980, -to => 2037, -command => \&spin_cmd)->pack(); $spinbox->bind('<Return>', \&spin_cmd);
      
      Gruß
      GUIfreund
      - +2 replies
      - Kean
        
        2014-05-23 17:09
        
        User since
        2004-08-18
        463 articles
        BenutzerIn
        
        Dem Callback einen Namen zu geben bedeutet ja eine Funktion zu erzeugen.
        Da das erzeugen der Spinbox bereits in einer Funktion geschieht, gibt es soweit ich mich erinnere Probleme, da man in einer Funktion keine andere Funktion deklarieren kann. Oder täusche ich mich?
        
        GUIfreund
        
        2014-05-23 20:00
        
        User since
        2011-08-08
        559 articles
        BenutzerIn
        
        2014-05-23T15:09:05 Kean
        Oder täusche ich mich?
        
        Ja. Schau dir meinen Kode noch einmal genau an.
        
        Zeile 1: Die benannte Funktion wird erzeugt.
        
        Zeile 2: Die Spinbox wird erzeugt. Hier wird als Callback für -command eine Referenz auf die benannte Funktion angegeben.
        
        Zeile 3: Die Bindung für '<Return>' wird erzeugt. Auch hier wird als Callback eine Referenz auf die benannte Funktion angegeben.
        
        Probier's mal aus. Wenn noch was unklar ist, frage ruhig nochmal.
        Gruß
        GUIfreund
- Kean
  
  2014-05-22 13:04
  
  User since
  2004-08-18
  463 articles
  BenutzerIn
  
  Kann man vielleicht mit $spinbox->cget(-command) die Subroutine auslesen und dann irgendwie starten?
  Last edited: 2014-05-22 13:13:34 +0200 (CEST)

View all threads created 2014-05-22 11:41.