Snow Administrator
Anmeldedatum: 21.11.2000 Beiträge: 1946 Wohnort: Deiningen
|
Verfasst am: 09.10.2001 - 22:13 Titel: Dialog Studio |
|
|
set theDialog to { size:{ 400, 200 }, style:standard window, closeable:true, name:"New Window", default item:2, contents:{ ¨
{ class:text field, bounds:{ 114, 51, 268, 67 }, value:"" }, ¨
{ class:text field, bounds:{ 114, 84, 268, 100 }, value:"" }, ¨
{ class:push button, bounds:{ 246, 164, 316, 184 }, name:"Rechnen" }, ¨
{ class:static text, bounds:{ 87, 51, 103, 67 }, contents:"A" }, ¨
{ class:static text, bounds:{ 86, 85, 106, 101 }, contents:"B" }, ¨
{ class:push button, bounds:{ 163, 164, 233, 184 }, name:"Beenden" }, ¨
{ class:static text, bounds:{ 84, 18, 234, 34 }, contents:"Bitte Zahlen eingeben" }, ¨
{ class:static text, bounds:{ 86, 106, 156, 122 }, contents:"Ergebnis:" }, ¨
{ class:text field, bounds:{ 115, 126, 269, 142 }, value:"" } } }
dd install with fonts { name:"Charcoal", size:12 } with grayscale
set d1 to dd make dialog theDialog
repeat
set userItem to dd interact with user
set values_of_d1 to dd get value of every item of d1
if userItem = -1 or userItem = 6 then
exit repeat
else if userItem = 3 then
try
set x to ((item 1 of values_of_d1) as number) * ((item 2 of values_of_d1) as number)
dd set value of item 9 of d1 to x as string
on error errmsg
display dialog errmsg
exit repeat
end try
end if
end repeat
dd uninstall _________________ Peter
-
Fischer-Bayern.de|Shadetreemicro.com |
|