Hier sind: 
Inhalt testbaum


Inhalt von testBaum vom. 28.03.98

Übersicht

on testBaum Knoten
-- erzeugt beliebig vrzweigten Baum von Instanzen von BaumObj
-- zum Test von Messaging


Inhalt top Callers

on testBaum Knoten
-- erzeugt beliebig vrzweigten Baum von Instanzen von BaumObj
-- zum Test von Messaging

set LpObj = [:]
-- Aufruf:
-- new (script "BaumObj", Ahn,1)
-- makeChild (dObj,?Scriptname) -- default = nenn(me)
-- passMsg me,dMsg
-- tellMsg me,dMsg

set dObj = new (script "BaumObj","BasisObj",1)
set dId = zuSymbol("o" & getmyId(dObj))
setaprop LpObj,dId,dObj

repeat with rum= 11 to Knoten
set dDad = (getat(LpObj,Random (Count (lpObj))))
set dKid= makeChild (dDad)
set dId = zuSymbol("o" & getmyId(dKid))
setaprop LpObj,dId,dKid
end repeat

--passMsg dObj,"nothing"
return dObj
end





-- /IHV


 

 

 

 

 

 

 

 

HTML created by dp tiny script documenting xtra v0.2 28.03.98