From e2c43498aa3115f749ee342898c77fa1b3d6ec6a Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Thu, 27 Sep 2007 10:38:14 +0200 Subject: DragPane:just code formatting darcs-hash:20070927083814-32816-08646ab812532f9be622e9ba7431f938361be9b7.gz --- DragPane.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'DragPane.hs') diff --git a/DragPane.hs b/DragPane.hs index b11d663..fcf4d99 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -62,7 +62,7 @@ data DragPane a = data DragType = Horizontal | Vertical deriving ( Show, Read ) instance Layout DragPane Window where - doLayout d@(DragPane _ Vertical _ _) = doLay id d + doLayout d@(DragPane _ Vertical _ _) = doLay id d doLayout d@(DragPane _ Horizontal _ _) = doLay mirrorRect d handleMessage = handleMess @@ -133,19 +133,19 @@ newDragWin p r = do updateDragWin :: Window -> Pixel -> Rectangle -> X Window updateDragWin w p r = do - d <- asks display - io $ destroyWindow d w - dragWin d p r + d <- asks display + io $ destroyWindow d w + dragWin d p r hideDragWin :: Window -> X () hideDragWin w = do - d <- asks display - io $ unmapWindow d w + d <- asks display + io $ unmapWindow d w destroyDragWin :: Window -> X () destroyDragWin w = do - d <- asks display - io $ destroyWindow d w + d <- asks display + io $ destroyWindow d w dragWin :: Display -> Pixel -> Rectangle -> X Window dragWin d p (Rectangle x y wt ht) = do -- cgit v1.2.3