bindings-wlc 0.1.0.5 → 0.1.0.7

raw patch · 5 files changed

+11/−4 lines, 5 files

Files

bindings-wlc.cabal +1/−1
src/Bindings/WLC.hs +1/−0
src/System/WLC.hs +1/−0
src/System/WLC/Core.hs +5/−0
src/System/WLC/Types.hs +3/−3

bindings-wlc.cabal view

@@ -1,5 +1,5 @@ name:                bindings-wlc-version:             0.1.0.5+version:             0.1.0.7 synopsis:            Bindings against the wlc library description:         Please see Readme.md homepage:            http://github.com/aktowns/bindings-wlc#readme

src/Bindings/WLC.hs view

@@ -1,3 +1,4 @@+{-# OPTIONS_HADDOCK hide #-} {-| Module      : Bindings.WLC Description : WLC Bindings

src/System/WLC.hs view

@@ -1,3 +1,4 @@+{-# OPTIONS_HADDOCK hide #-} {-| Module      : System.WLC Description : WLC Abstractions

src/System/WLC/Core.hs view

@@ -272,6 +272,11 @@     Just geo <- fromPrimitivePtr geoPtr     return geo +-- |Set geometry. Set edges if the geometry change is caused by interactive resize.+viewSetGeometry :: View -> ResizeEdge -> Geometry -> IO ()+viewSetGeometry (View view) resize geom =+    with (toPrimitive geom) $ c'wlc_view_set_geometry view (getResizeEdge $ toPrimitive resize)+ -- |Get 'ViewType' bitfield. viewGetViewType :: View -> IO ViewType viewGetViewType (View view) = fromPrimitive . WlcViewTypeBit <$> c'wlc_view_get_type view

src/System/WLC/Types.hs view

@@ -82,11 +82,11 @@                | TouchFrame                | TouchCancel deriving (Eq, Show) -data Modifiers = Modifiers { leds :: Led, mods :: Modifier }+data Modifiers = Modifiers { leds :: Led, mods :: Modifier } deriving (Eq, Show) -newtype Output = Output { getOutputHandle :: C'wlc_handle }+newtype Output = Output { getOutputHandle :: C'wlc_handle } deriving (Eq, Show) -newtype View = View { getViewHandle :: C'wlc_handle }+newtype View = View { getViewHandle :: C'wlc_handle } deriving (Eq, Show)  tryGetView :: C'wlc_handle -> Maybe View tryGetView 0 = Nothing