{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ListBox
(
ListBox(..) ,
IsListBox ,
toListBox ,
#if defined(ENABLE_OVERLOADING)
ResolveListBoxMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ListBoxAppendMethodInfo ,
#endif
listBoxAppend ,
#if defined(ENABLE_OVERLOADING)
ListBoxBindModelMethodInfo ,
#endif
listBoxBindModel ,
#if defined(ENABLE_OVERLOADING)
ListBoxDragHighlightRowMethodInfo ,
#endif
listBoxDragHighlightRow ,
#if defined(ENABLE_OVERLOADING)
ListBoxDragUnhighlightRowMethodInfo ,
#endif
listBoxDragUnhighlightRow ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetActivateOnSingleClickMethodInfo,
#endif
listBoxGetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetAdjustmentMethodInfo ,
#endif
listBoxGetAdjustment ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetRowAtIndexMethodInfo ,
#endif
listBoxGetRowAtIndex ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetRowAtYMethodInfo ,
#endif
listBoxGetRowAtY ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetSelectedRowMethodInfo ,
#endif
listBoxGetSelectedRow ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetSelectedRowsMethodInfo ,
#endif
listBoxGetSelectedRows ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetSelectionModeMethodInfo ,
#endif
listBoxGetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetShowSeparatorsMethodInfo ,
#endif
listBoxGetShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListBoxGetTabBehaviorMethodInfo ,
#endif
listBoxGetTabBehavior ,
#if defined(ENABLE_OVERLOADING)
ListBoxInsertMethodInfo ,
#endif
listBoxInsert ,
#if defined(ENABLE_OVERLOADING)
ListBoxInvalidateFilterMethodInfo ,
#endif
listBoxInvalidateFilter ,
#if defined(ENABLE_OVERLOADING)
ListBoxInvalidateHeadersMethodInfo ,
#endif
listBoxInvalidateHeaders ,
#if defined(ENABLE_OVERLOADING)
ListBoxInvalidateSortMethodInfo ,
#endif
listBoxInvalidateSort ,
listBoxNew ,
#if defined(ENABLE_OVERLOADING)
ListBoxPrependMethodInfo ,
#endif
listBoxPrepend ,
#if defined(ENABLE_OVERLOADING)
ListBoxRemoveMethodInfo ,
#endif
listBoxRemove ,
#if defined(ENABLE_OVERLOADING)
ListBoxRemoveAllMethodInfo ,
#endif
listBoxRemoveAll ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectAllMethodInfo ,
#endif
listBoxSelectAll ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectRowMethodInfo ,
#endif
listBoxSelectRow ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectedForeachMethodInfo ,
#endif
listBoxSelectedForeach ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetActivateOnSingleClickMethodInfo,
#endif
listBoxSetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetAdjustmentMethodInfo ,
#endif
listBoxSetAdjustment ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetFilterFuncMethodInfo ,
#endif
listBoxSetFilterFunc ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetHeaderFuncMethodInfo ,
#endif
listBoxSetHeaderFunc ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetPlaceholderMethodInfo ,
#endif
listBoxSetPlaceholder ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetSelectionModeMethodInfo ,
#endif
listBoxSetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetShowSeparatorsMethodInfo ,
#endif
listBoxSetShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetSortFuncMethodInfo ,
#endif
listBoxSetSortFunc ,
#if defined(ENABLE_OVERLOADING)
ListBoxSetTabBehaviorMethodInfo ,
#endif
listBoxSetTabBehavior ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectAllMethodInfo ,
#endif
listBoxUnselectAll ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectRowMethodInfo ,
#endif
listBoxUnselectRow ,
#if defined(ENABLE_OVERLOADING)
ListBoxAcceptUnpairedReleasePropertyInfo,
#endif
constructListBoxAcceptUnpairedRelease ,
getListBoxAcceptUnpairedRelease ,
#if defined(ENABLE_OVERLOADING)
listBoxAcceptUnpairedRelease ,
#endif
setListBoxAcceptUnpairedRelease ,
#if defined(ENABLE_OVERLOADING)
ListBoxActivateOnSingleClickPropertyInfo,
#endif
constructListBoxActivateOnSingleClick ,
getListBoxActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
listBoxActivateOnSingleClick ,
#endif
setListBoxActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectionModePropertyInfo ,
#endif
constructListBoxSelectionMode ,
getListBoxSelectionMode ,
#if defined(ENABLE_OVERLOADING)
listBoxSelectionMode ,
#endif
setListBoxSelectionMode ,
#if defined(ENABLE_OVERLOADING)
ListBoxShowSeparatorsPropertyInfo ,
#endif
constructListBoxShowSeparators ,
getListBoxShowSeparators ,
#if defined(ENABLE_OVERLOADING)
listBoxShowSeparators ,
#endif
setListBoxShowSeparators ,
#if defined(ENABLE_OVERLOADING)
ListBoxTabBehaviorPropertyInfo ,
#endif
constructListBoxTabBehavior ,
getListBoxTabBehavior ,
#if defined(ENABLE_OVERLOADING)
listBoxTabBehavior ,
#endif
setListBoxTabBehavior ,
ListBoxActivateCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxActivateCursorRowSignalInfo ,
#endif
afterListBoxActivateCursorRow ,
onListBoxActivateCursorRow ,
ListBoxMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxMoveCursorSignalInfo ,
#endif
afterListBoxMoveCursor ,
onListBoxMoveCursor ,
ListBoxRowActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxRowActivatedSignalInfo ,
#endif
afterListBoxRowActivated ,
onListBoxRowActivated ,
ListBoxRowSelectedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxRowSelectedSignalInfo ,
#endif
afterListBoxRowSelected ,
onListBoxRowSelected ,
ListBoxSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectAllSignalInfo ,
#endif
afterListBoxSelectAll ,
onListBoxSelectAll ,
ListBoxSelectedRowsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectedRowsChangedSignalInfo ,
#endif
afterListBoxSelectedRowsChanged ,
onListBoxSelectedRowsChanged ,
ListBoxToggleCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxToggleCursorRowSignalInfo ,
#endif
afterListBoxToggleCursorRow ,
onListBoxToggleCursorRow ,
ListBoxUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectAllSignalInfo ,
#endif
afterListBoxUnselectAll ,
onListBoxUnselectAll ,
) 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 Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Actionable as Gtk.Actionable
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.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype ListBox = ListBox (SP.ManagedPtr ListBox)
deriving (ListBox -> ListBox -> Bool
(ListBox -> ListBox -> Bool)
-> (ListBox -> ListBox -> Bool) -> Eq ListBox
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListBox -> ListBox -> Bool
== :: ListBox -> ListBox -> Bool
$c/= :: ListBox -> ListBox -> Bool
/= :: ListBox -> ListBox -> Bool
Eq)
instance SP.ManagedPtrNewtype ListBox where
toManagedPtr :: ListBox -> ManagedPtr ListBox
toManagedPtr (ListBox ManagedPtr ListBox
p) = ManagedPtr ListBox
p
foreign import ccall "gtk_list_box_get_type"
c_gtk_list_box_get_type :: IO B.Types.GType
instance B.Types.TypedObject ListBox where
glibType :: IO GType
glibType = IO GType
c_gtk_list_box_get_type
instance B.Types.GObject ListBox
class (SP.GObject o, O.IsDescendantOf ListBox o) => IsListBox o
instance (SP.GObject o, O.IsDescendantOf ListBox o) => IsListBox o
instance O.HasParentTypes ListBox
type instance O.ParentTypes ListBox = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toListBox :: (MIO.MonadIO m, IsListBox o) => o -> m ListBox
toListBox :: forall (m :: * -> *) o. (MonadIO m, IsListBox o) => o -> m ListBox
toListBox = IO ListBox -> m ListBox
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ListBox -> m ListBox) -> (o -> IO ListBox) -> o -> m ListBox
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ListBox -> ListBox) -> o -> IO ListBox
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ListBox -> ListBox
ListBox
instance B.GValue.IsGValue (Maybe ListBox) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_list_box_get_type
gvalueSet_ :: Ptr GValue -> Maybe ListBox -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ListBox
P.Nothing = Ptr GValue -> Ptr ListBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ListBox
forall a. Ptr a
FP.nullPtr :: FP.Ptr ListBox)
gvalueSet_ Ptr GValue
gv (P.Just ListBox
obj) = ListBox -> (Ptr ListBox -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ListBox
obj (Ptr GValue -> Ptr ListBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ListBox)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr ListBox)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ListBox)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject ListBox ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveListBoxMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveListBoxMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveListBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveListBoxMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveListBoxMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveListBoxMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveListBoxMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveListBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveListBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveListBoxMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveListBoxMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveListBoxMethod "append" o = ListBoxAppendMethodInfo
ResolveListBoxMethod "bindModel" o = ListBoxBindModelMethodInfo
ResolveListBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveListBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveListBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveListBoxMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveListBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveListBoxMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveListBoxMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveListBoxMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveListBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveListBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveListBoxMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveListBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveListBoxMethod "dragHighlightRow" o = ListBoxDragHighlightRowMethodInfo
ResolveListBoxMethod "dragUnhighlightRow" o = ListBoxDragUnhighlightRowMethodInfo
ResolveListBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveListBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveListBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveListBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveListBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveListBoxMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveListBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveListBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveListBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveListBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveListBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveListBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveListBoxMethod "insert" o = ListBoxInsertMethodInfo
ResolveListBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveListBoxMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveListBoxMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveListBoxMethod "invalidateFilter" o = ListBoxInvalidateFilterMethodInfo
ResolveListBoxMethod "invalidateHeaders" o = ListBoxInvalidateHeadersMethodInfo
ResolveListBoxMethod "invalidateSort" o = ListBoxInvalidateSortMethodInfo
ResolveListBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveListBoxMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveListBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveListBoxMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveListBoxMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveListBoxMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveListBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveListBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveListBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveListBoxMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveListBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveListBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveListBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveListBoxMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveListBoxMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveListBoxMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveListBoxMethod "prepend" o = ListBoxPrependMethodInfo
ResolveListBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveListBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveListBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveListBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveListBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveListBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveListBoxMethod "remove" o = ListBoxRemoveMethodInfo
ResolveListBoxMethod "removeAll" o = ListBoxRemoveAllMethodInfo
ResolveListBoxMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveListBoxMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveListBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveListBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveListBoxMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveListBoxMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveListBoxMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveListBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveListBoxMethod "selectAll" o = ListBoxSelectAllMethodInfo
ResolveListBoxMethod "selectRow" o = ListBoxSelectRowMethodInfo
ResolveListBoxMethod "selectedForeach" o = ListBoxSelectedForeachMethodInfo
ResolveListBoxMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveListBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveListBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveListBoxMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveListBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveListBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveListBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveListBoxMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveListBoxMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveListBoxMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveListBoxMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveListBoxMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveListBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveListBoxMethod "unselectAll" o = ListBoxUnselectAllMethodInfo
ResolveListBoxMethod "unselectRow" o = ListBoxUnselectRowMethodInfo
ResolveListBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveListBoxMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveListBoxMethod "updatePlatformState" o = Gtk.Accessible.AccessibleUpdatePlatformStateMethodInfo
ResolveListBoxMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveListBoxMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveListBoxMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveListBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveListBoxMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveListBoxMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveListBoxMethod "getActivateOnSingleClick" o = ListBoxGetActivateOnSingleClickMethodInfo
ResolveListBoxMethod "getAdjustment" o = ListBoxGetAdjustmentMethodInfo
ResolveListBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveListBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveListBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveListBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveListBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveListBoxMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveListBoxMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveListBoxMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveListBoxMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveListBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveListBoxMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveListBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveListBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveListBoxMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveListBoxMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveListBoxMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveListBoxMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveListBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveListBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveListBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveListBoxMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveListBoxMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveListBoxMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveListBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveListBoxMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveListBoxMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveListBoxMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveListBoxMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveListBoxMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveListBoxMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveListBoxMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveListBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveListBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveListBoxMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveListBoxMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveListBoxMethod "getLimitEvents" o = Gtk.Widget.WidgetGetLimitEventsMethodInfo
ResolveListBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveListBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveListBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveListBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveListBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveListBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveListBoxMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveListBoxMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveListBoxMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveListBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveListBoxMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveListBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveListBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveListBoxMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveListBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveListBoxMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveListBoxMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveListBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveListBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveListBoxMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveListBoxMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveListBoxMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveListBoxMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveListBoxMethod "getRowAtIndex" o = ListBoxGetRowAtIndexMethodInfo
ResolveListBoxMethod "getRowAtY" o = ListBoxGetRowAtYMethodInfo
ResolveListBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveListBoxMethod "getSelectedRow" o = ListBoxGetSelectedRowMethodInfo
ResolveListBoxMethod "getSelectedRows" o = ListBoxGetSelectedRowsMethodInfo
ResolveListBoxMethod "getSelectionMode" o = ListBoxGetSelectionModeMethodInfo
ResolveListBoxMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveListBoxMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveListBoxMethod "getShowSeparators" o = ListBoxGetShowSeparatorsMethodInfo
ResolveListBoxMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveListBoxMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveListBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveListBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveListBoxMethod "getTabBehavior" o = ListBoxGetTabBehaviorMethodInfo
ResolveListBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveListBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveListBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveListBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveListBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveListBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveListBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveListBoxMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveListBoxMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveListBoxMethod "setActivateOnSingleClick" o = ListBoxSetActivateOnSingleClickMethodInfo
ResolveListBoxMethod "setAdjustment" o = ListBoxSetAdjustmentMethodInfo
ResolveListBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveListBoxMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveListBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveListBoxMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveListBoxMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveListBoxMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveListBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveListBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveListBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveListBoxMethod "setFilterFunc" o = ListBoxSetFilterFuncMethodInfo
ResolveListBoxMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveListBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveListBoxMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveListBoxMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveListBoxMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveListBoxMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveListBoxMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveListBoxMethod "setHeaderFunc" o = ListBoxSetHeaderFuncMethodInfo
ResolveListBoxMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveListBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveListBoxMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveListBoxMethod "setLimitEvents" o = Gtk.Widget.WidgetSetLimitEventsMethodInfo
ResolveListBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveListBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveListBoxMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveListBoxMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveListBoxMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveListBoxMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveListBoxMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveListBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveListBoxMethod "setPlaceholder" o = ListBoxSetPlaceholderMethodInfo
ResolveListBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveListBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveListBoxMethod "setSelectionMode" o = ListBoxSetSelectionModeMethodInfo
ResolveListBoxMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveListBoxMethod "setShowSeparators" o = ListBoxSetShowSeparatorsMethodInfo
ResolveListBoxMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveListBoxMethod "setSortFunc" o = ListBoxSetSortFuncMethodInfo
ResolveListBoxMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveListBoxMethod "setTabBehavior" o = ListBoxSetTabBehaviorMethodInfo
ResolveListBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveListBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveListBoxMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveListBoxMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveListBoxMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveListBoxMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveListBoxMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveListBoxMethod t ListBox, O.OverloadedMethod info ListBox p) => OL.IsLabel t (ListBox -> 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 ~ ResolveListBoxMethod t ListBox, O.OverloadedMethod info ListBox p, R.HasField t ListBox p) => R.HasField t ListBox p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveListBoxMethod t ListBox, O.OverloadedMethodInfo info ListBox) => OL.IsLabel t (O.MethodProxy info ListBox) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ListBoxActivateCursorRowCallback =
IO ()
type C_ListBoxActivateCursorRowCallback =
Ptr ListBox ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxActivateCursorRowCallback :: C_ListBoxActivateCursorRowCallback -> IO (FunPtr C_ListBoxActivateCursorRowCallback)
wrap_ListBoxActivateCursorRowCallback ::
GObject a => (a -> ListBoxActivateCursorRowCallback) ->
C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback a -> IO ()
gi'cb Ptr ListBox
gi'selfPtr Ptr ()
_ = do
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> IO ()
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self)
onListBoxActivateCursorRow :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxActivateCursorRowCallback) -> m SignalHandlerId
onListBoxActivateCursorRow :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onListBoxActivateCursorRow a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "activate-cursor-row" wrapped'' SignalConnectBefore Nothing
afterListBoxActivateCursorRow :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxActivateCursorRowCallback) -> m SignalHandlerId
afterListBoxActivateCursorRow :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterListBoxActivateCursorRow a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "activate-cursor-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxActivateCursorRowSignalInfo
instance SignalInfo ListBoxActivateCursorRowSignalInfo where
type HaskellCallbackType ListBoxActivateCursorRowSignalInfo = ListBoxActivateCursorRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxActivateCursorRowCallback cb
cb'' <- mk_ListBoxActivateCursorRowCallback cb'
connectSignalFunPtr obj "activate-cursor-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::activate-cursor-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:activateCursorRow"})
#endif
type ListBoxMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> Bool
-> Bool
-> IO ()
type C_ListBoxMoveCursorCallback =
Ptr ListBox ->
CUInt ->
Int32 ->
CInt ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxMoveCursorCallback :: C_ListBoxMoveCursorCallback -> IO (FunPtr C_ListBoxMoveCursorCallback)
wrap_ListBoxMoveCursorCallback ::
GObject a => (a -> ListBoxMoveCursorCallback) ->
C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback :: forall a.
GObject a =>
(a -> ListBoxMoveCursorCallback) -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback a -> ListBoxMoveCursorCallback
gi'cb Ptr ListBox
gi'selfPtr CUInt
step Int32
count CInt
extend CInt
modify Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
let extend' :: Bool
extend' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
extend
let modify' :: Bool
modify' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
modify
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> ListBoxMoveCursorCallback
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self) MovementStep
step' Int32
count Bool
extend' Bool
modify'
onListBoxMoveCursor :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxMoveCursorCallback) -> m SignalHandlerId
onListBoxMoveCursor :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => ListBoxMoveCursorCallback) -> m SignalHandlerId
onListBoxMoveCursor a
obj (?self::a) => ListBoxMoveCursorCallback
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 -> ListBoxMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxMoveCursorCallback
ListBoxMoveCursorCallback
cb
let wrapped' :: C_ListBoxMoveCursorCallback
wrapped' = (a -> ListBoxMoveCursorCallback) -> C_ListBoxMoveCursorCallback
forall a.
GObject a =>
(a -> ListBoxMoveCursorCallback) -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback a -> ListBoxMoveCursorCallback
wrapped
wrapped'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
wrapped'
connectSignalFunPtr obj "move-cursor" wrapped'' SignalConnectBefore Nothing
afterListBoxMoveCursor :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxMoveCursorCallback) -> m SignalHandlerId
afterListBoxMoveCursor :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => ListBoxMoveCursorCallback) -> m SignalHandlerId
afterListBoxMoveCursor a
obj (?self::a) => ListBoxMoveCursorCallback
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 -> ListBoxMoveCursorCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxMoveCursorCallback
ListBoxMoveCursorCallback
cb
let wrapped' :: C_ListBoxMoveCursorCallback
wrapped' = (a -> ListBoxMoveCursorCallback) -> C_ListBoxMoveCursorCallback
forall a.
GObject a =>
(a -> ListBoxMoveCursorCallback) -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback a -> ListBoxMoveCursorCallback
wrapped
wrapped'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
wrapped'
connectSignalFunPtr obj "move-cursor" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxMoveCursorSignalInfo
instance SignalInfo ListBoxMoveCursorSignalInfo where
type HaskellCallbackType ListBoxMoveCursorSignalInfo = ListBoxMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxMoveCursorCallback cb
cb'' <- mk_ListBoxMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::move-cursor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:moveCursor"})
#endif
type ListBoxRowActivatedCallback =
Gtk.ListBoxRow.ListBoxRow
-> IO ()
type C_ListBoxRowActivatedCallback =
Ptr ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxRowActivatedCallback :: C_ListBoxRowActivatedCallback -> IO (FunPtr C_ListBoxRowActivatedCallback)
wrap_ListBoxRowActivatedCallback ::
GObject a => (a -> ListBoxRowActivatedCallback) ->
C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback :: forall a.
GObject a =>
(a -> ListBoxRowActivatedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback a -> ListBoxRowActivatedCallback
gi'cb Ptr ListBox
gi'selfPtr Ptr ListBoxRow
row Ptr ()
_ = do
row' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
row
B.ManagedPtr.withNewObject gi'selfPtr $ \ListBox
gi'self -> a -> ListBoxRowActivatedCallback
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self) ListBoxRow
row'
onListBoxRowActivated :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxRowActivatedCallback) -> m SignalHandlerId
onListBoxRowActivated :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a
-> ((?self::a) => ListBoxRowActivatedCallback) -> m SignalHandlerId
onListBoxRowActivated a
obj (?self::a) => ListBoxRowActivatedCallback
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 -> ListBoxRowActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxRowActivatedCallback
ListBoxRowActivatedCallback
cb
let wrapped' :: C_ListBoxRowActivatedCallback
wrapped' = (a -> ListBoxRowActivatedCallback) -> C_ListBoxRowActivatedCallback
forall a.
GObject a =>
(a -> ListBoxRowActivatedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback a -> ListBoxRowActivatedCallback
wrapped
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-activated" wrapped'' SignalConnectBefore Nothing
afterListBoxRowActivated :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxRowActivatedCallback) -> m SignalHandlerId
afterListBoxRowActivated :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a
-> ((?self::a) => ListBoxRowActivatedCallback) -> m SignalHandlerId
afterListBoxRowActivated a
obj (?self::a) => ListBoxRowActivatedCallback
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 -> ListBoxRowActivatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxRowActivatedCallback
ListBoxRowActivatedCallback
cb
let wrapped' :: C_ListBoxRowActivatedCallback
wrapped' = (a -> ListBoxRowActivatedCallback) -> C_ListBoxRowActivatedCallback
forall a.
GObject a =>
(a -> ListBoxRowActivatedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback a -> ListBoxRowActivatedCallback
wrapped
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-activated" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxRowActivatedSignalInfo
instance SignalInfo ListBoxRowActivatedSignalInfo where
type HaskellCallbackType ListBoxRowActivatedSignalInfo = ListBoxRowActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxRowActivatedCallback cb
cb'' <- mk_ListBoxRowActivatedCallback cb'
connectSignalFunPtr obj "row-activated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::row-activated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:rowActivated"})
#endif
type ListBoxRowSelectedCallback =
Maybe Gtk.ListBoxRow.ListBoxRow
-> IO ()
type C_ListBoxRowSelectedCallback =
Ptr ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxRowSelectedCallback :: C_ListBoxRowSelectedCallback -> IO (FunPtr C_ListBoxRowSelectedCallback)
wrap_ListBoxRowSelectedCallback ::
GObject a => (a -> ListBoxRowSelectedCallback) ->
C_ListBoxRowSelectedCallback
wrap_ListBoxRowSelectedCallback :: forall a.
GObject a =>
(a -> ListBoxRowSelectedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback a -> ListBoxRowSelectedCallback
gi'cb Ptr ListBox
gi'selfPtr Ptr ListBoxRow
row Ptr ()
_ = do
maybeRow <-
if Ptr ListBoxRow
row Ptr ListBoxRow -> Ptr ListBoxRow -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr ListBoxRow
forall a. Ptr a
FP.nullPtr
then Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListBoxRow
forall a. Maybe a
Nothing
else do
row' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
row
return $ Just row'
B.ManagedPtr.withNewObject gi'selfPtr $ \ListBox
gi'self -> a -> ListBoxRowSelectedCallback
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self) Maybe ListBoxRow
maybeRow
onListBoxRowSelected :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxRowSelectedCallback) -> m SignalHandlerId
onListBoxRowSelected :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a
-> ((?self::a) => ListBoxRowSelectedCallback) -> m SignalHandlerId
onListBoxRowSelected a
obj (?self::a) => ListBoxRowSelectedCallback
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 -> ListBoxRowSelectedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxRowSelectedCallback
ListBoxRowSelectedCallback
cb
let wrapped' :: C_ListBoxRowActivatedCallback
wrapped' = (a -> ListBoxRowSelectedCallback) -> C_ListBoxRowActivatedCallback
forall a.
GObject a =>
(a -> ListBoxRowSelectedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback a -> ListBoxRowSelectedCallback
wrapped
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-selected" wrapped'' SignalConnectBefore Nothing
afterListBoxRowSelected :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxRowSelectedCallback) -> m SignalHandlerId
afterListBoxRowSelected :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a
-> ((?self::a) => ListBoxRowSelectedCallback) -> m SignalHandlerId
afterListBoxRowSelected a
obj (?self::a) => ListBoxRowSelectedCallback
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 -> ListBoxRowSelectedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ListBoxRowSelectedCallback
ListBoxRowSelectedCallback
cb
let wrapped' :: C_ListBoxRowActivatedCallback
wrapped' = (a -> ListBoxRowSelectedCallback) -> C_ListBoxRowActivatedCallback
forall a.
GObject a =>
(a -> ListBoxRowSelectedCallback) -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback a -> ListBoxRowSelectedCallback
wrapped
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
wrapped'
connectSignalFunPtr obj "row-selected" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxRowSelectedSignalInfo
instance SignalInfo ListBoxRowSelectedSignalInfo where
type HaskellCallbackType ListBoxRowSelectedSignalInfo = ListBoxRowSelectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxRowSelectedCallback cb
cb'' <- mk_ListBoxRowSelectedCallback cb'
connectSignalFunPtr obj "row-selected" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::row-selected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:rowSelected"})
#endif
type ListBoxSelectAllCallback =
IO ()
type C_ListBoxSelectAllCallback =
Ptr ListBox ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxSelectAllCallback :: C_ListBoxSelectAllCallback -> IO (FunPtr C_ListBoxSelectAllCallback)
wrap_ListBoxSelectAllCallback ::
GObject a => (a -> ListBoxSelectAllCallback) ->
C_ListBoxSelectAllCallback
wrap_ListBoxSelectAllCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback a -> IO ()
gi'cb Ptr ListBox
gi'selfPtr Ptr ()
_ = do
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> IO ()
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self)
onListBoxSelectAll :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxSelectAllCallback) -> m SignalHandlerId
onListBoxSelectAll :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onListBoxSelectAll a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "select-all" wrapped'' SignalConnectBefore Nothing
afterListBoxSelectAll :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxSelectAllCallback) -> m SignalHandlerId
afterListBoxSelectAll :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterListBoxSelectAll a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "select-all" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectAllSignalInfo
instance SignalInfo ListBoxSelectAllSignalInfo where
type HaskellCallbackType ListBoxSelectAllSignalInfo = ListBoxSelectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxSelectAllCallback cb
cb'' <- mk_ListBoxSelectAllCallback cb'
connectSignalFunPtr obj "select-all" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::select-all"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:selectAll"})
#endif
type ListBoxSelectedRowsChangedCallback =
IO ()
type C_ListBoxSelectedRowsChangedCallback =
Ptr ListBox ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxSelectedRowsChangedCallback :: C_ListBoxSelectedRowsChangedCallback -> IO (FunPtr C_ListBoxSelectedRowsChangedCallback)
wrap_ListBoxSelectedRowsChangedCallback ::
GObject a => (a -> ListBoxSelectedRowsChangedCallback) ->
C_ListBoxSelectedRowsChangedCallback
wrap_ListBoxSelectedRowsChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback a -> IO ()
gi'cb Ptr ListBox
gi'selfPtr Ptr ()
_ = do
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> IO ()
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self)
onListBoxSelectedRowsChanged :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxSelectedRowsChangedCallback) -> m SignalHandlerId
onListBoxSelectedRowsChanged :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onListBoxSelectedRowsChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "selected-rows-changed" wrapped'' SignalConnectBefore Nothing
afterListBoxSelectedRowsChanged :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxSelectedRowsChangedCallback) -> m SignalHandlerId
afterListBoxSelectedRowsChanged :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterListBoxSelectedRowsChanged a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "selected-rows-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectedRowsChangedSignalInfo
instance SignalInfo ListBoxSelectedRowsChangedSignalInfo where
type HaskellCallbackType ListBoxSelectedRowsChangedSignalInfo = ListBoxSelectedRowsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxSelectedRowsChangedCallback cb
cb'' <- mk_ListBoxSelectedRowsChangedCallback cb'
connectSignalFunPtr obj "selected-rows-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::selected-rows-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:selectedRowsChanged"})
#endif
type ListBoxToggleCursorRowCallback =
IO ()
type C_ListBoxToggleCursorRowCallback =
Ptr ListBox ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxToggleCursorRowCallback :: C_ListBoxToggleCursorRowCallback -> IO (FunPtr C_ListBoxToggleCursorRowCallback)
wrap_ListBoxToggleCursorRowCallback ::
GObject a => (a -> ListBoxToggleCursorRowCallback) ->
C_ListBoxToggleCursorRowCallback
wrap_ListBoxToggleCursorRowCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback a -> IO ()
gi'cb Ptr ListBox
gi'selfPtr Ptr ()
_ = do
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> IO ()
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self)
onListBoxToggleCursorRow :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxToggleCursorRowCallback) -> m SignalHandlerId
onListBoxToggleCursorRow :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onListBoxToggleCursorRow a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "toggle-cursor-row" wrapped'' SignalConnectBefore Nothing
afterListBoxToggleCursorRow :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxToggleCursorRowCallback) -> m SignalHandlerId
afterListBoxToggleCursorRow :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterListBoxToggleCursorRow a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "toggle-cursor-row" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxToggleCursorRowSignalInfo
instance SignalInfo ListBoxToggleCursorRowSignalInfo where
type HaskellCallbackType ListBoxToggleCursorRowSignalInfo = ListBoxToggleCursorRowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxToggleCursorRowCallback cb
cb'' <- mk_ListBoxToggleCursorRowCallback cb'
connectSignalFunPtr obj "toggle-cursor-row" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::toggle-cursor-row"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:toggleCursorRow"})
#endif
type ListBoxUnselectAllCallback =
IO ()
type C_ListBoxUnselectAllCallback =
Ptr ListBox ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxUnselectAllCallback :: C_ListBoxUnselectAllCallback -> IO (FunPtr C_ListBoxUnselectAllCallback)
wrap_ListBoxUnselectAllCallback ::
GObject a => (a -> ListBoxUnselectAllCallback) ->
C_ListBoxUnselectAllCallback
wrap_ListBoxUnselectAllCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback a -> IO ()
gi'cb Ptr ListBox
gi'selfPtr Ptr ()
_ = do
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ListBox
gi'self -> a -> IO ()
gi'cb (ListBox -> a
forall a b. Coercible a b => a -> b
Coerce.coerce ListBox
gi'self)
onListBoxUnselectAll :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxUnselectAllCallback) -> m SignalHandlerId
onListBoxUnselectAll :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onListBoxUnselectAll a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "unselect-all" wrapped'' SignalConnectBefore Nothing
afterListBoxUnselectAll :: (IsListBox a, MonadIO m) => a -> ((?self :: a) => ListBoxUnselectAllCallback) -> m SignalHandlerId
afterListBoxUnselectAll :: forall a (m :: * -> *).
(IsListBox a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterListBoxUnselectAll a
obj (?self::a) => IO ()
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 -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ListBoxActivateCursorRowCallback
wrapped' = (a -> IO ()) -> C_ListBoxActivateCursorRowCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback a -> IO ()
wrapped
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
connectSignalFunPtr obj "unselect-all" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data ListBoxUnselectAllSignalInfo
instance SignalInfo ListBoxUnselectAllSignalInfo where
type HaskellCallbackType ListBoxUnselectAllSignalInfo = ListBoxUnselectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ListBoxUnselectAllCallback cb
cb'' <- mk_ListBoxUnselectAllCallback cb'
connectSignalFunPtr obj "unselect-all" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox::unselect-all"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:signal:unselectAll"})
#endif
getListBoxAcceptUnpairedRelease :: (MonadIO m, IsListBox o) => o -> m Bool
getListBoxAcceptUnpairedRelease :: forall (m :: * -> *) o. (MonadIO m, IsListBox o) => o -> m Bool
getListBoxAcceptUnpairedRelease 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
"accept-unpaired-release"
setListBoxAcceptUnpairedRelease :: (MonadIO m, IsListBox o) => o -> Bool -> m ()
setListBoxAcceptUnpairedRelease :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> Bool -> m ()
setListBoxAcceptUnpairedRelease 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
"accept-unpaired-release" Bool
val
constructListBoxAcceptUnpairedRelease :: (IsListBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListBoxAcceptUnpairedRelease :: forall o (m :: * -> *).
(IsListBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListBoxAcceptUnpairedRelease 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
"accept-unpaired-release" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListBoxAcceptUnpairedReleasePropertyInfo
instance AttrInfo ListBoxAcceptUnpairedReleasePropertyInfo where
type AttrAllowedOps ListBoxAcceptUnpairedReleasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListBoxAcceptUnpairedReleasePropertyInfo = IsListBox
type AttrSetTypeConstraint ListBoxAcceptUnpairedReleasePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListBoxAcceptUnpairedReleasePropertyInfo = (~) Bool
type AttrTransferType ListBoxAcceptUnpairedReleasePropertyInfo = Bool
type AttrGetType ListBoxAcceptUnpairedReleasePropertyInfo = Bool
type AttrLabel ListBoxAcceptUnpairedReleasePropertyInfo = "accept-unpaired-release"
type AttrOrigin ListBoxAcceptUnpairedReleasePropertyInfo = ListBox
attrGet = getListBoxAcceptUnpairedRelease
attrSet = setListBoxAcceptUnpairedRelease
attrTransfer _ v = do
return v
attrConstruct = constructListBoxAcceptUnpairedRelease
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.acceptUnpairedRelease"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:attr:acceptUnpairedRelease"
})
#endif
getListBoxActivateOnSingleClick :: (MonadIO m, IsListBox o) => o -> m Bool
getListBoxActivateOnSingleClick :: forall (m :: * -> *) o. (MonadIO m, IsListBox o) => o -> m Bool
getListBoxActivateOnSingleClick 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
"activate-on-single-click"
setListBoxActivateOnSingleClick :: (MonadIO m, IsListBox o) => o -> Bool -> m ()
setListBoxActivateOnSingleClick :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> Bool -> m ()
setListBoxActivateOnSingleClick 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
"activate-on-single-click" Bool
val
constructListBoxActivateOnSingleClick :: (IsListBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListBoxActivateOnSingleClick :: forall o (m :: * -> *).
(IsListBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListBoxActivateOnSingleClick 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
"activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListBoxActivateOnSingleClickPropertyInfo
instance AttrInfo ListBoxActivateOnSingleClickPropertyInfo where
type AttrAllowedOps ListBoxActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = IsListBox
type AttrSetTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListBoxActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferType ListBoxActivateOnSingleClickPropertyInfo = Bool
type AttrGetType ListBoxActivateOnSingleClickPropertyInfo = Bool
type AttrLabel ListBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click"
type AttrOrigin ListBoxActivateOnSingleClickPropertyInfo = ListBox
attrGet = getListBoxActivateOnSingleClick
attrSet = setListBoxActivateOnSingleClick
attrTransfer _ v = do
return v
attrConstruct = constructListBoxActivateOnSingleClick
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.activateOnSingleClick"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:attr:activateOnSingleClick"
})
#endif
getListBoxSelectionMode :: (MonadIO m, IsListBox o) => o -> m Gtk.Enums.SelectionMode
getListBoxSelectionMode :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> m SelectionMode
getListBoxSelectionMode o
obj = IO SelectionMode -> m SelectionMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SelectionMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"selection-mode"
setListBoxSelectionMode :: (MonadIO m, IsListBox o) => o -> Gtk.Enums.SelectionMode -> m ()
setListBoxSelectionMode :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> SelectionMode -> m ()
setListBoxSelectionMode o
obj SelectionMode
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 -> SelectionMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"selection-mode" SelectionMode
val
constructListBoxSelectionMode :: (IsListBox o, MIO.MonadIO m) => Gtk.Enums.SelectionMode -> m (GValueConstruct o)
constructListBoxSelectionMode :: forall o (m :: * -> *).
(IsListBox o, MonadIO m) =>
SelectionMode -> m (GValueConstruct o)
constructListBoxSelectionMode SelectionMode
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 -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"selection-mode" SelectionMode
val
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectionModePropertyInfo
instance AttrInfo ListBoxSelectionModePropertyInfo where
type AttrAllowedOps ListBoxSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListBoxSelectionModePropertyInfo = IsListBox
type AttrSetTypeConstraint ListBoxSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferTypeConstraint ListBoxSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferType ListBoxSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrGetType ListBoxSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrLabel ListBoxSelectionModePropertyInfo = "selection-mode"
type AttrOrigin ListBoxSelectionModePropertyInfo = ListBox
attrGet = getListBoxSelectionMode
attrSet = setListBoxSelectionMode
attrTransfer _ v = do
return v
attrConstruct = constructListBoxSelectionMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.selectionMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:attr:selectionMode"
})
#endif
getListBoxShowSeparators :: (MonadIO m, IsListBox o) => o -> m Bool
getListBoxShowSeparators :: forall (m :: * -> *) o. (MonadIO m, IsListBox o) => o -> m Bool
getListBoxShowSeparators 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-separators"
setListBoxShowSeparators :: (MonadIO m, IsListBox o) => o -> Bool -> m ()
setListBoxShowSeparators :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> Bool -> m ()
setListBoxShowSeparators 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-separators" Bool
val
constructListBoxShowSeparators :: (IsListBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructListBoxShowSeparators :: forall o (m :: * -> *).
(IsListBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructListBoxShowSeparators 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-separators" Bool
val
#if defined(ENABLE_OVERLOADING)
data ListBoxShowSeparatorsPropertyInfo
instance AttrInfo ListBoxShowSeparatorsPropertyInfo where
type AttrAllowedOps ListBoxShowSeparatorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListBoxShowSeparatorsPropertyInfo = IsListBox
type AttrSetTypeConstraint ListBoxShowSeparatorsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ListBoxShowSeparatorsPropertyInfo = (~) Bool
type AttrTransferType ListBoxShowSeparatorsPropertyInfo = Bool
type AttrGetType ListBoxShowSeparatorsPropertyInfo = Bool
type AttrLabel ListBoxShowSeparatorsPropertyInfo = "show-separators"
type AttrOrigin ListBoxShowSeparatorsPropertyInfo = ListBox
attrGet = getListBoxShowSeparators
attrSet = setListBoxShowSeparators
attrTransfer _ v = do
return v
attrConstruct = constructListBoxShowSeparators
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.showSeparators"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:attr:showSeparators"
})
#endif
getListBoxTabBehavior :: (MonadIO m, IsListBox o) => o -> m Gtk.Enums.ListTabBehavior
getListBoxTabBehavior :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> m ListTabBehavior
getListBoxTabBehavior o
obj = IO ListTabBehavior -> m ListTabBehavior
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ListTabBehavior -> m ListTabBehavior)
-> IO ListTabBehavior -> m ListTabBehavior
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ListTabBehavior
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"tab-behavior"
setListBoxTabBehavior :: (MonadIO m, IsListBox o) => o -> Gtk.Enums.ListTabBehavior -> m ()
setListBoxTabBehavior :: forall (m :: * -> *) o.
(MonadIO m, IsListBox o) =>
o -> ListTabBehavior -> m ()
setListBoxTabBehavior o
obj ListTabBehavior
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 -> ListTabBehavior -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"tab-behavior" ListTabBehavior
val
constructListBoxTabBehavior :: (IsListBox o, MIO.MonadIO m) => Gtk.Enums.ListTabBehavior -> m (GValueConstruct o)
constructListBoxTabBehavior :: forall o (m :: * -> *).
(IsListBox o, MonadIO m) =>
ListTabBehavior -> m (GValueConstruct o)
constructListBoxTabBehavior ListTabBehavior
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 -> ListTabBehavior -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"tab-behavior" ListTabBehavior
val
#if defined(ENABLE_OVERLOADING)
data ListBoxTabBehaviorPropertyInfo
instance AttrInfo ListBoxTabBehaviorPropertyInfo where
type AttrAllowedOps ListBoxTabBehaviorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ListBoxTabBehaviorPropertyInfo = IsListBox
type AttrSetTypeConstraint ListBoxTabBehaviorPropertyInfo = (~) Gtk.Enums.ListTabBehavior
type AttrTransferTypeConstraint ListBoxTabBehaviorPropertyInfo = (~) Gtk.Enums.ListTabBehavior
type AttrTransferType ListBoxTabBehaviorPropertyInfo = Gtk.Enums.ListTabBehavior
type AttrGetType ListBoxTabBehaviorPropertyInfo = Gtk.Enums.ListTabBehavior
type AttrLabel ListBoxTabBehaviorPropertyInfo = "tab-behavior"
type AttrOrigin ListBoxTabBehaviorPropertyInfo = ListBox
attrGet = getListBoxTabBehavior
attrSet = setListBoxTabBehavior
attrTransfer _ v = do
return v
attrConstruct = constructListBoxTabBehavior
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.tabBehavior"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#g:attr:tabBehavior"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ListBox
type instance O.AttributeList ListBox = ListBoxAttributeList
type ListBoxAttributeList = ('[ '("acceptUnpairedRelease", ListBoxAcceptUnpairedReleasePropertyInfo), '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("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), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("limitEvents", Gtk.Widget.WidgetLimitEventsPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showSeparators", ListBoxShowSeparatorsPropertyInfo), '("tabBehavior", ListBoxTabBehaviorPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
listBoxAcceptUnpairedRelease :: AttrLabelProxy "acceptUnpairedRelease"
listBoxAcceptUnpairedRelease = AttrLabelProxy
listBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"
listBoxActivateOnSingleClick = AttrLabelProxy
listBoxSelectionMode :: AttrLabelProxy "selectionMode"
listBoxSelectionMode = AttrLabelProxy
listBoxShowSeparators :: AttrLabelProxy "showSeparators"
listBoxShowSeparators = AttrLabelProxy
listBoxTabBehavior :: AttrLabelProxy "tabBehavior"
listBoxTabBehavior = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ListBox = ListBoxSignalList
type ListBoxSignalList = ('[ '("activateCursorRow", ListBoxActivateCursorRowSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCursor", ListBoxMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("rowActivated", ListBoxRowActivatedSignalInfo), '("rowSelected", ListBoxRowSelectedSignalInfo), '("selectAll", ListBoxSelectAllSignalInfo), '("selectedRowsChanged", ListBoxSelectedRowsChangedSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("toggleCursorRow", ListBoxToggleCursorRowSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", ListBoxUnselectAllSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_list_box_new" gtk_list_box_new ::
IO (Ptr ListBox)
listBoxNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ListBox
listBoxNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ListBox
listBoxNew = IO ListBox -> m ListBox
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListBox -> m ListBox) -> IO ListBox -> m ListBox
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr ListBox)
gtk_list_box_new
checkUnexpectedReturnNULL "listBoxNew" result
result' <- (newObject ListBox) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_list_box_append" gtk_list_box_append ::
Ptr ListBox ->
Ptr Gtk.Widget.Widget ->
IO ()
listBoxAppend ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
listBoxAppend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsWidget b) =>
a -> b -> m ()
listBoxAppend a
box b
child = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
child' <- unsafeManagedPtrCastPtr child
gtk_list_box_append box' child'
touchManagedPtr box
touchManagedPtr child
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxAppendMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ListBoxAppendMethodInfo a signature where
overloadedMethod = listBoxAppend
instance O.OverloadedMethodInfo ListBoxAppendMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxAppend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxAppend"
})
#endif
foreign import ccall "gtk_list_box_bind_model" gtk_list_box_bind_model ::
Ptr ListBox ->
Ptr Gio.ListModel.ListModel ->
FunPtr Gtk.Callbacks.C_ListBoxCreateWidgetFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
listBoxBindModel ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gio.ListModel.IsListModel b) =>
a
-> Maybe (b)
-> Maybe (Gtk.Callbacks.ListBoxCreateWidgetFunc)
-> m ()
listBoxBindModel :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsListModel b) =>
a -> Maybe b -> Maybe ListBoxCreateWidgetFunc -> m ()
listBoxBindModel a
box Maybe b
model Maybe ListBoxCreateWidgetFunc
createWidgetFunc = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeModel <- case model of
Maybe b
Nothing -> Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
forall a. Ptr a
FP.nullPtr
Just b
jModel -> do
jModel' <- b -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
return jModel'
maybeCreateWidgetFunc <- case createWidgetFunc of
Maybe ListBoxCreateWidgetFunc
Nothing -> FunPtr C_ListBoxCreateWidgetFunc
-> IO (FunPtr C_ListBoxCreateWidgetFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxCreateWidgetFunc
forall a. FunPtr a
FP.nullFunPtr
Just ListBoxCreateWidgetFunc
jCreateWidgetFunc -> do
jCreateWidgetFunc' <- C_ListBoxCreateWidgetFunc -> IO (FunPtr C_ListBoxCreateWidgetFunc)
Gtk.Callbacks.mk_ListBoxCreateWidgetFunc (Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
-> ListBoxCreateWidgetFunc_WithClosures
-> C_ListBoxCreateWidgetFunc
Gtk.Callbacks.wrap_ListBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_ListBoxCreateWidgetFunc))
forall a. Maybe a
Nothing (ListBoxCreateWidgetFunc -> ListBoxCreateWidgetFunc_WithClosures
Gtk.Callbacks.drop_closures_ListBoxCreateWidgetFunc ListBoxCreateWidgetFunc
jCreateWidgetFunc))
return jCreateWidgetFunc'
let userData = FunPtr C_ListBoxCreateWidgetFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxCreateWidgetFunc
maybeCreateWidgetFunc
let userDataFreeFunc = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_list_box_bind_model box' maybeModel maybeCreateWidgetFunc userData userDataFreeFunc
touchManagedPtr box
whenJust model touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxBindModelMethodInfo
instance (signature ~ (Maybe (b) -> Maybe (Gtk.Callbacks.ListBoxCreateWidgetFunc) -> m ()), MonadIO m, IsListBox a, Gio.ListModel.IsListModel b) => O.OverloadedMethod ListBoxBindModelMethodInfo a signature where
overloadedMethod = listBoxBindModel
instance O.OverloadedMethodInfo ListBoxBindModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxBindModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxBindModel"
})
#endif
foreign import ccall "gtk_list_box_drag_highlight_row" gtk_list_box_drag_highlight_row ::
Ptr ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
IO ()
listBoxDragHighlightRow ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) =>
a
-> b
-> m ()
listBoxDragHighlightRow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsListBoxRow b) =>
a -> b -> m ()
listBoxDragHighlightRow a
box b
row = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
row' <- unsafeManagedPtrCastPtr row
gtk_list_box_drag_highlight_row box' row'
touchManagedPtr box
touchManagedPtr row
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxDragHighlightRowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) => O.OverloadedMethod ListBoxDragHighlightRowMethodInfo a signature where
overloadedMethod = listBoxDragHighlightRow
instance O.OverloadedMethodInfo ListBoxDragHighlightRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxDragHighlightRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxDragHighlightRow"
})
#endif
foreign import ccall "gtk_list_box_drag_unhighlight_row" gtk_list_box_drag_unhighlight_row ::
Ptr ListBox ->
IO ()
listBoxDragUnhighlightRow ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxDragUnhighlightRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxDragUnhighlightRow a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_drag_unhighlight_row box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxDragUnhighlightRowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxDragUnhighlightRowMethodInfo a signature where
overloadedMethod = listBoxDragUnhighlightRow
instance O.OverloadedMethodInfo ListBoxDragUnhighlightRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxDragUnhighlightRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxDragUnhighlightRow"
})
#endif
foreign import ccall "gtk_list_box_get_activate_on_single_click" gtk_list_box_get_activate_on_single_click ::
Ptr ListBox ->
IO CInt
listBoxGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m Bool
listBoxGetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m Bool
listBoxGetActivateOnSingleClick a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_activate_on_single_click box'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr box
return result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetActivateOnSingleClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = listBoxGetActivateOnSingleClick
instance O.OverloadedMethodInfo ListBoxGetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetActivateOnSingleClick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetActivateOnSingleClick"
})
#endif
foreign import ccall "gtk_list_box_get_adjustment" gtk_list_box_get_adjustment ::
Ptr ListBox ->
IO (Ptr Gtk.Adjustment.Adjustment)
listBoxGetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m (Maybe Gtk.Adjustment.Adjustment)
listBoxGetAdjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m (Maybe Adjustment)
listBoxGetAdjustment a
box = IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Adjustment) -> m (Maybe Adjustment))
-> IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_adjustment box'
maybeResult <- convertIfNonNull result $ \Ptr Adjustment
result' -> do
result'' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result'
return result''
touchManagedPtr box
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ListBoxGetAdjustmentMethodInfo
instance (signature ~ (m (Maybe Gtk.Adjustment.Adjustment)), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetAdjustmentMethodInfo a signature where
overloadedMethod = listBoxGetAdjustment
instance O.OverloadedMethodInfo ListBoxGetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetAdjustment"
})
#endif
foreign import ccall "gtk_list_box_get_row_at_index" gtk_list_box_get_row_at_index ::
Ptr ListBox ->
Int32 ->
IO (Ptr Gtk.ListBoxRow.ListBoxRow)
listBoxGetRowAtIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Int32
-> m (Maybe Gtk.ListBoxRow.ListBoxRow)
listBoxGetRowAtIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Int32 -> m (Maybe ListBoxRow)
listBoxGetRowAtIndex a
box Int32
index_ = IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow))
-> IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_row_at_index box' index_
maybeResult <- convertIfNonNull result $ \Ptr ListBoxRow
result' -> do
result'' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
result'
return result''
touchManagedPtr box
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ListBoxGetRowAtIndexMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.ListBoxRow.ListBoxRow)), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetRowAtIndexMethodInfo a signature where
overloadedMethod = listBoxGetRowAtIndex
instance O.OverloadedMethodInfo ListBoxGetRowAtIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetRowAtIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetRowAtIndex"
})
#endif
foreign import ccall "gtk_list_box_get_row_at_y" gtk_list_box_get_row_at_y ::
Ptr ListBox ->
Int32 ->
IO (Ptr Gtk.ListBoxRow.ListBoxRow)
listBoxGetRowAtY ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Int32
-> m (Maybe Gtk.ListBoxRow.ListBoxRow)
listBoxGetRowAtY :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Int32 -> m (Maybe ListBoxRow)
listBoxGetRowAtY a
box Int32
y = IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow))
-> IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_row_at_y box' y
maybeResult <- convertIfNonNull result $ \Ptr ListBoxRow
result' -> do
result'' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
result'
return result''
touchManagedPtr box
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ListBoxGetRowAtYMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.ListBoxRow.ListBoxRow)), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetRowAtYMethodInfo a signature where
overloadedMethod = listBoxGetRowAtY
instance O.OverloadedMethodInfo ListBoxGetRowAtYMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetRowAtY",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetRowAtY"
})
#endif
foreign import ccall "gtk_list_box_get_selected_row" gtk_list_box_get_selected_row ::
Ptr ListBox ->
IO (Ptr Gtk.ListBoxRow.ListBoxRow)
listBoxGetSelectedRow ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m (Maybe Gtk.ListBoxRow.ListBoxRow)
listBoxGetSelectedRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m (Maybe ListBoxRow)
listBoxGetSelectedRow a
box = IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow))
-> IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_selected_row box'
maybeResult <- convertIfNonNull result $ \Ptr ListBoxRow
result' -> do
result'' <- ((ManagedPtr ListBoxRow -> ListBoxRow)
-> Ptr ListBoxRow -> IO ListBoxRow
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBoxRow -> ListBoxRow
Gtk.ListBoxRow.ListBoxRow) Ptr ListBoxRow
result'
return result''
touchManagedPtr box
return maybeResult
#if defined(ENABLE_OVERLOADING)
data ListBoxGetSelectedRowMethodInfo
instance (signature ~ (m (Maybe Gtk.ListBoxRow.ListBoxRow)), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetSelectedRowMethodInfo a signature where
overloadedMethod = listBoxGetSelectedRow
instance O.OverloadedMethodInfo ListBoxGetSelectedRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetSelectedRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetSelectedRow"
})
#endif
foreign import ccall "gtk_list_box_get_selected_rows" gtk_list_box_get_selected_rows ::
Ptr ListBox ->
IO (Ptr (GList (Ptr Gtk.ListBoxRow.ListBoxRow)))
listBoxGetSelectedRows ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m [Gtk.ListBoxRow.ListBoxRow]
listBoxGetSelectedRows :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m [ListBoxRow]
listBoxGetSelectedRows a
box = IO [ListBoxRow] -> m [ListBoxRow]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ListBoxRow] -> m [ListBoxRow])
-> IO [ListBoxRow] -> m [ListBoxRow]
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_selected_rows box'
result' <- unpackGList result
result'' <- mapM (newObject Gtk.ListBoxRow.ListBoxRow) result'
g_list_free result
touchManagedPtr box
return result''
#if defined(ENABLE_OVERLOADING)
data ListBoxGetSelectedRowsMethodInfo
instance (signature ~ (m [Gtk.ListBoxRow.ListBoxRow]), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetSelectedRowsMethodInfo a signature where
overloadedMethod = listBoxGetSelectedRows
instance O.OverloadedMethodInfo ListBoxGetSelectedRowsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetSelectedRows",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetSelectedRows"
})
#endif
foreign import ccall "gtk_list_box_get_selection_mode" gtk_list_box_get_selection_mode ::
Ptr ListBox ->
IO CUInt
listBoxGetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m Gtk.Enums.SelectionMode
listBoxGetSelectionMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m SelectionMode
listBoxGetSelectionMode a
box = IO SelectionMode -> m SelectionMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_selection_mode box'
let result' = (Int -> SelectionMode
forall a. Enum a => Int -> a
toEnum (Int -> SelectionMode) -> (CUInt -> Int) -> CUInt -> SelectionMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr box
return result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetSelectionModeMethodInfo
instance (signature ~ (m Gtk.Enums.SelectionMode), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetSelectionModeMethodInfo a signature where
overloadedMethod = listBoxGetSelectionMode
instance O.OverloadedMethodInfo ListBoxGetSelectionModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetSelectionMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetSelectionMode"
})
#endif
foreign import ccall "gtk_list_box_get_show_separators" gtk_list_box_get_show_separators ::
Ptr ListBox ->
IO CInt
listBoxGetShowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m Bool
listBoxGetShowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m Bool
listBoxGetShowSeparators a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_show_separators box'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr box
return result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetShowSeparatorsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetShowSeparatorsMethodInfo a signature where
overloadedMethod = listBoxGetShowSeparators
instance O.OverloadedMethodInfo ListBoxGetShowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetShowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetShowSeparators"
})
#endif
foreign import ccall "gtk_list_box_get_tab_behavior" gtk_list_box_get_tab_behavior ::
Ptr ListBox ->
IO CUInt
listBoxGetTabBehavior ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m Gtk.Enums.ListTabBehavior
listBoxGetTabBehavior :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ListTabBehavior
listBoxGetTabBehavior a
box = IO ListTabBehavior -> m ListTabBehavior
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ListTabBehavior -> m ListTabBehavior)
-> IO ListTabBehavior -> m ListTabBehavior
forall a b. (a -> b) -> a -> b
$ do
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
result <- gtk_list_box_get_tab_behavior box'
let result' = (Int -> ListTabBehavior
forall a. Enum a => Int -> a
toEnum (Int -> ListTabBehavior)
-> (CUInt -> Int) -> CUInt -> ListTabBehavior
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr box
return result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetTabBehaviorMethodInfo
instance (signature ~ (m Gtk.Enums.ListTabBehavior), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxGetTabBehaviorMethodInfo a signature where
overloadedMethod = listBoxGetTabBehavior
instance O.OverloadedMethodInfo ListBoxGetTabBehaviorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxGetTabBehavior",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetTabBehavior"
})
#endif
foreign import ccall "gtk_list_box_insert" gtk_list_box_insert ::
Ptr ListBox ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
listBoxInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
listBoxInsert :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsWidget b) =>
a -> b -> Int32 -> m ()
listBoxInsert a
box b
child Int32
position = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
child' <- unsafeManagedPtrCastPtr child
gtk_list_box_insert box' child' position
touchManagedPtr box
touchManagedPtr child
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInsertMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ListBoxInsertMethodInfo a signature where
overloadedMethod = listBoxInsert
instance O.OverloadedMethodInfo ListBoxInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxInsert"
})
#endif
foreign import ccall "gtk_list_box_invalidate_filter" gtk_list_box_invalidate_filter ::
Ptr ListBox ->
IO ()
listBoxInvalidateFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxInvalidateFilter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxInvalidateFilter a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_invalidate_filter box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateFilterMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxInvalidateFilterMethodInfo a signature where
overloadedMethod = listBoxInvalidateFilter
instance O.OverloadedMethodInfo ListBoxInvalidateFilterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxInvalidateFilter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxInvalidateFilter"
})
#endif
foreign import ccall "gtk_list_box_invalidate_headers" ::
Ptr ListBox ->
IO ()
listBoxInvalidateHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_invalidate_headers box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateHeadersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxInvalidateHeadersMethodInfo a signature where
overloadedMethod = listBoxInvalidateHeaders
instance O.OverloadedMethodInfo ListBoxInvalidateHeadersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxInvalidateHeaders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxInvalidateHeaders"
})
#endif
foreign import ccall "gtk_list_box_invalidate_sort" gtk_list_box_invalidate_sort ::
Ptr ListBox ->
IO ()
listBoxInvalidateSort ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxInvalidateSort :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxInvalidateSort a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_invalidate_sort box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateSortMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxInvalidateSortMethodInfo a signature where
overloadedMethod = listBoxInvalidateSort
instance O.OverloadedMethodInfo ListBoxInvalidateSortMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxInvalidateSort",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxInvalidateSort"
})
#endif
foreign import ccall "gtk_list_box_prepend" gtk_list_box_prepend ::
Ptr ListBox ->
Ptr Gtk.Widget.Widget ->
IO ()
listBoxPrepend ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
listBoxPrepend :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsWidget b) =>
a -> b -> m ()
listBoxPrepend a
box b
child = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
child' <- unsafeManagedPtrCastPtr child
gtk_list_box_prepend box' child'
touchManagedPtr box
touchManagedPtr child
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxPrependMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ListBoxPrependMethodInfo a signature where
overloadedMethod = listBoxPrepend
instance O.OverloadedMethodInfo ListBoxPrependMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxPrepend",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxPrepend"
})
#endif
foreign import ccall "gtk_list_box_remove" gtk_list_box_remove ::
Ptr ListBox ->
Ptr Gtk.Widget.Widget ->
IO ()
listBoxRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
listBoxRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsWidget b) =>
a -> b -> m ()
listBoxRemove a
box b
child = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
child' <- unsafeManagedPtrCastPtr child
gtk_list_box_remove box' child'
touchManagedPtr box
touchManagedPtr child
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ListBoxRemoveMethodInfo a signature where
overloadedMethod = listBoxRemove
instance O.OverloadedMethodInfo ListBoxRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxRemove"
})
#endif
foreign import ccall "gtk_list_box_remove_all" gtk_list_box_remove_all ::
Ptr ListBox ->
IO ()
listBoxRemoveAll ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxRemoveAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxRemoveAll a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_remove_all box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxRemoveAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxRemoveAllMethodInfo a signature where
overloadedMethod = listBoxRemoveAll
instance O.OverloadedMethodInfo ListBoxRemoveAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxRemoveAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxRemoveAll"
})
#endif
foreign import ccall "gtk_list_box_select_all" gtk_list_box_select_all ::
Ptr ListBox ->
IO ()
listBoxSelectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxSelectAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxSelectAll a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_select_all box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSelectAllMethodInfo a signature where
overloadedMethod = listBoxSelectAll
instance O.OverloadedMethodInfo ListBoxSelectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSelectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSelectAll"
})
#endif
foreign import ccall "gtk_list_box_select_row" gtk_list_box_select_row ::
Ptr ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
IO ()
listBoxSelectRow ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) =>
a
-> Maybe (b)
-> m ()
listBoxSelectRow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsListBoxRow b) =>
a -> Maybe b -> m ()
listBoxSelectRow a
box Maybe b
row = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeRow <- case row of
Maybe b
Nothing -> Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
forall a. Ptr a
FP.nullPtr
Just b
jRow -> do
jRow' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jRow
return jRow'
gtk_list_box_select_row box' maybeRow
touchManagedPtr box
whenJust row touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectRowMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) => O.OverloadedMethod ListBoxSelectRowMethodInfo a signature where
overloadedMethod = listBoxSelectRow
instance O.OverloadedMethodInfo ListBoxSelectRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSelectRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSelectRow"
})
#endif
foreign import ccall "gtk_list_box_selected_foreach" gtk_list_box_selected_foreach ::
Ptr ListBox ->
FunPtr Gtk.Callbacks.C_ListBoxForeachFunc ->
Ptr () ->
IO ()
listBoxSelectedForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Gtk.Callbacks.ListBoxForeachFunc
-> m ()
listBoxSelectedForeach :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> ListBoxForeachFunc -> m ()
listBoxSelectedForeach a
box ListBoxForeachFunc
func = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
func' <- Gtk.Callbacks.mk_ListBoxForeachFunc (Gtk.Callbacks.wrap_ListBoxForeachFunc Nothing (Gtk.Callbacks.drop_closures_ListBoxForeachFunc func))
let data_ = Ptr a
forall a. Ptr a
nullPtr
gtk_list_box_selected_foreach box' func' data_
safeFreeFunPtr $ castFunPtrToPtr func'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectedForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.ListBoxForeachFunc -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSelectedForeachMethodInfo a signature where
overloadedMethod = listBoxSelectedForeach
instance O.OverloadedMethodInfo ListBoxSelectedForeachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSelectedForeach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSelectedForeach"
})
#endif
foreign import ccall "gtk_list_box_set_activate_on_single_click" gtk_list_box_set_activate_on_single_click ::
Ptr ListBox ->
CInt ->
IO ()
listBoxSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Bool
-> m ()
listBoxSetActivateOnSingleClick :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Bool -> m ()
listBoxSetActivateOnSingleClick a
box Bool
single = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let single' = (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
single
gtk_list_box_set_activate_on_single_click box' single'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = listBoxSetActivateOnSingleClick
instance O.OverloadedMethodInfo ListBoxSetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetActivateOnSingleClick",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetActivateOnSingleClick"
})
#endif
foreign import ccall "gtk_list_box_set_adjustment" gtk_list_box_set_adjustment ::
Ptr ListBox ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
listBoxSetAdjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Adjustment.IsAdjustment b) =>
a
-> Maybe (b)
-> m ()
listBoxSetAdjustment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsAdjustment b) =>
a -> Maybe b -> m ()
listBoxSetAdjustment a
box Maybe b
adjustment = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeAdjustment <- case adjustment of
Maybe b
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
FP.nullPtr
Just b
jAdjustment -> do
jAdjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAdjustment
return jAdjustment'
gtk_list_box_set_adjustment box' maybeAdjustment
touchManagedPtr box
whenJust adjustment touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetAdjustmentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListBox a, Gtk.Adjustment.IsAdjustment b) => O.OverloadedMethod ListBoxSetAdjustmentMethodInfo a signature where
overloadedMethod = listBoxSetAdjustment
instance O.OverloadedMethodInfo ListBoxSetAdjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetAdjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetAdjustment"
})
#endif
foreign import ccall "gtk_list_box_set_filter_func" gtk_list_box_set_filter_func ::
Ptr ListBox ->
FunPtr Gtk.Callbacks.C_ListBoxFilterFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
listBoxSetFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Maybe (Gtk.Callbacks.ListBoxFilterFunc)
-> m ()
listBoxSetFilterFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Maybe ListBoxFilterFunc -> m ()
listBoxSetFilterFunc a
box Maybe ListBoxFilterFunc
filterFunc = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeFilterFunc <- case filterFunc of
Maybe ListBoxFilterFunc
Nothing -> FunPtr C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxFilterFunc
forall a. FunPtr a
FP.nullFunPtr
Just ListBoxFilterFunc
jFilterFunc -> do
jFilterFunc' <- C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
Gtk.Callbacks.mk_ListBoxFilterFunc (Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
-> ListBoxFilterFunc_WithClosures -> C_ListBoxFilterFunc
Gtk.Callbacks.wrap_ListBoxFilterFunc Maybe (Ptr (FunPtr C_ListBoxFilterFunc))
forall a. Maybe a
Nothing (ListBoxFilterFunc -> ListBoxFilterFunc_WithClosures
Gtk.Callbacks.drop_closures_ListBoxFilterFunc ListBoxFilterFunc
jFilterFunc))
return jFilterFunc'
let userData = FunPtr C_ListBoxFilterFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxFilterFunc
maybeFilterFunc
let destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_list_box_set_filter_func box' maybeFilterFunc userData destroy
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetFilterFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.ListBoxFilterFunc) -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetFilterFuncMethodInfo a signature where
overloadedMethod = listBoxSetFilterFunc
instance O.OverloadedMethodInfo ListBoxSetFilterFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetFilterFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetFilterFunc"
})
#endif
foreign import ccall "gtk_list_box_set_header_func" ::
Ptr ListBox ->
FunPtr Gtk.Callbacks.C_ListBoxUpdateHeaderFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
listBoxSetHeaderFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Maybe (Gtk.Callbacks.ListBoxUpdateHeaderFunc)
-> m ()
a
box Maybe ListBoxUpdateHeaderFunc
updateHeader = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeUpdateHeader <- case updateHeader of
Maybe ListBoxUpdateHeaderFunc
Nothing -> FunPtr C_ListBoxUpdateHeaderFunc
-> IO (FunPtr C_ListBoxUpdateHeaderFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxUpdateHeaderFunc
forall a. FunPtr a
FP.nullFunPtr
Just ListBoxUpdateHeaderFunc
jUpdateHeader -> do
jUpdateHeader' <- C_ListBoxUpdateHeaderFunc -> IO (FunPtr C_ListBoxUpdateHeaderFunc)
Gtk.Callbacks.mk_ListBoxUpdateHeaderFunc (Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
-> ListBoxUpdateHeaderFunc_WithClosures
-> C_ListBoxUpdateHeaderFunc
Gtk.Callbacks.wrap_ListBoxUpdateHeaderFunc Maybe (Ptr (FunPtr C_ListBoxUpdateHeaderFunc))
forall a. Maybe a
Nothing (ListBoxUpdateHeaderFunc -> ListBoxUpdateHeaderFunc_WithClosures
Gtk.Callbacks.drop_closures_ListBoxUpdateHeaderFunc ListBoxUpdateHeaderFunc
jUpdateHeader))
return jUpdateHeader'
let userData = FunPtr C_ListBoxUpdateHeaderFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxUpdateHeaderFunc
maybeUpdateHeader
let destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_list_box_set_header_func box' maybeUpdateHeader userData destroy
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetHeaderFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.ListBoxUpdateHeaderFunc) -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetHeaderFuncMethodInfo a signature where
overloadedMethod = listBoxSetHeaderFunc
instance O.OverloadedMethodInfo ListBoxSetHeaderFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetHeaderFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetHeaderFunc"
})
#endif
foreign import ccall "gtk_list_box_set_placeholder" gtk_list_box_set_placeholder ::
Ptr ListBox ->
Ptr Gtk.Widget.Widget ->
IO ()
listBoxSetPlaceholder ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
listBoxSetPlaceholder :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsWidget b) =>
a -> Maybe b -> m ()
listBoxSetPlaceholder a
box Maybe b
placeholder = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybePlaceholder <- case placeholder of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
FP.nullPtr
Just b
jPlaceholder -> do
jPlaceholder' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPlaceholder
return jPlaceholder'
gtk_list_box_set_placeholder box' maybePlaceholder
touchManagedPtr box
whenJust placeholder touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetPlaceholderMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsListBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ListBoxSetPlaceholderMethodInfo a signature where
overloadedMethod = listBoxSetPlaceholder
instance O.OverloadedMethodInfo ListBoxSetPlaceholderMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetPlaceholder",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetPlaceholder"
})
#endif
foreign import ccall "gtk_list_box_set_selection_mode" gtk_list_box_set_selection_mode ::
Ptr ListBox ->
CUInt ->
IO ()
listBoxSetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Gtk.Enums.SelectionMode
-> m ()
listBoxSetSelectionMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> SelectionMode -> m ()
listBoxSetSelectionMode a
box SelectionMode
mode = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SelectionMode -> Int) -> SelectionMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SelectionMode -> Int
forall a. Enum a => a -> Int
fromEnum) SelectionMode
mode
gtk_list_box_set_selection_mode box' mode'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetSelectionModeMethodInfo
instance (signature ~ (Gtk.Enums.SelectionMode -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetSelectionModeMethodInfo a signature where
overloadedMethod = listBoxSetSelectionMode
instance O.OverloadedMethodInfo ListBoxSetSelectionModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetSelectionMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetSelectionMode"
})
#endif
foreign import ccall "gtk_list_box_set_show_separators" gtk_list_box_set_show_separators ::
Ptr ListBox ->
CInt ->
IO ()
listBoxSetShowSeparators ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Bool
-> m ()
listBoxSetShowSeparators :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Bool -> m ()
listBoxSetShowSeparators a
box Bool
showSeparators = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let showSeparators' = (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
showSeparators
gtk_list_box_set_show_separators box' showSeparators'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetShowSeparatorsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetShowSeparatorsMethodInfo a signature where
overloadedMethod = listBoxSetShowSeparators
instance O.OverloadedMethodInfo ListBoxSetShowSeparatorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetShowSeparators",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetShowSeparators"
})
#endif
foreign import ccall "gtk_list_box_set_sort_func" gtk_list_box_set_sort_func ::
Ptr ListBox ->
FunPtr Gtk.Callbacks.C_ListBoxSortFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
listBoxSetSortFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Maybe (Gtk.Callbacks.ListBoxSortFunc)
-> m ()
listBoxSetSortFunc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> Maybe ListBoxSortFunc -> m ()
listBoxSetSortFunc a
box Maybe ListBoxSortFunc
sortFunc = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
maybeSortFunc <- case sortFunc of
Maybe ListBoxSortFunc
Nothing -> FunPtr C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxSortFunc
forall a. FunPtr a
FP.nullFunPtr
Just ListBoxSortFunc
jSortFunc -> do
jSortFunc' <- C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
Gtk.Callbacks.mk_ListBoxSortFunc (Maybe (Ptr (FunPtr C_ListBoxSortFunc))
-> ListBoxSortFunc_WithClosures -> C_ListBoxSortFunc
Gtk.Callbacks.wrap_ListBoxSortFunc Maybe (Ptr (FunPtr C_ListBoxSortFunc))
forall a. Maybe a
Nothing (ListBoxSortFunc -> ListBoxSortFunc_WithClosures
Gtk.Callbacks.drop_closures_ListBoxSortFunc ListBoxSortFunc
jSortFunc))
return jSortFunc'
let userData = FunPtr C_ListBoxSortFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxSortFunc
maybeSortFunc
let destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
gtk_list_box_set_sort_func box' maybeSortFunc userData destroy
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetSortFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.ListBoxSortFunc) -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetSortFuncMethodInfo a signature where
overloadedMethod = listBoxSetSortFunc
instance O.OverloadedMethodInfo ListBoxSetSortFuncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetSortFunc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetSortFunc"
})
#endif
foreign import ccall "gtk_list_box_set_tab_behavior" gtk_list_box_set_tab_behavior ::
Ptr ListBox ->
CUInt ->
IO ()
listBoxSetTabBehavior ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> Gtk.Enums.ListTabBehavior
-> m ()
listBoxSetTabBehavior :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> ListTabBehavior -> m ()
listBoxSetTabBehavior a
box ListTabBehavior
behavior = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let behavior' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (ListTabBehavior -> Int) -> ListTabBehavior -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ListTabBehavior -> Int
forall a. Enum a => a -> Int
fromEnum) ListTabBehavior
behavior
gtk_list_box_set_tab_behavior box' behavior'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetTabBehaviorMethodInfo
instance (signature ~ (Gtk.Enums.ListTabBehavior -> m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxSetTabBehaviorMethodInfo a signature where
overloadedMethod = listBoxSetTabBehavior
instance O.OverloadedMethodInfo ListBoxSetTabBehaviorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxSetTabBehavior",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetTabBehavior"
})
#endif
foreign import ccall "gtk_list_box_unselect_all" gtk_list_box_unselect_all ::
Ptr ListBox ->
IO ()
listBoxUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
listBoxUnselectAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ()
listBoxUnselectAll a
box = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
gtk_list_box_unselect_all box'
touchManagedPtr box
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.OverloadedMethod ListBoxUnselectAllMethodInfo a signature where
overloadedMethod = listBoxUnselectAll
instance O.OverloadedMethodInfo ListBoxUnselectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxUnselectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxUnselectAll"
})
#endif
foreign import ccall "gtk_list_box_unselect_row" gtk_list_box_unselect_row ::
Ptr ListBox ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
IO ()
listBoxUnselectRow ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) =>
a
-> b
-> m ()
listBoxUnselectRow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsListBox a, IsListBoxRow b) =>
a -> b -> m ()
listBoxUnselectRow a
box b
row = 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
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
row' <- unsafeManagedPtrCastPtr row
gtk_list_box_unselect_row box' row'
touchManagedPtr box
touchManagedPtr row
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxUnselectRowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsListBox a, Gtk.ListBoxRow.IsListBoxRow b) => O.OverloadedMethod ListBoxUnselectRowMethodInfo a signature where
overloadedMethod = listBoxUnselectRow
instance O.OverloadedMethodInfo ListBoxUnselectRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ListBox.listBoxUnselectRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk4-4.0.12/docs/GI-Gtk-Objects-ListBox.html#v:listBoxUnselectRow"
})
#endif