home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / NETCD41.dir / 00040.ls < prev    next >
Encoding:
Text File  |  1997-12-11  |  579 b   |  27 lines
  1. on vDUNCAN
  2.   global MIAW, titleBar, dxrName
  3.   if objectp(MIAW) then
  4.     forget(MIAW)
  5.   end if
  6.   set horzOrigin to the stageLeft + 152
  7.   set vertOrigin to the stageTop + 107
  8.   set MIAWRect to rect(horzOrigin, vertOrigin, horzOrigin + 336, vertOrigin + 244)
  9.   set MIAW to window titleBar
  10.   set the windowType of window titleBar to 4
  11.   set the modal of window titleBar to 1
  12.   set the rect of MIAW to MIAWRect
  13.   set the fileName of MIAW to dxrName
  14.   open(MIAW)
  15. end
  16.  
  17. on stopMovie
  18.   finishMovie()
  19. end
  20.  
  21. on finishMovie
  22.   global MIAW
  23.   if objectp(MIAW) then
  24.     forget(MIAW)
  25.   end if
  26. end
  27.