GameStar 1998 November (Bonus)/GAMESTAR11B.ISO/ENCYC99/MM/T065518A.DCR/00018_ButtonTrackerMaker.ls

Text File | 1998-06-18 | 745 b | 39 lines

property buttonList, channelList, activeButton

on new me
  set buttonList to [:]
  set channelList to []
  return me
end

on makeButton me, wType, wState, wChannel
  set tButton to new(script "ButtonMaker", wType, wState, wChannel, me)
  addProp(buttonList, wChannel, tButton)
  add(channelList, wChannel)
  return tButton
end

on deactivate me, aButton
  set activeButton to 0
end

on mouseCheck
  if activeButton = 0 then
    if the stillDown = 0 then
      repeat with i in channelList
        if rollOver(i) then
          set activeButton to getProp(buttonList, i)
        end if
      end repeat
    end if
  else
    buttonActive(activeButton)
  end if
end

on resetButtons me
  repeat with i in buttonList
    reset(i)
  end repeat
end