Fri Sep 30 16:46:56 WEST 2005 Malcolm.Wallace@cs.york.ac.uk
* format tweaking
{
hunk ./src/NetworkUI.hs 65
- [ virtualSize := sz (logicalToScreenX ppi width) (logicalToScreenY ppi height)
+ [ virtualSize := sz (logicalToScreenX ppi width)
+ (logicalToScreenY ppi height)
hunk ./src/NetworkUI.hs 79
- , on mouse := \p -> safetyNet theFrame (do mouseEvent p canvas theFrame state) --; focusOn canvas)
- , on keyboard := \k -> safetyNet theFrame (do keyboardEvent theFrame state k) --; focusOn canvas)
+ , on mouse := \p -> safetyNet theFrame $
+ do mouseEvent p canvas theFrame state
+ --; focusOn canvas
+ , on keyboard := \k -> safetyNet theFrame $
+ do keyboardEvent theFrame state k
+ --; focusOn canvas
hunk ./src/NetworkUI.hs 156
- [ on command := safetyNet theFrame $ do { PD.undo pDoc; repaintAll state } ]
+ [ on command := safetyNet theFrame $ do PD.undo pDoc; repaintAll state ]
hunk ./src/NetworkUI.hs 158
- [ on command := safetyNet theFrame $ do { PD.redo pDoc; repaintAll state } ]
+ [ on command := safetyNet theFrame $ do PD.redo pDoc; repaintAll state ]
hunk ./src/NetworkUI.hs 278
--- Just f means exceptions are shown in a dialog on top of frame f
+-- Just f means exceptions are shown in a dialog on top of frame f
hunk ./src/NetworkUI.hs 297
- ; PD.resetDocument (if null warnings then Just fname else Nothing) newDoc pDoc
+ ; PD.resetDocument (if null warnings then Just fname else Nothing)
+ newDoc pDoc
hunk ./src/NetworkUI.hs 347
--- Just f means exceptions are shown in a dialog on top of frame f
+-- Just f means exceptions are shown in a dialog on top of frame f
}