{-# 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 ,
#if defined(ENABLE_OVERLOADING)
ResolveIconViewMethod ,
#endif
#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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Structs.ContentFormats as Gdk.ContentFormats
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.Accessible as Gtk.Accessible
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.ConstraintTarget as Gtk.ConstraintTarget
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.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
newtype IconView = IconView (SP.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)
instance SP.ManagedPtrNewtype IconView where
toManagedPtr :: IconView -> ManagedPtr IconView
toManagedPtr (IconView ManagedPtr IconView
p) = ManagedPtr IconView
p
foreign import ccall "gtk_icon_view_get_type"
c_gtk_icon_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject IconView where
glibType :: IO GType
glibType = IO GType
c_gtk_icon_view_get_type
instance B.Types.GObject IconView
class (SP.GObject o, O.IsDescendantOf IconView o) => IsIconView o
instance (SP.GObject o, O.IsDescendantOf IconView o) => IsIconView o
instance O.HasParentTypes IconView
type instance O.ParentTypes IconView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Scrollable.Scrollable]
toIconView :: (MIO.MonadIO m, IsIconView o) => o -> m IconView
toIconView :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> m IconView
toIconView = IO IconView -> m IconView
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr IconView -> IconView
IconView
instance B.GValue.IsGValue (Maybe IconView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_icon_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe IconView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe IconView
P.Nothing = Ptr GValue -> Ptr IconView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr IconView
forall a. Ptr a
FP.nullPtr :: FP.Ptr IconView)
gvalueSet_ Ptr GValue
gv (P.Just IconView
obj) = IconView -> (Ptr IconView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IconView
obj (Ptr GValue -> Ptr IconView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe IconView)
gvalueGet_ Ptr GValue
gv = do
Ptr IconView
ptr <- Ptr GValue -> IO (Ptr IconView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr IconView)
if Ptr IconView
ptr Ptr IconView -> Ptr IconView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr IconView
forall a. Ptr a
FP.nullPtr
then IconView -> Maybe IconView
forall a. a -> Maybe a
P.Just (IconView -> Maybe IconView) -> IO IconView -> IO (Maybe IconView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe IconView -> IO (Maybe IconView)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IconView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveIconViewMethod (t :: Symbol) (o :: *) :: * where
ResolveIconViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveIconViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveIconViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveIconViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveIconViewMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveIconViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveIconViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveIconViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveIconViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveIconViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveIconViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveIconViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveIconViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveIconViewMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveIconViewMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveIconViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveIconViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveIconViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveIconViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveIconViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveIconViewMethod "createDragIcon" o = IconViewCreateDragIconMethodInfo
ResolveIconViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveIconViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveIconViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveIconViewMethod "enableModelDragDest" o = IconViewEnableModelDragDestMethodInfo
ResolveIconViewMethod "enableModelDragSource" o = IconViewEnableModelDragSourceMethodInfo
ResolveIconViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveIconViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveIconViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveIconViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveIconViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveIconViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveIconViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveIconViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveIconViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveIconViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveIconViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveIconViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveIconViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveIconViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveIconViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveIconViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveIconViewMethod "itemActivated" o = IconViewItemActivatedMethodInfo
ResolveIconViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveIconViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveIconViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveIconViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveIconViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveIconViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveIconViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveIconViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveIconViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveIconViewMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo
ResolveIconViewMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo
ResolveIconViewMethod "pathIsSelected" o = IconViewPathIsSelectedMethodInfo
ResolveIconViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveIconViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveIconViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveIconViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveIconViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveIconViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveIconViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveIconViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveIconViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveIconViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveIconViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveIconViewMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveIconViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveIconViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveIconViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveIconViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveIconViewMethod "scrollToPath" o = IconViewScrollToPathMethodInfo
ResolveIconViewMethod "selectAll" o = IconViewSelectAllMethodInfo
ResolveIconViewMethod "selectPath" o = IconViewSelectPathMethodInfo
ResolveIconViewMethod "selectedForeach" o = IconViewSelectedForeachMethodInfo
ResolveIconViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveIconViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveIconViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveIconViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveIconViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveIconViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
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 "unselectAll" o = IconViewUnselectAllMethodInfo
ResolveIconViewMethod "unselectPath" o = IconViewUnselectPathMethodInfo
ResolveIconViewMethod "unsetModelDragDest" o = IconViewUnsetModelDragDestMethodInfo
ResolveIconViewMethod "unsetModelDragSource" o = IconViewUnsetModelDragSourceMethodInfo
ResolveIconViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveIconViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveIconViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveIconViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveIconViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveIconViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveIconViewMethod "getActivateOnSingleClick" o = IconViewGetActivateOnSingleClickMethodInfo
ResolveIconViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveIconViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveIconViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveIconViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveIconViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveIconViewMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveIconViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveIconViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveIconViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveIconViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveIconViewMethod "getCellRect" o = IconViewGetCellRectMethodInfo
ResolveIconViewMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveIconViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveIconViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveIconViewMethod "getColumnSpacing" o = IconViewGetColumnSpacingMethodInfo
ResolveIconViewMethod "getColumns" o = IconViewGetColumnsMethodInfo
ResolveIconViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveIconViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveIconViewMethod "getCursor" o = IconViewGetCursorMethodInfo
ResolveIconViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveIconViewMethod "getDestItemAtPos" o = IconViewGetDestItemAtPosMethodInfo
ResolveIconViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveIconViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveIconViewMethod "getDragDestItem" o = IconViewGetDragDestItemMethodInfo
ResolveIconViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveIconViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveIconViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveIconViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveIconViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveIconViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveIconViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
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 "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveIconViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveIconViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveIconViewMethod "getMargin" o = IconViewGetMarginMethodInfo
ResolveIconViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveIconViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveIconViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveIconViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveIconViewMethod "getMarkupColumn" o = IconViewGetMarkupColumnMethodInfo
ResolveIconViewMethod "getModel" o = IconViewGetModelMethodInfo
ResolveIconViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveIconViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveIconViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveIconViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveIconViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveIconViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveIconViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveIconViewMethod "getPathAtPos" o = IconViewGetPathAtPosMethodInfo
ResolveIconViewMethod "getPixbufColumn" o = IconViewGetPixbufColumnMethodInfo
ResolveIconViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveIconViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveIconViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveIconViewMethod "getRowSpacing" o = IconViewGetRowSpacingMethodInfo
ResolveIconViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveIconViewMethod "getSelectedItems" o = IconViewGetSelectedItemsMethodInfo
ResolveIconViewMethod "getSelectionMode" o = IconViewGetSelectionModeMethodInfo
ResolveIconViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveIconViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveIconViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveIconViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveIconViewMethod "getSpacing" o = IconViewGetSpacingMethodInfo
ResolveIconViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveIconViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
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 "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveIconViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveIconViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveIconViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveIconViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveIconViewMethod "getVisibleRange" o = IconViewGetVisibleRangeMethodInfo
ResolveIconViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveIconViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveIconViewMethod "setActivateOnSingleClick" o = IconViewSetActivateOnSingleClickMethodInfo
ResolveIconViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveIconViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveIconViewMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveIconViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveIconViewMethod "setColumnSpacing" o = IconViewSetColumnSpacingMethodInfo
ResolveIconViewMethod "setColumns" o = IconViewSetColumnsMethodInfo
ResolveIconViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveIconViewMethod "setCursor" o = IconViewSetCursorMethodInfo
ResolveIconViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveIconViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveIconViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveIconViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveIconViewMethod "setDragDestItem" o = IconViewSetDragDestItemMethodInfo
ResolveIconViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveIconViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveIconViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
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 "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 "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveIconViewMethod "setMargin" o = IconViewSetMarginMethodInfo
ResolveIconViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveIconViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
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 "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveIconViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveIconViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveIconViewMethod "setPixbufColumn" o = IconViewSetPixbufColumnMethodInfo
ResolveIconViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveIconViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveIconViewMethod "setReorderable" o = IconViewSetReorderableMethodInfo
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 "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
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 "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 "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveIconViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIconViewMethod t IconView, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveIconViewMethod t IconView, O.OverloadedMethod info IconView p, R.HasField t IconView p) => R.HasField t IconView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIconViewMethod t IconView, O.OverloadedMethodInfo info IconView) => OL.IsLabel t (O.MethodProxy info IconView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#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 :: forall (m :: * -> *).
MonadIO m =>
IconViewActivateCursorItemCallback
-> m (GClosure C_IconViewActivateCursorItemCallback)
genClosure_IconViewActivateCursorItem 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 IconViewActivateCursorItemCallback
_cb Ptr ()
_ Ptr ()
_ = 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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
onIconViewActivateCursorItem a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewActivateCursorItemCallback -> m SignalHandlerId
afterIconViewActivateCursorItem a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IconViewItemActivatedCallback
-> m (GClosure C_IconViewItemActivatedCallback)
genClosure_IconViewItemActivated 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 IconViewItemActivatedCallback
_cb Ptr ()
_ Ptr TreePath
path Ptr ()
_ = 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
$ \TreePath
path' -> do
IconViewItemActivatedCallback
_cb TreePath
path'
onIconViewItemActivated :: (IsIconView a, MonadIO m) => a -> IconViewItemActivatedCallback -> m SignalHandlerId
onIconViewItemActivated :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewItemActivatedCallback -> m SignalHandlerId
onIconViewItemActivated a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewItemActivatedCallback -> m SignalHandlerId
afterIconViewItemActivated a
obj 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 Text
"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
-> Bool
-> Bool
-> IO Bool
noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback
noIconViewMoveCursorCallback :: Maybe IconViewMoveCursorCallback
noIconViewMoveCursorCallback = Maybe IconViewMoveCursorCallback
forall a. Maybe a
Nothing
type C_IconViewMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
CInt ->
CInt ->
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 :: forall (m :: * -> *).
MonadIO m =>
IconViewMoveCursorCallback
-> m (GClosure C_IconViewMoveCursorCallback)
genClosure_IconViewMoveCursor 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 IconViewMoveCursorCallback
_cb Ptr ()
_ CUInt
step Int32
count CInt
extend CInt
modify Ptr ()
_ = 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
let extend' :: Bool
extend' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
extend
let modify' :: Bool
modify' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
modify
Bool
result <- IconViewMoveCursorCallback
_cb MovementStep
step' Int32
count Bool
extend' Bool
modify'
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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewMoveCursorCallback -> m SignalHandlerId
onIconViewMoveCursor a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IconViewMoveCursorCallback -> m SignalHandlerId
afterIconViewMoveCursor a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectAll 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onIconViewSelectAll :: (IsIconView a, MonadIO m) => a -> IconViewSelectAllCallback -> m SignalHandlerId
onIconViewSelectAll :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onIconViewSelectAll a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterIconViewSelectAll a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectCursorItem 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onIconViewSelectCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewSelectCursorItemCallback -> m SignalHandlerId
onIconViewSelectCursorItem :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onIconViewSelectCursorItem a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterIconViewSelectCursorItem a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewSelectionChanged 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onIconViewSelectionChanged :: (IsIconView a, MonadIO m) => a -> IconViewSelectionChangedCallback -> m SignalHandlerId
onIconViewSelectionChanged :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onIconViewSelectionChanged a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterIconViewSelectionChanged a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewToggleCursorItem 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onIconViewToggleCursorItem :: (IsIconView a, MonadIO m) => a -> IconViewToggleCursorItemCallback -> m SignalHandlerId
onIconViewToggleCursorItem :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onIconViewToggleCursorItem a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterIconViewToggleCursorItem a
obj 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 Text
"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 :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_IconViewSelectAllCallback)
genClosure_IconViewUnselectAll 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 IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onIconViewUnselectAll :: (IsIconView a, MonadIO m) => a -> IconViewUnselectAllCallback -> m SignalHandlerId
onIconViewUnselectAll :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onIconViewUnselectAll a
obj 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 Text
"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 :: forall a (m :: * -> *).
(IsIconView a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterIconViewUnselectAll a
obj 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 Text
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Bool
getIconViewActivateOnSingleClick o
obj = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"activate-on-single-click"
setIconViewActivateOnSingleClick :: (MonadIO m, IsIconView o) => o -> Bool -> m ()
setIconViewActivateOnSingleClick :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Bool -> m ()
setIconViewActivateOnSingleClick o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activate-on-single-click" Bool
val
constructIconViewActivateOnSingleClick :: (IsIconView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructIconViewActivateOnSingleClick :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructIconViewActivateOnSingleClick Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> m (Maybe CellArea)
getIconViewCellArea o
obj = IO (Maybe CellArea) -> m (Maybe CellArea)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"cell-area" ManagedPtr CellArea -> CellArea
Gtk.CellArea.CellArea
constructIconViewCellArea :: (IsIconView o, MIO.MonadIO m, Gtk.CellArea.IsCellArea a) => a -> m (GValueConstruct o)
constructIconViewCellArea :: forall o (m :: * -> *) a.
(IsIconView o, MonadIO m, IsCellArea a) =>
a -> m (GValueConstruct o)
constructIconViewCellArea a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"cell-area" (a -> Maybe a
forall a. a -> Maybe a
P.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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewColumnSpacing o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"column-spacing"
setIconViewColumnSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewColumnSpacing o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"column-spacing" Int32
val
constructIconViewColumnSpacing :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewColumnSpacing :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewColumnSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewColumns o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"columns"
setIconViewColumns :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewColumns :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewColumns o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"columns" Int32
val
constructIconViewColumns :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewColumns :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewColumns Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> m Orientation
getIconViewItemOrientation o
obj = IO Orientation -> m Orientation
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"item-orientation"
setIconViewItemOrientation :: (MonadIO m, IsIconView o) => o -> Gtk.Enums.Orientation -> m ()
setIconViewItemOrientation :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Orientation -> m ()
setIconViewItemOrientation o
obj Orientation
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Orientation -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"item-orientation" Orientation
val
constructIconViewItemOrientation :: (IsIconView o, MIO.MonadIO m) => Gtk.Enums.Orientation -> m (GValueConstruct o)
constructIconViewItemOrientation :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Orientation -> m (GValueConstruct o)
constructIconViewItemOrientation Orientation
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Orientation -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewItemPadding o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"item-padding"
setIconViewItemPadding :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewItemPadding :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewItemPadding o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"item-padding" Int32
val
constructIconViewItemPadding :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewItemPadding :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewItemPadding Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewItemWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"item-width"
setIconViewItemWidth :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewItemWidth :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewItemWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"item-width" Int32
val
constructIconViewItemWidth :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewItemWidth :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewItemWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewMargin o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"margin"
setIconViewMargin :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewMargin :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewMargin o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"margin" Int32
val
constructIconViewMargin :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewMargin :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewMargin Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewMarkupColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"markup-column"
setIconViewMarkupColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewMarkupColumn :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewMarkupColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"markup-column" Int32
val
constructIconViewMarkupColumn :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewMarkupColumn :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewMarkupColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> m (Maybe TreeModel)
getIconViewModel o
obj = IO (Maybe TreeModel) -> m (Maybe TreeModel)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"model" ManagedPtr TreeModel -> TreeModel
Gtk.TreeModel.TreeModel
setIconViewModel :: (MonadIO m, IsIconView o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setIconViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsIconView o, IsTreeModel a) =>
o -> a -> m ()
setIconViewModel o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructIconViewModel :: (IsIconView o, MIO.MonadIO m, Gtk.TreeModel.IsTreeModel a) => a -> m (GValueConstruct o)
constructIconViewModel :: forall o (m :: * -> *) a.
(IsIconView o, MonadIO m, IsTreeModel a) =>
a -> m (GValueConstruct o)
constructIconViewModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearIconViewModel :: (MonadIO m, IsIconView o) => o -> m ()
clearIconViewModel :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m ()
clearIconViewModel 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 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewPixbufColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"pixbuf-column"
setIconViewPixbufColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewPixbufColumn :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewPixbufColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"pixbuf-column" Int32
val
constructIconViewPixbufColumn :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewPixbufColumn :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewPixbufColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Bool
getIconViewReorderable o
obj = IconViewActivateCursorItemCallback -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"reorderable"
setIconViewReorderable :: (MonadIO m, IsIconView o) => o -> Bool -> m ()
setIconViewReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Bool -> m ()
setIconViewReorderable o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reorderable" Bool
val
constructIconViewReorderable :: (IsIconView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructIconViewReorderable :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructIconViewReorderable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewRowSpacing o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"row-spacing"
setIconViewRowSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewRowSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewRowSpacing o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"row-spacing" Int32
val
constructIconViewRowSpacing :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewRowSpacing :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewRowSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> m SelectionMode
getIconViewSelectionMode o
obj = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"selection-mode"
setIconViewSelectionMode :: (MonadIO m, IsIconView o) => o -> Gtk.Enums.SelectionMode -> m ()
setIconViewSelectionMode :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> SelectionMode -> m ()
setIconViewSelectionMode o
obj SelectionMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SelectionMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"selection-mode" SelectionMode
val
constructIconViewSelectionMode :: (IsIconView o, MIO.MonadIO m) => Gtk.Enums.SelectionMode -> m (GValueConstruct o)
constructIconViewSelectionMode :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
SelectionMode -> m (GValueConstruct o)
constructIconViewSelectionMode SelectionMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewSpacing o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"spacing"
setIconViewSpacing :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewSpacing o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"spacing" Int32
val
constructIconViewSpacing :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewSpacing :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewTextColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"text-column"
setIconViewTextColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewTextColumn :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewTextColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"text-column" Int32
val
constructIconViewTextColumn :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewTextColumn :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewTextColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsIconView o) => o -> m Int32
getIconViewTooltipColumn o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"tooltip-column"
setIconViewTooltipColumn :: (MonadIO m, IsIconView o) => o -> Int32 -> m ()
setIconViewTooltipColumn :: forall (m :: * -> *) o.
(MonadIO m, IsIconView o) =>
o -> Int32 -> m ()
setIconViewTooltipColumn o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"tooltip-column" Int32
val
constructIconViewTooltipColumn :: (IsIconView o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructIconViewTooltipColumn :: forall o (m :: * -> *).
(IsIconView o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructIconViewTooltipColumn Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"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 = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activateOnSingleClick", IconViewActivateOnSingleClickPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cellArea", IconViewCellAreaPropertyInfo), '("columnSpacing", IconViewColumnSpacingPropertyInfo), '("columns", IconViewColumnsPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("itemOrientation", IconViewItemOrientationPropertyInfo), '("itemPadding", IconViewItemPaddingPropertyInfo), '("itemWidth", IconViewItemWidthPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", IconViewMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("markupColumn", IconViewMarkupColumnPropertyInfo), '("model", IconViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pixbufColumn", IconViewPixbufColumnPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("reorderable", IconViewReorderablePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("rowSpacing", IconViewRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", IconViewSelectionModePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", IconViewSpacingPropertyInfo), '("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)] :: [(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 = ('[ '("activateCursorItem", IconViewActivateCursorItemSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("itemActivated", IconViewItemActivatedSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCursor", IconViewMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("selectAll", IconViewSelectAllSignalInfo), '("selectCursorItem", IconViewSelectCursorItemSignalInfo), '("selectionChanged", IconViewSelectionChangedSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("toggleCursorItem", IconViewToggleCursorItemSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", IconViewUnselectAllSignalInfo)] :: [(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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m IconView
iconViewNewWithArea 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 Text
"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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeModel a) =>
a -> m IconView
iconViewNewWithModel 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 Text
"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_create_drag_icon" gtk_icon_view_create_drag_icon ::
Ptr IconView ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Gdk.Paintable.Paintable)
iconViewCreateDragIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gtk.TreePath.TreePath
-> m Gdk.Paintable.Paintable
iconViewCreateDragIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m Paintable
iconViewCreateDragIcon a
iconView TreePath
path = IO Paintable -> m Paintable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Paintable -> m Paintable) -> IO Paintable -> m Paintable
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 Paintable
result <- Ptr IconView -> Ptr TreePath -> IO (Ptr Paintable)
gtk_icon_view_create_drag_icon Ptr IconView
iconView' Ptr TreePath
path'
Text -> Ptr Paintable -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"iconViewCreateDragIcon" Ptr Paintable
result
Paintable
result' <- ((ManagedPtr Paintable -> Paintable)
-> Ptr Paintable -> IO Paintable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Paintable -> Paintable
Gdk.Paintable.Paintable) Ptr Paintable
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
IconViewItemActivatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreePath
path
Paintable -> IO Paintable
forall (m :: * -> *) a. Monad m => a -> m a
return Paintable
result'
#if defined(ENABLE_OVERLOADING)
data IconViewCreateDragIconMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m Gdk.Paintable.Paintable), MonadIO m, IsIconView a) => O.OverloadedMethod IconViewCreateDragIconMethodInfo a signature where
overloadedMethod = iconViewCreateDragIcon
instance O.OverloadedMethodInfo IconViewCreateDragIconMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewCreateDragIcon",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v:iconViewCreateDragIcon"
}
#endif
foreign import ccall "gtk_icon_view_enable_model_drag_dest" gtk_icon_view_enable_model_drag_dest ::
Ptr IconView ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
iconViewEnableModelDragDest ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> Gdk.ContentFormats.ContentFormats
-> [Gdk.Flags.DragAction]
-> m ()
iconViewEnableModelDragDest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> ContentFormats -> [DragAction] -> m ()
iconViewEnableModelDragDest a
iconView ContentFormats
formats [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
Ptr IconView
iconView' <- a -> IO (Ptr IconView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
iconView
Ptr ContentFormats
formats' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
formats
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr IconView -> Ptr ContentFormats -> CUInt -> IO ()
gtk_icon_view_enable_model_drag_dest Ptr IconView
iconView' Ptr ContentFormats
formats' CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ContentFormats
formats
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewEnableModelDragDestMethodInfo
instance (signature ~ (Gdk.ContentFormats.ContentFormats -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsIconView a) => O.OverloadedMethod IconViewEnableModelDragDestMethodInfo a signature where
overloadedMethod = iconViewEnableModelDragDest
instance O.OverloadedMethodInfo IconViewEnableModelDragDestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewEnableModelDragDest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v:iconViewEnableModelDragDest"
}
#endif
foreign import ccall "gtk_icon_view_enable_model_drag_source" gtk_icon_view_enable_model_drag_source ::
Ptr IconView ->
CUInt ->
Ptr Gdk.ContentFormats.ContentFormats ->
CUInt ->
IO ()
iconViewEnableModelDragSource ::
(B.CallStack.HasCallStack, MonadIO m, IsIconView a) =>
a
-> [Gdk.Flags.ModifierType]
-> Gdk.ContentFormats.ContentFormats
-> [Gdk.Flags.DragAction]
-> m ()
iconViewEnableModelDragSource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> [ModifierType] -> ContentFormats -> [DragAction] -> m ()
iconViewEnableModelDragSource a
iconView [ModifierType]
startButtonMask ContentFormats
formats [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
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 ContentFormats
formats' <- ContentFormats -> IO (Ptr ContentFormats)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ContentFormats
formats
let actions' :: CUInt
actions' = [DragAction] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [DragAction]
actions
Ptr IconView -> CUInt -> Ptr ContentFormats -> CUInt -> IO ()
gtk_icon_view_enable_model_drag_source Ptr IconView
iconView' CUInt
startButtonMask' Ptr ContentFormats
formats' CUInt
actions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
iconView
ContentFormats -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ContentFormats
formats
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IconViewEnableModelDragSourceMethodInfo
instance (signature ~ ([Gdk.Flags.ModifierType] -> Gdk.ContentFormats.ContentFormats -> [Gdk.Flags.DragAction] -> m ()), MonadIO m, IsIconView a) => O.OverloadedMethod IconViewEnableModelDragSourceMethodInfo a signature where
overloadedMethod = iconViewEnableModelDragSource
instance O.OverloadedMethodInfo IconViewEnableModelDragSourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewEnableModelDragSource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Bool
iconViewGetActivateOnSingleClick 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
/= CInt
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.OverloadedMethod IconViewGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = iconViewGetActivateOnSingleClick
instance O.OverloadedMethodInfo IconViewGetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIconView a, IsCellRenderer b) =>
a -> TreePath -> Maybe b -> m (Bool, Rectangle)
iconViewGetCellRect a
iconView TreePath
path 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
Maybe b
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just 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. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
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
/= CInt
0) CInt
result
Rectangle
rect' <- ((ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> IO Rectangle
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod IconViewGetCellRectMethodInfo a signature where
overloadedMethod = iconViewGetCellRect
instance O.OverloadedMethodInfo IconViewGetCellRectMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetCellRect",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetColumnSpacing 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.OverloadedMethod IconViewGetColumnSpacingMethodInfo a signature where
overloadedMethod = iconViewGetColumnSpacing
instance O.OverloadedMethodInfo IconViewGetColumnSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetColumnSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetColumns 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.OverloadedMethod IconViewGetColumnsMethodInfo a signature where
overloadedMethod = iconViewGetColumns
instance O.OverloadedMethodInfo IconViewGetColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m (Bool, TreePath, CellRenderer)
iconViewGetCursor 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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr CellRenderer)
cell <- IO (Ptr (Ptr CellRenderer))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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, GBoxed 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.OverloadedMethod IconViewGetCursorMethodInfo a signature where
overloadedMethod = iconViewGetCursor
instance O.OverloadedMethodInfo IconViewGetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> Int32 -> m (Bool, TreePath, IconViewDropPosition)
iconViewGetDestItemAtPos a
iconView Int32
dragX 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)
callocMem :: 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
/= CInt
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, GBoxed 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.OverloadedMethod IconViewGetDestItemAtPosMethodInfo a signature where
overloadedMethod = iconViewGetDestItemAtPos
instance O.OverloadedMethodInfo IconViewGetDestItemAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetDestItemAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m (TreePath, IconViewDropPosition)
iconViewGetDragDestItem 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)
callocMem :: 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, GBoxed 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.OverloadedMethod IconViewGetDragDestItemMethodInfo a signature where
overloadedMethod = iconViewGetDragDestItem
instance O.OverloadedMethodInfo IconViewGetDragDestItemMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetDragDestItem",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> Int32 -> m (Bool, TreePath, CellRenderer)
iconViewGetItemAtPos a
iconView Int32
x 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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr CellRenderer)
cell <- IO (Ptr (Ptr CellRenderer))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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, GBoxed 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.OverloadedMethod IconViewGetItemAtPosMethodInfo a signature where
overloadedMethod = iconViewGetItemAtPos
instance O.OverloadedMethodInfo IconViewGetItemAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m Int32
iconViewGetItemColumn a
iconView 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.OverloadedMethod IconViewGetItemColumnMethodInfo a signature where
overloadedMethod = iconViewGetItemColumn
instance O.OverloadedMethodInfo IconViewGetItemColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Orientation
iconViewGetItemOrientation 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.OverloadedMethod IconViewGetItemOrientationMethodInfo a signature where
overloadedMethod = iconViewGetItemOrientation
instance O.OverloadedMethodInfo IconViewGetItemOrientationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemOrientation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetItemPadding 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.OverloadedMethod IconViewGetItemPaddingMethodInfo a signature where
overloadedMethod = iconViewGetItemPadding
instance O.OverloadedMethodInfo IconViewGetItemPaddingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemPadding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m Int32
iconViewGetItemRow a
iconView 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.OverloadedMethod IconViewGetItemRowMethodInfo a signature where
overloadedMethod = iconViewGetItemRow
instance O.OverloadedMethodInfo IconViewGetItemRowMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemRow",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetItemWidth 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.OverloadedMethod IconViewGetItemWidthMethodInfo a signature where
overloadedMethod = iconViewGetItemWidth
instance O.OverloadedMethodInfo IconViewGetItemWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetItemWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetMargin 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.OverloadedMethod IconViewGetMarginMethodInfo a signature where
overloadedMethod = iconViewGetMargin
instance O.OverloadedMethodInfo IconViewGetMarginMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetMargin",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetMarkupColumn 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.OverloadedMethod IconViewGetMarkupColumnMethodInfo a signature where
overloadedMethod = iconViewGetMarkupColumn
instance O.OverloadedMethodInfo IconViewGetMarkupColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetMarkupColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m (Maybe TreeModel)
iconViewGetModel 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
$ \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.OverloadedMethod IconViewGetModelMethodInfo a signature where
overloadedMethod = iconViewGetModel
instance O.OverloadedMethodInfo IconViewGetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> Int32 -> m (Maybe TreePath)
iconViewGetPathAtPos a
iconView Int32
x 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
$ \Ptr TreePath
result' -> do
TreePath
result'' <- ((ManagedPtr TreePath -> TreePath) -> Ptr TreePath -> IO TreePath
forall a.
(HasCallStack, GBoxed 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.OverloadedMethod IconViewGetPathAtPosMethodInfo a signature where
overloadedMethod = iconViewGetPathAtPos
instance O.OverloadedMethodInfo IconViewGetPathAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetPathAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetPixbufColumn 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.OverloadedMethod IconViewGetPixbufColumnMethodInfo a signature where
overloadedMethod = iconViewGetPixbufColumn
instance O.OverloadedMethodInfo IconViewGetPixbufColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetPixbufColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Bool
iconViewGetReorderable 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
/= CInt
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.OverloadedMethod IconViewGetReorderableMethodInfo a signature where
overloadedMethod = iconViewGetReorderable
instance O.OverloadedMethodInfo IconViewGetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetRowSpacing 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.OverloadedMethod IconViewGetRowSpacingMethodInfo a signature where
overloadedMethod = iconViewGetRowSpacing
instance O.OverloadedMethodInfo IconViewGetRowSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetRowSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m [TreePath]
iconViewGetSelectedItems 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, GBoxed 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.OverloadedMethod IconViewGetSelectedItemsMethodInfo a signature where
overloadedMethod = iconViewGetSelectedItems
instance O.OverloadedMethodInfo IconViewGetSelectedItemsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetSelectedItems",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m SelectionMode
iconViewGetSelectionMode 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.OverloadedMethod IconViewGetSelectionModeMethodInfo a signature where
overloadedMethod = iconViewGetSelectionMode
instance O.OverloadedMethodInfo IconViewGetSelectionModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetSelectionMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetSpacing 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.OverloadedMethod IconViewGetSpacingMethodInfo a signature where
overloadedMethod = iconViewGetSpacing
instance O.OverloadedMethodInfo IconViewGetSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetTextColumn 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.OverloadedMethod IconViewGetTextColumnMethodInfo a signature where
overloadedMethod = iconViewGetTextColumn
instance O.OverloadedMethodInfo IconViewGetTextColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetTextColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m Int32
iconViewGetTooltipColumn 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.OverloadedMethod IconViewGetTooltipColumnMethodInfo a signature where
overloadedMethod = iconViewGetTooltipColumn
instance O.OverloadedMethodInfo IconViewGetTooltipColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetTooltipColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v:iconViewGetTooltipColumn"
}
#endif
foreign import ccall "gtk_icon_view_get_tooltip_context" gtk_icon_view_get_tooltip_context ::
Ptr IconView ->
Int32 ->
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, Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))
iconViewGetTooltipContext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a
-> Int32
-> Int32
-> Bool
-> m (Bool, TreeModel, TreePath, TreeIter)
iconViewGetTooltipContext a
iconView Int32
x Int32
y Bool
keyboardTip = IO (Bool, TreeModel, TreePath, TreeIter)
-> m (Bool, TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, TreeModel, TreePath, TreeIter)
-> m (Bool, TreeModel, TreePath, TreeIter))
-> IO (Bool, TreeModel, TreePath, TreeIter)
-> m (Bool, 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
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)
callocMem :: IO (Ptr (Ptr Gtk.TreeModel.TreeModel))
Ptr (Ptr TreePath)
path <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr TreeIter
iter <- Int -> IO (Ptr TreeIter)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gtk.TreeIter.TreeIter)
CInt
result <- Ptr IconView
-> Int32
-> Int32
-> CInt
-> Ptr (Ptr TreeModel)
-> Ptr (Ptr TreePath)
-> Ptr TreeIter
-> IO CInt
gtk_icon_view_get_tooltip_context Ptr IconView
iconView' Int32
x 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
/= CInt
0) CInt
result
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, GBoxed 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, GBoxed 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 (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, TreeModel, TreePath, TreeIter)
-> IO (Bool, TreeModel, TreePath, TreeIter)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', TreeModel
model'', TreePath
path'', TreeIter
iter')
#if defined(ENABLE_OVERLOADING)
data IconViewGetTooltipContextMethodInfo
instance (signature ~ (Int32 -> Int32 -> Bool -> m ((Bool, Gtk.TreeModel.TreeModel, Gtk.TreePath.TreePath, Gtk.TreeIter.TreeIter))), MonadIO m, IsIconView a) => O.OverloadedMethod IconViewGetTooltipContextMethodInfo a signature where
overloadedMethod = iconViewGetTooltipContext
instance O.OverloadedMethodInfo IconViewGetTooltipContextMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetTooltipContext",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m (Bool, TreePath, TreePath)
iconViewGetVisibleRange 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)
callocMem :: IO (Ptr (Ptr Gtk.TreePath.TreePath))
Ptr (Ptr TreePath)
endPath <- IO (Ptr (Ptr TreePath))
forall a. Storable a => IO (Ptr a)
callocMem :: 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
/= CInt
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, GBoxed 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, GBoxed 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.OverloadedMethod IconViewGetVisibleRangeMethodInfo a signature where
overloadedMethod = iconViewGetVisibleRange
instance O.OverloadedMethodInfo IconViewGetVisibleRangeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewGetVisibleRange",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m ()
iconViewItemActivated a
iconView 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.OverloadedMethod IconViewItemActivatedMethodInfo a signature where
overloadedMethod = iconViewItemActivated
instance O.OverloadedMethodInfo IconViewItemActivatedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewItemActivated",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m Bool
iconViewPathIsSelected a
iconView 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
/= CInt
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.OverloadedMethod IconViewPathIsSelectedMethodInfo a signature where
overloadedMethod = iconViewPathIsSelected
instance O.OverloadedMethodInfo IconViewPathIsSelectedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewPathIsSelected",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> Bool -> Float -> Float -> m ()
iconViewScrollToPath a
iconView TreePath
path Bool
useAlign Float
rowAlign 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.OverloadedMethod IconViewScrollToPathMethodInfo a signature where
overloadedMethod = iconViewScrollToPath
instance O.OverloadedMethodInfo IconViewScrollToPathMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewScrollToPath",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m ()
iconViewSelectAll 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.OverloadedMethod IconViewSelectAllMethodInfo a signature where
overloadedMethod = iconViewSelectAll
instance O.OverloadedMethodInfo IconViewSelectAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSelectAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m ()
iconViewSelectPath a
iconView 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.OverloadedMethod IconViewSelectPathMethodInfo a signature where
overloadedMethod = iconViewSelectPath
instance O.OverloadedMethodInfo IconViewSelectPathMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSelectPath",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> IconViewForeachFunc -> m ()
iconViewSelectedForeach a
iconView 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.OverloadedMethod IconViewSelectedForeachMethodInfo a signature where
overloadedMethod = iconViewSelectedForeach
instance O.OverloadedMethodInfo IconViewSelectedForeachMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSelectedForeach",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Bool -> m ()
iconViewSetActivateOnSingleClick a
iconView 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.OverloadedMethod IconViewSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = iconViewSetActivateOnSingleClick
instance O.OverloadedMethodInfo IconViewSetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetColumnSpacing a
iconView 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.OverloadedMethod IconViewSetColumnSpacingMethodInfo a signature where
overloadedMethod = iconViewSetColumnSpacing
instance O.OverloadedMethodInfo IconViewSetColumnSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetColumnSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetColumns a
iconView 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.OverloadedMethod IconViewSetColumnsMethodInfo a signature where
overloadedMethod = iconViewSetColumns
instance O.OverloadedMethodInfo IconViewSetColumnsMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetColumns",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIconView a, IsCellRenderer b) =>
a -> TreePath -> Maybe b -> Bool -> m ()
iconViewSetCursor a
iconView TreePath
path Maybe b
cell 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
Maybe b
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod IconViewSetCursorMethodInfo a signature where
overloadedMethod = iconViewSetCursor
instance O.OverloadedMethodInfo IconViewSetCursorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetCursor",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Maybe TreePath -> IconViewDropPosition -> m ()
iconViewSetDragDestItem a
iconView Maybe TreePath
path 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
Maybe TreePath
Nothing -> Ptr TreePath -> IO (Ptr TreePath)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreePath
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod IconViewSetDragDestItemMethodInfo a signature where
overloadedMethod = iconViewSetDragDestItem
instance O.OverloadedMethodInfo IconViewSetDragDestItemMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetDragDestItem",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Orientation -> m ()
iconViewSetItemOrientation a
iconView 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.OverloadedMethod IconViewSetItemOrientationMethodInfo a signature where
overloadedMethod = iconViewSetItemOrientation
instance O.OverloadedMethodInfo IconViewSetItemOrientationMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetItemOrientation",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetItemPadding a
iconView 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.OverloadedMethod IconViewSetItemPaddingMethodInfo a signature where
overloadedMethod = iconViewSetItemPadding
instance O.OverloadedMethodInfo IconViewSetItemPaddingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetItemPadding",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetItemWidth a
iconView 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.OverloadedMethod IconViewSetItemWidthMethodInfo a signature where
overloadedMethod = iconViewSetItemWidth
instance O.OverloadedMethodInfo IconViewSetItemWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetItemWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetMargin a
iconView 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.OverloadedMethod IconViewSetMarginMethodInfo a signature where
overloadedMethod = iconViewSetMargin
instance O.OverloadedMethodInfo IconViewSetMarginMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetMargin",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetMarkupColumn a
iconView 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.OverloadedMethod IconViewSetMarkupColumnMethodInfo a signature where
overloadedMethod = iconViewSetMarkupColumn
instance O.OverloadedMethodInfo IconViewSetMarkupColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetMarkupColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIconView a, IsTreeModel b) =>
a -> Maybe b -> m ()
iconViewSetModel a
iconView 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
Maybe b
Nothing -> Ptr TreeModel -> IO (Ptr TreeModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr TreeModel
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod IconViewSetModelMethodInfo a signature where
overloadedMethod = iconViewSetModel
instance O.OverloadedMethodInfo IconViewSetModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetPixbufColumn a
iconView 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.OverloadedMethod IconViewSetPixbufColumnMethodInfo a signature where
overloadedMethod = iconViewSetPixbufColumn
instance O.OverloadedMethodInfo IconViewSetPixbufColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetPixbufColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Bool -> m ()
iconViewSetReorderable a
iconView 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.OverloadedMethod IconViewSetReorderableMethodInfo a signature where
overloadedMethod = iconViewSetReorderable
instance O.OverloadedMethodInfo IconViewSetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetRowSpacing a
iconView 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.OverloadedMethod IconViewSetRowSpacingMethodInfo a signature where
overloadedMethod = iconViewSetRowSpacing
instance O.OverloadedMethodInfo IconViewSetRowSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetRowSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> SelectionMode -> m ()
iconViewSetSelectionMode a
iconView 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.OverloadedMethod IconViewSetSelectionModeMethodInfo a signature where
overloadedMethod = iconViewSetSelectionMode
instance O.OverloadedMethodInfo IconViewSetSelectionModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetSelectionMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetSpacing a
iconView 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.OverloadedMethod IconViewSetSpacingMethodInfo a signature where
overloadedMethod = iconViewSetSpacing
instance O.OverloadedMethodInfo IconViewSetSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetTextColumn a
iconView 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.OverloadedMethod IconViewSetTextColumnMethodInfo a signature where
overloadedMethod = iconViewSetTextColumn
instance O.OverloadedMethodInfo IconViewSetTextColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetTextColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsIconView a, IsTooltip b,
IsCellRenderer c) =>
a -> b -> TreePath -> Maybe c -> m ()
iconViewSetTooltipCell a
iconView b
tooltip TreePath
path 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
Maybe c
Nothing -> Ptr CellRenderer -> IO (Ptr CellRenderer)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CellRenderer
forall a. Ptr a
nullPtr
Just 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.OverloadedMethod IconViewSetTooltipCellMethodInfo a signature where
overloadedMethod = iconViewSetTooltipCell
instance O.OverloadedMethodInfo IconViewSetTooltipCellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetTooltipCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> Int32 -> m ()
iconViewSetTooltipColumn a
iconView 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.OverloadedMethod IconViewSetTooltipColumnMethodInfo a signature where
overloadedMethod = iconViewSetTooltipColumn
instance O.OverloadedMethodInfo IconViewSetTooltipColumnMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetTooltipColumn",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIconView a, IsTooltip b) =>
a -> b -> TreePath -> m ()
iconViewSetTooltipItem a
iconView b
tooltip 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.OverloadedMethod IconViewSetTooltipItemMethodInfo a signature where
overloadedMethod = iconViewSetTooltipItem
instance O.OverloadedMethodInfo IconViewSetTooltipItemMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewSetTooltipItem",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m ()
iconViewUnselectAll 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.OverloadedMethod IconViewUnselectAllMethodInfo a signature where
overloadedMethod = iconViewUnselectAll
instance O.OverloadedMethodInfo IconViewUnselectAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewUnselectAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> TreePath -> m ()
iconViewUnselectPath a
iconView 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.OverloadedMethod IconViewUnselectPathMethodInfo a signature where
overloadedMethod = iconViewUnselectPath
instance O.OverloadedMethodInfo IconViewUnselectPathMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewUnselectPath",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m ()
iconViewUnsetModelDragDest 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.OverloadedMethod IconViewUnsetModelDragDestMethodInfo a signature where
overloadedMethod = iconViewUnsetModelDragDest
instance O.OverloadedMethodInfo IconViewUnsetModelDragDestMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewUnsetModelDragDest",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIconView a) =>
a -> m ()
iconViewUnsetModelDragSource 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.OverloadedMethod IconViewUnsetModelDragSourceMethodInfo a signature where
overloadedMethod = iconViewUnsetModelDragSource
instance O.OverloadedMethodInfo IconViewUnsetModelDragSourceMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.IconView.iconViewUnsetModelDragSource",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-IconView.html#v:iconViewUnsetModelDragSource"
}
#endif