Opened by Crian at 2004-01-15 16:29
User since
2003-11-28
3645 Artikel
ModeratorIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-28
3645 Artikel
ModeratorIn
[quote=Crian,19.Jan..2004, 10:00]hmmm der Code ist 1377 Zeilen lang... der betreffende Ausschnitt sieht so aus:
[/quote]
-recurse arbeitet nur die Kinder des angegebenen Widgets ab. Wenn also $Config{main_window} nicht dein MainWindow ist oder du mehrere MainWindows im Programm hast, werden einige Fenster von Busy() ausgespart.
Uebrigens: %Config ist als Variablenname nicht besonders gut gewaehlt, da diese Variable auch bei "use Config" verwendet wird. Solange du aber in deinen Skripten dieses Modul nicht verwendest, hast du nichts zu befuerchten.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
sub tk_save () {
print "tk_save()\n" if $Config{debug};
$Config{main_window}->Busy(-recurse => 1);
speichere_aktuellen_ds();
speichere_daten();
gehe_zu($Config{Aktueller_DS});
$Config{main_window}->Unbusy;
} # sub tk_save;-recurse arbeitet nur die Kinder des angegebenen Widgets ab. Wenn also $Config{main_window} nicht dein MainWindow ist oder du mehrere MainWindows im Programm hast, werden einige Fenster von Busy() ausgespart.
Uebrigens: %Config ist als Variablenname nicht besonders gut gewaehlt, da diese Variable auch bei "use Config" verwendet wird. Solange du aber in deinen Skripten dieses Modul nicht verwendest, hast du nichts zu befuerchten.