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