home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 August / WPCAUG96.ISO / makers / body / bodymain.dir / 00402_ReleasCursor.ls < prev    next >
Encoding:
Text File  |  1996-06-12  |  664 b   |  37 lines
  1. on SetCursor
  2.   global colorcrsr
  3.   if the machineType <> 256 then
  4.     if not objectp(COLOURM.OBJ) then
  5.       set colorcrsr to ColorCursor(mnew)
  6.     end if
  7.     colorcrsr(mGetSetCursor, 131)
  8.   else
  9.     cursor([4, 5])
  10.   end if
  11. end
  12.  
  13. on ReleasCursor
  14.   global colorcrsr
  15.   if the machineType <> 256 then
  16.     if objectp(colorcrsr) then
  17.       colorcrsr(mReleaseCursor)
  18.       colorcrsr(mdispose)
  19.       updateStage()
  20.       cursor(4)
  21.       cursor(0)
  22.     end if
  23.   else
  24.     cursor(-1)
  25.   end if
  26. end
  27.  
  28. on StopTheMovie
  29.   global colorcrsr
  30.   if the machineType <> 256 then
  31.     if objectp(colorcrsr) then
  32.       colorcrsr(mdispose)
  33.       closeXLib("COLOURM.OBJ")
  34.     end if
  35.   end if
  36. end
  37.