Comic Book Maker: The Smurfs/COMIC.iso/mac/data_m/dialog/00004_BasicDlogActionBtn.ls

Text File | 1999-07-07 | 2.0 KB | 39 lines

property myAction, myParams, ancestor, myObj, updateBeforeAction, setPrev, centerText, makeMeDefault, makeSoundDown, makeSoundUp

on beginSprite me
  if makeSoundDown = #none then
    set makeSoundDown to 0
  else
    set makeSoundDown to the number of member string(makeSoundDown)
  end if
  if makeSoundUp = #none then
    set makeSoundUp to 0
  else
    set makeSoundUp to the number of member string(makeSoundUp)
  end if
  set ancestor to new(script "BasicBtnBhvr")
  init(me)
  set myObj to value(myObj)
  if setPrev then
    set the scriptInstanceList of sprite (the currentSpriteNum - 1) to [me]
    if centerText then
      set the locH of sprite (the mySprite of me - 1) to the locH of sprite the mySprite of me - (the width of the member of sprite (the mySprite of me - 1) / 2) + 10
    end if
  end if
  if makeMeDefault then
    set the defaultBtn of script 1 to the mySprite of me
  end if
end

on doAction me
  if updateBeforeAction then
    updateStage()
  end if
  call(myAction, myObj, the mySprite of me, myParams)
end

on getPropertyDescriptionList
  set x to [#none, "-", #changeTypeSize, #displayPageSetup, #changeColorMode, #scrollField, "-", #preSaveFile, #promptToOverwrite]
  return [#myAction: [#comment: "Handler:", #format: #symbol, #range: x, #default: getAt(x, 1)], #myObj: [#comment: "Object:", #format: #string, #range: ["gObj1", "gObj2", "gObj3", "gObj5", "gObj6", sprite(12), script 1], #default: 1], #myParams: [#comment: "Params:", #format: #integer, #default: VOID], #setPrev: [#comment: "set prev sprite to me:", #format: #boolean, #default: 0], #centerText: [#comment: "centerText?:", #format: #boolean, #default: 0], #updateBeforeAction: [#comment: "Update before Action:", #format: #boolean, #default: 1], #makeMeDefault: [#comment: "defaultBtn?:", #format: #boolean, #default: 0], #makeSoundDown: [#comment: "Make soundDown:", #format: #symbol, #range: [#none, #btnDown], #default: #btnDown], #makeSoundUp: [#comment: "Make soundUp:", #format: #symbol, #range: [#none, #btnUp], #default: #btnUp]]
end