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 / 00360.ls < prev    next >
Encoding:
Text File  |  1999-09-17  |  967 b   |  32 lines
  1. on rightMouseUp
  2.   global gSync
  3.   if not (the visible of window "help") and not gSync then
  4.     set numLine to the mouseLine
  5.     putKeep(numLine)
  6.   end if
  7. end
  8.  
  9. on mouseUp
  10.   global gTraccia, gOn, gpag, gDelUser, gPath, gSync, gFirstClick, keepList, audioList, virTracklIst
  11.   set numLine to the mouseLine
  12.   if gOn and not (the visible of window "help") then
  13.     if not gSync or (gSync and gFirstClick) then
  14.       set gFirstClick to 0
  15.       if (numLine >= 1) and (numLine <= count(audioList)) then
  16.         if the shiftDown then
  17.           if (char 1 of getAt(audioList, numLine) = "u") and not getPos(virTracklIst, numLine) then
  18.             set gDelUser to word 2 of line numLine of field "fieldAudio"
  19.             openWin("YesNo")
  20.             tell window "YesNo"
  21.               go("delUser")
  22.             end tell
  23.           end if
  24.         else
  25.           clickNameAudio(numLine)
  26.         end if
  27.       end if
  28.     end if
  29.   end if
  30.   set the editable of member "fieldBpm" to 0
  31. end
  32.