home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 November / Chip_2000-11_cd1.iso / DATA / INF.Z / BIT16 / MC16.EXE / MC16.DXR / 00009.ls < prev    next >
Encoding:
Text File  |  1998-02-20  |  381 b   |  23 lines
  1. on mouseDown
  2.   case the mouseCast of
  3.     15:
  4.       swapCast(3, 18)
  5.       wait(10)
  6.       swapCast(3, 15)
  7.       updateStage()
  8.   end case
  9. end
  10.  
  11. on mouseUp
  12.   case the mouseCast of
  13.     15:
  14.       set code to ejectCD()
  15.       if code < 0 then
  16.         displayButton("re-insert", 0)
  17.       else
  18.         hideButton()
  19.       end if
  20.       set gDiskRequested to gDiskRequested + 100
  21.   end case
  22. end
  23.