Fri Oct 14 16:59:32 WEST 2005 Malcolm.Wallace@cs.york.ac.uk
* changing node shape from context menu should change the node info too
{
hunk ./src/ContextMenu.hs 121
- shapeItem contextMenu (name,shape,_) =
+ shapeItem contextMenu (name,shape,info) =
hunk ./src/ContextMenu.hs 124
- , on command := safetyNet theFrame $ changeNodeShape shape state
+ , on command := safetyNet theFrame $ changeNodeShape shape newinfo state
hunk ./src/ContextMenu.hs 126
-
+ where newinfo = maybe blank id info
hunk ./src/NetworkControl.hs 48
-changeNodeShape :: Shape -> State g n e -> IO ()
-changeNodeShape shape state = [_$_]
+changeNodeShape :: InfoKind n g => Shape -> n -> State g n e -> IO ()
+changeNodeShape shape info state = [_$_]
hunk ./src/NetworkControl.hs 57
- (Node.setShape shape))) pDoc
+ (Node.setInfo info . Node.setShape shape))) pDoc
}