{-# 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)
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)
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)
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)
ListBoxSetSortFuncMethodInfo ,
#endif
listBoxSetSortFunc ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectAllMethodInfo ,
#endif
listBoxUnselectAll ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectRowMethodInfo ,
#endif
listBoxUnselectRow ,
#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 ,
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 GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
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.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListBoxRow as Gtk.ListBoxRow
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
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.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
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 ListBox
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 ListBox
ptr Ptr ListBox -> Ptr ListBox -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ListBox
forall a. Ptr a
FP.nullPtr
then ListBox -> Maybe ListBox
forall a. a -> Maybe a
P.Just (ListBox -> Maybe ListBox) -> IO ListBox -> IO (Maybe ListBox)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ListBox -> ListBox) -> Ptr ListBox -> IO ListBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ListBox -> ListBox
ListBox Ptr ListBox
ptr
else Maybe ListBox -> IO (Maybe ListBox)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListBox
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveListBoxMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveListBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveListBoxMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveListBoxMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveListBoxMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveListBoxMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveListBoxMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveListBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveListBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveListBoxMethod "bindModel" o = ListBoxBindModelMethodInfo
ResolveListBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveListBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveListBoxMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveListBoxMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveListBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveListBoxMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveListBoxMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveListBoxMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveListBoxMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveListBoxMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveListBoxMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveListBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveListBoxMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveListBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveListBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveListBoxMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveListBoxMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveListBoxMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveListBoxMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveListBoxMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveListBoxMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveListBoxMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveListBoxMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveListBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveListBoxMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveListBoxMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveListBoxMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveListBoxMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveListBoxMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveListBoxMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveListBoxMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveListBoxMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveListBoxMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveListBoxMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveListBoxMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveListBoxMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveListBoxMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveListBoxMethod "dragHighlightRow" o = ListBoxDragHighlightRowMethodInfo
ResolveListBoxMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveListBoxMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveListBoxMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveListBoxMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveListBoxMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveListBoxMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveListBoxMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveListBoxMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveListBoxMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveListBoxMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveListBoxMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveListBoxMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveListBoxMethod "dragUnhighlightRow" o = ListBoxDragUnhighlightRowMethodInfo
ResolveListBoxMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveListBoxMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveListBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveListBoxMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveListBoxMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveListBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveListBoxMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveListBoxMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveListBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveListBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveListBoxMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveListBoxMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveListBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveListBoxMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveListBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveListBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveListBoxMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveListBoxMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveListBoxMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveListBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveListBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveListBoxMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveListBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveListBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveListBoxMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveListBoxMethod "insert" o = ListBoxInsertMethodInfo
ResolveListBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveListBoxMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveListBoxMethod "invalidateFilter" o = ListBoxInvalidateFilterMethodInfo
ResolveListBoxMethod "invalidateHeaders" o = ListBoxInvalidateHeadersMethodInfo
ResolveListBoxMethod "invalidateSort" o = ListBoxInvalidateSortMethodInfo
ResolveListBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveListBoxMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveListBoxMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveListBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveListBoxMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveListBoxMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveListBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveListBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveListBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveListBoxMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveListBoxMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveListBoxMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveListBoxMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveListBoxMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveListBoxMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveListBoxMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveListBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveListBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveListBoxMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveListBoxMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveListBoxMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveListBoxMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveListBoxMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveListBoxMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveListBoxMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveListBoxMethod "prepend" o = ListBoxPrependMethodInfo
ResolveListBoxMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveListBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveListBoxMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveListBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveListBoxMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveListBoxMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveListBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveListBoxMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveListBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveListBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveListBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveListBoxMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveListBoxMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveListBoxMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveListBoxMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveListBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveListBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveListBoxMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveListBoxMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveListBoxMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveListBoxMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveListBoxMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveListBoxMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveListBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveListBoxMethod "selectAll" o = ListBoxSelectAllMethodInfo
ResolveListBoxMethod "selectRow" o = ListBoxSelectRowMethodInfo
ResolveListBoxMethod "selectedForeach" o = ListBoxSelectedForeachMethodInfo
ResolveListBoxMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveListBoxMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveListBoxMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveListBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveListBoxMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveListBoxMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveListBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveListBoxMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveListBoxMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveListBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveListBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveListBoxMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveListBoxMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveListBoxMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveListBoxMethod "unselectAll" o = ListBoxUnselectAllMethodInfo
ResolveListBoxMethod "unselectRow" o = ListBoxUnselectRowMethodInfo
ResolveListBoxMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveListBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveListBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveListBoxMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveListBoxMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveListBoxMethod "getActivateOnSingleClick" o = ListBoxGetActivateOnSingleClickMethodInfo
ResolveListBoxMethod "getAdjustment" o = ListBoxGetAdjustmentMethodInfo
ResolveListBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveListBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveListBoxMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveListBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveListBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveListBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveListBoxMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveListBoxMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveListBoxMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveListBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveListBoxMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveListBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveListBoxMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveListBoxMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveListBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveListBoxMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveListBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveListBoxMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveListBoxMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveListBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveListBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveListBoxMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveListBoxMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveListBoxMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveListBoxMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveListBoxMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveListBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveListBoxMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveListBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveListBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveListBoxMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveListBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveListBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveListBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveListBoxMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveListBoxMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveListBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveListBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveListBoxMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveListBoxMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveListBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveListBoxMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveListBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveListBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveListBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveListBoxMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveListBoxMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveListBoxMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveListBoxMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveListBoxMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveListBoxMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveListBoxMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveListBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveListBoxMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveListBoxMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveListBoxMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveListBoxMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveListBoxMethod "getRowAtIndex" o = ListBoxGetRowAtIndexMethodInfo
ResolveListBoxMethod "getRowAtY" o = ListBoxGetRowAtYMethodInfo
ResolveListBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveListBoxMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
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 "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveListBoxMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveListBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveListBoxMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveListBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveListBoxMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveListBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveListBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveListBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveListBoxMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveListBoxMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveListBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveListBoxMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveListBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveListBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveListBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveListBoxMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveListBoxMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveListBoxMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveListBoxMethod "setActivateOnSingleClick" o = ListBoxSetActivateOnSingleClickMethodInfo
ResolveListBoxMethod "setAdjustment" o = ListBoxSetAdjustmentMethodInfo
ResolveListBoxMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveListBoxMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveListBoxMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveListBoxMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveListBoxMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveListBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveListBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveListBoxMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveListBoxMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveListBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveListBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveListBoxMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveListBoxMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveListBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveListBoxMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveListBoxMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveListBoxMethod "setFilterFunc" o = ListBoxSetFilterFuncMethodInfo
ResolveListBoxMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveListBoxMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveListBoxMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveListBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveListBoxMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
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 "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveListBoxMethod "setHeaderFunc" o = ListBoxSetHeaderFuncMethodInfo
ResolveListBoxMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveListBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveListBoxMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveListBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveListBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveListBoxMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveListBoxMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveListBoxMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveListBoxMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveListBoxMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveListBoxMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveListBoxMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveListBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveListBoxMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveListBoxMethod "setPlaceholder" o = ListBoxSetPlaceholderMethodInfo
ResolveListBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveListBoxMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveListBoxMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveListBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveListBoxMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveListBoxMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveListBoxMethod "setSelectionMode" o = ListBoxSetSelectionModeMethodInfo
ResolveListBoxMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveListBoxMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveListBoxMethod "setSortFunc" o = ListBoxSetSortFuncMethodInfo
ResolveListBoxMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveListBoxMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveListBoxMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveListBoxMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveListBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveListBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveListBoxMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveListBoxMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
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 a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#g:signal:activateCursorRow"})
#endif
type ListBoxMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> IO ()
type C_ListBoxMoveCursorCallback =
Ptr ListBox ->
CUInt ->
Int32 ->
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
object Int32
p0 Ptr ()
_ = do
let object' :: MovementStep
object' = (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
object
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
object' Int32
p0
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
FunPtr C_ListBoxMoveCursorCallback
wrapped'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_ListBoxMoveCursorCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxMoveCursorCallback
wrapped'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_ListBoxMoveCursorCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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
ListBoxRow
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
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \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
FunPtr C_ListBoxRowActivatedCallback
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"row-activated" FunPtr C_ListBoxRowActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxRowActivatedCallback
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"row-activated" FunPtr C_ListBoxRowActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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
Maybe ListBoxRow
maybeRow <-
if Ptr ListBoxRow
row Ptr ListBoxRow -> Ptr ListBoxRow -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr ListBoxRow
forall a. Ptr a
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
ListBoxRow
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
Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe ListBoxRow -> IO (Maybe ListBoxRow))
-> Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ ListBoxRow -> Maybe ListBoxRow
forall a. a -> Maybe a
Just ListBoxRow
row'
Ptr ListBox -> (ListBox -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr ListBox
gi'selfPtr ((ListBox -> IO ()) -> IO ()) -> (ListBox -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \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
FunPtr C_ListBoxRowActivatedCallback
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"row-selected" FunPtr C_ListBoxRowActivatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxRowActivatedCallback
wrapped'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxRowActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"row-selected" FunPtr C_ListBoxRowActivatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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 a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-all" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-all" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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 a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selected-rows-changed" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selected-rows-changed" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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 a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/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 a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient 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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unselect-all" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
wrapped'
a
-> Text
-> FunPtr C_ListBoxActivateCursorRowCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unselect-all" FunPtr C_ListBoxActivateCursorRowCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#g:signal:unselectAll"})
#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-gtk-3.0.41/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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#g:attr:selectionMode"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ListBox
type instance O.AttributeList ListBox = ListBoxAttributeList
type ListBoxAttributeList = ('[ '("activateOnSingleClick", ListBoxActivateOnSingleClickPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("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), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", ListBoxSelectionModePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("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), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
listBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"
listBoxActivateOnSingleClick = AttrLabelProxy
listBoxSelectionMode :: AttrLabelProxy "selectionMode"
listBoxSelectionMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ListBox = ListBoxSignalList
type ListBoxSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCursorRow", ListBoxActivateCursorRowSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveCursor", ListBoxMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("rowActivated", ListBoxRowActivatedSignalInfo), '("rowSelected", ListBoxRowSelectedSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectAll", ListBoxSelectAllSignalInfo), '("selectedRowsChanged", ListBoxSelectedRowsChangedSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("toggleCursorRow", ListBoxToggleCursorRowSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", ListBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(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
Ptr ListBox
result <- IO (Ptr ListBox)
gtk_list_box_new
Text -> Ptr ListBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"listBoxNew" Ptr ListBox
result
ListBox
result' <- ((ManagedPtr ListBox -> ListBox) -> Ptr ListBox -> IO ListBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListBox -> ListBox
ListBox) Ptr ListBox
result
ListBox -> IO ListBox
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListBox
result'
#if defined(ENABLE_OVERLOADING)
#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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListModel
maybeModel <- case Maybe b
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
nullPtr
Just b
jModel -> do
Ptr ListModel
jModel' <- b -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr ListModel -> IO (Ptr ListModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
jModel'
FunPtr C_ListBoxCreateWidgetFunc
maybeCreateWidgetFunc <- case Maybe ListBoxCreateWidgetFunc
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 (Ptr Any -> FunPtr C_ListBoxCreateWidgetFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just ListBoxCreateWidgetFunc
jCreateWidgetFunc -> do
FunPtr C_ListBoxCreateWidgetFunc
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))
FunPtr C_ListBoxCreateWidgetFunc
-> IO (FunPtr C_ListBoxCreateWidgetFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxCreateWidgetFunc
jCreateWidgetFunc'
let userData :: Ptr ()
userData = FunPtr C_ListBoxCreateWidgetFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxCreateWidgetFunc
maybeCreateWidgetFunc
let userDataFreeFunc :: FunPtr (Ptr a -> IO ())
userDataFreeFunc = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr ListBox
-> Ptr ListModel
-> FunPtr C_ListBoxCreateWidgetFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_list_box_bind_model Ptr ListBox
box' Ptr ListModel
maybeModel FunPtr C_ListBoxCreateWidgetFunc
maybeCreateWidgetFunc Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
userDataFreeFunc
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
row' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
row
Ptr ListBox -> Ptr ListBoxRow -> IO ()
gtk_list_box_drag_highlight_row Ptr ListBox
box' Ptr ListBoxRow
row'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
row
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_drag_unhighlight_row Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
CInt
result <- Ptr ListBox -> IO CInt
gtk_list_box_get_activate_on_single_click Ptr ListBox
box'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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-gtk-3.0.41/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 Gtk.Adjustment.Adjustment
listBoxGetAdjustment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m Adjustment
listBoxGetAdjustment a
box = IO Adjustment -> m Adjustment
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Adjustment -> m Adjustment) -> IO Adjustment -> m Adjustment
forall a b. (a -> b) -> a -> b
$ do
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Adjustment
result <- Ptr ListBox -> IO (Ptr Adjustment)
gtk_list_box_get_adjustment Ptr ListBox
box'
Text -> Ptr Adjustment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"listBoxGetAdjustment" Ptr Adjustment
result
Adjustment
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Adjustment -> IO Adjustment
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetAdjustmentMethodInfo
instance (signature ~ (m 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
result <- Ptr ListBox -> Int32 -> IO (Ptr ListBoxRow)
gtk_list_box_get_row_at_index Ptr ListBox
box' Int32
index_
Maybe ListBoxRow
maybeResult <- Ptr ListBoxRow
-> (Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListBoxRow
result ((Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow))
-> (Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ \Ptr ListBoxRow
result' -> do
ListBoxRow
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'
ListBoxRow -> IO ListBoxRow
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListBoxRow
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListBoxRow
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
result <- Ptr ListBox -> Int32 -> IO (Ptr ListBoxRow)
gtk_list_box_get_row_at_y Ptr ListBox
box' Int32
y
Maybe ListBoxRow
maybeResult <- Ptr ListBoxRow
-> (Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListBoxRow
result ((Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow))
-> (Ptr ListBoxRow -> IO ListBoxRow) -> IO (Maybe ListBoxRow)
forall a b. (a -> b) -> a -> b
$ \Ptr ListBoxRow
result' -> do
ListBoxRow
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'
ListBoxRow -> IO ListBoxRow
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListBoxRow
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe ListBoxRow -> IO (Maybe ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListBoxRow
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-gtk-3.0.41/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 Gtk.ListBoxRow.ListBoxRow
listBoxGetSelectedRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListBox a) =>
a -> m ListBoxRow
listBoxGetSelectedRow 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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
result <- Ptr ListBox -> IO (Ptr ListBoxRow)
gtk_list_box_get_selected_row Ptr ListBox
box'
Text -> Ptr ListBoxRow -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"listBoxGetSelectedRow" Ptr ListBoxRow
result
ListBoxRow
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
ListBoxRow -> IO ListBoxRow
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListBoxRow
result'
#if defined(ENABLE_OVERLOADING)
data ListBoxGetSelectedRowMethodInfo
instance (signature ~ (m 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr (GList (Ptr ListBoxRow))
result <- Ptr ListBox -> IO (Ptr (GList (Ptr ListBoxRow)))
gtk_list_box_get_selected_rows Ptr ListBox
box'
[Ptr ListBoxRow]
result' <- Ptr (GList (Ptr ListBoxRow)) -> IO [Ptr ListBoxRow]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr ListBoxRow))
result
[ListBoxRow]
result'' <- (Ptr ListBoxRow -> IO ListBoxRow)
-> [Ptr ListBoxRow] -> IO [ListBoxRow]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((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'
Ptr (GList (Ptr ListBoxRow)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr ListBoxRow))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
[ListBoxRow] -> IO [ListBoxRow]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [ListBoxRow]
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
CUInt
result <- Ptr ListBox -> IO CUInt
gtk_list_box_get_selection_mode Ptr ListBox
box'
let result' :: SelectionMode
result' = (Int -> SelectionMode
forall a. Enum a => Int -> a
toEnum (Int -> SelectionMode) -> (CUInt -> Int) -> CUInt -> SelectionMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
SelectionMode -> IO SelectionMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SelectionMode
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#v:listBoxGetSelectionMode"
})
#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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ListBox -> Ptr Widget -> Int32 -> IO ()
gtk_list_box_insert Ptr ListBox
box' Ptr Widget
child' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_invalidate_filter Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_invalidate_headers Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_invalidate_sort Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ListBox -> Ptr Widget -> IO ()
gtk_list_box_prepend Ptr ListBox
box' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#v:listBoxPrepend"
})
#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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_select_all Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
maybeRow <- case Maybe b
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
nullPtr
Just b
jRow -> do
Ptr ListBoxRow
jRow' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jRow
Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
jRow'
Ptr ListBox -> Ptr ListBoxRow -> IO ()
gtk_list_box_select_row Ptr ListBox
box' Ptr ListBoxRow
maybeRow
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
row b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_ListBoxRowActivatedCallback
func' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
Gtk.Callbacks.mk_ListBoxForeachFunc (Maybe (Ptr (FunPtr C_ListBoxRowActivatedCallback))
-> ListBoxForeachFunc_WithClosures -> C_ListBoxRowActivatedCallback
Gtk.Callbacks.wrap_ListBoxForeachFunc Maybe (Ptr (FunPtr C_ListBoxRowActivatedCallback))
forall a. Maybe a
Nothing (ListBoxForeachFunc -> ListBoxForeachFunc_WithClosures
Gtk.Callbacks.drop_closures_ListBoxForeachFunc ListBoxForeachFunc
func))
let data_ :: Ptr a
data_ = Ptr a
forall a. Ptr a
nullPtr
Ptr ListBox
-> FunPtr C_ListBoxRowActivatedCallback -> C_DestroyNotify
gtk_list_box_selected_foreach Ptr ListBox
box' FunPtr C_ListBoxRowActivatedCallback
func' Ptr ()
forall a. Ptr a
data_
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_ListBoxRowActivatedCallback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxRowActivatedCallback
func'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let single' :: CInt
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
Ptr ListBox -> CInt -> IO ()
gtk_list_box_set_activate_on_single_click Ptr ListBox
box' CInt
single'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Adjustment
maybeAdjustment <- case Maybe b
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
nullPtr
Just b
jAdjustment -> do
Ptr Adjustment
jAdjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jAdjustment
Ptr Adjustment -> IO (Ptr Adjustment)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
jAdjustment'
Ptr ListBox -> Ptr Adjustment -> IO ()
gtk_list_box_set_adjustment Ptr ListBox
box' Ptr Adjustment
maybeAdjustment
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
adjustment b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_ListBoxFilterFunc
maybeFilterFunc <- case Maybe ListBoxFilterFunc
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 (Ptr Any -> FunPtr C_ListBoxFilterFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just ListBoxFilterFunc
jFilterFunc -> do
FunPtr C_ListBoxFilterFunc
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))
FunPtr C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxFilterFunc
jFilterFunc'
let userData :: Ptr ()
userData = FunPtr C_ListBoxFilterFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxFilterFunc
maybeFilterFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr ListBox
-> FunPtr C_ListBoxFilterFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_list_box_set_filter_func Ptr ListBox
box' FunPtr C_ListBoxFilterFunc
maybeFilterFunc Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_ListBoxUpdateHeaderFunc
maybeUpdateHeader <- case Maybe ListBoxUpdateHeaderFunc
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 (Ptr Any -> FunPtr C_ListBoxUpdateHeaderFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just ListBoxUpdateHeaderFunc
jUpdateHeader -> do
FunPtr C_ListBoxUpdateHeaderFunc
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))
FunPtr C_ListBoxUpdateHeaderFunc
-> IO (FunPtr C_ListBoxUpdateHeaderFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxUpdateHeaderFunc
jUpdateHeader'
let userData :: Ptr ()
userData = FunPtr C_ListBoxUpdateHeaderFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxUpdateHeaderFunc
maybeUpdateHeader
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr ListBox
-> FunPtr C_ListBoxUpdateHeaderFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_list_box_set_header_func Ptr ListBox
box' FunPtr C_ListBoxUpdateHeaderFunc
maybeUpdateHeader Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Widget
maybePlaceholder <- case Maybe b
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
nullPtr
Just b
jPlaceholder -> do
Ptr Widget
jPlaceholder' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPlaceholder
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jPlaceholder'
Ptr ListBox -> Ptr Widget -> IO ()
gtk_list_box_set_placeholder Ptr ListBox
box' Ptr Widget
maybePlaceholder
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
placeholder b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data 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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let mode' :: CUInt
mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SelectionMode -> Int) -> SelectionMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SelectionMode -> Int
forall a. Enum a => a -> Int
fromEnum) SelectionMode
mode
Ptr ListBox -> CUInt -> IO ()
gtk_list_box_set_selection_mode Ptr ListBox
box' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetSelectionMode"
})
#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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_ListBoxSortFunc
maybeSortFunc <- case Maybe ListBoxSortFunc
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 (Ptr Any -> FunPtr C_ListBoxSortFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just ListBoxSortFunc
jSortFunc -> do
FunPtr C_ListBoxSortFunc
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))
FunPtr C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_ListBoxSortFunc
jSortFunc'
let userData :: Ptr ()
userData = FunPtr C_ListBoxSortFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxSortFunc
maybeSortFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr ListBox
-> FunPtr C_ListBoxSortFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_list_box_set_sort_func Ptr ListBox
box' FunPtr C_ListBoxSortFunc
maybeSortFunc Ptr ()
userData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#v:listBoxSetSortFunc"
})
#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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBox -> IO ()
gtk_list_box_unselect_all Ptr ListBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/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
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListBoxRow
row' <- b -> IO (Ptr ListBoxRow)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
row
Ptr ListBox -> Ptr ListBoxRow -> IO ()
gtk_list_box_unselect_row Ptr ListBox
box' Ptr ListBoxRow
row'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
row
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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-gtk-3.0.41/docs/GI-Gtk-Objects-ListBox.html#v:listBoxUnselectRow"
})
#endif