dd Dialog Director (die Zweite) - kleines Problem

[sideshow]

Hallo, ich malwieder!

Nach der überaus Hilfreichen Antwort von Jens bin ich schon weiter gekommen, aber ein kleines Problem hab ich da noch. Kann sich des mal jemand anschauen?

--das erste Einleitungsfenster
set intro1 to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:push button, bounds:[205, 265, 285, 285], name:"Abbruch"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:push button, bounds:[20, 265, 100, 285], name:"Hilfe"}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:center, contents:"Tic Tac Toe"} ¨
], name:"Tic Tac Toe | © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

--set show_intro1 to dd auto dialog intro1 with grayscale

--interact with user - Schleife wegen Hilfe
dd install with grayscale

set d to dd make dialog intro1
repeat
set i to dd interact with user
if i = 4 then
set helpWindow to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:left, contents:"Tic Tac Toe - Hilfe"} ¨
], name:"Tic Tac Toe Help | © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

set Hilfe to dd auto dialog helpWindow with grayscale
else
exit repeat
end if
end repeat

dd uninstall

>> Aber vorsicht << der Finder stürzt dabei ab!

Danke im Voraus! CU sideshow
_________________
Meine Wenigkeit im Internet: http://www.sideshow-systems.de

[Jens Hoffmann]

Du fängst aber auch gleich mit den heftigen Sachen an (die machen halt auch am meisten Spass). Es liegt an den beiden im vorherigen Thread erwähnten letzten Zeilen, bzw. einer davon:

dd delete FensterName -- löscht das Fenster. Wenn Du ein neues aufmachst, musst Du es auch wieder löschen. Wenn Du das weglässt, gibt es einen Crash.

So geht's:

-----

--das erste Einleitungsfenster
set intro1 to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:push button, bounds:[205, 265, 285, 285], name:"Abbruch"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:push button, bounds:[20, 265, 100, 285], name:"Hilfe"}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:center, contents:"Tic Tac Toe"} ¨
], name:"Tic Tac Toe &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

--set show_intro1 to dd auto dialog intro1 with grayscale

--interact with user - Schleife wegen Hilfe
dd install with grayscale

set d to dd make dialog intro1
repeat
set i to dd interact with user
if i = 4 then
set helpWindow to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:left, contents:"Tic Tac Toe - Hilfe"} ¨
], name:"Tic Tac Toe Help &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

set Hilfe to dd auto dialog helpWindow with grayscale
else
exit repeat
dd delete Hilfe
end if
end repeat
dd delete d
dd uninstall

[sideshow]

Ah, schon verstanden! Is ja eigentlich auch logisch! Ich hab des mit dem uninstall und dem delete schon verstanden, hab aber irgendwie nich gerafft, was ich da nochmal genau deleten und uninstalen muss!

ps: anfangen tu ich ja indem sinn nich wirklich. ich hab jetz doch auch schon einiges an erfahrung gesammelt. es sind nur so ein paar sachen die mir nich in den kopf gehen wollen (sowas wie interact with user oder auch des gauge!)! Aber du hast auf alle fälle recht: die schwierigeren sachen bzw. die herausforderungen mach erheblich mehr spass!!!


Danke nochmal!!!!
_________________
Meine Wenigkeit im Internet: http://www.sideshow-systems.de

[sideshow]

Hi Jens,

des funtioniert trotzdem nicht! Ich verzweifle gerade. Ich kann es ganz normal laufen lassen und die buttons "OK" & "Abbrechen" funktionieren einwandfrei. das popup fenster Hilfe geht auch noch gut auf doch wenn man dann mit "OK" das Hilfe Popup fenster schließen will, geht im vorigen fenster nix mehr. und da soll schon was gehen! Ich weis beim besten willen auch nich, an was des liegt!!!!
_________________
Meine Wenigkeit im Internet: http://www.sideshow-systems.de

[Jens Hoffmann]

Hmm, bei mir läuft's. Also mal Versionen prüfen: DD Version 0.7, AppleScript D 1.6

Generell ist das Programmieren mit DD etwas buggy. Manchmal hilft nur ein Neustart weiter. Regelmässig speichern ist hier das A & O gegen Frust! Vor allem wenn das Script beim Ausführen einen Fehler liefert. Manchmal bekomme ich nach ein paar Script-Fehlern eine Error 2 Meldung. Dann muss man das Script speichern, den Skripteditor beenden und wieder starten.

Vielleicht hilft auch diese Möglichkeit: statt "auto dialog" nimmst Du den "make dialog"-Befehl für das Hilfefenster. Probiers mal:

----

set intro1 to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:push button, bounds:[205, 265, 285, 285], name:"Abbruch"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:push button, bounds:[20, 265, 100, 285], name:"Hilfe"}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:center, contents:"Tic Tac Toe"} ¨
], name:"Tic Tac Toe &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

--set show_intro1 to dd auto dialog intro1 with grayscale

--interact with user - Schleife wegen Hilfe
dd install with grayscale

set d to dd make dialog intro1
repeat
set i to dd interact with user
if i = 4 then
-- Hilfe Anfang
set helpWindow to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:left, contents:"Tic Tac Toe - Hilfe"} ¨
], name:"Tic Tac Toe Help &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

set Hilfe to dd make dialog helpWindow
repeat
set i2 to dd interact with user
if i2 = 1 then
exit repeat
end if
end repeat
dd delete Hilfe
-- Hilfe Ende

else
exit repeat

end if
end repeat
dd delete d
dd uninstall

----

[sideshow]

Hi,

ich hab die selben versionen wie du, aber mir stürzt imme der finder ab!
hab  auch deine version des scriptes übernommen - und es geht einfach nix! hast du vielleicht noch alternativ lösungen parat?
_________________
Meine Wenigkeit im Internet: http://www.sideshow-systems.de

[Jens Hoffmann]

Tja, da fallen mir nur ein paar Schüsse ins Blaue ein:

- AppleScript Preferenzen löschen
- Speicher des Skripteditors erhöhen
- DD-Addtion löschen und neu installieren
- Dein Script kopieren und in ein neues Script speichern, altes löschen
- nicht benötigte Scripting-Additions ausschalten
- Während des Scriptens keine anderen Prozesse laufen lassen
- Mit dem Erweiterungssatz "MAC OS 9 Standard" starten

Und zu guter Letzt noch eine Version mit einem "try"-Block. Aber dann bin ich meinem Latein auch am Ende...

Gruß Jens

----

set intro1 to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:push button, bounds:[205, 265, 285, 285], name:"Abbruch"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:push button, bounds:[20, 265, 100, 285], name:"Hilfe"}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:center, contents:"Tic Tac Toe"} ¨
], name:"Tic Tac Toe &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

dd install with grayscale
try
set d to dd make dialog intro1
repeat
set i to dd interact with user
if i = 4 then
set helpWindow to {size:[400, 300], contents:[¨
{class:push button, bounds:[300, 265, 380, 285], name:"OK"}, ¨
{class:group box, bounds:[20, 255, 380, 257], style:secondary group}, ¨
{class:static text, bounds:[20, 10, 380, 30], justification:left, contents:"Tic Tac Toe - Hilfe"} ¨
], name:"Tic Tac Toe Help &#0124; © sideshow 2002", style:movable dialog, default item:1, timeout after:60}

set Hilfe to dd make dialog helpWindow
repeat
set i2 to dd interact with user
if i2 = 1 then
exit repeat
end if
end repeat
dd delete Hilfe
else
exit repeat
end if
end repeat
on error msg number num
display dialog msg & " " & num
end try
dd delete d
dd uninstall

----