{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ColumnView
(
ColumnView(..) ,
IsColumnView ,
toColumnView ,
#if defined(ENABLE_OVERLOADING)
ResolveColumnViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColumnViewAppendColumnMethodInfo ,
#endif
columnViewAppendColumn ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetColumnsMethodInfo ,
#endif
columnViewGetColumns ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetEnableRubberbandMethodInfo ,
#endif
columnViewGetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetModelMethodInfo ,
#endif
columnViewGetModel ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetReorderableMethodInfo ,
#endif
columnViewGetReorderable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetShowColumnSeparatorsMethodInfo,
#endif
columnViewGetShowColumnSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetShowRowSeparatorsMethodInfo,
#endif
columnViewGetShowRowSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetSingleClickActivateMethodInfo,
#endif
columnViewGetSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
ColumnViewGetSorterMethodInfo ,
#endif
columnViewGetSorter ,
#if defined(ENABLE_OVERLOADING)
ColumnViewInsertColumnMethodInfo ,
#endif
columnViewInsertColumn ,
columnViewNew ,
#if defined(ENABLE_OVERLOADING)
ColumnViewRemoveColumnMethodInfo ,
#endif
columnViewRemoveColumn ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetEnableRubberbandMethodInfo ,
#endif
columnViewSetEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetModelMethodInfo ,
#endif
columnViewSetModel ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetReorderableMethodInfo ,
#endif
columnViewSetReorderable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetShowColumnSeparatorsMethodInfo,
#endif
columnViewSetShowColumnSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetShowRowSeparatorsMethodInfo,
#endif
columnViewSetShowRowSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSetSingleClickActivateMethodInfo,
#endif
columnViewSetSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSortByColumnMethodInfo ,
#endif
columnViewSortByColumn ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumns ,
#endif
getColumnViewColumns ,
#if defined(ENABLE_OVERLOADING)
ColumnViewEnableRubberbandPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewEnableRubberband ,
#endif
constructColumnViewEnableRubberband ,
getColumnViewEnableRubberband ,
setColumnViewEnableRubberband ,
#if defined(ENABLE_OVERLOADING)
ColumnViewModelPropertyInfo ,
#endif
clearColumnViewModel ,
#if defined(ENABLE_OVERLOADING)
columnViewModel ,
#endif
constructColumnViewModel ,
getColumnViewModel ,
setColumnViewModel ,
#if defined(ENABLE_OVERLOADING)
ColumnViewReorderablePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewReorderable ,
#endif
constructColumnViewReorderable ,
getColumnViewReorderable ,
setColumnViewReorderable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewShowColumnSeparatorsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewShowColumnSeparators ,
#endif
constructColumnViewShowColumnSeparators ,
getColumnViewShowColumnSeparators ,
setColumnViewShowColumnSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewShowRowSeparatorsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewShowRowSeparators ,
#endif
constructColumnViewShowRowSeparators ,
getColumnViewShowRowSeparators ,
setColumnViewShowRowSeparators ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSingleClickActivatePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewSingleClickActivate ,
#endif
constructColumnViewSingleClickActivate ,
getColumnViewSingleClickActivate ,
setColumnViewSingleClickActivate ,
#if defined(ENABLE_OVERLOADING)
ColumnViewSorterPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewSorter ,
#endif
getColumnViewSorter ,
ColumnViewActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ColumnViewActivateSignalInfo ,
#endif
afterColumnViewActivate ,
onColumnViewActivate ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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.Gio.Interfaces.ListModel as Gio.ListModel
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.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.SelectionModel as Gtk.SelectionModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.ColumnViewColumn as Gtk.ColumnViewColumn
import {-# SOURCE #-} qualified GI.Gtk.Objects.Sorter as Gtk.Sorter
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype ColumnView = ColumnView (SP.ManagedPtr ColumnView)
deriving (ColumnView -> ColumnView -> Bool
(ColumnView -> ColumnView -> Bool)
-> (ColumnView -> ColumnView -> Bool) -> Eq ColumnView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColumnView -> ColumnView -> Bool
== :: ColumnView -> ColumnView -> Bool
$c/= :: ColumnView -> ColumnView -> Bool
/= :: ColumnView -> ColumnView -> Bool
Eq)
instance SP.ManagedPtrNewtype ColumnView where
toManagedPtr :: ColumnView -> ManagedPtr ColumnView
toManagedPtr (ColumnView ManagedPtr ColumnView
p) = ManagedPtr ColumnView
p
foreign import ccall "gtk_column_view_get_type"
c_gtk_column_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColumnView where
glibType :: IO GType
glibType = IO GType
c_gtk_column_view_get_type
instance B.Types.GObject ColumnView
class (SP.GObject o, O.IsDescendantOf ColumnView o) => IsColumnView o
instance (SP.GObject o, O.IsDescendantOf ColumnView o) => IsColumnView o
instance O.HasParentTypes ColumnView
type instance O.ParentTypes ColumnView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Scrollable.Scrollable]
toColumnView :: (MIO.MonadIO m, IsColumnView o) => o -> m ColumnView
toColumnView :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> m ColumnView
toColumnView = IO ColumnView -> m ColumnView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColumnView -> m ColumnView)
-> (o -> IO ColumnView) -> o -> m ColumnView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColumnView -> ColumnView) -> o -> IO ColumnView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ColumnView -> ColumnView
ColumnView
instance B.GValue.IsGValue (Maybe ColumnView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_column_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColumnView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColumnView
P.Nothing = Ptr GValue -> Ptr ColumnView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColumnView
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColumnView)
gvalueSet_ Ptr GValue
gv (P.Just ColumnView
obj) = ColumnView -> (Ptr ColumnView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColumnView
obj (Ptr GValue -> Ptr ColumnView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColumnView)
gvalueGet_ Ptr GValue
gv = do
Ptr ColumnView
ptr <- Ptr GValue -> IO (Ptr ColumnView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColumnView)
if Ptr ColumnView
ptr Ptr ColumnView -> Ptr ColumnView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColumnView
forall a. Ptr a
FP.nullPtr
then ColumnView -> Maybe ColumnView
forall a. a -> Maybe a
P.Just (ColumnView -> Maybe ColumnView)
-> IO ColumnView -> IO (Maybe ColumnView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ColumnView -> ColumnView)
-> Ptr ColumnView -> IO ColumnView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColumnView -> ColumnView
ColumnView Ptr ColumnView
ptr
else Maybe ColumnView -> IO (Maybe ColumnView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColumnView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColumnViewMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveColumnViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveColumnViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveColumnViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveColumnViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveColumnViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveColumnViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveColumnViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveColumnViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveColumnViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveColumnViewMethod "appendColumn" o = ColumnViewAppendColumnMethodInfo
ResolveColumnViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColumnViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColumnViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveColumnViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveColumnViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveColumnViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveColumnViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveColumnViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveColumnViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveColumnViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveColumnViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveColumnViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveColumnViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveColumnViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColumnViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColumnViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColumnViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveColumnViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveColumnViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveColumnViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveColumnViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveColumnViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveColumnViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveColumnViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveColumnViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveColumnViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveColumnViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveColumnViewMethod "insertColumn" o = ColumnViewInsertColumnMethodInfo
ResolveColumnViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveColumnViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveColumnViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColumnViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveColumnViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveColumnViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveColumnViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveColumnViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveColumnViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveColumnViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveColumnViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveColumnViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColumnViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColumnViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveColumnViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveColumnViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveColumnViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveColumnViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveColumnViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveColumnViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveColumnViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColumnViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColumnViewMethod "removeColumn" o = ColumnViewRemoveColumnMethodInfo
ResolveColumnViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveColumnViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveColumnViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveColumnViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveColumnViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveColumnViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveColumnViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveColumnViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColumnViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveColumnViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveColumnViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveColumnViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveColumnViewMethod "sortByColumn" o = ColumnViewSortByColumnMethodInfo
ResolveColumnViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColumnViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColumnViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColumnViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveColumnViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveColumnViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveColumnViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveColumnViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveColumnViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColumnViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveColumnViewMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveColumnViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveColumnViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveColumnViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveColumnViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColumnViewMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveColumnViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveColumnViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveColumnViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveColumnViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveColumnViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveColumnViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveColumnViewMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveColumnViewMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveColumnViewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveColumnViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveColumnViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveColumnViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveColumnViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveColumnViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveColumnViewMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveColumnViewMethod "getColumns" o = ColumnViewGetColumnsMethodInfo
ResolveColumnViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveColumnViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveColumnViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveColumnViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColumnViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveColumnViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveColumnViewMethod "getEnableRubberband" o = ColumnViewGetEnableRubberbandMethodInfo
ResolveColumnViewMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveColumnViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveColumnViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveColumnViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveColumnViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveColumnViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveColumnViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveColumnViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveColumnViewMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveColumnViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveColumnViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveColumnViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveColumnViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveColumnViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveColumnViewMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveColumnViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveColumnViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveColumnViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveColumnViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveColumnViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveColumnViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveColumnViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveColumnViewMethod "getModel" o = ColumnViewGetModelMethodInfo
ResolveColumnViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveColumnViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveColumnViewMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveColumnViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveColumnViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveColumnViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveColumnViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveColumnViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveColumnViewMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveColumnViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveColumnViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveColumnViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveColumnViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColumnViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColumnViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveColumnViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveColumnViewMethod "getReorderable" o = ColumnViewGetReorderableMethodInfo
ResolveColumnViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveColumnViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveColumnViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveColumnViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveColumnViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveColumnViewMethod "getShowColumnSeparators" o = ColumnViewGetShowColumnSeparatorsMethodInfo
ResolveColumnViewMethod "getShowRowSeparators" o = ColumnViewGetShowRowSeparatorsMethodInfo
ResolveColumnViewMethod "getSingleClickActivate" o = ColumnViewGetSingleClickActivateMethodInfo
ResolveColumnViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveColumnViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveColumnViewMethod "getSorter" o = ColumnViewGetSorterMethodInfo
ResolveColumnViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveColumnViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveColumnViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveColumnViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveColumnViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveColumnViewMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveColumnViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveColumnViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveColumnViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveColumnViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveColumnViewMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveColumnViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveColumnViewMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveColumnViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveColumnViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveColumnViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveColumnViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveColumnViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveColumnViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveColumnViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColumnViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColumnViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveColumnViewMethod "setEnableRubberband" o = ColumnViewSetEnableRubberbandMethodInfo
ResolveColumnViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveColumnViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveColumnViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveColumnViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveColumnViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveColumnViewMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveColumnViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveColumnViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveColumnViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveColumnViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveColumnViewMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveColumnViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveColumnViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveColumnViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveColumnViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveColumnViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveColumnViewMethod "setModel" o = ColumnViewSetModelMethodInfo
ResolveColumnViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveColumnViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveColumnViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveColumnViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveColumnViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColumnViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveColumnViewMethod "setReorderable" o = ColumnViewSetReorderableMethodInfo
ResolveColumnViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveColumnViewMethod "setShowColumnSeparators" o = ColumnViewSetShowColumnSeparatorsMethodInfo
ResolveColumnViewMethod "setShowRowSeparators" o = ColumnViewSetShowRowSeparatorsMethodInfo
ResolveColumnViewMethod "setSingleClickActivate" o = ColumnViewSetSingleClickActivateMethodInfo
ResolveColumnViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveColumnViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveColumnViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveColumnViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveColumnViewMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveColumnViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveColumnViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveColumnViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveColumnViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveColumnViewMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveColumnViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColumnViewMethod t ColumnView, O.OverloadedMethod info ColumnView p) => OL.IsLabel t (ColumnView -> 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 ~ ResolveColumnViewMethod t ColumnView, O.OverloadedMethod info ColumnView p, R.HasField t ColumnView p) => R.HasField t ColumnView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColumnViewMethod t ColumnView, O.OverloadedMethodInfo info ColumnView) => OL.IsLabel t (O.MethodProxy info ColumnView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ColumnViewActivateCallback =
Word32
-> IO ()
type C_ColumnViewActivateCallback =
Ptr ColumnView ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ColumnViewActivateCallback :: C_ColumnViewActivateCallback -> IO (FunPtr C_ColumnViewActivateCallback)
wrap_ColumnViewActivateCallback ::
GObject a => (a -> ColumnViewActivateCallback) ->
C_ColumnViewActivateCallback
wrap_ColumnViewActivateCallback :: forall a.
GObject a =>
(a -> ColumnViewActivateCallback) -> C_ColumnViewActivateCallback
wrap_ColumnViewActivateCallback a -> ColumnViewActivateCallback
gi'cb Ptr ColumnView
gi'selfPtr Word32
position Ptr ()
_ = do
Ptr ColumnView -> (ColumnView -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ColumnView
gi'selfPtr ((ColumnView -> IO ()) -> IO ()) -> (ColumnView -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ColumnView
gi'self -> a -> ColumnViewActivateCallback
gi'cb (ColumnView -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ColumnView
gi'self) Word32
position
onColumnViewActivate :: (IsColumnView a, MonadIO m) => a -> ((?self :: a) => ColumnViewActivateCallback) -> m SignalHandlerId
onColumnViewActivate :: forall a (m :: * -> *).
(IsColumnView a, MonadIO m) =>
a
-> ((?self::a) => ColumnViewActivateCallback) -> m SignalHandlerId
onColumnViewActivate a
obj (?self::a) => ColumnViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ColumnViewActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ColumnViewActivateCallback
ColumnViewActivateCallback
cb
let wrapped' :: C_ColumnViewActivateCallback
wrapped' = (a -> ColumnViewActivateCallback) -> C_ColumnViewActivateCallback
forall a.
GObject a =>
(a -> ColumnViewActivateCallback) -> C_ColumnViewActivateCallback
wrap_ColumnViewActivateCallback a -> ColumnViewActivateCallback
wrapped
FunPtr C_ColumnViewActivateCallback
wrapped'' <- C_ColumnViewActivateCallback
-> IO (FunPtr C_ColumnViewActivateCallback)
mk_ColumnViewActivateCallback C_ColumnViewActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColumnViewActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ColumnViewActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterColumnViewActivate :: (IsColumnView a, MonadIO m) => a -> ((?self :: a) => ColumnViewActivateCallback) -> m SignalHandlerId
afterColumnViewActivate :: forall a (m :: * -> *).
(IsColumnView a, MonadIO m) =>
a
-> ((?self::a) => ColumnViewActivateCallback) -> m SignalHandlerId
afterColumnViewActivate a
obj (?self::a) => ColumnViewActivateCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ColumnViewActivateCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ColumnViewActivateCallback
ColumnViewActivateCallback
cb
let wrapped' :: C_ColumnViewActivateCallback
wrapped' = (a -> ColumnViewActivateCallback) -> C_ColumnViewActivateCallback
forall a.
GObject a =>
(a -> ColumnViewActivateCallback) -> C_ColumnViewActivateCallback
wrap_ColumnViewActivateCallback a -> ColumnViewActivateCallback
wrapped
FunPtr C_ColumnViewActivateCallback
wrapped'' <- C_ColumnViewActivateCallback
-> IO (FunPtr C_ColumnViewActivateCallback)
mk_ColumnViewActivateCallback C_ColumnViewActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ColumnViewActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ColumnViewActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ColumnViewActivateSignalInfo
instance SignalInfo ColumnViewActivateSignalInfo where
type HaskellCallbackType ColumnViewActivateSignalInfo = ColumnViewActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ColumnViewActivateCallback cb
cb'' <- mk_ColumnViewActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:signal:activate"})
#endif
getColumnViewColumns :: (MonadIO m, IsColumnView o) => o -> m Gio.ListModel.ListModel
getColumnViewColumns :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> m ListModel
getColumnViewColumns o
obj = IO ListModel -> m ListModel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe ListModel) -> IO ListModel
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getColumnViewColumns" (IO (Maybe ListModel) -> IO ListModel)
-> IO (Maybe ListModel) -> IO ListModel
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListModel -> ListModel)
-> IO (Maybe ListModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"columns" ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnsPropertyInfo
instance AttrInfo ColumnViewColumnsPropertyInfo where
type AttrAllowedOps ColumnViewColumnsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnsPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewColumnsPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewColumnsPropertyInfo = (~) ()
type AttrTransferType ColumnViewColumnsPropertyInfo = ()
type AttrGetType ColumnViewColumnsPropertyInfo = Gio.ListModel.ListModel
type AttrLabel ColumnViewColumnsPropertyInfo = "columns"
type AttrOrigin ColumnViewColumnsPropertyInfo = ColumnView
attrGet = getColumnViewColumns
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columns"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:columns"
})
#endif
getColumnViewEnableRubberband :: (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewEnableRubberband :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewEnableRubberband o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-rubberband"
setColumnViewEnableRubberband :: (MonadIO m, IsColumnView o) => o -> Bool -> m ()
setColumnViewEnableRubberband :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> Bool -> m ()
setColumnViewEnableRubberband o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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
"enable-rubberband" Bool
val
constructColumnViewEnableRubberband :: (IsColumnView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewEnableRubberband :: forall o (m :: * -> *).
(IsColumnView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewEnableRubberband Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"enable-rubberband" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewEnableRubberbandPropertyInfo
instance AttrInfo ColumnViewEnableRubberbandPropertyInfo where
type AttrAllowedOps ColumnViewEnableRubberbandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewEnableRubberbandPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewEnableRubberbandPropertyInfo = (~) Bool
type AttrTransferType ColumnViewEnableRubberbandPropertyInfo = Bool
type AttrGetType ColumnViewEnableRubberbandPropertyInfo = Bool
type AttrLabel ColumnViewEnableRubberbandPropertyInfo = "enable-rubberband"
type AttrOrigin ColumnViewEnableRubberbandPropertyInfo = ColumnView
attrGet = getColumnViewEnableRubberband
attrSet = setColumnViewEnableRubberband
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewEnableRubberband
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.enableRubberband"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:enableRubberband"
})
#endif
getColumnViewModel :: (MonadIO m, IsColumnView o) => o -> m (Maybe Gtk.SelectionModel.SelectionModel)
getColumnViewModel :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> m (Maybe SelectionModel)
getColumnViewModel o
obj = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr SelectionModel -> SelectionModel)
-> IO (Maybe SelectionModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"model" ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel
setColumnViewModel :: (MonadIO m, IsColumnView o, Gtk.SelectionModel.IsSelectionModel a) => o -> a -> m ()
setColumnViewModel :: forall (m :: * -> *) o a.
(MonadIO m, IsColumnView o, IsSelectionModel a) =>
o -> a -> m ()
setColumnViewModel o
obj a
val = IO () -> m ()
forall a. IO a -> m a
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)
constructColumnViewModel :: (IsColumnView o, MIO.MonadIO m, Gtk.SelectionModel.IsSelectionModel a) => a -> m (GValueConstruct o)
constructColumnViewModel :: forall o (m :: * -> *) a.
(IsColumnView o, MonadIO m, IsSelectionModel a) =>
a -> m (GValueConstruct o)
constructColumnViewModel a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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)
clearColumnViewModel :: (MonadIO m, IsColumnView o) => o -> m ()
clearColumnViewModel :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m ()
clearColumnViewModel o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe SelectionModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"model" (Maybe SelectionModel
forall a. Maybe a
Nothing :: Maybe Gtk.SelectionModel.SelectionModel)
#if defined(ENABLE_OVERLOADING)
data ColumnViewModelPropertyInfo
instance AttrInfo ColumnViewModelPropertyInfo where
type AttrAllowedOps ColumnViewModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewModelPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferTypeConstraint ColumnViewModelPropertyInfo = Gtk.SelectionModel.IsSelectionModel
type AttrTransferType ColumnViewModelPropertyInfo = Gtk.SelectionModel.SelectionModel
type AttrGetType ColumnViewModelPropertyInfo = (Maybe Gtk.SelectionModel.SelectionModel)
type AttrLabel ColumnViewModelPropertyInfo = "model"
type AttrOrigin ColumnViewModelPropertyInfo = ColumnView
attrGet = getColumnViewModel
attrSet = setColumnViewModel
attrTransfer _ v = do
unsafeCastTo Gtk.SelectionModel.SelectionModel v
attrConstruct = constructColumnViewModel
attrClear = clearColumnViewModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.model"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:model"
})
#endif
getColumnViewReorderable :: (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewReorderable :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewReorderable o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"reorderable"
setColumnViewReorderable :: (MonadIO m, IsColumnView o) => o -> Bool -> m ()
setColumnViewReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> Bool -> m ()
setColumnViewReorderable o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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
constructColumnViewReorderable :: (IsColumnView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewReorderable :: forall o (m :: * -> *).
(IsColumnView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewReorderable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 ColumnViewReorderablePropertyInfo
instance AttrInfo ColumnViewReorderablePropertyInfo where
type AttrAllowedOps ColumnViewReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewReorderablePropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewReorderablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewReorderablePropertyInfo = (~) Bool
type AttrTransferType ColumnViewReorderablePropertyInfo = Bool
type AttrGetType ColumnViewReorderablePropertyInfo = Bool
type AttrLabel ColumnViewReorderablePropertyInfo = "reorderable"
type AttrOrigin ColumnViewReorderablePropertyInfo = ColumnView
attrGet = getColumnViewReorderable
attrSet = setColumnViewReorderable
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewReorderable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.reorderable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:reorderable"
})
#endif
getColumnViewShowColumnSeparators :: (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewShowColumnSeparators :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewShowColumnSeparators o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-column-separators"
setColumnViewShowColumnSeparators :: (MonadIO m, IsColumnView o) => o -> Bool -> m ()
setColumnViewShowColumnSeparators :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> Bool -> m ()
setColumnViewShowColumnSeparators o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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
"show-column-separators" Bool
val
constructColumnViewShowColumnSeparators :: (IsColumnView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewShowColumnSeparators :: forall o (m :: * -> *).
(IsColumnView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewShowColumnSeparators Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"show-column-separators" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewShowColumnSeparatorsPropertyInfo
instance AttrInfo ColumnViewShowColumnSeparatorsPropertyInfo where
type AttrAllowedOps ColumnViewShowColumnSeparatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewShowColumnSeparatorsPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewShowColumnSeparatorsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewShowColumnSeparatorsPropertyInfo = (~) Bool
type AttrTransferType ColumnViewShowColumnSeparatorsPropertyInfo = Bool
type AttrGetType ColumnViewShowColumnSeparatorsPropertyInfo = Bool
type AttrLabel ColumnViewShowColumnSeparatorsPropertyInfo = "show-column-separators"
type AttrOrigin ColumnViewShowColumnSeparatorsPropertyInfo = ColumnView
attrGet = getColumnViewShowColumnSeparators
attrSet = setColumnViewShowColumnSeparators
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewShowColumnSeparators
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.showColumnSeparators"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:showColumnSeparators"
})
#endif
getColumnViewShowRowSeparators :: (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewShowRowSeparators :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewShowRowSeparators o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"show-row-separators"
setColumnViewShowRowSeparators :: (MonadIO m, IsColumnView o) => o -> Bool -> m ()
setColumnViewShowRowSeparators :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> Bool -> m ()
setColumnViewShowRowSeparators o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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
"show-row-separators" Bool
val
constructColumnViewShowRowSeparators :: (IsColumnView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewShowRowSeparators :: forall o (m :: * -> *).
(IsColumnView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewShowRowSeparators Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"show-row-separators" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewShowRowSeparatorsPropertyInfo
instance AttrInfo ColumnViewShowRowSeparatorsPropertyInfo where
type AttrAllowedOps ColumnViewShowRowSeparatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewShowRowSeparatorsPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewShowRowSeparatorsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewShowRowSeparatorsPropertyInfo = (~) Bool
type AttrTransferType ColumnViewShowRowSeparatorsPropertyInfo = Bool
type AttrGetType ColumnViewShowRowSeparatorsPropertyInfo = Bool
type AttrLabel ColumnViewShowRowSeparatorsPropertyInfo = "show-row-separators"
type AttrOrigin ColumnViewShowRowSeparatorsPropertyInfo = ColumnView
attrGet = getColumnViewShowRowSeparators
attrSet = setColumnViewShowRowSeparators
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewShowRowSeparators
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.showRowSeparators"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:showRowSeparators"
})
#endif
getColumnViewSingleClickActivate :: (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewSingleClickActivate :: forall (m :: * -> *) o. (MonadIO m, IsColumnView o) => o -> m Bool
getColumnViewSingleClickActivate o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"single-click-activate"
setColumnViewSingleClickActivate :: (MonadIO m, IsColumnView o) => o -> Bool -> m ()
setColumnViewSingleClickActivate :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> Bool -> m ()
setColumnViewSingleClickActivate o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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
"single-click-activate" Bool
val
constructColumnViewSingleClickActivate :: (IsColumnView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewSingleClickActivate :: forall o (m :: * -> *).
(IsColumnView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewSingleClickActivate Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"single-click-activate" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewSingleClickActivatePropertyInfo
instance AttrInfo ColumnViewSingleClickActivatePropertyInfo where
type AttrAllowedOps ColumnViewSingleClickActivatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewSingleClickActivatePropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewSingleClickActivatePropertyInfo = (~) Bool
type AttrTransferType ColumnViewSingleClickActivatePropertyInfo = Bool
type AttrGetType ColumnViewSingleClickActivatePropertyInfo = Bool
type AttrLabel ColumnViewSingleClickActivatePropertyInfo = "single-click-activate"
type AttrOrigin ColumnViewSingleClickActivatePropertyInfo = ColumnView
attrGet = getColumnViewSingleClickActivate
attrSet = setColumnViewSingleClickActivate
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewSingleClickActivate
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.singleClickActivate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:singleClickActivate"
})
#endif
getColumnViewSorter :: (MonadIO m, IsColumnView o) => o -> m (Maybe Gtk.Sorter.Sorter)
getColumnViewSorter :: forall (m :: * -> *) o.
(MonadIO m, IsColumnView o) =>
o -> m (Maybe Sorter)
getColumnViewSorter o
obj = IO (Maybe Sorter) -> m (Maybe Sorter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Sorter) -> m (Maybe Sorter))
-> IO (Maybe Sorter) -> m (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Sorter -> Sorter) -> IO (Maybe Sorter)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"sorter" ManagedPtr Sorter -> Sorter
Gtk.Sorter.Sorter
#if defined(ENABLE_OVERLOADING)
data ColumnViewSorterPropertyInfo
instance AttrInfo ColumnViewSorterPropertyInfo where
type AttrAllowedOps ColumnViewSorterPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewSorterPropertyInfo = IsColumnView
type AttrSetTypeConstraint ColumnViewSorterPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewSorterPropertyInfo = (~) ()
type AttrTransferType ColumnViewSorterPropertyInfo = ()
type AttrGetType ColumnViewSorterPropertyInfo = (Maybe Gtk.Sorter.Sorter)
type AttrLabel ColumnViewSorterPropertyInfo = "sorter"
type AttrOrigin ColumnViewSorterPropertyInfo = ColumnView
attrGet = getColumnViewSorter
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.sorter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#g:attr:sorter"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColumnView
type instance O.AttributeList ColumnView = ColumnViewAttributeList
type ColumnViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("columns", ColumnViewColumnsPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("enableRubberband", ColumnViewEnableRubberbandPropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("model", ColumnViewModelPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("reorderable", ColumnViewReorderablePropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showColumnSeparators", ColumnViewShowColumnSeparatorsPropertyInfo), '("showRowSeparators", ColumnViewShowRowSeparatorsPropertyInfo), '("singleClickActivate", ColumnViewSingleClickActivatePropertyInfo), '("sorter", ColumnViewSorterPropertyInfo), '("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, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumns :: AttrLabelProxy "columns"
columnViewColumns = AttrLabelProxy
columnViewEnableRubberband :: AttrLabelProxy "enableRubberband"
columnViewEnableRubberband = AttrLabelProxy
columnViewModel :: AttrLabelProxy "model"
columnViewModel = AttrLabelProxy
columnViewReorderable :: AttrLabelProxy "reorderable"
columnViewReorderable = AttrLabelProxy
columnViewShowColumnSeparators :: AttrLabelProxy "showColumnSeparators"
columnViewShowColumnSeparators = AttrLabelProxy
columnViewShowRowSeparators :: AttrLabelProxy "showRowSeparators"
columnViewShowRowSeparators = AttrLabelProxy
columnViewSingleClickActivate :: AttrLabelProxy "singleClickActivate"
columnViewSingleClickActivate = AttrLabelProxy
columnViewSorter :: AttrLabelProxy "sorter"
columnViewSorter = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColumnView = ColumnViewSignalList
type ColumnViewSignalList = ('[ '("activate", ColumnViewActivateSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_column_view_new" gtk_column_view_new ::
Ptr Gtk.SelectionModel.SelectionModel ->
IO (Ptr ColumnView)
columnViewNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.SelectionModel.IsSelectionModel a) =>
Maybe (a)
-> m ColumnView
columnViewNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSelectionModel a) =>
Maybe a -> m ColumnView
columnViewNew Maybe a
model = IO ColumnView -> m ColumnView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColumnView -> m ColumnView) -> IO ColumnView -> m ColumnView
forall a b. (a -> b) -> a -> b
$ do
Ptr SelectionModel
maybeModel <- case Maybe a
model of
Maybe a
Nothing -> Ptr SelectionModel -> IO (Ptr SelectionModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
forall a. Ptr a
nullPtr
Just a
jModel -> do
Ptr SelectionModel
jModel' <- a -> IO (Ptr SelectionModel)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
jModel
Ptr SelectionModel -> IO (Ptr SelectionModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
jModel'
Ptr ColumnView
result <- Ptr SelectionModel -> IO (Ptr ColumnView)
gtk_column_view_new Ptr SelectionModel
maybeModel
Text -> Ptr ColumnView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"columnViewNew" Ptr ColumnView
result
ColumnView
result' <- ((ManagedPtr ColumnView -> ColumnView)
-> Ptr ColumnView -> IO ColumnView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColumnView -> ColumnView
ColumnView) Ptr ColumnView
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
model a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
ColumnView -> IO ColumnView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ColumnView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_column_view_append_column" gtk_column_view_append_column ::
Ptr ColumnView ->
Ptr Gtk.ColumnViewColumn.ColumnViewColumn ->
IO ()
columnViewAppendColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) =>
a
-> b
-> m ()
columnViewAppendColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnView a, IsColumnViewColumn b) =>
a -> b -> m ()
columnViewAppendColumn a
self b
column = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnViewColumn
column' <- b -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr ColumnView -> Ptr ColumnViewColumn -> IO ()
gtk_column_view_append_column Ptr ColumnView
self' Ptr ColumnViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewAppendColumnMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) => O.OverloadedMethod ColumnViewAppendColumnMethodInfo a signature where
overloadedMethod = columnViewAppendColumn
instance O.OverloadedMethodInfo ColumnViewAppendColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewAppendColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewAppendColumn"
})
#endif
foreign import ccall "gtk_column_view_get_columns" gtk_column_view_get_columns ::
Ptr ColumnView ->
IO (Ptr Gio.ListModel.ListModel)
columnViewGetColumns ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Gio.ListModel.ListModel
columnViewGetColumns :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m ListModel
columnViewGetColumns a
self = IO ListModel -> m ListModel
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListModel -> m ListModel) -> IO ListModel -> m ListModel
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListModel
result <- Ptr ColumnView -> IO (Ptr ListModel)
gtk_column_view_get_columns Ptr ColumnView
self'
Text -> Ptr ListModel -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"columnViewGetColumns" Ptr ListModel
result
ListModel
result' <- ((ManagedPtr ListModel -> ListModel)
-> Ptr ListModel -> IO ListModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListModel -> ListModel
Gio.ListModel.ListModel) Ptr ListModel
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ListModel -> IO ListModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListModel
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetColumnsMethodInfo
instance (signature ~ (m Gio.ListModel.ListModel), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetColumnsMethodInfo a signature where
overloadedMethod = columnViewGetColumns
instance O.OverloadedMethodInfo ColumnViewGetColumnsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetColumns",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetColumns"
})
#endif
foreign import ccall "gtk_column_view_get_enable_rubberband" gtk_column_view_get_enable_rubberband ::
Ptr ColumnView ->
IO CInt
columnViewGetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Bool
columnViewGetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m Bool
columnViewGetEnableRubberband a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnView -> IO CInt
gtk_column_view_get_enable_rubberband Ptr ColumnView
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetEnableRubberbandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetEnableRubberbandMethodInfo a signature where
overloadedMethod = columnViewGetEnableRubberband
instance O.OverloadedMethodInfo ColumnViewGetEnableRubberbandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetEnableRubberband",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetEnableRubberband"
})
#endif
foreign import ccall "gtk_column_view_get_model" gtk_column_view_get_model ::
Ptr ColumnView ->
IO (Ptr Gtk.SelectionModel.SelectionModel)
columnViewGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m (Maybe Gtk.SelectionModel.SelectionModel)
columnViewGetModel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m (Maybe SelectionModel)
columnViewGetModel a
self = IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe SelectionModel) -> m (Maybe SelectionModel))
-> IO (Maybe SelectionModel) -> m (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
result <- Ptr ColumnView -> IO (Ptr SelectionModel)
gtk_column_view_get_model Ptr ColumnView
self'
Maybe SelectionModel
maybeResult <- Ptr SelectionModel
-> (Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr SelectionModel
result ((Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel))
-> (Ptr SelectionModel -> IO SelectionModel)
-> IO (Maybe SelectionModel)
forall a b. (a -> b) -> a -> b
$ \Ptr SelectionModel
result' -> do
SelectionModel
result'' <- ((ManagedPtr SelectionModel -> SelectionModel)
-> Ptr SelectionModel -> IO SelectionModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr SelectionModel -> SelectionModel
Gtk.SelectionModel.SelectionModel) Ptr SelectionModel
result'
SelectionModel -> IO SelectionModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe SelectionModel -> IO (Maybe SelectionModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SelectionModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.SelectionModel.SelectionModel)), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetModelMethodInfo a signature where
overloadedMethod = columnViewGetModel
instance O.OverloadedMethodInfo ColumnViewGetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetModel"
})
#endif
foreign import ccall "gtk_column_view_get_reorderable" gtk_column_view_get_reorderable ::
Ptr ColumnView ->
IO CInt
columnViewGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Bool
columnViewGetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m Bool
columnViewGetReorderable a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnView -> IO CInt
gtk_column_view_get_reorderable Ptr ColumnView
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetReorderableMethodInfo a signature where
overloadedMethod = columnViewGetReorderable
instance O.OverloadedMethodInfo ColumnViewGetReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetReorderable"
})
#endif
foreign import ccall "gtk_column_view_get_show_column_separators" gtk_column_view_get_show_column_separators ::
Ptr ColumnView ->
IO CInt
columnViewGetShowColumnSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Bool
columnViewGetShowColumnSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m Bool
columnViewGetShowColumnSeparators a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnView -> IO CInt
gtk_column_view_get_show_column_separators Ptr ColumnView
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetShowColumnSeparatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetShowColumnSeparatorsMethodInfo a signature where
overloadedMethod = columnViewGetShowColumnSeparators
instance O.OverloadedMethodInfo ColumnViewGetShowColumnSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetShowColumnSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetShowColumnSeparators"
})
#endif
foreign import ccall "gtk_column_view_get_show_row_separators" gtk_column_view_get_show_row_separators ::
Ptr ColumnView ->
IO CInt
columnViewGetShowRowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Bool
columnViewGetShowRowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m Bool
columnViewGetShowRowSeparators a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnView -> IO CInt
gtk_column_view_get_show_row_separators Ptr ColumnView
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetShowRowSeparatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetShowRowSeparatorsMethodInfo a signature where
overloadedMethod = columnViewGetShowRowSeparators
instance O.OverloadedMethodInfo ColumnViewGetShowRowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetShowRowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetShowRowSeparators"
})
#endif
foreign import ccall "gtk_column_view_get_single_click_activate" gtk_column_view_get_single_click_activate ::
Ptr ColumnView ->
IO CInt
columnViewGetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m Bool
columnViewGetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m Bool
columnViewGetSingleClickActivate a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnView -> IO CInt
gtk_column_view_get_single_click_activate Ptr ColumnView
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetSingleClickActivateMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetSingleClickActivateMethodInfo a signature where
overloadedMethod = columnViewGetSingleClickActivate
instance O.OverloadedMethodInfo ColumnViewGetSingleClickActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetSingleClickActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetSingleClickActivate"
})
#endif
foreign import ccall "gtk_column_view_get_sorter" gtk_column_view_get_sorter ::
Ptr ColumnView ->
IO (Ptr Gtk.Sorter.Sorter)
columnViewGetSorter ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> m (Maybe Gtk.Sorter.Sorter)
columnViewGetSorter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> m (Maybe Sorter)
columnViewGetSorter a
self = IO (Maybe Sorter) -> m (Maybe Sorter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Sorter) -> m (Maybe Sorter))
-> IO (Maybe Sorter) -> m (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Sorter
result <- Ptr ColumnView -> IO (Ptr Sorter)
gtk_column_view_get_sorter Ptr ColumnView
self'
Maybe Sorter
maybeResult <- Ptr Sorter -> (Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sorter
result ((Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter))
-> (Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ \Ptr Sorter
result' -> do
Sorter
result'' <- ((ManagedPtr Sorter -> Sorter) -> Ptr Sorter -> IO Sorter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Sorter -> Sorter
Gtk.Sorter.Sorter) Ptr Sorter
result'
Sorter -> IO Sorter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sorter
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Sorter -> IO (Maybe Sorter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sorter
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewGetSorterMethodInfo
instance (signature ~ (m (Maybe Gtk.Sorter.Sorter)), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewGetSorterMethodInfo a signature where
overloadedMethod = columnViewGetSorter
instance O.OverloadedMethodInfo ColumnViewGetSorterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewGetSorter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewGetSorter"
})
#endif
foreign import ccall "gtk_column_view_insert_column" gtk_column_view_insert_column ::
Ptr ColumnView ->
Word32 ->
Ptr Gtk.ColumnViewColumn.ColumnViewColumn ->
IO ()
columnViewInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) =>
a
-> Word32
-> b
-> m ()
columnViewInsertColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnView a, IsColumnViewColumn b) =>
a -> Word32 -> b -> m ()
columnViewInsertColumn a
self Word32
position b
column = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnViewColumn
column' <- b -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr ColumnView -> Word32 -> Ptr ColumnViewColumn -> IO ()
gtk_column_view_insert_column Ptr ColumnView
self' Word32
position Ptr ColumnViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewInsertColumnMethodInfo
instance (signature ~ (Word32 -> b -> m ()), MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) => O.OverloadedMethod ColumnViewInsertColumnMethodInfo a signature where
overloadedMethod = columnViewInsertColumn
instance O.OverloadedMethodInfo ColumnViewInsertColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewInsertColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewInsertColumn"
})
#endif
foreign import ccall "gtk_column_view_remove_column" gtk_column_view_remove_column ::
Ptr ColumnView ->
Ptr Gtk.ColumnViewColumn.ColumnViewColumn ->
IO ()
columnViewRemoveColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) =>
a
-> b
-> m ()
columnViewRemoveColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnView a, IsColumnViewColumn b) =>
a -> b -> m ()
columnViewRemoveColumn a
self b
column = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnViewColumn
column' <- b -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
column
Ptr ColumnView -> Ptr ColumnViewColumn -> IO ()
gtk_column_view_remove_column Ptr ColumnView
self' Ptr ColumnViewColumn
column'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
column
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewRemoveColumnMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) => O.OverloadedMethod ColumnViewRemoveColumnMethodInfo a signature where
overloadedMethod = columnViewRemoveColumn
instance O.OverloadedMethodInfo ColumnViewRemoveColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewRemoveColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewRemoveColumn"
})
#endif
foreign import ccall "gtk_column_view_set_enable_rubberband" gtk_column_view_set_enable_rubberband ::
Ptr ColumnView ->
CInt ->
IO ()
columnViewSetEnableRubberband ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> Bool
-> m ()
columnViewSetEnableRubberband :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> Bool -> m ()
columnViewSetEnableRubberband a
self Bool
enableRubberband = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let enableRubberband' :: CInt
enableRubberband' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
enableRubberband
Ptr ColumnView -> CInt -> IO ()
gtk_column_view_set_enable_rubberband Ptr ColumnView
self' CInt
enableRubberband'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetEnableRubberbandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewSetEnableRubberbandMethodInfo a signature where
overloadedMethod = columnViewSetEnableRubberband
instance O.OverloadedMethodInfo ColumnViewSetEnableRubberbandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetEnableRubberband",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetEnableRubberband"
})
#endif
foreign import ccall "gtk_column_view_set_model" gtk_column_view_set_model ::
Ptr ColumnView ->
Ptr Gtk.SelectionModel.SelectionModel ->
IO ()
columnViewSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a, Gtk.SelectionModel.IsSelectionModel b) =>
a
-> Maybe (b)
-> m ()
columnViewSetModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnView a, IsSelectionModel b) =>
a -> Maybe b -> m ()
columnViewSetModel a
self Maybe b
model = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr SelectionModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr SelectionModel -> IO (Ptr SelectionModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr SelectionModel
jModel' <- b -> IO (Ptr SelectionModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr SelectionModel -> IO (Ptr SelectionModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr SelectionModel
jModel'
Ptr ColumnView -> Ptr SelectionModel -> IO ()
gtk_column_view_set_model Ptr ColumnView
self' Ptr SelectionModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsColumnView a, Gtk.SelectionModel.IsSelectionModel b) => O.OverloadedMethod ColumnViewSetModelMethodInfo a signature where
overloadedMethod = columnViewSetModel
instance O.OverloadedMethodInfo ColumnViewSetModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetModel"
})
#endif
foreign import ccall "gtk_column_view_set_reorderable" gtk_column_view_set_reorderable ::
Ptr ColumnView ->
CInt ->
IO ()
columnViewSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> Bool
-> m ()
columnViewSetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> Bool -> m ()
columnViewSetReorderable a
self Bool
reorderable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let reorderable' :: CInt
reorderable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
reorderable
Ptr ColumnView -> CInt -> IO ()
gtk_column_view_set_reorderable Ptr ColumnView
self' CInt
reorderable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewSetReorderableMethodInfo a signature where
overloadedMethod = columnViewSetReorderable
instance O.OverloadedMethodInfo ColumnViewSetReorderableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetReorderable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetReorderable"
})
#endif
foreign import ccall "gtk_column_view_set_show_column_separators" gtk_column_view_set_show_column_separators ::
Ptr ColumnView ->
CInt ->
IO ()
columnViewSetShowColumnSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> Bool
-> m ()
columnViewSetShowColumnSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> Bool -> m ()
columnViewSetShowColumnSeparators a
self Bool
showColumnSeparators = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showColumnSeparators' :: CInt
showColumnSeparators' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
showColumnSeparators
Ptr ColumnView -> CInt -> IO ()
gtk_column_view_set_show_column_separators Ptr ColumnView
self' CInt
showColumnSeparators'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetShowColumnSeparatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewSetShowColumnSeparatorsMethodInfo a signature where
overloadedMethod = columnViewSetShowColumnSeparators
instance O.OverloadedMethodInfo ColumnViewSetShowColumnSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetShowColumnSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetShowColumnSeparators"
})
#endif
foreign import ccall "gtk_column_view_set_show_row_separators" gtk_column_view_set_show_row_separators ::
Ptr ColumnView ->
CInt ->
IO ()
columnViewSetShowRowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> Bool
-> m ()
columnViewSetShowRowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> Bool -> m ()
columnViewSetShowRowSeparators a
self Bool
showRowSeparators = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let showRowSeparators' :: CInt
showRowSeparators' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
showRowSeparators
Ptr ColumnView -> CInt -> IO ()
gtk_column_view_set_show_row_separators Ptr ColumnView
self' CInt
showRowSeparators'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetShowRowSeparatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewSetShowRowSeparatorsMethodInfo a signature where
overloadedMethod = columnViewSetShowRowSeparators
instance O.OverloadedMethodInfo ColumnViewSetShowRowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetShowRowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetShowRowSeparators"
})
#endif
foreign import ccall "gtk_column_view_set_single_click_activate" gtk_column_view_set_single_click_activate ::
Ptr ColumnView ->
CInt ->
IO ()
columnViewSetSingleClickActivate ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a) =>
a
-> Bool
-> m ()
columnViewSetSingleClickActivate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnView a) =>
a -> Bool -> m ()
columnViewSetSingleClickActivate a
self Bool
singleClickActivate = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let singleClickActivate' :: CInt
singleClickActivate' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
singleClickActivate
Ptr ColumnView -> CInt -> IO ()
gtk_column_view_set_single_click_activate Ptr ColumnView
self' CInt
singleClickActivate'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSetSingleClickActivateMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnView a) => O.OverloadedMethod ColumnViewSetSingleClickActivateMethodInfo a signature where
overloadedMethod = columnViewSetSingleClickActivate
instance O.OverloadedMethodInfo ColumnViewSetSingleClickActivateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSetSingleClickActivate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSetSingleClickActivate"
})
#endif
foreign import ccall "gtk_column_view_sort_by_column" gtk_column_view_sort_by_column ::
Ptr ColumnView ->
Ptr Gtk.ColumnViewColumn.ColumnViewColumn ->
CUInt ->
IO ()
columnViewSortByColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) =>
a
-> Maybe (b)
-> Gtk.Enums.SortType
-> m ()
columnViewSortByColumn :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnView a, IsColumnViewColumn b) =>
a -> Maybe b -> SortType -> m ()
columnViewSortByColumn a
self Maybe b
column SortType
direction = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnView
self' <- a -> IO (Ptr ColumnView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnViewColumn
maybeColumn <- case Maybe b
column of
Maybe b
Nothing -> Ptr ColumnViewColumn -> IO (Ptr ColumnViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ColumnViewColumn
forall a. Ptr a
nullPtr
Just b
jColumn -> do
Ptr ColumnViewColumn
jColumn' <- b -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jColumn
Ptr ColumnViewColumn -> IO (Ptr ColumnViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ColumnViewColumn
jColumn'
let direction' :: CUInt
direction' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SortType -> Int) -> SortType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SortType -> Int
forall a. Enum a => a -> Int
fromEnum) SortType
direction
Ptr ColumnView -> Ptr ColumnViewColumn -> CUInt -> IO ()
gtk_column_view_sort_by_column Ptr ColumnView
self' Ptr ColumnViewColumn
maybeColumn CUInt
direction'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
column b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewSortByColumnMethodInfo
instance (signature ~ (Maybe (b) -> Gtk.Enums.SortType -> m ()), MonadIO m, IsColumnView a, Gtk.ColumnViewColumn.IsColumnViewColumn b) => O.OverloadedMethod ColumnViewSortByColumnMethodInfo a signature where
overloadedMethod = columnViewSortByColumn
instance O.OverloadedMethodInfo ColumnViewSortByColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnView.columnViewSortByColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnView.html#v:columnViewSortByColumn"
})
#endif