source: trunk/lingosource/castlib2/SpriteNameBeaver.ls

-- SPRITENAMEN
-- sprite naming behavior
-----------------------------------
-- CREATED:
--
-- PROPERTIES:
--!memberProperties: [#name: "SpriteNameBeaver", #scripttype: #score, #scriptSyntax: #lingo, #comments:"~/Documents/Scripts/lingo/SpriteNameBeaver.ls"]
--
-- DESCRIPTION:
--             lingo scripts to handle movies in a window
--             director movies running in their own window -> new player instance
--             authoring and runtime only, as in shockwave we can't open and communicate
--             with other windows.
-----------------------------------


property pKanalname

on beginsprite me
  if pKanalname <> #kanalname then call(#mMeldeKanalname, mGetXScript(), pKanalname, me.spritenum)
end

-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

on endsprite me
  if pKanalname <> #kanalname then call(#mMeldeAbKanalname, mGetXScript(), pKanalname, me.spritenum)
end

-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

on getPropertyDescriptionList
  liste = [:]
  addProp liste, #pKanalname, [#default:#kanalname, #format:#symbol, #comment:"Name for sprite:"]
  return liste
end

-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

on mGetMyKanalName me
  return pKanalname
end