Kann jemand diesen Code erklären? (Graphische Oberflächen)

[thread]15424[/thread]

Kann jemand diesen Code erklären?

Leser: 31

Articles: hide open all | hide show old branches

+4 replies
dimpflmoser

2010-08-30 19:42
User since
2004-06-28
46 Artikel
BenutzerIn
Hallo zusammen,

im Internet habe ich den folgenden (funktionierenden) Code gefunden und nicht verstanden:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

# Emulate Perl/Tk's repeat() method sub repeat { my $ms = shift; my $sub = shift; my $repeater; # repeat wrapper # Die folgende Zeile verstehe ich nicht $repeater = sub { $sub->(@_); Tkx::after($ms, $repeater); }; Tkx::after($ms, $repeater); }
aufgerufen wird die Routine mit:
Code: (dl )

repeat(100, \&UpdateCurrentProgress);
Kann jemand die fragliche Zeile erkären?

Danke Helmut
- lichtkind
  
  2010-08-30 19:48
  
  User since
  2004-03-22
  5680 Artikel
  ModeratorIn + EditorIn
  
  sieht aus als emuliert hier jemand ne schleife mit rekursion. Für mehr müsst ich ahnung von Tkx haben.
  
  alle 100 millisekunden (ms) wird da etwas gemacht werden. und dies $repeat ist die code ref die eine codref (erster parameter) und dann den update aufruft damit das ganze wieder von vorne losgehen kann.
  Last edited: 2010-08-30 19:52:58 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- topeg
  
  2010-08-30 20:23
  
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  
  "repeat" ruft eine übergebene Funktionsreferenz alle x Millisekunden auf. Der Autor scheint der Meinung zu sein, dass Tkx so etwas nicht besitzt (kann ich nichts zu sagen, ich habe Tkx noch nie benutzt).
  
  Das wird so realisiert, dass "Tkx::after" eine anonyme Coderefenz übergeben wird ($repeater = sub {...} und Tkx::after(... , $repeater)) in der die an "repeat" übergebene Funktionsrefenz aufgerufen wird und danach ein neuer "Tkx::after" Aufruf erfolgt.
- Gast wurscht
  
  2010-08-31 10:10
  
  $sub muss eine Funktionsreferenz sein, also entweder sowas sub {} oder \&nameDerSub
  
  Diese wird nochmal um eine Referenz verpackt, in der die Funktion $sub und Tkx::after aufgerufen wird.
  
  Dann wird die Funktion Tkx::after aufgerufen, die einen Timer setzt, der nach $ms Millisekunden die Funktion $repeater aufruft.
  
  Da dort wieder after aufgerufen wird, hast du einen Interval.
  Last edited: 2010-08-31 10:15:51 +0200 (CEST)

View all threads created 2010-08-30 19:42.