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