Computer Music Interactif 7/cd.iso/pc/PC/Demos/GroovMak/data1.cab/Program_Executable_Files/Media/Pref.dxr/00088.ls

Text File | 1999-09-17 | 853 b | 32 lines

on mouseEnter
  if the visible of window "help" then
    tell window "help"
      go("pref8")
    end tell
  end if
end

on mouseLeave
  if the visible of window "help" then
    tell window "help"
      go("start")
    end tell
  end if
end

on mouseUp
  global numTrackList
  if not (the visible of window "help") then
    set nS to the name of member the memberNum of sprite the clickOn
    if (char 1 of nS <> "H") and (char 1 of nS <> "d") then
      set val to integer(char 1 of nS)
      set pos to integer(char 2 of nS)
      set spento to getAt(numTrackList, pos) & pos
      set the memberNum of sprite (15 + (5 * (pos - 1)) + getAt(numTrackList, pos)) to the number of member spento
      set hNs to "H" & nS
      set the memberNum of sprite the clickOn to the number of member hNs
      setAt(numTrackList, pos, val)
    end if
  end if
end