PC World 2002 May/PCWorld_2002-05_cd.bin/Novinky/grada/Aplikace/Titulky.dxr/00015_Ovládání soubor.ls

Text File | 2002-04-14 | 827 b | 39 lines

property Soubor

on getPropertyDescriptionList
  set description to [:]
  addProp(description, #Soubor, [#comment: "Soubor:", #format: #string, #default: EMPTY])
  return description
end

on getBehaviorDescription
  return "Nájezd a klik"
end

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
  set the visible of sprite (the spriteNum of me + 1) to 0
end

on endSprite me
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set the visible of sprite (the spriteNum of me + 1) to 1
end

on mouseLeave me
  set the cursor of sprite the spriteNum of me to -1
  set the visible of sprite (the spriteNum of me + 1) to 0
end

on mouseDown me
  puppetSound(1, "Klik")
end

on mouseUp me
  play movie the pathName & Soubor
end