home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00022_Script_summmary < prev    next >
Text File  |  2001-09-17  |  2KB  |  86 lines
  1. --∂ï
  2. on sumP
  3.   global mySumWindow
  4.   
  5.   if objectP(mySumWindow) then
  6.     close mySumWindow
  7.     forget mySumWindow
  8.     finishSumMovie
  9.   else 
  10.     set mySumWindowRect to rect(the StageLeft + 20,the stageTop + 20,the stageleft + 372,the stageTop + 279)
  11.     set mySumWindow to window "SumP.dir"
  12.     set the windowType of window "SumP.dir" = 3
  13.     set the rect of mySumWindow to mySumWindowRect
  14.     
  15.     if the machinetype = 256 then
  16.       set the fileName of mySumWindow to the pathName & "MIAWs\SumP.dir"
  17.     else set the fileName of mySumWindow to the pathName & "MIAWs:SumP.dir"
  18.     
  19.     set the titleVisible of mySumWindow to FALSE
  20.     set the modal of mySumWindow to true
  21.     ----
  22.     ----
  23.     tell mySumWindow to testResults
  24.     ----
  25.     ----
  26.     --hideEntry "all"
  27.     
  28.     enableMenu(FALSE)
  29.     
  30.     pupPal(mySumWindow)
  31.     
  32.     open mySumWindow
  33.     moveToFront mySumWindow
  34.   end if 
  35.   dontPassEvent
  36. end sumP
  37.  
  38. on sumT
  39.   global mySumWindow
  40.   
  41.   if objectP(mySumWindow) then
  42.     close mySumWindow
  43.     forget mySumWindow
  44.     finishSumMovie
  45.   else 
  46.     set mySumWindowRect to rect(the StageLeft + 20,the stageTop + 20,the stageleft + 436,the stageTop + 334)
  47.     set mySumWindow to window "SumT.dir"
  48.     set the windowType of window "SumT.dir" = 3
  49.     set the rect of mySumWindow to mySumWindowRect
  50.     
  51.     if the machinetype = 256 then
  52.       set the fileName of mySumWindow to the pathName & "MIAWs\SumT.dir"
  53.     else set the fileName of mySumWindow to the pathName & "MIAWs:SumT.dir"
  54.     
  55.     set the titleVisible of mySumWindow to FALSE
  56.     set the modal of mySumWindow to true
  57.     ----
  58.     ----
  59.     tell mySumWindow to testResults
  60.     ----
  61.     ----
  62.     --hideEntry "all"
  63.     
  64.     enableMenu(FALSE)
  65.     
  66.     pupPal(mySumWindow)
  67.     
  68.     open mySumWindow
  69.     moveToFront mySumWindow
  70.   end if 
  71.   dontPassEvent
  72. end sumT
  73.  
  74. on finishSumMovie 
  75.   global mySumWindow
  76.   if objectP(mySumWindow) then
  77.     close mySumWindow
  78.     forget mySumWindow
  79.   end if
  80.   if the movieName = "Dict.dir" then 
  81.     set the visible of sprite 39 = false
  82.     updatestage
  83.     set the visible of sprite 39 = true
  84.   end if
  85.   updatestage
  86. end