Komputer for Alle 2001 #13/CD 13 (Black) - 2001.iso/K-CS.DCR/00412_KlikKommando.ls

Text File | 2001-08-24 | 741 b | 28 lines

property MouseCommand, MouseCommand2
global CurrentStep

on mouseUp
  if voidp(MouseCommand) then
    set MouseCommand to "beep"
  end if
  if voidp(MouseCommand2) then
    set MouseCommand2 to "beep"
  end if
  if CurrentStep = 0 then
    do(MouseCommand)
  else
    if CurrentStep = 1 then
      do(MouseCommand2)
    end if
  end if
end

on getBehaviorDescription
  return "On mouseclick, jump to an appropriate handler. (This is a specialized behaviour for emulating sliders)."
end

on getPropertyDescriptionList
  set p_list to [#MouseCommand: [#format: #string, #comment: "On mouseclick execute this", #default: "beep"], #MouseCommand2: [#format: #string, #comment: "On mouseclick execute this", #default: "beep"]]
  return p_list
end