Listing 4.

on openStack
  updatelist
end openStack

on closeStack
  cancel timerid
end closeStack

on iconifyStack
  cancel timerid
end iconifyStack

on unIconifyStack
  updatelist
end unIconifyStack

on resizeStack
  set the height of field "toplist"\
       to the height of this card - 80
  repeat with i = 1 to the number of buttons
    set the bottom of button i \
       to the height of this card - 8
  end repeat
end resizeStack