home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 7 / cd.iso / pc / PC / Demos / GroovMak / data1.cab / Program_Executable_Files / Media / grooveM.dxr / 00499.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  766 b   |  32 lines
  1. on mouseEnter
  2.   if the visible of window "Help" then
  3.     tell window "help"
  4.       go("seq5")
  5.     end tell
  6.   end if
  7. end
  8.  
  9. on mouseLeave
  10.   if the visible of window "Help" then
  11.     tell window "help"
  12.       go("start")
  13.     end tell
  14.   end if
  15. end
  16.  
  17. on mouseUp
  18.   global gStartSeq, gPlaySeq, gYellow, markerList
  19.   if not gPlaySeq and not (the visible of window "help") then
  20.     if the mouseWord <> -1 then
  21.       set click to the mouseWord
  22.       if click <= count(markerList) then
  23.         set the foreColor of word gStartSeq of field "fieldMarkerSeq" to 0
  24.         set the foreColor of word click of field "fieldMarkerSeq" to gYellow
  25.         updateStage()
  26.         set gStartSeq to integer(click)
  27.       end if
  28.     end if
  29.   end if
  30.   set the editable of member "fieldBpm" to 0
  31. end
  32.