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

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

2024-10-13 06:56:16
Europe/Berlin
Login (Register)
- Preferences
- Statistics
Jemand zu Hause?
0 users online
1 guest

[thread]20271[/thread]

submit to reddit

[TK] Widget innerhalb eines Command Sub identifizieren [solved]

[solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+3 replies
Kean

2017-04-21 10:51
User since
2004-08-18
463 articles
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 articles
  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 articles
    BenutzerIn
    
    Funktioniert! Super vielen Dank.

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