home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00034_Script_34 < prev    next >
Text File  |  2001-09-17  |  2KB  |  48 lines
  1. --∂ï
  2. on alertBox message
  3.   global myAlertWindow,dontQuit
  4.   if objectP(myAlertWindow) then
  5.     close myAlertWindow
  6.     forget myAlertWindow
  7.   else 
  8.     set myAlertWindow to window "alert.dir"
  9.     set the windowType of window "alert.dir" = 3
  10.     ---------------------
  11.     if the machineType = 256 then set the fileName of myAlertWindow to the pathName & "MIAWs\alert.dir"
  12.     else set the fileName of myAlertWindow to the pathName & "MIAWs:alert.dir"
  13.     ---------------------
  14.     set the titleVisible of myAlertWindow to FALSE
  15.     set the modal of myAlertWindow to TRUE
  16.     tell myAlertWindow to go frame "alertMessage"
  17.     tell myAlertWindow to put message into field "message"  
  18.     ---------------------
  19.     put the rect of myAlertWindow into currentRect
  20.     set the rect of myAlertWindow to centerRect(currentRect)
  21.     --green lines added to force redraw on pc
  22.     --    tell myAlertWindow to updateStage
  23.     --    tell myAlertWindow to set the stageColor = the stageColor
  24.     enableMenu(FALSE)
  25.     pupPal(myAlertWindow)
  26.     if message = "Adding Downloaded signs..." then 
  27.       --tell myAlertWindow to set the visible of sprite 4 to false
  28.       tell myAlertWindow to set the visible of sprite 3 to false --lose okay button
  29.     end if
  30.     if message = "Preparing Game..." then 
  31.       tell myAlertWindow to set the visible of sprite 4 to false
  32.     end if
  33.     if message = "Preparing Questions..." then 
  34.       tell myAlertWindow to set the visible of sprite 4 to false
  35.     end if
  36.     open myAlertWindow
  37.     moveToFront myAlertWindow
  38.     --green lines added to force redraw on pc
  39.     tell myAlertWindow to updateStage
  40.     tell myAlertWindow to set the stageColor = the stageColor
  41.   end if 
  42. end 
  43.  
  44. on alertMessage Str
  45.   global myAlertWindow
  46.   if not objectP(myAlertWindow) then exit
  47.   tell myAlertWindow to put Str into field "message"  
  48. end alertMessage