home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / MAKERS / OPEN.DIR / 00004.ls < prev    next >
Encoding:
Text File  |  1996-03-12  |  823 b   |  41 lines
  1. on startMovie
  2.   global fixpal
  3.   set the soundLevel to 4
  4.   if the machineType <> 256 then
  5.     if factory("RearWindow") = 0 then
  6.       openXLib("RearWindow.XObj")
  7.     end if
  8.     initRearWindow(255)
  9.   end if
  10.   set the exitLock to 1
  11.   set the colorDepth to 8
  12.   set the textHeight of field "text" to 30
  13. end
  14.  
  15. on initRearWindow theColor
  16.   global rwObj
  17.   if the machineType <> 256 then
  18.     if objectp(rwObj) then
  19.       rwObj(mdispose)
  20.     end if
  21.     set rwObj to RearWindow(mnew, "M")
  22.     rwObj(mIndexColorToWindow, theColor)
  23.   end if
  24. end
  25.  
  26. on disposeRearWindow
  27.   global rwObj
  28.   if the machineType <> 256 then
  29.     if objectp(rwObj) then
  30.       rwObj(mdispose)
  31.     end if
  32.   end if
  33. end
  34.  
  35. on xxx
  36.   global greadObject
  37.   set greadObject to FileIO(mnew, "read", the pathName & "loading lines")
  38.   put greadObject
  39.   greadObject(mdispose)
  40. end
  41.