[Tk] Innerhalb eines Command das aufrufende Widget herausfinden (gelöst) (Graphische Oberflächen)

[thread]19599[/thread]

[Tk] Innerhalb eines Command das aufrufende Widget herausfinden [gelöst]

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+5 replies
Kean

2015-04-02 16:45

User since
2004-08-18
463 Artikel
BenutzerIn

Ich erzeuge in einer Schleife Buttons. Diese haben einen -command Parameter in welchem ich herausfinden möchte, welcher der Buttons gedrückt wurde.
Gibt es eine Möglichkeit dies herauszufinden?
- +2 replies
- Linuxer
  
  2015-04-02 17:19
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hi, bin kein Tk Spezi oder Nutzer; nur ein wilder Gedanke:
  
  Lass Dir doch mal von der aufgerufenen Subroutine die Argumentliste @_ ausgeben.
  Vielleicht wird da was übergeben und ddie Information steht da drin?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  ... $tk->button( -text => 'show some args', -command => \&show_me_args ) ... sub show_me_args { warn join "\n", "arguments:", @_; }
  
  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!
  - Kean
    
    2015-04-02 19:35
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Da werden leider gar keine Argumente ausgegebn...
- +2 replies
- Kean
  
  2015-04-02 19:49
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  Ich habe eine Lösung gefunden:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  foreach (@Liste) { $mw->Button( -text => $_, -command => [\&button_press, $_] ); } sub button_press { my $button = shift; print $button; }
  
  So bekommt jeder Button eine von seinem Namen abhängige Funktion.
  - pktm
    
    2015-04-11 04:22
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Hi!
    
    Meinst du eventuell $Tk::widget?
    
    Hier gibt es ein Beispiel dafür: http://www.perltk.de/tk_widgets/wtk_checkbutton.ht...
    http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2015-04-02 16:45.