From af3e04cd037b737d2e9084cc778628b34e55fa1d Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 26 Sep 2007 21:16:30 +0200
Subject: hide implementation of DragPane from users.

darcs-hash:20070926191630-72aca-acd9386cad61b6dbdbdd41376ea2f439855d077c.gz
---
 DragPane.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'DragPane.hs')

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 )
-- 
cgit v1.2.3