packages feed

gi-gtk-hs 0.3.9 → 0.3.10

raw patch · 3 files changed

+10/−6 lines, 3 filesdep ~haskell-gi-basePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: haskell-gi-base

API changes (from Hackage documentation)

+ Data.GI.Gtk: PlugAccessible :: ManagedPtr PlugAccessible -> PlugAccessible
+ Data.GI.Gtk: SocketAccessible :: ManagedPtr SocketAccessible -> SocketAccessible
+ Data.GI.Gtk: [On] :: forall obj info (tag :: AttrOpTag). (GObject obj, SignalInfo info) => SignalProxy obj info -> HaskellCallbackType info -> AttrOp obj tag
+ Data.GI.Gtk: class (GObject o, IsDescendantOf PlugAccessible o) => IsPlugAccessible o
+ Data.GI.Gtk: class (GObject o, IsDescendantOf SocketAccessible o) => IsSocketAccessible o
+ Data.GI.Gtk: constructSettingsGtkCursorAspectRatio :: (IsSettings o, MonadIO m) => Float -> m (GValueConstruct o)
+ Data.GI.Gtk: data PlugAccessibleGetIdMethodInfo
+ Data.GI.Gtk: data SettingsGtkCursorAspectRatioPropertyInfo
+ Data.GI.Gtk: data SocketAccessibleEmbedMethodInfo
+ Data.GI.Gtk: getSettingsGtkCursorAspectRatio :: (MonadIO m, IsSettings o) => o -> m Float
+ Data.GI.Gtk: gvalueGType_ :: IsGValue a => IO GType
+ Data.GI.Gtk: gvalueGet_ :: IsGValue a => Ptr GValue -> IO a
+ Data.GI.Gtk: gvalueSet_ :: IsGValue a => Ptr GValue -> a -> IO ()
+ Data.GI.Gtk: newtype PlugAccessible
+ Data.GI.Gtk: newtype SocketAccessible
+ Data.GI.Gtk: plugAccessibleGetId :: (HasCallStack, MonadIO m, IsPlugAccessible a) => a -> m Text
+ Data.GI.Gtk: setSettingsGtkCursorAspectRatio :: (MonadIO m, IsSettings o) => o -> Float -> m ()
+ Data.GI.Gtk: settingsGtkCursorAspectRatio :: AttrLabelProxy "gtkCursorAspectRatio"
+ Data.GI.Gtk: socketAccessibleEmbed :: (HasCallStack, MonadIO m, IsSocketAccessible a) => a -> Text -> m ()
+ Data.GI.Gtk: toPlugAccessible :: (MonadIO m, IsPlugAccessible o) => o -> m PlugAccessible
+ Data.GI.Gtk: toSocketAccessible :: (MonadIO m, IsSocketAccessible o) => o -> m SocketAccessible
- Data.GI.Gtk: dynamic_ClipboardImageReceivedFunc :: (HasCallStack, MonadIO m, IsClipboard a, IsPixbuf b) => FunPtr C_ClipboardImageReceivedFunc -> a -> b -> Ptr () -> m ()
+ Data.GI.Gtk: dynamic_ClipboardImageReceivedFunc :: (HasCallStack, MonadIO m, IsClipboard a, IsPixbuf b) => FunPtr C_ClipboardImageReceivedFunc -> a -> Maybe b -> Ptr () -> m ()
- Data.GI.Gtk: fileChooserSetCurrentName :: (HasCallStack, MonadIO m, IsFileChooser a) => a -> [Char] -> m ()
+ Data.GI.Gtk: fileChooserSetCurrentName :: (HasCallStack, MonadIO m, IsFileChooser a) => a -> Text -> m ()
- Data.GI.Gtk: type C_EntryIconPressCallback = Ptr () -> CUInt -> Ptr EventButton -> Ptr () -> IO ()
+ Data.GI.Gtk: type C_EntryIconPressCallback = Ptr () -> CUInt -> Ptr Event -> Ptr () -> IO ()
- Data.GI.Gtk: type C_EntryIconReleaseCallback = Ptr () -> CUInt -> Ptr EventButton -> Ptr () -> IO ()
+ Data.GI.Gtk: type C_EntryIconReleaseCallback = Ptr () -> CUInt -> Ptr Event -> Ptr () -> IO ()
- Data.GI.Gtk: type ClipboardImageReceivedFunc = Clipboard -> Pixbuf -> IO ()
+ Data.GI.Gtk: type ClipboardImageReceivedFunc = Clipboard -> Maybe Pixbuf -> IO ()
- Data.GI.Gtk: type ClipboardImageReceivedFunc_WithClosures = Clipboard -> Pixbuf -> Ptr () -> IO ()
+ Data.GI.Gtk: type ClipboardImageReceivedFunc_WithClosures = Clipboard -> Maybe Pixbuf -> Ptr () -> IO ()
- Data.GI.Gtk: type EntryIconPressCallback = EntryIconPosition -> EventButton -> IO ()
+ Data.GI.Gtk: type EntryIconPressCallback = EntryIconPosition -> Event -> IO ()
- Data.GI.Gtk: type EntryIconReleaseCallback = EntryIconPosition -> EventButton -> IO ()
+ Data.GI.Gtk: type EntryIconReleaseCallback = EntryIconPosition -> Event -> IO ()
- Data.GI.Gtk: type GErrorCode = Int32
+ Data.GI.Gtk: type GErrorCode = C_gint
- Data.GI.Gtk: type GestureBeginCallback = EventSequence -> IO ()
+ Data.GI.Gtk: type GestureBeginCallback = Maybe EventSequence -> IO ()
- Data.GI.Gtk: type GestureCancelCallback = EventSequence -> IO ()
+ Data.GI.Gtk: type GestureCancelCallback = Maybe EventSequence -> IO ()
- Data.GI.Gtk: type GestureEndCallback = EventSequence -> IO ()
+ Data.GI.Gtk: type GestureEndCallback = Maybe EventSequence -> IO ()
- Data.GI.Gtk: type GestureSequenceStateChangedCallback = EventSequence -> EventSequenceState -> IO ()
+ Data.GI.Gtk: type GestureSequenceStateChangedCallback = Maybe EventSequence -> EventSequenceState -> IO ()
- Data.GI.Gtk: type GestureUpdateCallback = EventSequence -> IO ()
+ Data.GI.Gtk: type GestureUpdateCallback = Maybe EventSequence -> IO ()

