diff options
| author | lassulus <lass@aidsballs.de> | 2015-11-10 19:27:56 +0100 |
|---|---|---|
| committer | lassulus <lass@aidsballs.de> | 2015-11-10 19:27:56 +0100 |
| commit | 6295f793579b87333d45efb0e27a7b13a43e3b34 (patch) | |
| tree | faae9679781f49c8450746bcbee5bb42f6d55405 /tv/5pkgs/xmonad-tv/Util/XUtils.hs | |
| parent | 0d752ae79bc14ecd0ade73a51cf77e8dfa0dbfb7 (diff) | |
| parent | ebba531273715c1a9c124007b97f3547d16e780f (diff) | |
Merge remote-tracking branch 'cd/master'
Diffstat (limited to 'tv/5pkgs/xmonad-tv/Util/XUtils.hs')
| -rw-r--r-- | tv/5pkgs/xmonad-tv/Util/XUtils.hs | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/tv/5pkgs/xmonad-tv/Util/XUtils.hs b/tv/5pkgs/xmonad-tv/Util/XUtils.hs deleted file mode 100644 index de1d8247c..000000000 --- a/tv/5pkgs/xmonad-tv/Util/XUtils.hs +++ /dev/null @@ -1,47 +0,0 @@ -module Util.XUtils - ( shapeWindow - , withGC - , withPixmap - , withPixmapAndGC - ) where - -import Control.Exception ( bracket ) -import Foreign.C.Types ( CInt ) -import Graphics.X11.Xlib -import Graphics.X11.Xlib.Extras -import Graphics.X11.Xshape - - -shapeWindow :: Display -> Window -> (Pixmap -> GC -> IO ()) -> IO () -shapeWindow d w f = do - wa <- getWindowAttributes d w - - let width = fromIntegral $ wa_width wa - height = fromIntegral $ wa_height wa - - withPixmapAndGC d w width height 1 $ \ p g -> do - - setForeground d g 0 - fillRectangle d p g 0 0 width height - - setForeground d g 1 - - f p g - - xshapeCombineMask d w shapeBounding 0 0 p shapeSet - - -withGC :: Display -> Drawable -> (GC -> IO ()) -> IO () -withGC d p = - bracket (createGC d p) (freeGC d) - - -withPixmap :: Display -> Drawable -> Dimension -> Dimension -> CInt -> (Pixmap -> IO ()) -> IO () -withPixmap d p w h depth = - bracket (createPixmap d p w h depth) (freePixmap d) - - -withPixmapAndGC :: Display -> Drawable -> Dimension -> Dimension -> CInt -> (Pixmap -> GC -> IO ()) -> IO () -withPixmapAndGC d w width height depth f = - withPixmap d w width height depth $ \ p -> - withGC d p $ \ g -> f p g |