home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / MAKERS / START / 00001.ls next >
Encoding:
Text File  |  1996-01-28  |  440 b   |  25 lines
  1. on startMovie
  2.   global TextObj, SavedPos
  3.   if factory("RearWindow") = 0 then
  4.     openXLib("RearWindow.XObj")
  5.   end if
  6.   initRearWindow(255)
  7.   set SavedPos to EMPTY
  8. end
  9.  
  10. on initRearWindow theColor
  11.   global rwObj
  12.   if objectp(rwObj) then
  13.     rwObj(mdispose)
  14.   end if
  15.   set rwObj to RearWindow(mnew, "M")
  16.   rwObj(mIndexColorToWindow, theColor)
  17. end
  18.  
  19. on disposeRearWindow
  20.   global rwObj
  21.   if objectp(rwObj) then
  22.     rwObj(mdispose)
  23.   end if
  24. end
  25.