Files

gi-gtk-hs.cabal view
@@ -1,5 +1,5 @@ name:                gi-gtk-hs-version:             0.3.9+version:             0.3.10 synopsis:            A wrapper for gi-gtk, adding a few more idiomatic API parts on top description:         A wrapper for gi-gtk, adding a few more idiomatic API parts on top homepage:            https://github.com/haskell-gi/haskell-gi@@ -34,7 +34,7 @@                        transformers >=0.3.0.0 && <0.6,                        containers >=0.5.5.1 && <0.7,                        text >=1.2 && <1.3,-                       haskell-gi-base >=0.24.0 && <0.25,+                       haskell-gi-base >=0.25.0 && <0.26,                        gi-glib >=2.0.6 && <2.1,                        gi-gobject >=2.0.6 && <2.1,                        gi-gdk >= 3.0.6 && <3.1,
src/Data/GI/Gtk/ModelView/CustomStore.hs view
@@ -517,7 +517,7 @@   model <- newObject TreeModel mPtr   store <- customTreeDragSourceIface <$> deRefStablePtr storePtr   path <- treePathCopy . TreePath =<< newManagedPtr_ pathPtr-  selection <- selectionDataCopy . SelectionData =<< newManagedPtr_ selectionPtr+  selection <- SelectionData <$> newManagedPtr_ selectionPtr   fromBool <$> customDragSourceDragDataGet store (unsafeTreeModelToGeneric model) path selection  foreign export ccall "gtk2hs_store_drag_data_get_impl"
src/Data/GI/Gtk/ModelView/TreeModel.hs view
@@ -120,8 +120,8 @@ import Prelude.Compat import Data.Int (Int32) import Data.Text (Text)-import Data.GI.Base.GValue (fromGValue, get_object)-import Data.GI.Base.ManagedPtr (newObject)+import Data.GI.Base.GValue (GValue(..), fromGValue, get_object)+import Data.GI.Base.ManagedPtr (withManagedPtr, newObject) import Foreign.Ptr (Ptr) import GI.GdkPixbuf.Objects.Pixbuf (Pixbuf(..)) import GI.Gtk.Structs.TreeIter (TreeIter)@@ -152,7 +152,11 @@  -- | Create a 'ColumnId' to extract an 'Pixbuf'. makeColumnIdPixbuf :: Int32 -> ColumnId row Pixbuf-makeColumnIdPixbuf = ColumnId (\v -> (get_object v :: IO (Ptr Pixbuf)) >>= newObject Pixbuf) CAPixbuf+makeColumnIdPixbuf = ColumnId gvalueToPixbuf CAPixbuf+  where gvalueToPixbuf :: GValue -> IO Pixbuf+        gvalueToPixbuf gv = withManagedPtr gv $ \gvPtr -> do+          objPtr <- get_object gvPtr :: IO (Ptr Pixbuf)+          newObject Pixbuf objPtr  -- | Convert a 'ColumnId' to a bare number. columnIdToNumber :: ColumnId row ty -> Int32