diff options
| author | David Roundy <droundy@darcs.net> | 2007-09-26 21:16:30 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-09-26 21:16:30 +0200 |
| commit | af3e04cd037b737d2e9084cc778628b34e55fa1d (patch) | |
| tree | 3a9037f9fbe64c1f4c3b71f805e0c91ff7515e65 | |
| parent | 7027d8fd47272a49d69c2c99cf9db960709aa766 (diff) | |
| download | XMonadContrib-af3e04cd037b737d2e9084cc778628b34e55fa1d.tar.gz XMonadContrib-af3e04cd037b737d2e9084cc778628b34e55fa1d.tar.xz XMonadContrib-af3e04cd037b737d2e9084cc778628b34e55fa1d.zip | |
hide implementation of DragPane from users.
darcs-hash:20070926191630-72aca-acd9386cad61b6dbdbdd41376ea2f439855d077c.gz
| -rw-r--r-- | DragPane.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/DragPane.hs b/DragPane.hs index 332947f..68f6dd8 100644 --- a/DragPane.hs +++ b/DragPane.hs @@ -22,7 +22,7 @@ module XMonadContrib.DragPane ( -- * Usage -- $usage - DragPane (DragPane) + dragPane , DragType (..) ) where @@ -44,7 +44,7 @@ import qualified StackSet as W -- -- and add, to the list of layouts: -- --- > DragPane Nothing Vertical 0.1 0.5 +-- > dragPane Vertical 0.1 0.5 halfHandleWidth :: Integral a => a halfHandleWidth = 1 @@ -52,6 +52,9 @@ halfHandleWidth = 1 handleColor :: String handleColor = "#000000" +dragPane :: DragType -> Double -> Double -> DragPane a +dragPane t x y = DragPane Nothing t x y + data DragPane a = DragPane (Maybe (Window,Rectangle,Int)) DragType Double Double deriving ( Show, Read ) |