gi-atk 0.2.18.14 → 0.2.18.15

raw patch · 13 files changed

+42/−11 lines, 13 filesdep ~gi-glibdep ~gi-gobjectdep ~haskell-gi-basePVP: minor bump suggested

API additions: PVP suggests at least a minor version bump

Dependency ranges changed: gi-glib, gi-gobject, haskell-gi-base

API changes (from Hackage documentation)

Files

• GI/Atk/Callbacks.hs +2/−2
• GI/Atk/Structs/Attribute.hs +6/−1
• GI/Atk/Structs/Attribute.hs-boot +1/−0
• GI/Atk/Structs/Implementor.hs +6/−0
• GI/Atk/Structs/Implementor.hs-boot +1/−0
• GI/Atk/Structs/KeyEventStruct.hs +6/−1
• GI/Atk/Structs/KeyEventStruct.hs-boot +1/−0
• GI/Atk/Structs/PropertyValues.hs +6/−1
• GI/Atk/Structs/PropertyValues.hs-boot +1/−0
• GI/Atk/Structs/TextRange.hs +1/−1
• GI/Atk/Structs/TextRectangle.hs +6/−1
• GI/Atk/Structs/TextRectangle.hs-boot +1/−0
• gi-atk.cabal +4/−4

@@ -107,7 +107,7 @@     IO () propertyChangeHandlerWrapper funptrptr _cb obj vals = do     obj' <- (newObject Object) obj-    vals' <- (newPtr 56 PropertyValues) vals+    vals' <- (newPtr PropertyValues) vals     _cb  obj' vals'     maybeReleaseFunPtr funptrptr @@ -138,7 +138,7 @@     Ptr () ->     IO Int32 keySnoopFuncWrapper funptrptr _cb event _ = do-    event' <- (newPtr 32 KeyEventStruct) event+    event' <- (newPtr KeyEventStruct) event     result <- _cb  event'     maybeReleaseFunPtr funptrptr     return result

@@ -64,9 +64,14 @@ import GI.Atk.Callbacks  newtype Attribute = Attribute (ForeignPtr Attribute)+instance WrappedPtr Attribute where+    wrappedPtrCalloc = callocBytes 16+    wrappedPtrCopy = copyPtr 16+    wrappedPtrFree = Just ptr_to_g_free+ -- | Construct a `Attribute` struct initialized to zero. newZeroAttribute :: MonadIO m => m Attribute-newZeroAttribute = liftIO $ callocBytes 16 >>= wrapPtr Attribute+newZeroAttribute = liftIO $ wrappedPtrCalloc >>= wrapPtr Attribute  instance tag ~ 'AttrSet => Constructible Attribute tag where     new _ attrs = do

@@ -8,3 +8,4 @@ import qualified Data.Map as Map  newtype Attribute = Attribute (ForeignPtr Attribute)+instance WrappedPtr Attribute where

@@ -35,6 +35,12 @@ import GI.Atk.Callbacks  newtype Implementor = Implementor (ForeignPtr Implementor)+-- XXX Wrapping a foreign struct/union with no known destructor or size, leak?+instance WrappedPtr Implementor where+    wrappedPtrCalloc = return nullPtr+    wrappedPtrCopy = return+    wrappedPtrFree = Nothing+ noImplementor :: Maybe Implementor noImplementor = Nothing 

@@ -8,4 +8,5 @@ import qualified Data.Map as Map  newtype Implementor = Implementor (ForeignPtr Implementor)+instance WrappedPtr Implementor where data ImplementorRefAccessibleMethodInfo

@@ -76,9 +76,14 @@ import GI.Atk.Callbacks  newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)+instance WrappedPtr KeyEventStruct where+    wrappedPtrCalloc = callocBytes 32+    wrappedPtrCopy = copyPtr 32+    wrappedPtrFree = Just ptr_to_g_free+ -- | Construct a `KeyEventStruct` struct initialized to zero. newZeroKeyEventStruct :: MonadIO m => m KeyEventStruct-newZeroKeyEventStruct = liftIO $ callocBytes 32 >>= wrapPtr KeyEventStruct+newZeroKeyEventStruct = liftIO $ wrappedPtrCalloc >>= wrapPtr KeyEventStruct  instance tag ~ 'AttrSet => Constructible KeyEventStruct tag where     new _ attrs = do

@@ -8,3 +8,4 @@ import qualified Data.Map as Map  newtype KeyEventStruct = KeyEventStruct (ForeignPtr KeyEventStruct)+instance WrappedPtr KeyEventStruct where

@@ -56,9 +56,14 @@ import GI.Atk.Callbacks  newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)+instance WrappedPtr PropertyValues where+    wrappedPtrCalloc = callocBytes 56+    wrappedPtrCopy = copyPtr 56+    wrappedPtrFree = Just ptr_to_g_free+ -- | Construct a `PropertyValues` struct initialized to zero. newZeroPropertyValues :: MonadIO m => m PropertyValues-newZeroPropertyValues = liftIO $ callocBytes 56 >>= wrapPtr PropertyValues+newZeroPropertyValues = liftIO $ wrappedPtrCalloc >>= wrapPtr PropertyValues  instance tag ~ 'AttrSet => Constructible PropertyValues tag where     new _ attrs = do

@@ -8,3 +8,4 @@ import qualified Data.Map as Map  newtype PropertyValues = PropertyValues (ForeignPtr PropertyValues)+instance WrappedPtr PropertyValues where

@@ -83,7 +83,7 @@ textRangeReadBounds s = liftIO $ withManagedPtr s $ \ptr -> do     val <- peek (ptr `plusPtr` 0) :: IO (Ptr TextRectangle)     result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr 16 TextRectangle) val'+        val'' <- (newPtr TextRectangle) val'         return val''     return result 

@@ -57,9 +57,14 @@ import GI.Atk.Callbacks  newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)+instance WrappedPtr TextRectangle where+    wrappedPtrCalloc = callocBytes 16+    wrappedPtrCopy = copyPtr 16+    wrappedPtrFree = Just ptr_to_g_free+ -- | Construct a `TextRectangle` struct initialized to zero. newZeroTextRectangle :: MonadIO m => m TextRectangle-newZeroTextRectangle = liftIO $ callocBytes 16 >>= wrapPtr TextRectangle+newZeroTextRectangle = liftIO $ wrappedPtrCalloc >>= wrapPtr TextRectangle  instance tag ~ 'AttrSet => Constructible TextRectangle tag where     new _ attrs = do

@@ -8,3 +8,4 @@ import qualified Data.Map as Map  newtype TextRectangle = TextRectangle (ForeignPtr TextRectangle)+instance WrappedPtr TextRectangle where

@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-atk-version:            0.2.18.14+version:            0.2.18.15 synopsis:           Atk bindings description:        Bindings for Atk, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -66,9 +66,9 @@                         GI.Atk.Structs.TextRectangle     pkgconfig-depends:  atk >= 2.18     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.14 && < 1,-        gi-glib >= 0.2.46.14 && < 0.2.47,-        gi-gobject >= 0.2.46.14 && < 0.2.47,+        haskell-gi-base >= 0.15 && < 1,+        gi-glib >= 0.2.46.15 && < 0.2.47,+        gi-gobject >= 0.2.46.15 && < 0.2.47,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,