{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.IconView
(
IconView(..) ,
IsIconView ,
toIconView ,
noIconView ,
#if defined(ENABLE_OVERLOADING)
ResolveIconViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
IconViewConvertWidgetToBinWindowCoordsMethodInfo,
#endif
iconViewConvertWidgetToBinWindowCoords ,
#if defined(ENABLE_OVERLOADING)
IconViewCreateDragIconMethodInfo ,
#endif
iconViewCreateDragIcon ,
#if defined(ENABLE_OVERLOADING)
IconViewEnableModelDragDestMethodInfo ,
#endif
iconViewEnableModelDragDest ,
#if defined(ENABLE_OVERLOADING)
IconViewEnableModelDragSourceMethodInfo ,
#endif
iconViewEnableModelDragSource ,
#if defined(ENABLE_OVERLOADING)
IconViewGetActivateOnSingleClickMethodInfo,
#endif
iconViewGetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
IconViewGetCellRectMethodInfo ,
#endif
iconViewGetCellRect ,
#if defined(ENABLE_OVERLOADING)
IconViewGetColumnSpacingMethodInfo ,
#endif
iconViewGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewGetColumnsMethodInfo ,
#endif
iconViewGetColumns ,
#if defined(ENABLE_OVERLOADING)
IconViewGetCursorMethodInfo ,
#endif
iconViewGetCursor ,
#if defined(ENABLE_OVERLOADING)
IconViewGetDestItemAtPosMethodInfo ,
#endif
iconViewGetDestItemAtPos ,
#if defined(ENABLE_OVERLOADING)
IconViewGetDragDestItemMethodInfo ,
#endif
iconViewGetDragDestItem ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemAtPosMethodInfo ,
#endif
iconViewGetItemAtPos ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemColumnMethodInfo ,
#endif
iconViewGetItemColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemOrientationMethodInfo ,
#endif
iconViewGetItemOrientation ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemPaddingMethodInfo ,
#endif
iconViewGetItemPadding ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemRowMethodInfo ,
#endif
iconViewGetItemRow ,
#if defined(ENABLE_OVERLOADING)
IconViewGetItemWidthMethodInfo ,
#endif
iconViewGetItemWidth ,
#if defined(ENABLE_OVERLOADING)
IconViewGetMarginMethodInfo ,
#endif
iconViewGetMargin ,
#if defined(ENABLE_OVERLOADING)
IconViewGetMarkupColumnMethodInfo ,
#endif
iconViewGetMarkupColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewGetModelMethodInfo ,
#endif
iconViewGetModel ,
#if defined(ENABLE_OVERLOADING)
IconViewGetPathAtPosMethodInfo ,
#endif
iconViewGetPathAtPos ,
#if defined(ENABLE_OVERLOADING)
IconViewGetPixbufColumnMethodInfo ,
#endif
iconViewGetPixbufColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewGetReorderableMethodInfo ,
#endif
iconViewGetReorderable ,
#if defined(ENABLE_OVERLOADING)
IconViewGetRowSpacingMethodInfo ,
#endif
iconViewGetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewGetSelectedItemsMethodInfo ,
#endif
iconViewGetSelectedItems ,
#if defined(ENABLE_OVERLOADING)
IconViewGetSelectionModeMethodInfo ,
#endif
iconViewGetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
IconViewGetSpacingMethodInfo ,
#endif
iconViewGetSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewGetTextColumnMethodInfo ,
#endif
iconViewGetTextColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewGetTooltipColumnMethodInfo ,
#endif
iconViewGetTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewGetTooltipContextMethodInfo ,
#endif
iconViewGetTooltipContext ,
#if defined(ENABLE_OVERLOADING)
IconViewGetVisibleRangeMethodInfo ,
#endif
iconViewGetVisibleRange ,
#if defined(ENABLE_OVERLOADING)
IconViewItemActivatedMethodInfo ,
#endif
iconViewItemActivated ,
iconViewNew ,
iconViewNewWithArea ,
iconViewNewWithModel ,
#if defined(ENABLE_OVERLOADING)
IconViewPathIsSelectedMethodInfo ,
#endif
iconViewPathIsSelected ,
#if defined(ENABLE_OVERLOADING)
IconViewScrollToPathMethodInfo ,
#endif
iconViewScrollToPath ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectAllMethodInfo ,
#endif
iconViewSelectAll ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectPathMethodInfo ,
#endif
iconViewSelectPath ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectedForeachMethodInfo ,
#endif
iconViewSelectedForeach ,
#if defined(ENABLE_OVERLOADING)
IconViewSetActivateOnSingleClickMethodInfo,
#endif
iconViewSetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
IconViewSetColumnSpacingMethodInfo ,
#endif
iconViewSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewSetColumnsMethodInfo ,
#endif
iconViewSetColumns ,
#if defined(ENABLE_OVERLOADING)
IconViewSetCursorMethodInfo ,
#endif
iconViewSetCursor ,
#if defined(ENABLE_OVERLOADING)
IconViewSetDragDestItemMethodInfo ,
#endif
iconViewSetDragDestItem ,
#if defined(ENABLE_OVERLOADING)
IconViewSetItemOrientationMethodInfo ,
#endif
iconViewSetItemOrientation ,
#if defined(ENABLE_OVERLOADING)
IconViewSetItemPaddingMethodInfo ,
#endif
iconViewSetItemPadding ,
#if defined(ENABLE_OVERLOADING)
IconViewSetItemWidthMethodInfo ,
#endif
iconViewSetItemWidth ,
#if defined(ENABLE_OVERLOADING)
IconViewSetMarginMethodInfo ,
#endif
iconViewSetMargin ,
#if defined(ENABLE_OVERLOADING)
IconViewSetMarkupColumnMethodInfo ,
#endif
iconViewSetMarkupColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewSetModelMethodInfo ,
#endif
iconViewSetModel ,
#if defined(ENABLE_OVERLOADING)
IconViewSetPixbufColumnMethodInfo ,
#endif
iconViewSetPixbufColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewSetReorderableMethodInfo ,
#endif
iconViewSetReorderable ,
#if defined(ENABLE_OVERLOADING)
IconViewSetRowSpacingMethodInfo ,
#endif
iconViewSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewSetSelectionModeMethodInfo ,
#endif
iconViewSetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
IconViewSetSpacingMethodInfo ,
#endif
iconViewSetSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewSetTextColumnMethodInfo ,
#endif
iconViewSetTextColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewSetTooltipCellMethodInfo ,
#endif
iconViewSetTooltipCell ,
#if defined(ENABLE_OVERLOADING)
IconViewSetTooltipColumnMethodInfo ,
#endif
iconViewSetTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewSetTooltipItemMethodInfo ,
#endif
iconViewSetTooltipItem ,
#if defined(ENABLE_OVERLOADING)
IconViewUnselectAllMethodInfo ,
#endif
iconViewUnselectAll ,
#if defined(ENABLE_OVERLOADING)
IconViewUnselectPathMethodInfo ,
#endif
iconViewUnselectPath ,
#if defined(ENABLE_OVERLOADING)
IconViewUnsetModelDragDestMethodInfo ,
#endif
iconViewUnsetModelDragDest ,
#if defined(ENABLE_OVERLOADING)
IconViewUnsetModelDragSourceMethodInfo ,
#endif
iconViewUnsetModelDragSource ,
#if defined(ENABLE_OVERLOADING)
IconViewActivateOnSingleClickPropertyInfo,
#endif
constructIconViewActivateOnSingleClick ,
getIconViewActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
iconViewActivateOnSingleClick ,
#endif
setIconViewActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
IconViewCellAreaPropertyInfo ,
#endif
constructIconViewCellArea ,
getIconViewCellArea ,
#if defined(ENABLE_OVERLOADING)
iconViewCellArea ,
#endif
#if defined(ENABLE_OVERLOADING)
IconViewColumnSpacingPropertyInfo ,
#endif
constructIconViewColumnSpacing ,
getIconViewColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
iconViewColumnSpacing ,
#endif
setIconViewColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewColumnsPropertyInfo ,
#endif
constructIconViewColumns ,
getIconViewColumns ,
#if defined(ENABLE_OVERLOADING)
iconViewColumns ,
#endif
setIconViewColumns ,
#if defined(ENABLE_OVERLOADING)
IconViewItemOrientationPropertyInfo ,
#endif
constructIconViewItemOrientation ,
getIconViewItemOrientation ,
#if defined(ENABLE_OVERLOADING)
iconViewItemOrientation ,
#endif
setIconViewItemOrientation ,
#if defined(ENABLE_OVERLOADING)
IconViewItemPaddingPropertyInfo ,
#endif
constructIconViewItemPadding ,
getIconViewItemPadding ,
#if defined(ENABLE_OVERLOADING)
iconViewItemPadding ,
#endif
setIconViewItemPadding ,
#if defined(ENABLE_OVERLOADING)
IconViewItemWidthPropertyInfo ,
#endif
constructIconViewItemWidth ,
getIconViewItemWidth ,
#if defined(ENABLE_OVERLOADING)
iconViewItemWidth ,
#endif
setIconViewItemWidth ,
#if defined(ENABLE_OVERLOADING)
IconViewMarginPropertyInfo ,
#endif
constructIconViewMargin ,
getIconViewMargin ,
#if defined(ENABLE_OVERLOADING)
iconViewMargin ,
#endif
setIconViewMargin ,
#if defined(ENABLE_OVERLOADING)
IconViewMarkupColumnPropertyInfo ,
#endif
constructIconViewMarkupColumn ,
getIconViewMarkupColumn ,
#if defined(ENABLE_OVERLOADING)
iconViewMarkupColumn ,
#endif
setIconViewMarkupColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewModelPropertyInfo ,
#endif
clearIconViewModel ,
constructIconViewModel ,
getIconViewModel ,
#if defined(ENABLE_OVERLOADING)
iconViewModel ,
#endif
setIconViewModel ,
#if defined(ENABLE_OVERLOADING)
IconViewPixbufColumnPropertyInfo ,
#endif
constructIconViewPixbufColumn ,
getIconViewPixbufColumn ,
#if defined(ENABLE_OVERLOADING)
iconViewPixbufColumn ,
#endif
setIconViewPixbufColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewReorderablePropertyInfo ,
#endif
constructIconViewReorderable ,
getIconViewReorderable ,
#if defined(ENABLE_OVERLOADING)
iconViewReorderable ,
#endif
setIconViewReorderable ,
#if defined(ENABLE_OVERLOADING)
IconViewRowSpacingPropertyInfo ,
#endif
constructIconViewRowSpacing ,
getIconViewRowSpacing ,
#if defined(ENABLE_OVERLOADING)
iconViewRowSpacing ,
#endif
setIconViewRowSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectionModePropertyInfo ,
#endif
constructIconViewSelectionMode ,
getIconViewSelectionMode ,
#if defined(ENABLE_OVERLOADING)
iconViewSelectionMode ,
#endif
setIconViewSelectionMode ,
#if defined(ENABLE_OVERLOADING)
IconViewSpacingPropertyInfo ,
#endif
constructIconViewSpacing ,
getIconViewSpacing ,
#if defined(ENABLE_OVERLOADING)
iconViewSpacing ,
#endif
setIconViewSpacing ,
#if defined(ENABLE_OVERLOADING)
IconViewTextColumnPropertyInfo ,
#endif
constructIconViewTextColumn ,
getIconViewTextColumn ,
#if defined(ENABLE_OVERLOADING)
iconViewTextColumn ,
#endif
setIconViewTextColumn ,
#if defined(ENABLE_OVERLOADING)
IconViewTooltipColumnPropertyInfo ,
#endif
constructIconViewTooltipColumn ,
getIconViewTooltipColumn ,
#if defined(ENABLE_OVERLOADING)
iconViewTooltipColumn ,
#endif
setIconViewTooltipColumn ,
C_IconViewActivateCursorItemCallback ,
IconViewActivateCursorItemCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewActivateCursorItemSignalInfo ,
#endif
afterIconViewActivateCursorItem ,
genClosure_IconViewActivateCursorItem ,
mk_IconViewActivateCursorItemCallback ,
noIconViewActivateCursorItemCallback ,
onIconViewActivateCursorItem ,
wrap_IconViewActivateCursorItemCallback ,
C_IconViewItemActivatedCallback ,
IconViewItemActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewItemActivatedSignalInfo ,
#endif
afterIconViewItemActivated ,
genClosure_IconViewItemActivated ,
mk_IconViewItemActivatedCallback ,
noIconViewItemActivatedCallback ,
onIconViewItemActivated ,
wrap_IconViewItemActivatedCallback ,
C_IconViewMoveCursorCallback ,
IconViewMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewMoveCursorSignalInfo ,
#endif
afterIconViewMoveCursor ,
genClosure_IconViewMoveCursor ,
mk_IconViewMoveCursorCallback ,
noIconViewMoveCursorCallback ,
onIconViewMoveCursor ,
wrap_IconViewMoveCursorCallback ,
C_IconViewSelectAllCallback ,
IconViewSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectAllSignalInfo ,
#endif
afterIconViewSelectAll ,
genClosure_IconViewSelectAll ,
mk_IconViewSelectAllCallback ,
noIconViewSelectAllCallback ,
onIconViewSelectAll ,
wrap_IconViewSelectAllCallback ,
C_IconViewSelectCursorItemCallback ,
IconViewSelectCursorItemCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectCursorItemSignalInfo ,
#endif
afterIconViewSelectCursorItem ,
genClosure_IconViewSelectCursorItem ,
mk_IconViewSelectCursorItemCallback ,
noIconViewSelectCursorItemCallback ,
onIconViewSelectCursorItem ,
wrap_IconViewSelectCursorItemCallback ,
C_IconViewSelectionChangedCallback ,
IconViewSelectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewSelectionChangedSignalInfo ,
#endif
afterIconViewSelectionChanged ,
genClosure_IconViewSelectionChanged ,
mk_IconViewSelectionChangedCallback ,
noIconViewSelectionChangedCallback ,
onIconViewSelectionChanged ,
wrap_IconViewSelectionChangedCallback ,
C_IconViewToggleCursorItemCallback ,
IconViewToggleCursorItemCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewToggleCursorItemSignalInfo ,
#endif
afterIconViewToggleCursorItem ,
genClosure_IconViewToggleCursorItem ,
mk_IconViewToggleCursorItemCallback ,
noIconViewToggleCursorItemCallback ,
onIconViewToggleCursorItem ,
wrap_IconViewToggleCursorItemCallback ,
C_IconViewUnselectAllCallback ,
IconViewUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
IconViewUnselectAllSignalInfo ,
#endif
afterIconViewUnselectAll ,
genClosure_IconViewUnselectAll ,
mk_IconViewUnselectAllCallback ,
noIconViewUnselectAllCallback ,
onIconViewUnselectAll ,
wrap_IconViewUnselectAllCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetEntry as Gtk.TargetEntry
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
newtype IconView = IconView (ManagedPtr IconView)
deriving (IconView -> IconView -> Bool
(IconView -> IconView -> Bool)
-> (IconView -> IconView -> Bool) -> Eq IconView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IconView -> IconView -> Bool
$c/= :: IconView -> IconView -> Bool
== :: IconView -> IconView -> Bool
$c== :: IconView -> IconView -> Bool
Eq)
foreign import ccall "gtk_icon_view_get_type"
c_gtk_icon_view_get_type :: IO GType
instance GObject IconView where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_icon_view_get_type
instance B.GValue.IsGValue IconView where
toGValue :: IconView -> IO GValue
toGValue o :: IconView
o = do
GType
gtype <- IO GType
c_gtk_icon_view_get_type
IconView -> (Ptr IconView -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IconView
o (GType
-> (GValue -> Ptr IconView -> IO ()) -> Ptr IconView -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr IconView -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO IconView
fromGValue gv :: GValue
gv = do
Ptr IconView
ptr <- GValue -> IO (Ptr IconView)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr IconView)
(ManagedPtr IconView -> IconView) -> Ptr IconView -> IO IconView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr IconView -> IconView
IconView Ptr IconView
ptr
class (GObject o, O.IsDescendantOf IconView o) => IsIconView o
instance (GObject o, O.IsDescendantOf IconView o) => IsIconView o
instance O.HasParentTypes IconView
type instance O.ParentTypes IconView = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout, Gtk.Scrollable.Scrollable]
toIconView :: (MonadIO m, IsIconView o) => o -> m IconView
toIconView :: o -> m IconView
toIconView = IO IconView -> m IconView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IconView -> m IconView)
-> (o -> IO IconView) -> o -> m IconView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr IconView -> IconView) -> o -> IO IconView
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr IconView -> IconView
IconView
noIconView :: Maybe IconView
noIconView :: Maybe IconView
noIconView = Maybe IconView
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveIconViewMethod (t :: Symbol) (o :: *) :: * where
ResolveIconViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveIconViewMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveIconViewMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveIconViewMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveIconViewMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveIconViewMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveIconViewMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveIconViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveIconViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveIconViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveIconViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveIconViewMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveIconViewMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveIconViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveIconViewMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveIconViewMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveIconViewMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveIconViewMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveIconViewMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveIconViewMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveIconViewMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveIconViewMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveIconViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveIconViewMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveIconViewMethod "convertWidgetToBinWindowCoords" o = IconViewConvertWidgetToBinWindowCoordsMethodInfo
ResolveIconViewMethod "createDragIcon" o = IconViewCreateDragIconMethodInfo
ResolveIconViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveIconViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveIconViewMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveIconViewMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveIconViewMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveIconViewMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveIconViewMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveIconViewMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveIconViewMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveIconViewMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveIconViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveIconViewMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveIconViewMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveIconViewMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveIconViewMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveIconViewMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveIconViewMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveIconViewMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveIconViewMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveIconViewMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveIconViewMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveIconViewMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveIconViewMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveIconViewMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveIconViewMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveIconViewMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveIconViewMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveIconViewMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveIconViewMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveIconViewMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveIconViewMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveIconViewMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveIconViewMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveIconViewMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveIconViewMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveIconViewMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveIconViewMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveIconViewMethod "enableModelDragDest" o = IconViewEnableModelDragDestMethodInfo
ResolveIconViewMethod "enableModelDragSource" o = IconViewEnableModelDragSourceMethodInfo
ResolveIconViewMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveIconViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveIconViewMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveIconViewMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveIconViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveIconViewMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveIconViewMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveIconViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveIconViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveIconViewMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveIconViewMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveIconViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveIconViewMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveIconViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveIconViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveIconViewMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveIconViewMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveIconViewMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveIconViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveIconViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveIconViewMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveIconViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveIconViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveIconViewMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveIconViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveIconViewMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveIconViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveIconViewMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveIconViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveIconViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveIconViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveIconViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveIconViewMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveIconViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveIconViewMethod "itemActivated" o = IconViewItemActivatedMethodInfo
ResolveIconViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveIconViewMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveIconViewMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveIconViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveIconViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveIconViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveIconViewMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveIconViewMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveIconViewMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveIconViewMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveIconViewMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveIconViewMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveIconViewMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveIconViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveIconViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveIconViewMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveIconViewMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveIconViewMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveIconViewMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveIconViewMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveIconViewMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo
ResolveIconViewMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo
ResolveIconViewMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveIconViewMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveIconViewMethod "pathIsSelected" o = IconViewPathIsSelectedMethodInfo
ResolveIconViewMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveIconViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveIconViewMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveIconViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveIconViewMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveIconViewMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveIconViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveIconViewMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveIconViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveIconViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveIconViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveIconViewMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveIconViewMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveIconViewMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveIconViewMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveIconViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveIconViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveIconViewMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveIconViewMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveIconViewMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveIconViewMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveIconViewMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveIconViewMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveIconViewMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveIconViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveIconViewMethod "scrollToPath" o = IconViewScrollToPathMethodInfo
ResolveIconViewMethod "selectAll" o = IconViewSelectAllMethodInfo
ResolveIconViewMethod "selectPath" o = IconViewSelectPathMethodInfo
ResolveIconViewMethod "selectedForeach" o = IconViewSelectedForeachMethodInfo
ResolveIconViewMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveIconViewMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveIconViewMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveIconViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveIconViewMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveIconViewMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveIconViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveIconViewMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveIconViewMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveIconViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveIconViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveIconViewMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveIconViewMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveIconViewMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveIconViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveIconViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveIconViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveIconViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveIconViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveIconViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveIconViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveIconViewMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveIconViewMethod "unselectAll" o = IconViewUnselectAllMethodInfo
ResolveIconViewMethod "unselectPath" o = IconViewUnselectPathMethodInfo
ResolveIconViewMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveIconViewMethod "unsetModelDragDest" o = IconViewUnsetModelDragDestMethodInfo
ResolveIconViewMethod "unsetModelDragSource" o = IconViewUnsetModelDragSourceMethodInfo
ResolveIconViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveIconViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveIconViewMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveIconViewMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveIconViewMethod "getActivateOnSingleClick" o = IconViewGetActivateOnSingleClickMethodInfo
ResolveIconViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveIconViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveIconViewMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveIconViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveIconViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveIconViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveIconViewMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveIconViewMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveIconViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveIconViewMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveIconViewMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveIconViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveIconViewMethod "getCellRect" o = IconViewGetCellRectMethodInfo
ResolveIconViewMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveIconViewMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveIconViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveIconViewMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveIconViewMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveIconViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveIconViewMethod "getColumnSpacing" o = IconViewGetColumnSpacingMethodInfo
ResolveIconViewMethod "getColumns" o = IconViewGetColumnsMethodInfo
ResolveIconViewMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveIconViewMethod "getCursor" o = IconViewGetCursorMethodInfo
ResolveIconViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveIconViewMethod "getDestItemAtPos" o = IconViewGetDestItemAtPosMethodInfo
ResolveIconViewMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveIconViewMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveIconViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveIconViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveIconViewMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveIconViewMethod "getDragDestItem" o = IconViewGetDragDestItemMethodInfo
ResolveIconViewMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveIconViewMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveIconViewMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveIconViewMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveIconViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveIconViewMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveIconViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveIconViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveIconViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveIconViewMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveIconViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveIconViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveIconViewMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveIconViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveIconViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveIconViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveIconViewMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveIconViewMethod "getItemAtPos" o = IconViewGetItemAtPosMethodInfo
ResolveIconViewMethod "getItemColumn" o = IconViewGetItemColumnMethodInfo
ResolveIconViewMethod "getItemOrientation" o = IconViewGetItemOrientationMethodInfo
ResolveIconViewMethod "getItemPadding" o = IconViewGetItemPaddingMethodInfo
ResolveIconViewMethod "getItemRow" o = IconViewGetItemRowMethodInfo
ResolveIconViewMethod "getItemWidth" o = IconViewGetItemWidthMethodInfo
ResolveIconViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveIconViewMethod "getMargin" o = IconViewGetMarginMethodInfo
ResolveIconViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveIconViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveIconViewMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveIconViewMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveIconViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveIconViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveIconViewMethod "getMarkupColumn" o = IconViewGetMarkupColumnMethodInfo
ResolveIconViewMethod "getModel" o = IconViewGetModelMethodInfo
ResolveIconViewMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveIconViewMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveIconViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveIconViewMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveIconViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveIconViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveIconViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveIconViewMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveIconViewMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveIconViewMethod "getPathAtPos" o = IconViewGetPathAtPosMethodInfo
ResolveIconViewMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveIconViewMethod "getPixbufColumn" o = IconViewGetPixbufColumnMethodInfo
ResolveIconViewMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveIconViewMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveIconViewMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveIconViewMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveIconViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveIconViewMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveIconViewMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveIconViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveIconViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveIconViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveIconViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveIconViewMethod "getReorderable" o = IconViewGetReorderableMethodInfo
ResolveIconViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveIconViewMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveIconViewMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveIconViewMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveIconViewMethod "getRowSpacing" o = IconViewGetRowSpacingMethodInfo
ResolveIconViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveIconViewMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveIconViewMethod "getSelectedItems" o = IconViewGetSelectedItemsMethodInfo
ResolveIconViewMethod "getSelectionMode" o = IconViewGetSelectionModeMethodInfo
ResolveIconViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveIconViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveIconViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveIconViewMethod "getSpacing" o = IconViewGetSpacingMethodInfo
ResolveIconViewMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveIconViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveIconViewMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveIconViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveIconViewMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveIconViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveIconViewMethod "getTextColumn" o = IconViewGetTextColumnMethodInfo
ResolveIconViewMethod "getTooltipColumn" o = IconViewGetTooltipColumnMethodInfo
ResolveIconViewMethod "getTooltipContext" o = IconViewGetTooltipContextMethodInfo
ResolveIconViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveIconViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveIconViewMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveIconViewMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveIconViewMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveIconViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveIconViewMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveIconViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveIconViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveIconViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveIconViewMethod "getVisibleRange" o = IconViewGetVisibleRangeMethodInfo
ResolveIconViewMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveIconViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveIconViewMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveIconViewMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveIconViewMethod "setActivateOnSingleClick" o = IconViewSetActivateOnSingleClickMethodInfo
ResolveIconViewMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveIconViewMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveIconViewMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveIconViewMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveIconViewMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveIconViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveIconViewMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveIconViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveIconViewMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveIconViewMethod "setColumnSpacing" o = IconViewSetColumnSpacingMethodInfo
ResolveIconViewMethod "setColumns" o = IconViewSetColumnsMethodInfo
ResolveIconViewMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveIconViewMethod "setCursor" o = IconViewSetCursorMethodInfo
ResolveIconViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveIconViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveIconViewMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveIconViewMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveIconViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveIconViewMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveIconViewMethod "setDragDestItem" o = IconViewSetDragDestItemMethodInfo
ResolveIconViewMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveIconViewMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveIconViewMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveIconViewMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveIconViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveIconViewMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveIconViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveIconViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveIconViewMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveIconViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveIconViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveIconViewMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveIconViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveIconViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveIconViewMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveIconViewMethod "setItemOrientation" o = IconViewSetItemOrientationMethodInfo
ResolveIconViewMethod "setItemPadding" o = IconViewSetItemPaddingMethodInfo
ResolveIconViewMethod "setItemWidth" o = IconViewSetItemWidthMethodInfo
ResolveIconViewMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveIconViewMethod "setMargin" o = IconViewSetMarginMethodInfo
ResolveIconViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveIconViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveIconViewMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveIconViewMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveIconViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveIconViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveIconViewMethod "setMarkupColumn" o = IconViewSetMarkupColumnMethodInfo
ResolveIconViewMethod "setModel" o = IconViewSetModelMethodInfo
ResolveIconViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveIconViewMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveIconViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveIconViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveIconViewMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveIconViewMethod "setPixbufColumn" o = IconViewSetPixbufColumnMethodInfo
ResolveIconViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveIconViewMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveIconViewMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveIconViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveIconViewMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveIconViewMethod "setReorderable" o = IconViewSetReorderableMethodInfo
ResolveIconViewMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveIconViewMethod "setRowSpacing" o = IconViewSetRowSpacingMethodInfo
ResolveIconViewMethod "setSelectionMode" o = IconViewSetSelectionModeMethodInfo
ResolveIconViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveIconViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveIconViewMethod "setSpacing" o = IconViewSetSpacingMethodInfo
ResolveIconViewMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveIconViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveIconViewMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveIconViewMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveIconViewMethod "setTextColumn" o = IconViewSetTextColumnMethodInfo
ResolveIconViewMethod "setTooltipCell" o = IconViewSetTooltipCellMethodInfo
ResolveIconViewMethod "setTooltipColumn" o = IconViewSetTooltipColumnMethodInfo
ResolveIconViewMethod "setTooltipItem" o = IconViewSetTooltipItemMethodInfo
ResolveIconViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveIconViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveIconViewMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveIconViewMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveIconViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveIconViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveIconViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveIconViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveIconViewMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveIconViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveIconViewMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveIconViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIconViewMethod t IconView, O.MethodInfo info IconView p) => OL.IsLabel t (IconView -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type IconViewActivateCursorItemCallback =
IO Bool
noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback
noIconViewActivateCursorItemCallback :: Maybe IconViewActivateCursorItemCallback
noIconViewActivateCursorItemCallback = Maybe IconViewActivateCursorItemCallback
forall a. Maybe a
Nothing
type C_IconViewActivateCursorItemCallback =
Ptr () ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_IconViewActivateCursorItemCallback :: C_IconViewActivateCursorItemCallback -> IO (FunPtr C_IconViewActivateCursorItemCallback)
genClosure_IconViewActivateCursorItem :: MonadIO m => IconViewActivateCursorItemCallback -> m (GClosure C_IconViewActivateCursorItemCallback)
genClosure_IconViewActivateCursorItem :: IconViewActivateCursorItemCallback
-> m (GClosure C_IconViewActivateCursorItemCallback)
genClosure_IconViewActivateCursorItem cb :: IconViewActivateCursorItemCallback
cb = IO (GClosure C_IconViewActivateCursorItemCallback)
-> m (GClosure C_IconViewActivateCursorItemCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewActivateCursorItemCallback)
-> m (GClosure C_IconViewActivateCursorItemCallback))
-> IO (GClosure C_IconViewActivateCursorItemCallback)
-> m (GClosure C_IconViewActivateCursorItemCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewActivateCursorItemCallback
cb' = IconViewActivateCursorItemCallback
-> C_IconViewActivateCursorItemCallback
wrap_IconViewActivateCursorItemCallback IconViewActivateCursorItemCallback
cb
C_IconViewActivateCursorItemCallback
-> IO (FunPtr C_IconViewActivateCursorItemCallback)
mk_IconViewActivateCursorItemCallback C_IconViewActivateCursorItemCallback
cb' IO (FunPtr C_IconViewActivateCursorItemCallback)
-> (FunPtr C_IconViewActivateCursorItemCallback
-> IO (GClosure C_IconViewActivateCursorItemCallback))
-> IO (GClosure C_IconViewActivateCursorItemCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewActivateCursorItemCallback
-> IO (GClosure C_IconViewActivateCursorItemCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewActivateCursorItemCallback ::
IconViewActivateCursorItemCallback ->
C_IconViewActivateCursorItemCallback
wrap_IconViewActivateCursorItemCallback :: IconViewActivateCursorItemCallback
-> C_IconViewActivateCursorItemCallback
wrap_IconViewActivateCursorItemCallback _cb :: IconViewActivateCursorItemCallback
_cb _ _ = do
Bool
result <- IconViewActivateCursorItemCallback
_cb
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onIconViewActivateCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
onIconViewActivateCursorItem :: a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
onIconViewActivateCursorItem obj :: a
obj cb :: IconViewActivateCursorItemCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewActivateCursorItemCallback
cb' = IconViewActivateCursorItemCallback
-> C_IconViewActivateCursorItemCallback
wrap_IconViewActivateCursorItemCallback IconViewActivateCursorItemCallback
cb
FunPtr C_IconViewActivateCursorItemCallback
cb'' <- C_IconViewActivateCursorItemCallback
-> IO (FunPtr C_IconViewActivateCursorItemCallback)
mk_IconViewActivateCursorItemCallback C_IconViewActivateCursorItemCallback
cb'
a
-> Text
-> FunPtr C_IconViewActivateCursorItemCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate-cursor-item" FunPtr C_IconViewActivateCursorItemCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewActivateCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
afterIconViewActivateCursorItem :: a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
afterIconViewActivateCursorItem obj :: a
obj cb :: IconViewActivateCursorItemCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewActivateCursorItemCallback
cb' = IconViewActivateCursorItemCallback
-> C_IconViewActivateCursorItemCallback
wrap_IconViewActivateCursorItemCallback IconViewActivateCursorItemCallback
cb
FunPtr C_IconViewActivateCursorItemCallback
cb'' <- C_IconViewActivateCursorItemCallback
-> IO (FunPtr C_IconViewActivateCursorItemCallback)
mk_IconViewActivateCursorItemCallback C_IconViewActivateCursorItemCallback
cb'
a
-> Text
-> FunPtr C_IconViewActivateCursorItemCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate-cursor-item" FunPtr C_IconViewActivateCursorItemCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewActivateCursorItemSignalInfo
instance SignalInfo IconViewActivateCursorItemSignalInfo where
type HaskellCallbackType IconViewActivateCursorItemSignalInfo = IconViewActivateCursorItemCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewActivateCursorItemCallback cb
cb'' <- mk_IconViewActivateCursorItemCallback cb'
connectSignalFunPtr obj "activate-cursor-item" cb'' connectMode detail
#endif
type IconViewItemActivatedCallback =
Gtk.TreePath.TreePath
-> IO ()
noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback
noIconViewItemActivatedCallback :: Maybe IconViewItemActivatedCallback
noIconViewItemActivatedCallback = Maybe IconViewItemActivatedCallback
forall a. Maybe a
Nothing
type C_IconViewItemActivatedCallback =
Ptr () ->
Ptr Gtk.TreePath.TreePath ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewItemActivatedCallback :: C_IconViewItemActivatedCallback -> IO (FunPtr C_IconViewItemActivatedCallback)
genClosure_IconViewItemActivated :: MonadIO m => IconViewItemActivatedCallback -> m (GClosure C_IconViewItemActivatedCallback)
genClosure_IconViewItemActivated :: IconViewItemActivatedCallback
-> m (GClosure C_IconViewItemActivatedCallback)
genClosure_IconViewItemActivated cb :: IconViewItemActivatedCallback
cb = IO (GClosure C_IconViewItemActivatedCallback)
-> m (GClosure C_IconViewItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewItemActivatedCallback)
-> m (GClosure C_IconViewItemActivatedCallback))
-> IO (GClosure C_IconViewItemActivatedCallback)
-> m (GClosure C_IconViewItemActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewItemActivatedCallback
cb' = IconViewItemActivatedCallback -> C_IconViewItemActivatedCallback
wrap_IconViewItemActivatedCallback IconViewItemActivatedCallback
cb
C_IconViewItemActivatedCallback
-> IO (FunPtr C_IconViewItemActivatedCallback)
mk_IconViewItemActivatedCallback C_IconViewItemActivatedCallback
cb' IO (FunPtr C_IconViewItemActivatedCallback)
-> (FunPtr C_IconViewItemActivatedCallback
-> IO (GClosure C_IconViewItemActivatedCallback))
-> IO (GClosure C_IconViewItemActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewItemActivatedCallback
-> IO (GClosure C_IconViewItemActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewItemActivatedCallback ::
IconViewItemActivatedCallback ->
C_IconViewItemActivatedCallback
wrap_IconViewItemActivatedCallback :: IconViewItemActivatedCallback -> C_IconViewItemActivatedCallback
wrap_IconViewItemActivatedCallback _cb :: IconViewItemActivatedCallback
_cb _ path :: Ptr TreePath
path _ = do
(ManagedPtr TreePath -> TreePath)
-> Ptr TreePath -> IconViewItemActivatedCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath Ptr TreePath
path (IconViewItemActivatedCallback -> IO ())
-> IconViewItemActivatedCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \path' :: TreePath
path' -> do
IconViewItemActivatedCallback
_cb TreePath
path'
onIconViewItemActivated :: (IsIconView a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId
onIconViewItemActivated :: a -> IconViewItemActivatedCallback -> m SignalHandlerId
onIconViewItemActivated obj :: a
obj cb :: IconViewItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewItemActivatedCallback
cb' = IconViewItemActivatedCallback -> C_IconViewItemActivatedCallback
wrap_IconViewItemActivatedCallback IconViewItemActivatedCallback
cb
FunPtr C_IconViewItemActivatedCallback
cb'' <- C_IconViewItemActivatedCallback
-> IO (FunPtr C_IconViewItemActivatedCallback)
mk_IconViewItemActivatedCallback C_IconViewItemActivatedCallback
cb'
a
-> Text
-> FunPtr C_IconViewItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "item-activated" FunPtr C_IconViewItemActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewItemActivated :: (IsIconView a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId
afterIconViewItemActivated :: a -> IconViewItemActivatedCallback -> m SignalHandlerId
afterIconViewItemActivated obj :: a
obj cb :: IconViewItemActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewItemActivatedCallback
cb' = IconViewItemActivatedCallback -> C_IconViewItemActivatedCallback
wrap_IconViewItemActivatedCallback IconViewItemActivatedCallback
cb
FunPtr C_IconViewItemActivatedCallback
cb'' <- C_IconViewItemActivatedCallback
-> IO (FunPtr C_IconViewItemActivatedCallback)
mk_IconViewItemActivatedCallback C_IconViewItemActivatedCallback
cb'
a
-> Text
-> FunPtr C_IconViewItemActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "item-activated" FunPtr C_IconViewItemActivatedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewItemActivatedSignalInfo
instance SignalInfo IconViewItemActivatedSignalInfo where
type HaskellCallbackType IconViewItemActivatedSignalInfo = IconViewItemActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewItemActivatedCallback cb
cb'' <- mk_IconViewItemActivatedCallback cb'
connectSignalFunPtr obj "item-activated" cb'' connectMode detail
#endif
type IconViewMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> IO Bool
noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback
noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback
noIconViewMoveCursorCallback = Maybe IconViewMoveCursorCallback
forall a. Maybe a
Nothing
type C_IconViewMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_IconViewMoveCursorCallback :: C_IconViewMoveCursorCallback -> IO (FunPtr C_IconViewMoveCursorCallback)
genClosure_IconViewMoveCursor :: MonadIO m => IconViewMoveCursorCallback -> m (GClosure C_IconViewMoveCursorCallback)
genClosure_IconViewMoveCursor :: IconViewMoveCursorCallback
-> m (GClosure C_IconViewMoveCursorCallback)
genClosure_IconViewMoveCursor cb :: IconViewMoveCursorCallback
cb = IO (GClosure C_IconViewMoveCursorCallback)
-> m (GClosure C_IconViewMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewMoveCursorCallback)
-> m (GClosure C_IconViewMoveCursorCallback))
-> IO (GClosure C_IconViewMoveCursorCallback)
-> m (GClosure C_IconViewMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewMoveCursorCallback
cb' = IconViewMoveCursorCallback -> C_IconViewMoveCursorCallback
wrap_IconViewMoveCursorCallback IconViewMoveCursorCallback
cb
C_IconViewMoveCursorCallback
-> IO (FunPtr C_IconViewMoveCursorCallback)
mk_IconViewMoveCursorCallback C_IconViewMoveCursorCallback
cb' IO (FunPtr C_IconViewMoveCursorCallback)
-> (FunPtr C_IconViewMoveCursorCallback
-> IO (GClosure C_IconViewMoveCursorCallback))
-> IO (GClosure C_IconViewMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewMoveCursorCallback
-> IO (GClosure C_IconViewMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewMoveCursorCallback ::
IconViewMoveCursorCallback ->
C_IconViewMoveCursorCallback
wrap_IconViewMoveCursorCallback :: IconViewMoveCursorCallback -> C_IconViewMoveCursorCallback
wrap_IconViewMoveCursorCallback _cb :: IconViewMoveCursorCallback
_cb _ step :: CUInt
step count :: Int32
count _ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
Bool
result <- IconViewMoveCursorCallback
_cb MovementStep
step' Int32
count
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onIconViewMoveCursor :: (IsIconView a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId
onIconViewMoveCursor :: a -> IconViewMoveCursorCallback -> m SignalHandlerId
onIconViewMoveCursor obj :: a
obj cb :: IconViewMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewMoveCursorCallback
cb' = IconViewMoveCursorCallback -> C_IconViewMoveCursorCallback
wrap_IconViewMoveCursorCallback IconViewMoveCursorCallback
cb
FunPtr C_IconViewMoveCursorCallback
cb'' <- C_IconViewMoveCursorCallback
-> IO (FunPtr C_IconViewMoveCursorCallback)
mk_IconViewMoveCursorCallback C_IconViewMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_IconViewMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_IconViewMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewMoveCursor :: (IsIconView a, MonadIO m) => a -> IconViewMoveCursorCallback -> m SignalHandlerId
afterIconViewMoveCursor :: a -> IconViewMoveCursorCallback -> m SignalHandlerId
afterIconViewMoveCursor obj :: a
obj cb :: IconViewMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewMoveCursorCallback
cb' = IconViewMoveCursorCallback -> C_IconViewMoveCursorCallback
wrap_IconViewMoveCursorCallback IconViewMoveCursorCallback
cb
FunPtr C_IconViewMoveCursorCallback
cb'' <- C_IconViewMoveCursorCallback
-> IO (FunPtr C_IconViewMoveCursorCallback)
mk_IconViewMoveCursorCallback C_IconViewMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_IconViewMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_IconViewMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewMoveCursorSignalInfo
instance SignalInfo IconViewMoveCursorSignalInfo where
type HaskellCallbackType IconViewMoveCursorSignalInfo = IconViewMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewMoveCursorCallback cb
cb'' <- mk_IconViewMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
#endif
type IconViewSelectAllCallback =
IO ()
noIconViewSelectAllCallback :: Maybe IconViewSelectAllCallback
noIconViewSelectAllCallback :: Maybe (IO ())
noIconViewSelectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_IconViewSelectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewSelectAllCallback :: C_IconViewSelectAllCallback -> IO (FunPtr C_IconViewSelectAllCallback)
genClosure_IconViewSelectAll :: MonadIO m => IconViewSelectAllCallback -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectAll :: IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectAll cb :: IO ()
cb = IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectAllCallback IO ()
cb
C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectAllCallback C_IconViewSelectAllCallback
cb' IO (FunPtr C_IconViewSelectAllCallback)
-> (FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewSelectAllCallback ::
IconViewSelectAllCallback ->
C_IconViewSelectAllCallback
wrap_IconViewSelectAllCallback :: IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectAllCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onIconViewSelectAll :: (IsIconView a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId
onIconViewSelectAll :: a -> IO () -> m SignalHandlerId
onIconViewSelectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectAllCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectAllCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-all" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewSelectAll :: (IsIconView a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId
afterIconViewSelectAll :: a -> IO () -> m SignalHandlerId
afterIconViewSelectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectAllCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectAllCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-all" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewSelectAllSignalInfo
instance SignalInfo IconViewSelectAllSignalInfo where
type HaskellCallbackType IconViewSelectAllSignalInfo = IconViewSelectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewSelectAllCallback cb
cb'' <- mk_IconViewSelectAllCallback cb'
connectSignalFunPtr obj "select-all" cb'' connectMode detail
#endif
type IconViewSelectCursorItemCallback =
IO ()
noIconViewSelectCursorItemCallback :: Maybe IconViewSelectCursorItemCallback
noIconViewSelectCursorItemCallback :: Maybe (IO ())
noIconViewSelectCursorItemCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_IconViewSelectCursorItemCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewSelectCursorItemCallback :: C_IconViewSelectCursorItemCallback -> IO (FunPtr C_IconViewSelectCursorItemCallback)
genClosure_IconViewSelectCursorItem :: MonadIO m => IconViewSelectCursorItemCallback -> m (GClosure C_IconViewSelectCursorItemCallback)
genClosure_IconViewSelectCursorItem :: IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectCursorItem cb :: IO ()
cb = IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectCursorItemCallback IO ()
cb
C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectCursorItemCallback C_IconViewSelectAllCallback
cb' IO (FunPtr C_IconViewSelectAllCallback)
-> (FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewSelectCursorItemCallback ::
IconViewSelectCursorItemCallback ->
C_IconViewSelectCursorItemCallback
wrap_IconViewSelectCursorItemCallback :: IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectCursorItemCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onIconViewSelectCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId
onIconViewSelectCursorItem :: a -> IO () -> m SignalHandlerId
onIconViewSelectCursorItem obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectCursorItemCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectCursorItemCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-item" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewSelectCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId
afterIconViewSelectCursorItem :: a -> IO () -> m SignalHandlerId
afterIconViewSelectCursorItem obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectCursorItemCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectCursorItemCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "select-cursor-item" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewSelectCursorItemSignalInfo
instance SignalInfo IconViewSelectCursorItemSignalInfo where
type HaskellCallbackType IconViewSelectCursorItemSignalInfo = IconViewSelectCursorItemCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewSelectCursorItemCallback cb
cb'' <- mk_IconViewSelectCursorItemCallback cb'
connectSignalFunPtr obj "select-cursor-item" cb'' connectMode detail
#endif
type IconViewSelectionChangedCallback =
IO ()
noIconViewSelectionChangedCallback :: Maybe IconViewSelectionChangedCallback
noIconViewSelectionChangedCallback :: Maybe (IO ())
noIconViewSelectionChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_IconViewSelectionChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewSelectionChangedCallback :: C_IconViewSelectionChangedCallback -> IO (FunPtr C_IconViewSelectionChangedCallback)
genClosure_IconViewSelectionChanged :: MonadIO m => IconViewSelectionChangedCallback -> m (GClosure C_IconViewSelectionChangedCallback)
genClosure_IconViewSelectionChanged :: IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectionChanged cb :: IO ()
cb = IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectionChangedCallback IO ()
cb
C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectionChangedCallback C_IconViewSelectAllCallback
cb' IO (FunPtr C_IconViewSelectAllCallback)
-> (FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewSelectionChangedCallback ::
IconViewSelectionChangedCallback ->
C_IconViewSelectionChangedCallback
wrap_IconViewSelectionChangedCallback :: IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectionChangedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onIconViewSelectionChanged :: (IsIconView a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId
onIconViewSelectionChanged :: a -> IO () -> m SignalHandlerId
onIconViewSelectionChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectionChangedCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectionChangedCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "selection-changed" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewSelectionChanged :: (IsIconView a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId
afterIconViewSelectionChanged :: a -> IO () -> m SignalHandlerId
afterIconViewSelectionChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewSelectionChangedCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewSelectionChangedCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "selection-changed" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewSelectionChangedSignalInfo
instance SignalInfo IconViewSelectionChangedSignalInfo where
type HaskellCallbackType IconViewSelectionChangedSignalInfo = IconViewSelectionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewSelectionChangedCallback cb
cb'' <- mk_IconViewSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' connectMode detail
#endif
type IconViewToggleCursorItemCallback =
IO ()
noIconViewToggleCursorItemCallback :: Maybe IconViewToggleCursorItemCallback
noIconViewToggleCursorItemCallback :: Maybe (IO ())
noIconViewToggleCursorItemCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_IconViewToggleCursorItemCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewToggleCursorItemCallback :: C_IconViewToggleCursorItemCallback -> IO (FunPtr C_IconViewToggleCursorItemCallback)
genClosure_IconViewToggleCursorItem :: MonadIO m => IconViewToggleCursorItemCallback -> m (GClosure C_IconViewToggleCursorItemCallback)
genClosure_IconViewToggleCursorItem :: IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewToggleCursorItem cb :: IO ()
cb = IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewToggleCursorItemCallback IO ()
cb
C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewToggleCursorItemCallback C_IconViewSelectAllCallback
cb' IO (FunPtr C_IconViewSelectAllCallback)
-> (FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewToggleCursorItemCallback ::
IconViewToggleCursorItemCallback ->
C_IconViewToggleCursorItemCallback
wrap_IconViewToggleCursorItemCallback :: IO () -> C_IconViewSelectAllCallback
wrap_IconViewToggleCursorItemCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onIconViewToggleCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId
onIconViewToggleCursorItem :: a -> IO () -> m SignalHandlerId
onIconViewToggleCursorItem obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewToggleCursorItemCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewToggleCursorItemCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-cursor-item" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewToggleCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId
afterIconViewToggleCursorItem :: a -> IO () -> m SignalHandlerId
afterIconViewToggleCursorItem obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewToggleCursorItemCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewToggleCursorItemCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-cursor-item" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewToggleCursorItemSignalInfo
instance SignalInfo IconViewToggleCursorItemSignalInfo where
type HaskellCallbackType IconViewToggleCursorItemSignalInfo = IconViewToggleCursorItemCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewToggleCursorItemCallback cb
cb'' <- mk_IconViewToggleCursorItemCallback cb'
connectSignalFunPtr obj "toggle-cursor-item" cb'' connectMode detail
#endif
type IconViewUnselectAllCallback =
IO ()
noIconViewUnselectAllCallback :: Maybe IconViewUnselectAllCallback
noIconViewUnselectAllCallback :: Maybe (IO ())
noIconViewUnselectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_IconViewUnselectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IconViewUnselectAllCallback :: C_IconViewUnselectAllCallback -> IO (FunPtr C_IconViewUnselectAllCallback)
genClosure_IconViewUnselectAll :: MonadIO m => IconViewUnselectAllCallback -> m (GClosure C_IconViewUnselectAllCallback)
genClosure_IconViewUnselectAll :: IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewUnselectAll cb :: IO ()
cb = IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
-> m (GClosure C_IconViewSelectAllCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewUnselectAllCallback IO ()
cb
C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewUnselectAllCallback C_IconViewSelectAllCallback
cb' IO (FunPtr C_IconViewSelectAllCallback)
-> (FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback))
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_IconViewSelectAllCallback
-> IO (GClosure C_IconViewSelectAllCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_IconViewUnselectAllCallback ::
IconViewUnselectAllCallback ->
C_IconViewUnselectAllCallback
wrap_IconViewUnselectAllCallback :: IO () -> C_IconViewSelectAllCallback
wrap_IconViewUnselectAllCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onIconViewUnselectAll :: (IsIconView a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId
onIconViewUnselectAll :: a -> IO () -> m SignalHandlerId
onIconViewUnselectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewUnselectAllCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewUnselectAllCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unselect-all" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIconViewUnselectAll :: (IsIconView a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId
afterIconViewUnselectAll :: a -> IO () -> m SignalHandlerId
afterIconViewUnselectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_IconViewSelectAllCallback
cb' = IO () -> C_IconViewSelectAllCallback
wrap_IconViewUnselectAllCallback IO ()
cb
FunPtr C_IconViewSelectAllCallback
cb'' <- C_IconViewSelectAllCallback
-> IO (FunPtr C_IconViewSelectAllCallback)
mk_IconViewUnselectAllCallback C_IconViewSelectAllCallback
cb'
a
-> Text
-> FunPtr C_IconViewSelectAllCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "unselect-all" FunPtr C_IconViewSelectAllCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IconViewUnselectAllSignalInfo
instance SignalInfo IconViewUnselectAllSignalInfo where
type HaskellCallbackType IconViewUnselectAllSignalInfo = IconViewUnselectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IconViewUnselectAllCallback cb
cb'' <- mk_IconViewUnselectAllCallback cb'
connectSignalFunPtr obj "unselect-all" cb'' connectMode detail
#endif
getIconViewActivateOnSingleClick :: (MonadIO m, IsIconView o) => o -> m Bool
getIconViewActivateOnSingleClick :: o -> m Bool
getIconViewActivateOnSingleClick obj :: o
obj = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IconViewActivateCursorItemCallback -> m Bool)
-> IconViewActivateCursorItemCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IconViewActivateCursorItemCallback
forall a.
GObject a =>
a -> String -> IconViewActivateCursorItemCallback
B.Properties.getObjectPropertyBool o
obj "activate-on-single-click"
setIconViewActivateOnSingleClick :: (MonadIO m, IsIconView o) => o -> Bool -> m ()
setIconViewActivateOnSingleClick :: o -> Bool -> m ()
setIconViewActivateOnSingleClick obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "activate-on-single-click" Bool
val
constructIconViewActivateOnSingleClick :: (IsIconView o) => Bool -> IO (GValueConstruct o)
constructIconViewActivateOnSingleClick :: Bool -> IO (GValueConstruct o)
constructIconViewActivateOnSingleClick val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data IconViewActivateOnSingleClickPropertyInfo
instance AttrInfo IconViewActivateOnSingleClickPropertyInfo where
type AttrAllowedOps IconViewActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewActivateOnSingleClickPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferTypeConstraint IconViewActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferType IconViewActivateOnSingleClickPropertyInfo = Bool
type AttrGetType IconViewActivateOnSingleClickPropertyInfo = Bool
type AttrLabel IconViewActivateOnSingleClickPropertyInfo = "activate-on-single-click"
type AttrOrigin IconViewActivateOnSingleClickPropertyInfo = IconView
attrGet = getIconViewActivateOnSingleClick
attrSet = setIconViewActivateOnSingleClick
attrTransfer _ v = do
return v
attrConstruct = constructIconViewActivateOnSingleClick
attrClear = undefined
#endif
getIconViewCellArea :: (MonadIO m, IsIconView o) => o -> m (Maybe Gtk.CellArea.CellArea)
getIconViewCellArea :: o -> m (Maybe CellArea)
getIconViewCellArea obj :: o
obj = IO (Maybe CellArea) -> m (Maybe CellArea)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CellArea) -> m (Maybe CellArea))
-> IO (Maybe CellArea) -> m (Maybe CellArea)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellArea -> CellArea)
-> IO (Maybe CellArea)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "cell-area" ManagedPtr CellArea -> CellArea
Gtk.CellArea.CellArea
constructIconViewCellArea :: (IsIconView o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructIconViewCellArea :: a -> IO (GValueConstruct o)
constructIconViewCellArea val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "cell-area" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data IconViewCellAreaPropertyInfo
instance AttrInfo IconViewCellAreaPropertyInfo where
type AttrAllowedOps IconViewCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IconViewCellAreaPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferTypeConstraint IconViewCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferType IconViewCellAreaPropertyInfo = Gtk.CellArea.CellArea
type AttrGetType IconViewCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel IconViewCellAreaPropertyInfo = "cell-area"
type AttrOrigin IconViewCellAreaPropertyInfo = IconView
attrGet = getIconViewCellArea
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.CellArea.CellArea v
attrConstruct = constructIconViewCellArea
attrClear = undefined
#endif
getIconViewColumnSpacing :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewColumnSpacing :: o -> m Int32
getIconViewColumnSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "column-spacing"
setIconViewColumnSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewColumnSpacing :: o -> Int32 -> m ()
setIconViewColumnSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "column-spacing" Int32
val
constructIconViewColumnSpacing :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewColumnSpacing :: Int32 -> IO (GValueConstruct o)
constructIconViewColumnSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "column-spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewColumnSpacingPropertyInfo
instance AttrInfo IconViewColumnSpacingPropertyInfo where
type AttrAllowedOps IconViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewColumnSpacingPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferType IconViewColumnSpacingPropertyInfo = Int32
type AttrGetType IconViewColumnSpacingPropertyInfo = Int32
type AttrLabel IconViewColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin IconViewColumnSpacingPropertyInfo = IconView
attrGet = getIconViewColumnSpacing
attrSet = setIconViewColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructIconViewColumnSpacing
attrClear = undefined
#endif
getIconViewColumns :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewColumns :: o -> m Int32
getIconViewColumns obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "columns"
setIconViewColumns :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewColumns :: o -> Int32 -> m ()
setIconViewColumns obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "columns" Int32
val
constructIconViewColumns :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewColumns :: Int32 -> IO (GValueConstruct o)
constructIconViewColumns val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "columns" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewColumnsPropertyInfo
instance AttrInfo IconViewColumnsPropertyInfo where
type AttrAllowedOps IconViewColumnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewColumnsPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewColumnsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewColumnsPropertyInfo = (~) Int32
type AttrTransferType IconViewColumnsPropertyInfo = Int32
type AttrGetType IconViewColumnsPropertyInfo = Int32
type AttrLabel IconViewColumnsPropertyInfo = "columns"
type AttrOrigin IconViewColumnsPropertyInfo = IconView
attrGet = getIconViewColumns
attrSet = setIconViewColumns
attrTransfer _ v = do
return v
attrConstruct = constructIconViewColumns
attrClear = undefined
#endif
getIconViewItemOrientation :: (MonadIO m, IsIconView o) => o -> m Gtk.Enums.Orientation
getIconViewItemOrientation :: o -> m Orientation
getIconViewItemOrientation obj :: o
obj = IO Orientation -> m Orientation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Orientation -> m Orientation)
-> IO Orientation -> m Orientation
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Orientation
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "item-orientation"
setIconViewItemOrientation :: (MonadIO m, IsIconView o) => o -> Gtk.Enums.Orientation -> m ()
setIconViewItemOrientation :: o -> Orientation -> m ()
setIconViewItemOrientation obj :: o
obj val :: Orientation
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Orientation -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "item-orientation" Orientation
val
constructIconViewItemOrientation :: (IsIconView o) => Gtk.Enums.Orientation -> IO (GValueConstruct o)
constructIconViewItemOrientation :: Orientation -> IO (GValueConstruct o)
constructIconViewItemOrientation val :: Orientation
val = String -> Orientation -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "item-orientation" Orientation
val
#if defined(ENABLE_OVERLOADING)
data IconViewItemOrientationPropertyInfo
instance AttrInfo IconViewItemOrientationPropertyInfo where
type AttrAllowedOps IconViewItemOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewItemOrientationPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewItemOrientationPropertyInfo = (~) Gtk.Enums.Orientation
type AttrTransferTypeConstraint IconViewItemOrientationPropertyInfo = (~) Gtk.Enums.Orientation
type AttrTransferType IconViewItemOrientationPropertyInfo = Gtk.Enums.Orientation
type AttrGetType IconViewItemOrientationPropertyInfo = Gtk.Enums.Orientation
type AttrLabel IconViewItemOrientationPropertyInfo = "item-orientation"
type AttrOrigin IconViewItemOrientationPropertyInfo = IconView
attrGet = getIconViewItemOrientation
attrSet = setIconViewItemOrientation
attrTransfer _ v = do
return v
attrConstruct = constructIconViewItemOrientation
attrClear = undefined
#endif
getIconViewItemPadding :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewItemPadding :: o -> m Int32
getIconViewItemPadding obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "item-padding"
setIconViewItemPadding :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewItemPadding :: o -> Int32 -> m ()
setIconViewItemPadding obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "item-padding" Int32
val
constructIconViewItemPadding :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewItemPadding :: Int32 -> IO (GValueConstruct o)
constructIconViewItemPadding val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "item-padding" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewItemPaddingPropertyInfo
instance AttrInfo IconViewItemPaddingPropertyInfo where
type AttrAllowedOps IconViewItemPaddingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewItemPaddingPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewItemPaddingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewItemPaddingPropertyInfo = (~) Int32
type AttrTransferType IconViewItemPaddingPropertyInfo = Int32
type AttrGetType IconViewItemPaddingPropertyInfo = Int32
type AttrLabel IconViewItemPaddingPropertyInfo = "item-padding"
type AttrOrigin IconViewItemPaddingPropertyInfo = IconView
attrGet = getIconViewItemPadding
attrSet = setIconViewItemPadding
attrTransfer _ v = do
return v
attrConstruct = constructIconViewItemPadding
attrClear = undefined
#endif
getIconViewItemWidth :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewItemWidth :: o -> m Int32
getIconViewItemWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "item-width"
setIconViewItemWidth :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewItemWidth :: o -> Int32 -> m ()
setIconViewItemWidth obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "item-width" Int32
val
constructIconViewItemWidth :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewItemWidth :: Int32 -> IO (GValueConstruct o)
constructIconViewItemWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "item-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewItemWidthPropertyInfo
instance AttrInfo IconViewItemWidthPropertyInfo where
type AttrAllowedOps IconViewItemWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewItemWidthPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewItemWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewItemWidthPropertyInfo = (~) Int32
type AttrTransferType IconViewItemWidthPropertyInfo = Int32
type AttrGetType IconViewItemWidthPropertyInfo = Int32
type AttrLabel IconViewItemWidthPropertyInfo = "item-width"
type AttrOrigin IconViewItemWidthPropertyInfo = IconView
attrGet = getIconViewItemWidth
attrSet = setIconViewItemWidth
attrTransfer _ v = do
return v
attrConstruct = constructIconViewItemWidth
attrClear = undefined
#endif
getIconViewMargin :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewMargin :: o -> m Int32
getIconViewMargin obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "margin"
setIconViewMargin :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewMargin :: o -> Int32 -> m ()
setIconViewMargin obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "margin" Int32
val
constructIconViewMargin :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewMargin :: Int32 -> IO (GValueConstruct o)
constructIconViewMargin val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "margin" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewMarginPropertyInfo
instance AttrInfo IconViewMarginPropertyInfo where
type AttrAllowedOps IconViewMarginPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewMarginPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewMarginPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewMarginPropertyInfo = (~) Int32
type AttrTransferType IconViewMarginPropertyInfo = Int32
type AttrGetType IconViewMarginPropertyInfo = Int32
type AttrLabel IconViewMarginPropertyInfo = "margin"
type AttrOrigin IconViewMarginPropertyInfo = IconView
attrGet = getIconViewMargin
attrSet = setIconViewMargin
attrTransfer _ v = do
return v
attrConstruct = constructIconViewMargin
attrClear = undefined
#endif
getIconViewMarkupColumn :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewMarkupColumn :: o -> m Int32
getIconViewMarkupColumn obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "markup-column"
setIconViewMarkupColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewMarkupColumn :: o -> Int32 -> m ()
setIconViewMarkupColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "markup-column" Int32
val
constructIconViewMarkupColumn :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewMarkupColumn :: Int32 -> IO (GValueConstruct o)
constructIconViewMarkupColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "markup-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewMarkupColumnPropertyInfo
instance AttrInfo IconViewMarkupColumnPropertyInfo where
type AttrAllowedOps IconViewMarkupColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewMarkupColumnPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewMarkupColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewMarkupColumnPropertyInfo = (~) Int32
type AttrTransferType IconViewMarkupColumnPropertyInfo = Int32
type AttrGetType IconViewMarkupColumnPropertyInfo = Int32
type AttrLabel IconViewMarkupColumnPropertyInfo = "markup-column"
type AttrOrigin IconViewMarkupColumnPropertyInfo = IconView
attrGet = getIconViewMarkupColumn
attrSet = setIconViewMarkupColumn
attrTransfer _ v = do
return v
attrConstruct = constructIconViewMarkupColumn
attrClear = undefined
#endif
getIconViewModel :: (MonadIO m, IsIconView o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getIconViewModel :: o -> m (Maybe TreeModel)
getIconViewModel obj :: o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr TreeModel -> TreeModel)
-> IO (Maybe TreeModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setIconViewModel :: (MonadIO m, IsIconView o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setIconViewModel :: o -> a -> m ()
setIconViewModel obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructIconViewModel :: (IsIconView o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructIconViewModel :: a -> IO (GValueConstruct o)
constructIconViewModel val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearIconViewModel :: (MonadIO m, IsIconView o) => o -> m ()
clearIconViewModel :: o -> m ()
clearIconViewModel obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe TreeModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "model" (Maybe TreeModel
forall a. Maybe a
Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if defined(ENABLE_OVERLOADING)
data IconViewModelPropertyInfo
instance AttrInfo IconViewModelPropertyInfo where
type AttrAllowedOps IconViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IconViewModelPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferTypeConstraint IconViewModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferType IconViewModelPropertyInfo = Gtk.TreeModel.TreeModel
type AttrGetType IconViewModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel IconViewModelPropertyInfo = "model"
type AttrOrigin IconViewModelPropertyInfo = IconView
attrGet = getIconViewModel
attrSet = setIconViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.TreeModel.TreeModel v
attrConstruct = constructIconViewModel
attrClear = clearIconViewModel
#endif
getIconViewPixbufColumn :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewPixbufColumn :: o -> m Int32
getIconViewPixbufColumn obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "pixbuf-column"
setIconViewPixbufColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewPixbufColumn :: o -> Int32 -> m ()
setIconViewPixbufColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "pixbuf-column" Int32
val
constructIconViewPixbufColumn :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewPixbufColumn :: Int32 -> IO (GValueConstruct o)
constructIconViewPixbufColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "pixbuf-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewPixbufColumnPropertyInfo
instance AttrInfo IconViewPixbufColumnPropertyInfo where
type AttrAllowedOps IconViewPixbufColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewPixbufColumnPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewPixbufColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewPixbufColumnPropertyInfo = (~) Int32
type AttrTransferType IconViewPixbufColumnPropertyInfo = Int32
type AttrGetType IconViewPixbufColumnPropertyInfo = Int32
type AttrLabel IconViewPixbufColumnPropertyInfo = "pixbuf-column"
type AttrOrigin IconViewPixbufColumnPropertyInfo = IconView
attrGet = getIconViewPixbufColumn
attrSet = setIconViewPixbufColumn
attrTransfer _ v = do
return v
attrConstruct = constructIconViewPixbufColumn
attrClear = undefined
#endif
getIconViewReorderable :: (MonadIO m, IsIconView o) => o -> m Bool
getIconViewReorderable :: o -> m Bool
getIconViewReorderable obj :: o
obj = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IconViewActivateCursorItemCallback -> m Bool)
-> IconViewActivateCursorItemCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IconViewActivateCursorItemCallback
forall a.
GObject a =>
a -> String -> IconViewActivateCursorItemCallback
B.Properties.getObjectPropertyBool o
obj "reorderable"
setIconViewReorderable :: (MonadIO m, IsIconView o) => o -> Bool -> m ()
setIconViewReorderable :: o -> Bool -> m ()
setIconViewReorderable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "reorderable" Bool
val
constructIconViewReorderable :: (IsIconView o) => Bool -> IO (GValueConstruct o)
constructIconViewReorderable :: Bool -> IO (GValueConstruct o)
constructIconViewReorderable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "reorderable" Bool
val
#if defined(ENABLE_OVERLOADING)
data IconViewReorderablePropertyInfo
instance AttrInfo IconViewReorderablePropertyInfo where
type AttrAllowedOps IconViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewReorderablePropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewReorderablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint IconViewReorderablePropertyInfo = (~) Bool
type AttrTransferType IconViewReorderablePropertyInfo = Bool
type AttrGetType IconViewReorderablePropertyInfo = Bool
type AttrLabel IconViewReorderablePropertyInfo = "reorderable"
type AttrOrigin IconViewReorderablePropertyInfo = IconView
attrGet = getIconViewReorderable
attrSet = setIconViewReorderable
attrTransfer _ v = do
return v
attrConstruct = constructIconViewReorderable
attrClear = undefined
#endif
getIconViewRowSpacing :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewRowSpacing :: o -> m Int32
getIconViewRowSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "row-spacing"
setIconViewRowSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewRowSpacing :: o -> Int32 -> m ()
setIconViewRowSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "row-spacing" Int32
val
constructIconViewRowSpacing :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewRowSpacing :: Int32 -> IO (GValueConstruct o)
constructIconViewRowSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "row-spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewRowSpacingPropertyInfo
instance AttrInfo IconViewRowSpacingPropertyInfo where
type AttrAllowedOps IconViewRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewRowSpacingPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewRowSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewRowSpacingPropertyInfo = (~) Int32
type AttrTransferType IconViewRowSpacingPropertyInfo = Int32
type AttrGetType IconViewRowSpacingPropertyInfo = Int32
type AttrLabel IconViewRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin IconViewRowSpacingPropertyInfo = IconView
attrGet = getIconViewRowSpacing
attrSet = setIconViewRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructIconViewRowSpacing
attrClear = undefined
#endif
getIconViewSelectionMode :: (MonadIO m, IsIconView o) => o -> m Gtk.Enums.SelectionMode
getIconViewSelectionMode :: o -> m SelectionMode
getIconViewSelectionMode obj :: o
obj = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SelectionMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "selection-mode"
setIconViewSelectionMode :: (MonadIO m, IsIconView o) => o -> Gtk.Enums.SelectionMode -> m ()
setIconViewSelectionMode :: o -> SelectionMode -> m ()
setIconViewSelectionMode obj :: o
obj val :: SelectionMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> SelectionMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "selection-mode" SelectionMode
val
constructIconViewSelectionMode :: (IsIconView o) => Gtk.Enums.SelectionMode -> IO (GValueConstruct o)
constructIconViewSelectionMode :: SelectionMode -> IO (GValueConstruct o)
constructIconViewSelectionMode val :: SelectionMode
val = String -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "selection-mode" SelectionMode
val
#if defined(ENABLE_OVERLOADING)
data IconViewSelectionModePropertyInfo
instance AttrInfo IconViewSelectionModePropertyInfo where
type AttrAllowedOps IconViewSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewSelectionModePropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferTypeConstraint IconViewSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferType IconViewSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrGetType IconViewSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrLabel IconViewSelectionModePropertyInfo = "selection-mode"
type AttrOrigin IconViewSelectionModePropertyInfo = IconView
attrGet = getIconViewSelectionMode
attrSet = setIconViewSelectionMode
attrTransfer _ v = do
return v
attrConstruct = constructIconViewSelectionMode
attrClear = undefined
#endif
getIconViewSpacing :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewSpacing :: o -> m Int32
getIconViewSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "spacing"
setIconViewSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewSpacing :: o -> Int32 -> m ()
setIconViewSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "spacing" Int32
val
constructIconViewSpacing :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewSpacing :: Int32 -> IO (GValueConstruct o)
constructIconViewSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewSpacingPropertyInfo
instance AttrInfo IconViewSpacingPropertyInfo where
type AttrAllowedOps IconViewSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewSpacingPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewSpacingPropertyInfo = (~) Int32
type AttrTransferType IconViewSpacingPropertyInfo = Int32
type AttrGetType IconViewSpacingPropertyInfo = Int32
type AttrLabel IconViewSpacingPropertyInfo = "spacing"
type AttrOrigin IconViewSpacingPropertyInfo = IconView
attrGet = getIconViewSpacing
attrSet = setIconViewSpacing
attrTransfer _ v = do
return v
attrConstruct = constructIconViewSpacing
attrClear = undefined
#endif
getIconViewTextColumn :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewTextColumn :: o -> m Int32
getIconViewTextColumn obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "text-column"
setIconViewTextColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewTextColumn :: o -> Int32 -> m ()
setIconViewTextColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "text-column" Int32
val
constructIconViewTextColumn :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewTextColumn :: Int32 -> IO (GValueConstruct o)
constructIconViewTextColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "text-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewTextColumnPropertyInfo
instance AttrInfo IconViewTextColumnPropertyInfo where
type AttrAllowedOps IconViewTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewTextColumnPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewTextColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewTextColumnPropertyInfo = (~) Int32
type AttrTransferType IconViewTextColumnPropertyInfo = Int32
type AttrGetType IconViewTextColumnPropertyInfo = Int32
type AttrLabel IconViewTextColumnPropertyInfo = "text-column"
type AttrOrigin IconViewTextColumnPropertyInfo = IconView
attrGet = getIconViewTextColumn
attrSet = setIconViewTextColumn
attrTransfer _ v = do
return v
attrConstruct = constructIconViewTextColumn
attrClear = undefined
#endif
getIconViewTooltipColumn :: (MonadIO m, IsIconView o) => o -> m Int32
getIconViewTooltipColumn :: o -> m Int32
getIconViewTooltipColumn obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "tooltip-column"
setIconViewTooltipColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewTooltipColumn :: o -> Int32 -> m ()
setIconViewTooltipColumn obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "tooltip-column" Int32
val
constructIconViewTooltipColumn :: (IsIconView o) => Int32 -> IO (GValueConstruct o)
constructIconViewTooltipColumn :: Int32 -> IO (GValueConstruct o)
constructIconViewTooltipColumn val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "tooltip-column" Int32
val
#if defined(ENABLE_OVERLOADING)
data IconViewTooltipColumnPropertyInfo
instance AttrInfo IconViewTooltipColumnPropertyInfo where
type AttrAllowedOps IconViewTooltipColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IconViewTooltipColumnPropertyInfo = IsIconView
type AttrSetTypeConstraint IconViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint IconViewTooltipColumnPropertyInfo = (~) Int32
type AttrTransferType IconViewTooltipColumnPropertyInfo = Int32
type AttrGetType IconViewTooltipColumnPropertyInfo = Int32
type AttrLabel IconViewTooltipColumnPropertyInfo = "tooltip-column"
type AttrOrigin IconViewTooltipColumnPropertyInfo = IconView
attrGet = getIconViewTooltipColumn
attrSet = setIconViewTooltipColumn
attrTransfer _ v = do
return v
attrConstruct = constructIconViewTooltipColumn
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList IconView
type instance O.AttributeList IconView = IconViewAttributeList
type IconViewAttributeList = ('[ '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("hadjustment", Gtk.Scrollable.ScrollableHadjustmentPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hscrollPolicy", Gtk.Scrollable.ScrollableHscrollPolicyPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("textColumn", IconViewTextColumnPropertyInfo), '("tooltipColumn", IconViewTooltipColumnPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("vadjustment", Gtk.Scrollable.ScrollableVadjustmentPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("vscrollPolicy", Gtk.Scrollable.ScrollableVscrollPolicyPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
iconViewActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"
iconViewActivateOnSingleClick = AttrLabelProxy
iconViewCellArea :: AttrLabelProxy "cellArea"
iconViewCellArea = AttrLabelProxy
iconViewColumnSpacing :: AttrLabelProxy "columnSpacing"
iconViewColumnSpacing = AttrLabelProxy
iconViewColumns :: AttrLabelProxy "columns"
iconViewColumns = AttrLabelProxy
iconViewItemOrientation :: AttrLabelProxy "itemOrientation"
iconViewItemOrientation = AttrLabelProxy
iconViewItemPadding :: AttrLabelProxy "itemPadding"
iconViewItemPadding = AttrLabelProxy
iconViewItemWidth :: AttrLabelProxy "itemWidth"
iconViewItemWidth = AttrLabelProxy
iconViewMargin :: AttrLabelProxy "margin"
iconViewMargin = AttrLabelProxy
iconViewMarkupColumn :: AttrLabelProxy "markupColumn"
iconViewMarkupColumn = AttrLabelProxy
iconViewModel :: AttrLabelProxy "model"
iconViewModel = AttrLabelProxy
iconViewPixbufColumn :: AttrLabelProxy "pixbufColumn"
iconViewPixbufColumn = AttrLabelProxy
iconViewReorderable :: AttrLabelProxy "reorderable"
iconViewReorderable = AttrLabelProxy
iconViewRowSpacing :: AttrLabelProxy "rowSpacing"
iconViewRowSpacing = AttrLabelProxy
iconViewSelectionMode :: AttrLabelProxy "selectionMode"
iconViewSelectionMode = AttrLabelProxy
iconViewSpacing :: AttrLabelProxy "spacing"
iconViewSpacing = AttrLabelProxy
iconViewTextColumn :: AttrLabelProxy "textColumn"
iconViewTextColumn = AttrLabelProxy
iconViewTooltipColumn :: AttrLabelProxy "tooltipColumn"
iconViewTooltipColumn = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList IconView = IconViewSignalList
type IconViewSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCursorItem", IconViewActivateCursorItemSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("itemActivated", IconViewItemActivatedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveCursor", IconViewMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectAll", IconViewSelectAllSignalInfo), '("selectCursorItem", IconViewSelectCursorItemSignalInfo), '("selectionChanged", IconViewSelectionChangedSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("toggleCursorItem", IconViewToggleCursorItemSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", IconViewUnselectAllSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_icon_view_new" gtk_icon_view_new ::
IO (Ptr IconView)
iconViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m IconView
iconViewNew :: m IconView
iconViewNew = IO IconView -> m IconView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IconView -> m IconView) -> IO IconView -> m IconView
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
result <- IO (Ptr IconView)
gtk_icon_view_new
Text -> Ptr IconView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "iconViewNew" Ptr IconView
result
IconView
result' <- ((ManagedPtr IconView -> IconView) -> Ptr IconView -> IO IconView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr IconView -> IconView
IconView) Ptr IconView
result
IconView -> IO IconView
forall (m :: * -> *) a. Monad m => a -> m a
return IconView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_icon_view_new_with_area" gtk_icon_view_new_with_area ::
Ptr Gtk.CellArea.CellArea ->
IO (Ptr IconView)
iconViewNewWithArea ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellArea.IsCellArea a) =>
a
-> m IconView
iconViewNewWithArea :: a -> m IconView
iconViewNewWithArea area :: a
area = IO IconView -> m IconView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IconView -> m IconView) -> IO IconView -> m IconView
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr IconView
result <- Ptr CellArea -> IO (Ptr IconView)
gtk_icon_view_new_with_area Ptr CellArea
area'
Text -> Ptr IconView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "iconViewNewWithArea" Ptr IconView
result
IconView
result' <- ((ManagedPtr IconView -> IconView) -> Ptr IconView -> IO IconView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr IconView -> IconView
IconView) Ptr IconView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
IconView -> IO IconView
forall (m :: * -> *) a. Monad m => a -> m a
return IconView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_icon_view_new_with_model" gtk_icon_view_new_with_model ::
Ptr Gtk.TreeModel.TreeModel ->
IO (Ptr IconView)
iconViewNewWithModel ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.TreeModel.IsTreeModel a) =>
a
-> m IconView
iconViewNewWithModel :: a -> m IconView
iconViewNewWithModel model :: a
model = IO IconView -> m IconView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IconView -> m IconView) -> IO IconView -> m IconView
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeModel
model' <- a -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
model
Ptr IconView
result <- Ptr TreeModel -> IO (Ptr IconView)
gtk_icon_view_new_with_model Ptr TreeModel
model'
Text -> Ptr IconView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "iconViewNewWithModel" Ptr IconView
result
IconView
result' <- ((ManagedPtr IconView -> IconView) -> Ptr IconView -> IO IconView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr IconView -> IconView
IconView) Ptr IconView
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
model
IconView -> IO IconView
forall (m :: * -> *) a. Monad m => a -> m a
return IconView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_icon_view_convert_widget_to_bin_window_coords" gtk_icon_view_convert_widget_to_bin_window_coords ::
Ptr IconView ->
Int32 ->
Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
iconViewConvertWidgetToBinWindowCoords ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> m ((Int32, Int32))
iconViewConvertWidgetToBinWindowCoords :: a -> Int32 -> Int32 -> m (Int32, Int32)
iconViewConvertWidgetToBinWindowCoords iconView :: a
iconView wx :: Int32
wx wy :: Int32
wy = IO (Int32, Int32) -> m (Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr Int32
bx <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
by <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr IconView -> Int32 -> Int32 -> Ptr Int32 -> Ptr Int32 -> IO ()
gtk_icon_view_convert_widget_to_bin_window_coords Ptr IconView
iconView' Int32
wx Int32
wy Ptr Int32
bx Ptr Int32
by
Int32
bx' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
bx
Int32
by' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
by
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
bx
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
by
(Int32, Int32) -> IO (Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
bx', Int32
by')
#if defined(ENABLE_OVERLOADING)
data IconViewConvertWidgetToBinWindowCoordsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Int32, Int32))), MonadIO m, IsIconView a) => O.MethodInfo IconViewConvertWidgetToBinWindowCoordsMethodInfo a signature where
overloadedMethod = iconViewConvertWidgetToBinWindowCoords
#endif
foreign import ccall "gtk_icon_view_create_drag_icon" gtk_icon_view_create_drag_icon ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Cairo.Surface.Surface)
iconViewCreateDragIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m Cairo.Surface.Surface
iconViewCreateDragIcon :: a -> TreePath -> m Surface
iconViewCreateDragIcon iconView :: a
iconView path :: TreePath
path = IO Surface -> m Surface
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Surface -> m Surface) -> IO Surface -> m Surface
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr Surface
result <- Ptr IconView -> Ptr TreePath -> IO (Ptr Surface)
gtk_icon_view_create_drag_icon Ptr IconView
iconView' Ptr TreePath
path'
Text -> Ptr Surface -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "iconViewCreateDragIcon" Ptr Surface
result
Surface
result' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Surface -> IO Surface
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result'
#if defined(ENABLE_OVERLOADING)
data IconViewCreateDragIconMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Cairo.Surface.Surface), MonadIO m, IsIconView a) => O.MethodInfo IconViewCreateDragIconMethodInfo a signature where
overloadedMethod = iconViewCreateDragIcon
#endif
foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest ::
Ptr IconView ->
Ptr Gtk.TargetEntry.TargetEntry ->
Int32 ->
CUInt ->
IO ()
iconViewEnableModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> [Gtk.TargetEntry.TargetEntry]
-> [Gdk.Flags.DragAction]
-> m ()
iconViewEnableModelDragDest :: a -> [TargetEntry] -> [DragAction] -> m ()
iconViewEnableModelDragDest iconView :: a
iconView targets :: [TargetEntry]
targets actions :: [DragAction]
actions = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nTargets :: Int32
nTargets = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [TargetEntry] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [TargetEntry]
targets
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
[Ptr TargetEntry]
targets' <- (TargetEntry -> IO (Ptr TargetEntry))
-> [TargetEntry] -> IO [Ptr TargetEntry]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM TargetEntry -> IO (Ptr TargetEntry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [TargetEntry]
targets
Ptr TargetEntry
targets'' <- Int -> [Ptr TargetEntry] -> IO (Ptr TargetEntry)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray 16 [Ptr TargetEntry]
targets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr IconView -> Ptr TargetEntry -> Int32 -> CUInt -> IO ()
gtk_icon_view_enable_model_drag_dest Ptr IconView
iconView' Ptr TargetEntry
targets'' Int32
nTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
(TargetEntry -> IO ()) -> [TargetEntry] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ TargetEntry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [TargetEntry]
targets
Ptr TargetEntry -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TargetEntry
targets''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewEnableModelDragDestMethodInfo
instance (signature ~ ([Gtk.TargetEntry.TargetEntry] -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewEnableModelDragDestMethodInfo a signature where
overloadedMethod = iconViewEnableModelDragDest
#endif
foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source ::
Ptr IconView ->
CUInt ->
Ptr Gtk.TargetEntry.TargetEntry ->
Int32 ->
CUInt ->
IO ()
iconViewEnableModelDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> [Gdk.Flags.ModifierType]
-> [Gtk.TargetEntry.TargetEntry]
-> [Gdk.Flags.DragAction]
-> m ()
iconViewEnableModelDragSource :: a -> [ModifierType] -> [TargetEntry] -> [DragAction] -> m ()
iconViewEnableModelDragSource iconView :: a
iconView startButtonMask :: [ModifierType]
startButtonMask targets :: [TargetEntry]
targets actions :: [DragAction]
actions = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nTargets :: Int32
nTargets = Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [TargetEntry] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [TargetEntry]
targets
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
let startButtonMask' :: CUInt
startButtonMask' = [ModifierType] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [ModifierType]
startButtonMask
[Ptr TargetEntry]
targets' <- (TargetEntry -> IO (Ptr TargetEntry))
-> [TargetEntry] -> IO [Ptr TargetEntry]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM TargetEntry -> IO (Ptr TargetEntry)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [TargetEntry]
targets
Ptr TargetEntry
targets'' <- Int -> [Ptr TargetEntry] -> IO (Ptr TargetEntry)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray 16 [Ptr TargetEntry]
targets'
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr IconView -> CUInt -> Ptr TargetEntry -> Int32 -> CUInt -> IO ()
gtk_icon_view_enable_model_drag_source Ptr IconView
iconView' CUInt
startButtonMask' Ptr TargetEntry
targets'' Int32
nTargets CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
(TargetEntry -> IO ()) -> [TargetEntry] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ TargetEntry -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [TargetEntry]
targets
Ptr TargetEntry -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr TargetEntry
targets''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewEnableModelDragSourceMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> [Gtk.TargetEntry.TargetEntry] -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewEnableModelDragSourceMethodInfo a signature where
overloadedMethod = iconViewEnableModelDragSource
#endif
foreign import ccall "gtk_icon_view_get_activate_on_single_click" gtk_icon_view_get_activate_on_single_click ::
Ptr IconView ->
IO CInt
iconViewGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Bool
iconViewGetActivateOnSingleClick :: a -> m Bool
iconViewGetActivateOnSingleClick iconView :: a
iconView = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IconViewActivateCursorItemCallback -> m Bool)
-> IconViewActivateCursorItemCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
CInt
result <- Ptr IconView -> IO CInt
gtk_icon_view_get_activate_on_single_click Ptr IconView
iconView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Bool -> IconViewActivateCursorItemCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IconViewGetActivateOnSingleClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = iconViewGetActivateOnSingleClick
#endif
foreign import ccall "gtk_icon_view_get_cell_rect" gtk_icon_view_get_cell_rect ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Gdk.Rectangle.Rectangle ->
IO CInt
iconViewGetCellRect ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> m ((Bool, Gdk.Rectangle.Rectangle))
iconViewGetCellRect :: a -> TreePath -> Maybe b -> m (Bool, Rectangle)
iconViewGetCellRect iconView :: a
iconView path :: TreePath
path cell :: Maybe b
cell = IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Rectangle) -> m (Bool, Rectangle))
-> IO (Bool, Rectangle) -> m (Bool, Rectangle)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr CellRenderer
maybeCell <- case Maybe b
cell of
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just jCell :: b
jCell -> do
Ptr CellRenderer
jCell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCell
Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
jCell'
Ptr Rectangle
rect <- Int -> IO (Ptr Rectangle)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
CInt
result <- Ptr IconView
-> Ptr TreePath -> Ptr CellRenderer -> Ptr Rectangle -> IO CInt
gtk_icon_view_get_cell_rect Ptr IconView
iconView' Ptr TreePath
path' Ptr CellRenderer
maybeCell Ptr Rectangle
rect
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
rect
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cell b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
(Bool, Rectangle) -> IO (Bool, Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Rectangle
rect')
#if defined(ENABLE_OVERLOADING)
data IconViewGetCellRectMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (b) -> m ((Bool, Gdk.Rectangle.Rectangle))), MonadIO m, IsIconView a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo IconViewGetCellRectMethodInfo a signature where
overloadedMethod = iconViewGetCellRect
#endif
foreign import ccall "gtk_icon_view_get_column_spacing" gtk_icon_view_get_column_spacing ::
Ptr IconView ->
IO Int32
iconViewGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetColumnSpacing :: a -> m Int32
iconViewGetColumnSpacing iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_column_spacing Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetColumnSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetColumnSpacingMethodInfo a signature where
overloadedMethod = iconViewGetColumnSpacing
#endif
foreign import ccall "gtk_icon_view_get_columns" gtk_icon_view_get_columns ::
Ptr IconView ->
IO Int32
iconViewGetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetColumns :: a -> m Int32
iconViewGetColumns iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_columns Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetColumnsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetColumnsMethodInfo a signature where
overloadedMethod = iconViewGetColumns
#endif
foreign import ccall "gtk_icon_view_get_cursor" gtk_icon_view_get_cursor ::
Ptr IconView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.CellRenderer.CellRenderer) ->
IO CInt
iconViewGetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.CellRenderer.CellRenderer))
iconViewGetCursor :: a -> m (Bool, TreePath, CellRenderer)
iconViewGetCursor iconView :: a
iconView = IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer))
-> IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr CellRenderer)
cell <- IO (Ptr (Ptr CellRenderer))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.CellRenderer.CellRenderer))
CInt
result <- Ptr IconView
-> Ptr (Ptr TreePath) -> Ptr (Ptr CellRenderer) -> IO CInt
gtk_icon_view_get_cursor Ptr IconView
iconView' Ptr (Ptr TreePath)
path Ptr (Ptr CellRenderer)
cell
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
Ptr CellRenderer
cell' <- Ptr (Ptr CellRenderer) -> IO (Ptr CellRenderer)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CellRenderer)
cell
CellRenderer
cell'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr (Ptr CellRenderer) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CellRenderer)
cell
(Bool, TreePath, CellRenderer) -> IO (Bool, TreePath, CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreePath
path'', CellRenderer
cell'')
#if defined(ENABLE_OVERLOADING)
data IconViewGetCursorMethodInfo
instance (signature ~ (m ((Bool, Gtk.TreePath.TreePath, Gtk.CellRenderer.CellRenderer))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetCursorMethodInfo a signature where
overloadedMethod = iconViewGetCursor
#endif
foreign import ccall "gtk_icon_view_get_dest_item_at_pos" gtk_icon_view_get_dest_item_at_pos ::
Ptr IconView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO CInt
iconViewGetDestItemAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.Enums.IconViewDropPosition))
iconViewGetDestItemAtPos :: a -> Int32 -> Int32 -> m (Bool, TreePath, IconViewDropPosition)
iconViewGetDestItemAtPos iconView :: a
iconView dragX :: Int32
dragX dragY :: Int32
dragY = IO (Bool, TreePath, IconViewDropPosition)
-> m (Bool, TreePath, IconViewDropPosition)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreePath, IconViewDropPosition)
-> m (Bool, TreePath, IconViewDropPosition))
-> IO (Bool, TreePath, IconViewDropPosition)
-> m (Bool, TreePath, IconViewDropPosition)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr CUInt
pos <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr IconView
-> Int32 -> Int32 -> Ptr (Ptr TreePath) -> Ptr CUInt -> IO CInt
gtk_icon_view_get_dest_item_at_pos Ptr IconView
iconView' Int32
dragX Int32
dragY Ptr (Ptr TreePath)
path Ptr CUInt
pos
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
CUInt
pos' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pos
let pos'' :: IconViewDropPosition
pos'' = (Int -> IconViewDropPosition
forall a. Enum a => Int -> a
toEnum (Int -> IconViewDropPosition)
-> (CUInt -> Int) -> CUInt -> IconViewDropPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
pos
(Bool, TreePath, IconViewDropPosition)
-> IO (Bool, TreePath, IconViewDropPosition)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreePath
path'', IconViewDropPosition
pos'')
#if defined(ENABLE_OVERLOADING)
data IconViewGetDestItemAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Bool, Gtk.TreePath.TreePath, Gtk.Enums.IconViewDropPosition))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetDestItemAtPosMethodInfo a signature where
overloadedMethod = iconViewGetDestItemAtPos
#endif
foreign import ccall "gtk_icon_view_get_drag_dest_item" gtk_icon_view_get_drag_dest_item ::
Ptr IconView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr CUInt ->
IO ()
iconViewGetDragDestItem ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ((Gtk.TreePath.TreePath, Gtk.Enums.IconViewDropPosition))
iconViewGetDragDestItem :: a -> m (TreePath, IconViewDropPosition)
iconViewGetDragDestItem iconView :: a
iconView = IO (TreePath, IconViewDropPosition)
-> m (TreePath, IconViewDropPosition)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TreePath, IconViewDropPosition)
-> m (TreePath, IconViewDropPosition))
-> IO (TreePath, IconViewDropPosition)
-> m (TreePath, IconViewDropPosition)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr CUInt
pos <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr IconView -> Ptr (Ptr TreePath) -> Ptr CUInt -> IO ()
gtk_icon_view_get_drag_dest_item Ptr IconView
iconView' Ptr (Ptr TreePath)
path Ptr CUInt
pos
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
CUInt
pos' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
pos
let pos'' :: IconViewDropPosition
pos'' = (Int -> IconViewDropPosition
forall a. Enum a => Int -> a
toEnum (Int -> IconViewDropPosition)
-> (CUInt -> Int) -> CUInt -> IconViewDropPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
pos
(TreePath, IconViewDropPosition)
-> IO (TreePath, IconViewDropPosition)
forall (m :: * -> *) a. Monad m => a -> m a
return (TreePath
path'', IconViewDropPosition
pos'')
#if defined(ENABLE_OVERLOADING)
data IconViewGetDragDestItemMethodInfo
instance (signature ~ (m ((Gtk.TreePath.TreePath, Gtk.Enums.IconViewDropPosition))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetDragDestItemMethodInfo a signature where
overloadedMethod = iconViewGetDragDestItem
#endif
foreign import ccall "gtk_icon_view_get_item_at_pos" gtk_icon_view_get_item_at_pos ::
Ptr IconView ->
Int32 ->
Int32 ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.CellRenderer.CellRenderer) ->
IO CInt
iconViewGetItemAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.CellRenderer.CellRenderer))
iconViewGetItemAtPos :: a -> Int32 -> Int32 -> m (Bool, TreePath, CellRenderer)
iconViewGetItemAtPos iconView :: a
iconView x :: Int32
x y :: Int32
y = IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer))
-> IO (Bool, TreePath, CellRenderer)
-> m (Bool, TreePath, CellRenderer)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr CellRenderer)
cell <- IO (Ptr (Ptr CellRenderer))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.CellRenderer.CellRenderer))
CInt
result <- Ptr IconView
-> Int32
-> Int32
-> Ptr (Ptr TreePath)
-> Ptr (Ptr CellRenderer)
-> IO CInt
gtk_icon_view_get_item_at_pos Ptr IconView
iconView' Int32
x Int32
y Ptr (Ptr TreePath)
path Ptr (Ptr CellRenderer)
cell
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
Ptr CellRenderer
cell' <- Ptr (Ptr CellRenderer) -> IO (Ptr CellRenderer)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr CellRenderer)
cell
CellRenderer
cell'' <- ((ManagedPtr CellRenderer -> CellRenderer)
-> Ptr CellRenderer -> IO CellRenderer
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr CellRenderer -> CellRenderer
Gtk.CellRenderer.CellRenderer) Ptr CellRenderer
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
Ptr (Ptr CellRenderer) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr CellRenderer)
cell
(Bool, TreePath, CellRenderer) -> IO (Bool, TreePath, CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreePath
path'', CellRenderer
cell'')
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ((Bool, Gtk.TreePath.TreePath, Gtk.CellRenderer.CellRenderer))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemAtPosMethodInfo a signature where
overloadedMethod = iconViewGetItemAtPos
#endif
foreign import ccall "gtk_icon_view_get_item_column" gtk_icon_view_get_item_column ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO Int32
iconViewGetItemColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m Int32
iconViewGetItemColumn :: a -> TreePath -> m Int32
iconViewGetItemColumn iconView :: a
iconView path :: TreePath
path = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Int32
result <- Ptr IconView -> Ptr TreePath -> IO Int32
gtk_icon_view_get_item_column Ptr IconView
iconView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemColumnMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemColumnMethodInfo a signature where
overloadedMethod = iconViewGetItemColumn
#endif
foreign import ccall "gtk_icon_view_get_item_orientation" gtk_icon_view_get_item_orientation ::
Ptr IconView ->
IO CUInt
iconViewGetItemOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Gtk.Enums.Orientation
iconViewGetItemOrientation :: a -> m Orientation
iconViewGetItemOrientation iconView :: a
iconView = IO Orientation -> m Orientation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Orientation -> m Orientation)
-> IO Orientation -> m Orientation
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
CUInt
result <- Ptr IconView -> IO CUInt
gtk_icon_view_get_item_orientation Ptr IconView
iconView'
let result' :: Orientation
result' = (Int -> Orientation
forall a. Enum a => Int -> a
toEnum (Int -> Orientation) -> (CUInt -> Int) -> CUInt -> Orientation
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Orientation -> IO Orientation
forall (m :: * -> *) a. Monad m => a -> m a
return Orientation
result'
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemOrientationMethodInfo
instance (signature ~ (m Gtk.Enums.Orientation), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemOrientationMethodInfo a signature where
overloadedMethod = iconViewGetItemOrientation
#endif
foreign import ccall "gtk_icon_view_get_item_padding" gtk_icon_view_get_item_padding ::
Ptr IconView ->
IO Int32
iconViewGetItemPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetItemPadding :: a -> m Int32
iconViewGetItemPadding iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_item_padding Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemPaddingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemPaddingMethodInfo a signature where
overloadedMethod = iconViewGetItemPadding
#endif
foreign import ccall "gtk_icon_view_get_item_row" gtk_icon_view_get_item_row ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO Int32
iconViewGetItemRow ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m Int32
iconViewGetItemRow :: a -> TreePath -> m Int32
iconViewGetItemRow iconView :: a
iconView path :: TreePath
path = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Int32
result <- Ptr IconView -> Ptr TreePath -> IO Int32
gtk_icon_view_get_item_row Ptr IconView
iconView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemRowMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemRowMethodInfo a signature where
overloadedMethod = iconViewGetItemRow
#endif
foreign import ccall "gtk_icon_view_get_item_width" gtk_icon_view_get_item_width ::
Ptr IconView ->
IO Int32
iconViewGetItemWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetItemWidth :: a -> m Int32
iconViewGetItemWidth iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_item_width Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetItemWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetItemWidthMethodInfo a signature where
overloadedMethod = iconViewGetItemWidth
#endif
foreign import ccall "gtk_icon_view_get_margin" gtk_icon_view_get_margin ::
Ptr IconView ->
IO Int32
iconViewGetMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetMargin :: a -> m Int32
iconViewGetMargin iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_margin Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetMarginMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetMarginMethodInfo a signature where
overloadedMethod = iconViewGetMargin
#endif
foreign import ccall "gtk_icon_view_get_markup_column" gtk_icon_view_get_markup_column ::
Ptr IconView ->
IO Int32
iconViewGetMarkupColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetMarkupColumn :: a -> m Int32
iconViewGetMarkupColumn iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_markup_column Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetMarkupColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetMarkupColumnMethodInfo a signature where
overloadedMethod = iconViewGetMarkupColumn
#endif
foreign import ccall "gtk_icon_view_get_model" gtk_icon_view_get_model ::
Ptr IconView ->
IO (Ptr Gtk.TreeModel.TreeModel)
iconViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
iconViewGetModel :: a -> m (Maybe TreeModel)
iconViewGetModel iconView :: a
iconView = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreeModel) -> m (Maybe TreeModel))
-> IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreeModel
result <- Ptr IconView -> IO (Ptr TreeModel)
gtk_icon_view_get_model Ptr IconView
iconView'
Maybe TreeModel
maybeResult <- Ptr TreeModel
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreeModel
result ((Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel))
-> (Ptr TreeModel -> IO TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr TreeModel
result' -> do
TreeModel
result'' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
result'
TreeModel -> IO TreeModel
forall (m :: * -> *) a. Monad m => a -> m a
return TreeModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Maybe TreeModel -> IO (Maybe TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data IconViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetModelMethodInfo a signature where
overloadedMethod = iconViewGetModel
#endif
foreign import ccall "gtk_icon_view_get_path_at_pos" gtk_icon_view_get_path_at_pos ::
Ptr IconView ->
Int32 ->
Int32 ->
IO (Ptr Gtk.TreePath.TreePath)
iconViewGetPathAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> m (Maybe Gtk.TreePath.TreePath)
iconViewGetPathAtPos :: a -> Int32 -> Int32 -> m (Maybe TreePath)
iconViewGetPathAtPos iconView :: a
iconView x :: Int32
x y :: Int32
y = IO (Maybe TreePath) -> m (Maybe TreePath)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe TreePath) -> m (Maybe TreePath))
-> IO (Maybe TreePath) -> m (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
result <- Ptr IconView -> Int32 -> Int32 -> IO (Ptr TreePath)
gtk_icon_view_get_path_at_pos Ptr IconView
iconView' Int32
x Int32
y
Maybe TreePath
maybeResult <- Ptr TreePath
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr TreePath
result ((Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath))
-> (Ptr TreePath -> IO TreePath) -> IO (Maybe TreePath)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr TreePath
result' -> do
TreePath
result'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
result'
TreePath -> IO TreePath
forall (m :: * -> *) a. Monad m => a -> m a
return TreePath
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Maybe TreePath -> IO (Maybe TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreePath
maybeResult
#if defined(ENABLE_OVERLOADING)
data IconViewGetPathAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Maybe Gtk.TreePath.TreePath)), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetPathAtPosMethodInfo a signature where
overloadedMethod = iconViewGetPathAtPos
#endif
foreign import ccall "gtk_icon_view_get_pixbuf_column" gtk_icon_view_get_pixbuf_column ::
Ptr IconView ->
IO Int32
iconViewGetPixbufColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetPixbufColumn :: a -> m Int32
iconViewGetPixbufColumn iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_pixbuf_column Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetPixbufColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetPixbufColumnMethodInfo a signature where
overloadedMethod = iconViewGetPixbufColumn
#endif
foreign import ccall "gtk_icon_view_get_reorderable" gtk_icon_view_get_reorderable ::
Ptr IconView ->
IO CInt
iconViewGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Bool
iconViewGetReorderable :: a -> m Bool
iconViewGetReorderable iconView :: a
iconView = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IconViewActivateCursorItemCallback -> m Bool)
-> IconViewActivateCursorItemCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
CInt
result <- Ptr IconView -> IO CInt
gtk_icon_view_get_reorderable Ptr IconView
iconView'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Bool -> IconViewActivateCursorItemCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IconViewGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetReorderableMethodInfo a signature where
overloadedMethod = iconViewGetReorderable
#endif
foreign import ccall "gtk_icon_view_get_row_spacing" gtk_icon_view_get_row_spacing ::
Ptr IconView ->
IO Int32
iconViewGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetRowSpacing :: a -> m Int32
iconViewGetRowSpacing iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_row_spacing Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetRowSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetRowSpacingMethodInfo a signature where
overloadedMethod = iconViewGetRowSpacing
#endif
foreign import ccall "gtk_icon_view_get_selected_items" gtk_icon_view_get_selected_items ::
Ptr IconView ->
IO (Ptr (GList (Ptr Gtk.TreePath.TreePath)))
iconViewGetSelectedItems ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m [Gtk.TreePath.TreePath]
iconViewGetSelectedItems :: a -> m [TreePath]
iconViewGetSelectedItems iconView :: a
iconView = IO [TreePath] -> m [TreePath]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TreePath] -> m [TreePath]) -> IO [TreePath] -> m [TreePath]
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (GList (Ptr TreePath))
result <- Ptr IconView -> IO (Ptr (GList (Ptr TreePath)))
gtk_icon_view_get_selected_items Ptr IconView
iconView'
[Ptr TreePath]
result' <- Ptr (GList (Ptr TreePath)) -> IO [Ptr TreePath]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr TreePath))
result
[TreePath]
result'' <- (Ptr TreePath -> IO TreePath) -> [Ptr TreePath] -> IO [TreePath]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) [Ptr TreePath]
result'
Ptr (GList (Ptr TreePath)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr TreePath))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
[TreePath] -> IO [TreePath]
forall (m :: * -> *) a. Monad m => a -> m a
return [TreePath]
result''
#if defined(ENABLE_OVERLOADING)
data IconViewGetSelectedItemsMethodInfo
instance (signature ~ (m [Gtk.TreePath.TreePath]), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetSelectedItemsMethodInfo a signature where
overloadedMethod = iconViewGetSelectedItems
#endif
foreign import ccall "gtk_icon_view_get_selection_mode" gtk_icon_view_get_selection_mode ::
Ptr IconView ->
IO CUInt
iconViewGetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Gtk.Enums.SelectionMode
iconViewGetSelectionMode :: a -> m SelectionMode
iconViewGetSelectionMode iconView :: a
iconView = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
CUInt
result <- Ptr IconView -> IO CUInt
gtk_icon_view_get_selection_mode Ptr IconView
iconView'
let result' :: SelectionMode
result' = (Int -> SelectionMode
forall a. Enum a => Int -> a
toEnum (Int -> SelectionMode) -> (CUInt -> Int) -> CUInt -> SelectionMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
SelectionMode -> IO SelectionMode
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionMode
result'
#if defined(ENABLE_OVERLOADING)
data IconViewGetSelectionModeMethodInfo
instance (signature ~ (m Gtk.Enums.SelectionMode), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetSelectionModeMethodInfo a signature where
overloadedMethod = iconViewGetSelectionMode
#endif
foreign import ccall "gtk_icon_view_get_spacing" gtk_icon_view_get_spacing ::
Ptr IconView ->
IO Int32
iconViewGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetSpacing :: a -> m Int32
iconViewGetSpacing iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_spacing Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetSpacingMethodInfo a signature where
overloadedMethod = iconViewGetSpacing
#endif
foreign import ccall "gtk_icon_view_get_text_column" gtk_icon_view_get_text_column ::
Ptr IconView ->
IO Int32
iconViewGetTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetTextColumn :: a -> m Int32
iconViewGetTextColumn iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_text_column Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetTextColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetTextColumnMethodInfo a signature where
overloadedMethod = iconViewGetTextColumn
#endif
foreign import ccall "gtk_icon_view_get_tooltip_column" gtk_icon_view_get_tooltip_column ::
Ptr IconView ->
IO Int32
iconViewGetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m Int32
iconViewGetTooltipColumn :: a -> m Int32
iconViewGetTooltipColumn iconView :: a
iconView = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Int32
result <- Ptr IconView -> IO Int32
gtk_icon_view_get_tooltip_column Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data IconViewGetTooltipColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetTooltipColumnMethodInfo a signature where
overloadedMethod = iconViewGetTooltipColumn
#endif
foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context ::
Ptr IconView ->
Ptr Int32 ->
Ptr Int32 ->
CInt ->
Ptr (Ptr Gtk.TreeModel.TreeModel) ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr Gtk.TreeIter.TreeIter ->
IO CInt
iconViewGetTooltipContext ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> Bool
-> m ((Bool, Int32, Int32, Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))
iconViewGetTooltipContext :: a
-> Int32
-> Int32
-> Bool
-> m (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
iconViewGetTooltipContext iconView :: a
iconView x :: Int32
x y :: Int32
y keyboardTip :: Bool
keyboardTip = IO (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, TreeModel, TreePath, TreeIter))
-> IO (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
-> m (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr Int32
x' <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
x' Int32
x
Ptr Int32
y' <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
y' Int32
y
let keyboardTip' :: CInt
keyboardTip' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
keyboardTip
Ptr (Ptr TreeModel)
model <- IO (Ptr (Ptr TreeModel))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel))
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr TreeIter
iter <- Int -> IO (Ptr TreeIter)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter)
CInt
result <- Ptr IconView
-> Ptr Int32
-> Ptr Int32
-> CInt
-> Ptr (Ptr TreeModel)
-> Ptr (Ptr TreePath)
-> Ptr TreeIter
-> IO CInt
gtk_icon_view_get_tooltip_context Ptr IconView
iconView' Ptr Int32
x' Ptr Int32
y' CInt
keyboardTip' Ptr (Ptr TreeModel)
model Ptr (Ptr TreePath)
path Ptr TreeIter
iter
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Int32
x'' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x'
Int32
y'' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y'
Ptr TreeModel
model' <- Ptr (Ptr TreeModel) -> IO (Ptr TreeModel)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreeModel)
model
TreeModel
model'' <- ((ManagedPtr TreeModel -> TreeModel)
-> Ptr TreeModel -> IO TreeModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel) Ptr TreeModel
model'
Ptr TreePath
path' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
path
TreePath
path'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
path'
TreeIter
iter' <- ((ManagedPtr TreeIter -> TreeIter) -> Ptr TreeIter -> IO TreeIter
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreeIter -> TreeIter
Gtk.TreeIter.TreeIter) Ptr TreeIter
iter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x'
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y'
Ptr (Ptr TreeModel) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreeModel)
model
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
path
(Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
-> IO (Bool, Int32, Int32, TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
x'', Int32
y'', TreeModel
model'', TreePath
path'', TreeIter
iter')
#if defined(ENABLE_OVERLOADING)
data IconViewGetTooltipContextMethodInfo
instance (signature ~ (Int32 -> Int32 -> Bool -> m ((Bool, Int32, Int32, Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetTooltipContextMethodInfo a signature where
overloadedMethod = iconViewGetTooltipContext
#endif
foreign import ccall "gtk_icon_view_get_visible_range" gtk_icon_view_get_visible_range ::
Ptr IconView ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
Ptr (Ptr Gtk.TreePath.TreePath) ->
IO CInt
iconViewGetVisibleRange ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))
iconViewGetVisibleRange :: a -> m (Bool, TreePath, TreePath)
iconViewGetVisibleRange iconView :: a
iconView = IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath))
-> IO (Bool, TreePath, TreePath) -> m (Bool, TreePath, TreePath)
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr (Ptr TreePath)
startPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreePath)
endPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
CInt
result <- Ptr IconView -> Ptr (Ptr TreePath) -> Ptr (Ptr TreePath) -> IO CInt
gtk_icon_view_get_visible_range Ptr IconView
iconView' Ptr (Ptr TreePath)
startPath Ptr (Ptr TreePath)
endPath
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr TreePath
startPath' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
startPath
TreePath
startPath'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
startPath'
Ptr TreePath
endPath' <- Ptr (Ptr TreePath) -> IO (Ptr TreePath)
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr TreePath)
endPath
TreePath
endPath'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr TreePath -> TreePath
Gtk.TreePath.TreePath) Ptr TreePath
endPath'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
startPath
Ptr (Ptr TreePath) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr TreePath)
endPath
(Bool, TreePath, TreePath) -> IO (Bool, TreePath, TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreePath
startPath'', TreePath
endPath'')
#if defined(ENABLE_OVERLOADING)
data IconViewGetVisibleRangeMethodInfo
instance (signature ~ (m ((Bool, Gtk.TreePath.TreePath, Gtk.TreePath.TreePath))), MonadIO m, IsIconView a) => O.MethodInfo IconViewGetVisibleRangeMethodInfo a signature where
overloadedMethod = iconViewGetVisibleRange
#endif
foreign import ccall "gtk_icon_view_item_activated" gtk_icon_view_item_activated ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
iconViewItemActivated ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
iconViewItemActivated :: a -> TreePath -> m ()
iconViewItemActivated iconView :: a
iconView path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr IconView -> Ptr TreePath -> IO ()
gtk_icon_view_item_activated Ptr IconView
iconView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewItemActivatedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewItemActivatedMethodInfo a signature where
overloadedMethod = iconViewItemActivated
#endif
foreign import ccall "gtk_icon_view_path_is_selected" gtk_icon_view_path_is_selected ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO CInt
iconViewPathIsSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m Bool
iconViewPathIsSelected :: a -> TreePath -> m Bool
iconViewPathIsSelected iconView :: a
iconView path :: TreePath
path = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IconViewActivateCursorItemCallback -> m Bool)
-> IconViewActivateCursorItemCallback -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
CInt
result <- Ptr IconView -> Ptr TreePath -> IO CInt
gtk_icon_view_path_is_selected Ptr IconView
iconView' Ptr TreePath
path'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Bool -> IconViewActivateCursorItemCallback
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IconViewPathIsSelectedMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Bool), MonadIO m, IsIconView a) => O.MethodInfo IconViewPathIsSelectedMethodInfo a signature where
overloadedMethod = iconViewPathIsSelected
#endif
foreign import ccall "gtk_icon_view_scroll_to_path" gtk_icon_view_scroll_to_path ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
CInt ->
CFloat ->
CFloat ->
IO ()
iconViewScrollToPath ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> Bool
-> Float
-> Float
-> m ()
iconViewScrollToPath :: a -> TreePath -> Bool -> Float -> Float -> m ()
iconViewScrollToPath iconView :: a
iconView path :: TreePath
path useAlign :: Bool
useAlign rowAlign :: Float
rowAlign colAlign :: Float
colAlign = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
let useAlign' :: CInt
useAlign' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
useAlign
let rowAlign' :: CFloat
rowAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
rowAlign
let colAlign' :: CFloat
colAlign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
colAlign
Ptr IconView -> Ptr TreePath -> CInt -> CFloat -> CFloat -> IO ()
gtk_icon_view_scroll_to_path Ptr IconView
iconView' Ptr TreePath
path' CInt
useAlign' CFloat
rowAlign' CFloat
colAlign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewScrollToPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Bool -> Float -> Float -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewScrollToPathMethodInfo a signature where
overloadedMethod = iconViewScrollToPath
#endif
foreign import ccall "gtk_icon_view_select_all" gtk_icon_view_select_all ::
Ptr IconView ->
IO ()
iconViewSelectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ()
iconViewSelectAll :: a -> m ()
iconViewSelectAll iconView :: a
iconView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> IO ()
gtk_icon_view_select_all Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSelectAllMethodInfo a signature where
overloadedMethod = iconViewSelectAll
#endif
foreign import ccall "gtk_icon_view_select_path" gtk_icon_view_select_path ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
iconViewSelectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
iconViewSelectPath :: a -> TreePath -> m ()
iconViewSelectPath iconView :: a
iconView path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr IconView -> Ptr TreePath -> IO ()
gtk_icon_view_select_path Ptr IconView
iconView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSelectPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSelectPathMethodInfo a signature where
overloadedMethod = iconViewSelectPath
#endif
foreign import ccall "gtk_icon_view_selected_foreach" gtk_icon_view_selected_foreach ::
Ptr IconView ->
FunPtr Gtk.Callbacks.C_IconViewForeachFunc ->
Ptr () ->
IO ()
iconViewSelectedForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.Callbacks.IconViewForeachFunc
-> m ()
iconViewSelectedForeach :: a -> IconViewForeachFunc -> m ()
iconViewSelectedForeach iconView :: a
iconView func :: IconViewForeachFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
FunPtr C_IconViewForeachFunc
func' <- C_IconViewForeachFunc -> IO (FunPtr C_IconViewForeachFunc)
Gtk.Callbacks.mk_IconViewForeachFunc (Maybe (Ptr (FunPtr C_IconViewForeachFunc))
-> IconViewForeachFunc_WithClosures -> C_IconViewForeachFunc
Gtk.Callbacks.wrap_IconViewForeachFunc Maybe (Ptr (FunPtr C_IconViewForeachFunc))
forall a. Maybe a
Nothing (IconViewForeachFunc -> IconViewForeachFunc_WithClosures
Gtk.Callbacks.drop_closures_IconViewForeachFunc IconViewForeachFunc
func))
let data_ :: Ptr a
data_ = Ptr a
forall a. Ptr a
nullPtr
Ptr IconView -> FunPtr C_IconViewForeachFunc -> Ptr () -> IO ()
gtk_icon_view_selected_foreach Ptr IconView
iconView' FunPtr C_IconViewForeachFunc
func' Ptr ()
forall a. Ptr a
data_
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_IconViewForeachFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_IconViewForeachFunc
func'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSelectedForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.IconViewForeachFunc -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSelectedForeachMethodInfo a signature where
overloadedMethod = iconViewSelectedForeach
#endif
foreign import ccall "gtk_icon_view_set_activate_on_single_click" gtk_icon_view_set_activate_on_single_click ::
Ptr IconView ->
CInt ->
IO ()
iconViewSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Bool
-> m ()
iconViewSetActivateOnSingleClick :: a -> Bool -> m ()
iconViewSetActivateOnSingleClick iconView :: a
iconView single :: Bool
single = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
let single' :: CInt
single' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
single
Ptr IconView -> CInt -> IO ()
gtk_icon_view_set_activate_on_single_click Ptr IconView
iconView' CInt
single'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = iconViewSetActivateOnSingleClick
#endif
foreign import ccall "gtk_icon_view_set_column_spacing" gtk_icon_view_set_column_spacing ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetColumnSpacing :: a -> Int32 -> m ()
iconViewSetColumnSpacing iconView :: a
iconView columnSpacing :: Int32
columnSpacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_column_spacing Ptr IconView
iconView' Int32
columnSpacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetColumnSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetColumnSpacingMethodInfo a signature where
overloadedMethod = iconViewSetColumnSpacing
#endif
foreign import ccall "gtk_icon_view_set_columns" gtk_icon_view_set_columns ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetColumns :: a -> Int32 -> m ()
iconViewSetColumns iconView :: a
iconView columns :: Int32
columns = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_columns Ptr IconView
iconView' Int32
columns
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetColumnsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetColumnsMethodInfo a signature where
overloadedMethod = iconViewSetColumns
#endif
foreign import ccall "gtk_icon_view_set_cursor" gtk_icon_view_set_cursor ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
iconViewSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> Gtk.TreePath.TreePath
-> Maybe (b)
-> Bool
-> m ()
iconViewSetCursor :: a -> TreePath -> Maybe b -> Bool -> m ()
iconViewSetCursor iconView :: a
iconView path :: TreePath
path cell :: Maybe b
cell startEditing :: Bool
startEditing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr CellRenderer
maybeCell <- case Maybe b
cell of
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just jCell :: b
jCell -> do
Ptr CellRenderer
jCell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCell
Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
jCell'
let startEditing' :: CInt
startEditing' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
startEditing
Ptr IconView -> Ptr TreePath -> Ptr CellRenderer -> CInt -> IO ()
gtk_icon_view_set_cursor Ptr IconView
iconView' Ptr TreePath
path' Ptr CellRenderer
maybeCell CInt
startEditing'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cell b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetCursorMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (b) -> Bool -> m ()), MonadIO m, IsIconView a, Gtk.CellRenderer.IsCellRenderer b) => O.MethodInfo IconViewSetCursorMethodInfo a signature where
overloadedMethod = iconViewSetCursor
#endif
foreign import ccall "gtk_icon_view_set_drag_dest_item" gtk_icon_view_set_drag_dest_item ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
CUInt ->
IO ()
iconViewSetDragDestItem ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Maybe (Gtk.TreePath.TreePath)
-> Gtk.Enums.IconViewDropPosition
-> m ()
iconViewSetDragDestItem :: a -> Maybe TreePath -> IconViewDropPosition -> m ()
iconViewSetDragDestItem iconView :: a
iconView path :: Maybe TreePath
path pos :: IconViewDropPosition
pos = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
maybePath <- case Maybe TreePath
path of
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just jPath :: TreePath
jPath -> do
Ptr TreePath
jPath' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
jPath
Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
jPath'
let pos' :: CUInt
pos' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (IconViewDropPosition -> Int) -> IconViewDropPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. IconViewDropPosition -> Int
forall a. Enum a => a -> Int
fromEnum) IconViewDropPosition
pos
Ptr IconView -> Ptr TreePath -> CUInt -> IO ()
gtk_icon_view_set_drag_dest_item Ptr IconView
iconView' Ptr TreePath
maybePath CUInt
pos'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Maybe TreePath -> IconViewItemActivatedCallback -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe TreePath
path IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetDragDestItemMethodInfo
instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> Gtk.Enums.IconViewDropPosition -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetDragDestItemMethodInfo a signature where
overloadedMethod = iconViewSetDragDestItem
#endif
foreign import ccall "gtk_icon_view_set_item_orientation" gtk_icon_view_set_item_orientation ::
Ptr IconView ->
CUInt ->
IO ()
iconViewSetItemOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.Enums.Orientation
-> m ()
iconViewSetItemOrientation :: a -> Orientation -> m ()
iconViewSetItemOrientation iconView :: a
iconView orientation :: Orientation
orientation = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr IconView -> CUInt -> IO ()
gtk_icon_view_set_item_orientation Ptr IconView
iconView' CUInt
orientation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetItemOrientationMethodInfo
instance (signature ~ (Gtk.Enums.Orientation -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetItemOrientationMethodInfo a signature where
overloadedMethod = iconViewSetItemOrientation
#endif
foreign import ccall "gtk_icon_view_set_item_padding" gtk_icon_view_set_item_padding ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetItemPadding ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetItemPadding :: a -> Int32 -> m ()
iconViewSetItemPadding iconView :: a
iconView itemPadding :: Int32
itemPadding = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_item_padding Ptr IconView
iconView' Int32
itemPadding
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetItemPaddingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetItemPaddingMethodInfo a signature where
overloadedMethod = iconViewSetItemPadding
#endif
foreign import ccall "gtk_icon_view_set_item_width" gtk_icon_view_set_item_width ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetItemWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetItemWidth :: a -> Int32 -> m ()
iconViewSetItemWidth iconView :: a
iconView itemWidth :: Int32
itemWidth = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_item_width Ptr IconView
iconView' Int32
itemWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetItemWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetItemWidthMethodInfo a signature where
overloadedMethod = iconViewSetItemWidth
#endif
foreign import ccall "gtk_icon_view_set_margin" gtk_icon_view_set_margin ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetMargin ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetMargin :: a -> Int32 -> m ()
iconViewSetMargin iconView :: a
iconView margin :: Int32
margin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_margin Ptr IconView
iconView' Int32
margin
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetMarginMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetMarginMethodInfo a signature where
overloadedMethod = iconViewSetMargin
#endif
foreign import ccall "gtk_icon_view_set_markup_column" gtk_icon_view_set_markup_column ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetMarkupColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetMarkupColumn :: a -> Int32 -> m ()
iconViewSetMarkupColumn iconView :: a
iconView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_markup_column Ptr IconView
iconView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetMarkupColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetMarkupColumnMethodInfo a signature where
overloadedMethod = iconViewSetMarkupColumn
#endif
foreign import ccall "gtk_icon_view_set_model" gtk_icon_view_set_model ::
Ptr IconView ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
iconViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
iconViewSetModel :: a -> Maybe b -> m ()
iconViewSetModel iconView :: a
iconView model :: Maybe b
model = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreeModel
maybeModel <- case Maybe b
model of
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
nullPtr
Just jModel :: b
jModel -> do
Ptr TreeModel
jModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
jModel'
Ptr IconView -> Ptr TreeModel -> IO ()
gtk_icon_view_set_model Ptr IconView
iconView' Ptr TreeModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsIconView a, Gtk.TreeModel.IsTreeModel b) => O.MethodInfo IconViewSetModelMethodInfo a signature where
overloadedMethod = iconViewSetModel
#endif
foreign import ccall "gtk_icon_view_set_pixbuf_column" gtk_icon_view_set_pixbuf_column ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetPixbufColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetPixbufColumn :: a -> Int32 -> m ()
iconViewSetPixbufColumn iconView :: a
iconView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_pixbuf_column Ptr IconView
iconView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetPixbufColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetPixbufColumnMethodInfo a signature where
overloadedMethod = iconViewSetPixbufColumn
#endif
foreign import ccall "gtk_icon_view_set_reorderable" gtk_icon_view_set_reorderable ::
Ptr IconView ->
CInt ->
IO ()
iconViewSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Bool
-> m ()
iconViewSetReorderable :: a -> Bool -> m ()
iconViewSetReorderable iconView :: a
iconView reorderable :: Bool
reorderable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
let reorderable' :: CInt
reorderable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
reorderable
Ptr IconView -> CInt -> IO ()
gtk_icon_view_set_reorderable Ptr IconView
iconView' CInt
reorderable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetReorderableMethodInfo a signature where
overloadedMethod = iconViewSetReorderable
#endif
foreign import ccall "gtk_icon_view_set_row_spacing" gtk_icon_view_set_row_spacing ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetRowSpacing :: a -> Int32 -> m ()
iconViewSetRowSpacing iconView :: a
iconView rowSpacing :: Int32
rowSpacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_row_spacing Ptr IconView
iconView' Int32
rowSpacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetRowSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetRowSpacingMethodInfo a signature where
overloadedMethod = iconViewSetRowSpacing
#endif
foreign import ccall "gtk_icon_view_set_selection_mode" gtk_icon_view_set_selection_mode ::
Ptr IconView ->
CUInt ->
IO ()
iconViewSetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.Enums.SelectionMode
-> m ()
iconViewSetSelectionMode :: a -> SelectionMode -> m ()
iconViewSetSelectionMode iconView :: a
iconView mode :: SelectionMode
mode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SelectionMode -> Int) -> SelectionMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SelectionMode -> Int
forall a. Enum a => a -> Int
fromEnum) SelectionMode
mode
Ptr IconView -> CUInt -> IO ()
gtk_icon_view_set_selection_mode Ptr IconView
iconView' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetSelectionModeMethodInfo
instance (signature ~ (Gtk.Enums.SelectionMode -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetSelectionModeMethodInfo a signature where
overloadedMethod = iconViewSetSelectionMode
#endif
foreign import ccall "gtk_icon_view_set_spacing" gtk_icon_view_set_spacing ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetSpacing :: a -> Int32 -> m ()
iconViewSetSpacing iconView :: a
iconView spacing :: Int32
spacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_spacing Ptr IconView
iconView' Int32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetSpacingMethodInfo a signature where
overloadedMethod = iconViewSetSpacing
#endif
foreign import ccall "gtk_icon_view_set_text_column" gtk_icon_view_set_text_column ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetTextColumn :: a -> Int32 -> m ()
iconViewSetTextColumn iconView :: a
iconView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_text_column Ptr IconView
iconView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetTextColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetTextColumnMethodInfo a signature where
overloadedMethod = iconViewSetTextColumn
#endif
foreign import ccall "gtk_icon_view_set_tooltip_cell" gtk_icon_view_set_tooltip_cell ::
Ptr IconView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
iconViewSetTooltipCell ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a, Gtk.Tooltip.IsTooltip b, Gtk.CellRenderer.IsCellRenderer c) =>
a
-> b
-> Gtk.TreePath.TreePath
-> Maybe (c)
-> m ()
iconViewSetTooltipCell :: a -> b -> TreePath -> Maybe c -> m ()
iconViewSetTooltipCell iconView :: a
iconView tooltip :: b
tooltip path :: TreePath
path cell :: Maybe c
cell = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr CellRenderer
maybeCell <- case Maybe c
cell of
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just jCell :: c
jCell -> do
Ptr CellRenderer
jCell' <- c -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCell
Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
jCell'
Ptr IconView
-> Ptr Tooltip -> Ptr TreePath -> Ptr CellRenderer -> IO ()
gtk_icon_view_set_tooltip_cell Ptr IconView
iconView' Ptr Tooltip
tooltip' Ptr TreePath
path' Ptr CellRenderer
maybeCell
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cell c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetTooltipCellMethodInfo
instance (signature ~ (b -> Gtk.TreePath.TreePath -> Maybe (c) -> m ()), MonadIO m, IsIconView a, Gtk.Tooltip.IsTooltip b, Gtk.CellRenderer.IsCellRenderer c) => O.MethodInfo IconViewSetTooltipCellMethodInfo a signature where
overloadedMethod = iconViewSetTooltipCell
#endif
foreign import ccall "gtk_icon_view_set_tooltip_column" gtk_icon_view_set_tooltip_column ::
Ptr IconView ->
Int32 ->
IO ()
iconViewSetTooltipColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> m ()
iconViewSetTooltipColumn :: a -> Int32 -> m ()
iconViewSetTooltipColumn iconView :: a
iconView column :: Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> Int32 -> IO ()
gtk_icon_view_set_tooltip_column Ptr IconView
iconView' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetTooltipColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewSetTooltipColumnMethodInfo a signature where
overloadedMethod = iconViewSetTooltipColumn
#endif
foreign import ccall "gtk_icon_view_set_tooltip_item" gtk_icon_view_set_tooltip_item ::
Ptr IconView ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr Gtk.TreePath.TreePath ->
IO ()
iconViewSetTooltipItem ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a, Gtk.Tooltip.IsTooltip b) =>
a
-> b
-> Gtk.TreePath.TreePath
-> m ()
iconViewSetTooltipItem :: a -> b -> TreePath -> m ()
iconViewSetTooltipItem iconView :: a
iconView tooltip :: b
tooltip path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr Tooltip
tooltip' <- b -> IO (Ptr Tooltip)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
tooltip
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr IconView -> Ptr Tooltip -> Ptr TreePath -> IO ()
gtk_icon_view_set_tooltip_item Ptr IconView
iconView' Ptr Tooltip
tooltip' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
tooltip
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewSetTooltipItemMethodInfo
instance (signature ~ (b -> Gtk.TreePath.TreePath -> m ()), MonadIO m, IsIconView a, Gtk.Tooltip.IsTooltip b) => O.MethodInfo IconViewSetTooltipItemMethodInfo a signature where
overloadedMethod = iconViewSetTooltipItem
#endif
foreign import ccall "gtk_icon_view_unselect_all" gtk_icon_view_unselect_all ::
Ptr IconView ->
IO ()
iconViewUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ()
iconViewUnselectAll :: a -> m ()
iconViewUnselectAll iconView :: a
iconView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> IO ()
gtk_icon_view_unselect_all Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewUnselectAllMethodInfo a signature where
overloadedMethod = iconViewUnselectAll
#endif
foreign import ccall "gtk_icon_view_unselect_path" gtk_icon_view_unselect_path ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO ()
iconViewUnselectPath ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m ()
iconViewUnselectPath :: a -> TreePath -> m ()
iconViewUnselectPath iconView :: a
iconView path :: TreePath
path = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr TreePath
path' <- TreePath -> IO (Ptr TreePath)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreePath
path
Ptr IconView -> Ptr TreePath -> IO ()
gtk_icon_view_unselect_path Ptr IconView
iconView' Ptr TreePath
path'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewUnselectPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewUnselectPathMethodInfo a signature where
overloadedMethod = iconViewUnselectPath
#endif
foreign import ccall "gtk_icon_view_unset_model_drag_dest" gtk_icon_view_unset_model_drag_dest ::
Ptr IconView ->
IO ()
iconViewUnsetModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ()
iconViewUnsetModelDragDest :: a -> m ()
iconViewUnsetModelDragDest iconView :: a
iconView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> IO ()
gtk_icon_view_unset_model_drag_dest Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewUnsetModelDragDestMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewUnsetModelDragDestMethodInfo a signature where
overloadedMethod = iconViewUnsetModelDragDest
#endif
foreign import ccall "gtk_icon_view_unset_model_drag_source" gtk_icon_view_unset_model_drag_source ::
Ptr IconView ->
IO ()
iconViewUnsetModelDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> m ()
iconViewUnsetModelDragSource :: a -> m ()
iconViewUnsetModelDragSource iconView :: a
iconView = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr IconView -> IO ()
gtk_icon_view_unset_model_drag_source Ptr IconView
iconView'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewUnsetModelDragSourceMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIconView a) => O.MethodInfo IconViewUnsetModelDragSourceMethodInfo a signature where
overloadedMethod = iconViewUnsetModelDragSource
#endif