diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-27 10:38:14 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-27 10:38:14 +0200 |
| commit | e2c43498aa3115f749ee342898c77fa1b3d6ec6a (patch) | |
| tree | 16401825f04b63db29ee766d6ca40231eda6c324 | |
| parent | c6f9ed0ff7c87f12ebc258a99e25bb9a47ace1ce (diff) | |
| download | XMonadContrib-e2c43498aa3115f749ee342898c77fa1b3d6ec6a.tar.gz XMonadContrib-e2c43498aa3115f749ee342898c77fa1b3d6ec6a.tar.xz XMonadContrib-e2c43498aa3115f749ee342898c77fa1b3d6ec6a.zip | |
DragPane:just code formatting
darcs-hash:20070927083814-32816-08646ab812532f9be622e9ba7431f938361be9b7.gz
| -rw-r--r-- | DragPane.hs | 16 |
1 files 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 |