Komputer for Alle 2002 #12/K-CD-12-2002.ISO/Tools/K-CS.dcr/00491_Toggle.ls

Text File | 2002-04-19 | 624 b | 20 lines

property modified, ItemState

on new me
  set the visible of sprite modified to ItemState
end

on mouseUp
  set Seen to the visible of sprite modified
  set the visible of sprite modified to 1 - Seen
end

on getBehaviorDescription
  return "Toggling bitmap. The paramitra is 1 for default on, 0 for default off, second for picking sprite channel."
end

on getPropertyDescriptionList
  set p_list to [#ItemState: [#default: 0, #format: #integer, #comment: "Initial state", #range: [#min: 0, #max: 1]], #modified: [#default: 91, #format: #integer, #comment: "Sprite to hit", #range: [#min: 1, #max: 120]]]
  return p_list
end