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 | 
			 
		  |