From e2c43498aa3115f749ee342898c77fa1b3d6ec6a Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
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(-)
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