[TK] Widget innerhalb eines Command Sub identifizieren (gelöst) (Graphische Oberflächen) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen

2024-10-06 11:24:55
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
9 Gäste

[thread]20271[/thread]

submit to reddit

[TK] Widget innerhalb eines Command Sub identifizieren [gelöst]

[gelöst]

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
Kean

2017-04-21 10:51
User since
2004-08-18
463 Artikel
BenutzerIn
Ich erzeuge in einem TK Script wie folgt Buttons:
Code (perl): (dl )

$mw->Button( -text => "Test", -command => sub { my $widget = $SELF(?); print $widget->cget(-text); } )->place( -x => 50, -y => 100, -height => 100, -width => 320);
Kann ich in der Subroutine irgendwie das Widget/Objekt ermitteln welches die Sub aufgerufen hat?
- +2 replies
- FIFO
  
  2017-04-21 13:29
  User since
  2005-06-01
  469 Artikel
  BenutzerIn
  versuch mal (innerhalb des Callback)
  
  Code (perl): (dl )
  
  my $caller = $Tk::widget;
  
  Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
  - Kean
    
    2017-04-21 15:19
    
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Funktioniert! Super vielen Dank.

View all threads created 2017-04-21 10:51.