[Tk] Skopus von Variablen bei bind() und anonymer sub (gelöst) (Graphische Oberflächen)

[thread]16046[/thread]

[Tk] Skopus von Variablen bei bind() und anonymer sub [gelöst]

Tags: Tk Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+3 replies
pktm

2011-03-08 23:32
User since
2003-08-07
2921 Artikel
BenutzerIn
Hallo!

Wir ist das mit anonymen Subs, wenn man die bei bind() verwendet? Wie weit reicht da der Skopus? Können die alle Variablen sehen, die sich im aktuellen Code-Block befinden?

Und wie kann ich explizit bestimmte Variablen übergeben, so dass ich die mit shift aus der Argument-Liste nehmen kann?

Hier ein kleines Beispiel:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!perl use strict; use warnings; use Tk; my $mw = Tk::MainWindow->new(); my $entry = $mw->Entry()->pack(); my $var = '123'; $entry->bind('<KeyPress>', sub{ print "$var\n"; }); $mw->MainLoop();
modedit Editiert von pq: Tk zum Titel hinzugefügt
Last edited: 2011-03-09 00:28:57 +0100 (CET)
http://www.intergastro-service.de (mein erstes CMS :) )
- +2 replies
- #Kein Kommentar
  
  2011-03-09 11:53
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  so kannst du variablen übergeben:
  beachte jedoch, dass das erste element der argumenten-liste das widget selbst ist.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  use strict; use warnings; use Tk; my $mw = Tk::MainWindow->new(); my $entry = $mw->Entry()->pack(); my $var = '123'; # sub in []-klammern packen $entry->bind('<KeyPress>', [sub{ $entry->configure(-text => "$_[1]\n"); }, $var]); $mw->MainLoop();
  
  Editiert von #Kein Kommentar: kommentar in den code eingefügt
  Last edited: 2011-03-09 16:02:04 +0100 (CET)
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - pktm
    
    2011-03-09 16:41
    
    User since
    2003-08-07
    2921 Artikel
    BenutzerIn
    
    Danke!
    http://www.intergastro-service.de (mein erstes CMS :) )

View all threads created 2011-03-08 23:32.