diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-08 19:15:23 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-08 19:15:23 +0200 |
commit | 4d519acbd48fa400f09e4705251a0dbf45c6876e (patch) | |
tree | dd9577b92028f35899507fc45c652a6fd50b4c44 /lib/Phi/Border.hs | |
parent | 234388ef387c92cc72f35cb309b9d0beea8d3a1a (diff) | |
download | phi-4d519acbd48fa400f09e4705251a0dbf45c6876e.tar phi-4d519acbd48fa400f09e4705251a0dbf45c6876e.zip |
Core is independent of X11 now
Diffstat (limited to 'lib/Phi/Border.hs')
-rw-r--r-- | lib/Phi/Border.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Phi/Border.hs b/lib/Phi/Border.hs index ca5e515..2e1e008 100644 --- a/lib/Phi/Border.hs +++ b/lib/Phi/Border.hs @@ -56,11 +56,11 @@ defaultBorderConfig = BorderConfig { margin = simpleBorderWidth 0 , borderWeight = 1 } -data Border w s c = (Widget w s c) => Border !BorderConfig !w +data Border w s c d = (Widget w s c d) => Border !BorderConfig !w -data BorderCache w s c = (Widget w s c) => BorderCache !c +data BorderCache w s c d = (Widget w s c d) => BorderCache !c -instance Eq s => Widget (Border w s c) s (BorderCache w s c) where +instance (Eq s, Display d) => Widget (Border w s c d) s (BorderCache w s c d) d where initWidget (Border _ w) = initWidget w initCache (Border _ w) = BorderCache $ initCache w @@ -165,5 +165,5 @@ roundRectangle x y width height radius = do arc (x + radius) (y + radius) radius pi (pi*3/2) closePath -border :: (Widget w s c) => BorderConfig -> w -> Border w s c +border :: (Widget w s c d) => BorderConfig -> w -> Border w s c d border = Border |