oopTalk
  communication between Objects
oop communication




  oopTalk 
>I have a quick question regarding property values of objects. 

<snip>

>How do I get the pLength value from the pArm property of the
>gBrainManagerObj object? 

devin,

there are many possible ways to achieve this, the two parent scripts below 
describe just one of them.

----------------
--"brainManager"

property myLpBody

on new me
  init me
  return me
end

on init me
  set myLpBody = [:]
  setaProp myLpBody,#Arm,new ( script "armManager" )
  setaProp myLpBody,#Leg,new ( script "legManager" )
end

on getBodyInfo me,dPart,dProp
  set dObj = getaprop(myLpBody,dPart)
  if not ObjectP(dObj) then return
  set dInfo = reportProperty (dObj,dProp)
  return dInfo
end

--------------------------

---"legManager"

property pLength
property pStrength

on new me
  init me
  return me
end

on init me
  set pLength=#leglength
  set pStrength=#legStrength
end

on reportProperty me,dProp
  if objectP(me) then
    return getaProp(me,dProp)
  end if
end

--------------------------------------
-- Welcome to Director --
-- "Now loading LINGO.INI 04.10.98 00:31 "
-- "This computer is running in  16-bit color depth."

set dObj=new(script "brainmanager")
put getBodyInfo (dObj,#leg,#pLength)
-- #leglength

Home shock + cgi Bits 'n pieces Director Lingo Shocklets Contact










pageID=l_oopTalk