Opened by master at 2005-10-13 18:13
User since
2003-10-20
610 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-10-20
610 Artikel
BenutzerIn
Ich habe ein Tk-Programm, das nach dem klick auf einen Button sich selber neustarten soll..
oder noch schöner() an den Programm Anfang zurückspringt.
GOTO -> ja ich weiss, sollte man nicht gebrauchen... habe aber kaum eine andere Wahl...
--
ich könnte auch den gesamten hauptteil des programms in eine Sub schmeissen und dann ansprechen.. da ich aber mit Triki-artist arbeite ist das unmöglich bzw. extrem mühsam.
--
Alternativ (jedoch langsamer)
Per exec, system einen 2. prozess starten. und den eigen beenden..
Das funktioniert aber nicht... da ich ja das gleiche programm aufrufe wie gerade läuft (gibt ein error)
Wie kann ich das am besten realisieren?
Goto funktioniert nicht richtig. bzw. ich kann nur in der schleife selber springen.. aber nicht aus der schleife raus an den anfang des programms...
Gibts eine andere möglichkeit?
ps. in die schleife MUSS ich, da z.B. $mw->destroy usw. gemacht werden müssen.
oder noch schöner() an den Programm Anfang zurückspringt.
GOTO -> ja ich weiss, sollte man nicht gebrauchen... habe aber kaum eine andere Wahl...
--
ich könnte auch den gesamten hauptteil des programms in eine Sub schmeissen und dann ansprechen.. da ich aber mit Triki-artist arbeite ist das unmöglich bzw. extrem mühsam.
--
Alternativ (jedoch langsamer)
Per exec, system einen 2. prozess starten. und den eigen beenden..
Das funktioniert aber nicht... da ich ja das gleiche programm aufrufe wie gerade läuft (gibt ein error)
Wie kann ich das am besten realisieren?
Goto funktioniert nicht richtig. bzw. ich kann nur in der schleife selber springen.. aber nicht aus der schleife raus an den anfang des programms...
Gibts eine andere möglichkeit?
ps. in die schleife MUSS ich, da z.B. $mw->destroy usw. gemacht werden müssen.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
(Module)
ANFANG:
(initialisierung)
(Darstellung)
mainloop;
sub event
{
goto ANFANG; # jetzt will ich wieder "fast von vorne"
anfangen
}
$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;