Functor

LogTrace ("/home/annan/cvscode/isl/src/MozartMessageSimulator/MessageLog/LogTrace.oz")

Import

• SiteClass
• GraphicSite
• Tk

Export

• <C:LogTraceClass>

Define

class LogTraceClass from Tk.frame
   feat graphicalSite logicalSite port id id_canvas node_canvas

• solve()
  
• tkInit(...)
  
• send(from:From msg:Msg to:To)
  
• receive(from:From msg:Msg to:To)
  
• string(from:From msg:Msg)
  
• level()
  
• event(E)
  
• createNode(ID C)
  
• addNode(ID C)
  

end

End