Functor

Graphics ("/home/annan/cvscode/isl/src/MozartMessageSimulator/NodeLinkGraphics/Graphics.oz")

Import

• Tk
• TkUtils(addScrollbars:AddScrollbars) at "../TkUtils.ozf"
• Utils(convert:Convert) at "../Utils.ozf"
• Browser

Export

• <C:NodeLinkFrame>
• <C:GNode>
• <C:GLink>

Define

class NodeLinkFrame from Tk.frame
   feat canvas

• tkInit(height:H parent:Parent width:W)
  

end

class GNode
   feat tag canvas textTag width

• init(color:C coords:XY id:ID parent:Canvas popup:Popup width:W)
  
• popupMenu()
  
• getCoords($)
  
• getColor($)
  
• remove()
  
• updateText(TextList)
  

end

class GLink
   feat slots nofslots coords canvas tag Msgs

• init(fromcoords:FXFY fromnodesize:FW id:Id nofslots:NofSlots parent:Canvas tocoords:TXTY tonodesize:TW)
  
• remove()
  
• update(NewState)
  
• browseMsg(Id)
  
• drawMsg(Obj Id Pos Col Rep Tag)
  
• moveMsg(OldPos NewPos Tag)
  
• FillInSlotsArray(FW TW)
  
• draw(Color)
  
• ShowYellowPopup(Msg MsgTag)
  
• RemoveYellowPopup()
  

end

End