Functor

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

Import

• Tk
• Browser

Export

• <C:GraphicClass>
• <C:StringNode>
• <C:SendNode>
• <C:ReceiveNode>
• <C:Line>

Define

class GraphicClass
   feat db x canvas cm

• init(canvas:C colorMapping:CM x:X)
  
• string(id:Id msg:S short:Short type:T)
  
• send(dir:Dir id:Id msg:Msg short:Short type:T)
  
• receive(dir:Dir id:Id msg:Msg short:Short type:T)
  
• solve(id:Id y:Y)
  
• getXY(Id $)
  
• createLine(XY Id)
  

end

class StringNode from GraphNode
   feat string

• display()
  

end

class GraphNode
   feat x canvas tag string color type

• init(canvas:C color:Col msg:Msg short:T x:X y:Y)
  
• getY($)
  
• getX($)
  
• setY(Y)
  
• msgPrint()
  
• msgRemove()
  

end

class SendNode from GraphNode
   feat op1 op2

• display()
  

end

class ReceiveNode from GraphNode

• setLine($)
  
• display()
  

end

class Line

• display(X0A Y Rec Can)
  

end

End