home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00036_Script_36 < prev    next >
Text File  |  2001-09-17  |  1KB  |  42 lines
  1. --∂ï
  2. on aboutASL
  3.   global myASLWindow
  4.   if objectP(myASLWindow) then
  5.     close myASLWindow
  6.     forget myASLWindow
  7.     finishASLMovie
  8.   else 
  9.     set myASLWindow to window "aboutASL.dir"
  10.     set the windowType of window "aboutASL.dir" = 3
  11.     
  12.     if the machineType = 256 then
  13.       set the fileName of myASLWindow to the pathName & "MIAWs\aboutASL.dir"
  14.     else set the fileName of myASLWindow to the pathName & "MIAWs:aboutASL.dir"
  15.     
  16.     set the titleVisible of myASLWindow to FALSE
  17.     set the modal of myASLWindow to TRUE
  18.     
  19.     put the rect of myASLWindow into currentRect
  20.     set the rect of myASLWindow to centerRect(currentRect)
  21.     
  22.     hideEntry "all"
  23.     sound Stop 3
  24.     
  25.     enableMenu(FALSE)
  26.     
  27.     pupPal(myASLWindow)
  28.     
  29.     open myASLWindow
  30.     moveToFront myASLWindow
  31.   end if 
  32. end
  33.  
  34. on finishASLMovie
  35.   global myASLWindow
  36.   if objectP(myASLWindow) then 
  37.     close myASLWindow
  38.     forget myASLWindow
  39.     showEntry "all"
  40.   end if
  41.   
  42. end