{-# LANGUAGE 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 ,
noListBox ,
#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 ,
C_ListBoxActivateCursorRowCallback ,
ListBoxActivateCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxActivateCursorRowSignalInfo ,
#endif
afterListBoxActivateCursorRow ,
genClosure_ListBoxActivateCursorRow ,
mk_ListBoxActivateCursorRowCallback ,
noListBoxActivateCursorRowCallback ,
onListBoxActivateCursorRow ,
wrap_ListBoxActivateCursorRowCallback ,
C_ListBoxMoveCursorCallback ,
ListBoxMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxMoveCursorSignalInfo ,
#endif
afterListBoxMoveCursor ,
genClosure_ListBoxMoveCursor ,
mk_ListBoxMoveCursorCallback ,
noListBoxMoveCursorCallback ,
onListBoxMoveCursor ,
wrap_ListBoxMoveCursorCallback ,
C_ListBoxRowActivatedCallback ,
ListBoxRowActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxRowActivatedSignalInfo ,
#endif
afterListBoxRowActivated ,
genClosure_ListBoxRowActivated ,
mk_ListBoxRowActivatedCallback ,
noListBoxRowActivatedCallback ,
onListBoxRowActivated ,
wrap_ListBoxRowActivatedCallback ,
C_ListBoxRowSelectedCallback ,
ListBoxRowSelectedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxRowSelectedSignalInfo ,
#endif
afterListBoxRowSelected ,
genClosure_ListBoxRowSelected ,
mk_ListBoxRowSelectedCallback ,
noListBoxRowSelectedCallback ,
onListBoxRowSelected ,
wrap_ListBoxRowSelectedCallback ,
C_ListBoxSelectAllCallback ,
ListBoxSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectAllSignalInfo ,
#endif
afterListBoxSelectAll ,
genClosure_ListBoxSelectAll ,
mk_ListBoxSelectAllCallback ,
noListBoxSelectAllCallback ,
onListBoxSelectAll ,
wrap_ListBoxSelectAllCallback ,
C_ListBoxSelectedRowsChangedCallback ,
ListBoxSelectedRowsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxSelectedRowsChangedSignalInfo ,
#endif
afterListBoxSelectedRowsChanged ,
genClosure_ListBoxSelectedRowsChanged ,
mk_ListBoxSelectedRowsChangedCallback ,
noListBoxSelectedRowsChangedCallback ,
onListBoxSelectedRowsChanged ,
wrap_ListBoxSelectedRowsChangedCallback ,
C_ListBoxToggleCursorRowCallback ,
ListBoxToggleCursorRowCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxToggleCursorRowSignalInfo ,
#endif
afterListBoxToggleCursorRow ,
genClosure_ListBoxToggleCursorRow ,
mk_ListBoxToggleCursorRowCallback ,
noListBoxToggleCursorRowCallback ,
onListBoxToggleCursorRow ,
wrap_ListBoxToggleCursorRowCallback ,
C_ListBoxUnselectAllCallback ,
ListBoxUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
ListBoxUnselectAllSignalInfo ,
#endif
afterListBoxUnselectAll ,
genClosure_ListBoxUnselectAll ,
mk_ListBoxUnselectAllCallback ,
noListBoxUnselectAllCallback ,
onListBoxUnselectAll ,
wrap_ListBoxUnselectAllCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.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 (ManagedPtr ListBox)
deriving (ListBox -> ListBox -> Bool
(ListBox -> ListBox -> Bool)
-> (ListBox -> ListBox -> Bool) -> Eq ListBox
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListBox -> ListBox -> Bool
$c/= :: ListBox -> ListBox -> Bool
== :: ListBox -> ListBox -> Bool
$c== :: ListBox -> ListBox -> Bool
Eq)
foreign import ccall "gtk_list_box_get_type"
c_gtk_list_box_get_type :: IO GType
instance GObject ListBox where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_list_box_get_type
instance B.GValue.IsGValue ListBox where
toGValue :: ListBox -> IO GValue
toGValue o :: ListBox
o = do
GType
gtype <- IO GType
c_gtk_list_box_get_type
ListBox -> (Ptr ListBox -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ListBox
o (GType
-> (GValue -> Ptr ListBox -> IO ()) -> Ptr ListBox -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr ListBox -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO ListBox
fromGValue gv :: GValue
gv = do
Ptr ListBox
ptr <- GValue -> IO (Ptr ListBox)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr ListBox)
(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
class (GObject o, O.IsDescendantOf ListBox o) => IsListBox o
instance (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 :: (MonadIO m, IsListBox o) => o -> m ListBox
toListBox :: o -> m ListBox
toListBox = IO ListBox -> m ListBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr ListBox -> ListBox
ListBox
noListBox :: Maybe ListBox
noListBox :: Maybe ListBox
noListBox = Maybe ListBox
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveListBoxMethod (t :: Symbol) (o :: *) :: * 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.MethodInfo 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
#endif
type ListBoxActivateCursorRowCallback =
IO ()
noListBoxActivateCursorRowCallback :: Maybe ListBoxActivateCursorRowCallback
noListBoxActivateCursorRowCallback :: Maybe (IO ())
noListBoxActivateCursorRowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ListBoxActivateCursorRowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxActivateCursorRowCallback :: C_ListBoxActivateCursorRowCallback -> IO (FunPtr C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxActivateCursorRow :: MonadIO m => ListBoxActivateCursorRowCallback -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxActivateCursorRow :: IO () -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxActivateCursorRow cb :: IO ()
cb = IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback IO ()
cb
C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
cb' IO (FunPtr C_ListBoxActivateCursorRowCallback)
-> (FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxActivateCursorRowCallback ::
ListBoxActivateCursorRowCallback ->
C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback :: IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onListBoxActivateCursorRow :: (IsListBox a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId
onListBoxActivateCursorRow :: a -> IO () -> m SignalHandlerId
onListBoxActivateCursorRow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
cb'
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 "activate-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxActivateCursorRow :: (IsListBox a, MonadIO m) => a -> ListBoxActivateCursorRowCallback -> m SignalHandlerId
afterListBoxActivateCursorRow :: a -> IO () -> m SignalHandlerId
afterListBoxActivateCursorRow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxActivateCursorRowCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxActivateCursorRowCallback C_ListBoxActivateCursorRowCallback
cb'
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 "activate-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
cb'' 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
#endif
type ListBoxMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> IO ()
noListBoxMoveCursorCallback :: Maybe ListBoxMoveCursorCallback
noListBoxMoveCursorCallback :: Maybe ListBoxMoveCursorCallback
noListBoxMoveCursorCallback = Maybe ListBoxMoveCursorCallback
forall a. Maybe a
Nothing
type C_ListBoxMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxMoveCursorCallback :: C_ListBoxMoveCursorCallback -> IO (FunPtr C_ListBoxMoveCursorCallback)
genClosure_ListBoxMoveCursor :: MonadIO m => ListBoxMoveCursorCallback -> m (GClosure C_ListBoxMoveCursorCallback)
genClosure_ListBoxMoveCursor :: ListBoxMoveCursorCallback
-> m (GClosure C_ListBoxMoveCursorCallback)
genClosure_ListBoxMoveCursor cb :: ListBoxMoveCursorCallback
cb = IO (GClosure C_ListBoxMoveCursorCallback)
-> m (GClosure C_ListBoxMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxMoveCursorCallback)
-> m (GClosure C_ListBoxMoveCursorCallback))
-> IO (GClosure C_ListBoxMoveCursorCallback)
-> m (GClosure C_ListBoxMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxMoveCursorCallback
cb' = ListBoxMoveCursorCallback -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback ListBoxMoveCursorCallback
cb
C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
cb' IO (FunPtr C_ListBoxMoveCursorCallback)
-> (FunPtr C_ListBoxMoveCursorCallback
-> IO (GClosure C_ListBoxMoveCursorCallback))
-> IO (GClosure C_ListBoxMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxMoveCursorCallback
-> IO (GClosure C_ListBoxMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxMoveCursorCallback ::
ListBoxMoveCursorCallback ->
C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback :: ListBoxMoveCursorCallback -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback _cb :: ListBoxMoveCursorCallback
_cb _ object :: CUInt
object p0 :: Int32
p0 _ = 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
ListBoxMoveCursorCallback
_cb MovementStep
object' Int32
p0
onListBoxMoveCursor :: (IsListBox a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId
onListBoxMoveCursor :: a -> ListBoxMoveCursorCallback -> m SignalHandlerId
onListBoxMoveCursor obj :: a
obj cb :: ListBoxMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxMoveCursorCallback
cb' = ListBoxMoveCursorCallback -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback ListBoxMoveCursorCallback
cb
FunPtr C_ListBoxMoveCursorCallback
cb'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
cb'
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 "move-cursor" FunPtr C_ListBoxMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxMoveCursor :: (IsListBox a, MonadIO m) => a -> ListBoxMoveCursorCallback -> m SignalHandlerId
afterListBoxMoveCursor :: a -> ListBoxMoveCursorCallback -> m SignalHandlerId
afterListBoxMoveCursor obj :: a
obj cb :: ListBoxMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxMoveCursorCallback
cb' = ListBoxMoveCursorCallback -> C_ListBoxMoveCursorCallback
wrap_ListBoxMoveCursorCallback ListBoxMoveCursorCallback
cb
FunPtr C_ListBoxMoveCursorCallback
cb'' <- C_ListBoxMoveCursorCallback
-> IO (FunPtr C_ListBoxMoveCursorCallback)
mk_ListBoxMoveCursorCallback C_ListBoxMoveCursorCallback
cb'
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 "move-cursor" FunPtr C_ListBoxMoveCursorCallback
cb'' 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
#endif
type ListBoxRowActivatedCallback =
Gtk.ListBoxRow.ListBoxRow
-> IO ()
noListBoxRowActivatedCallback :: Maybe ListBoxRowActivatedCallback
noListBoxRowActivatedCallback :: Maybe ListBoxRowActivatedCallback
noListBoxRowActivatedCallback = Maybe ListBoxRowActivatedCallback
forall a. Maybe a
Nothing
type C_ListBoxRowActivatedCallback =
Ptr () ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxRowActivatedCallback :: C_ListBoxRowActivatedCallback -> IO (FunPtr C_ListBoxRowActivatedCallback)
genClosure_ListBoxRowActivated :: MonadIO m => ListBoxRowActivatedCallback -> m (GClosure C_ListBoxRowActivatedCallback)
genClosure_ListBoxRowActivated :: ListBoxRowActivatedCallback
-> m (GClosure C_ListBoxRowActivatedCallback)
genClosure_ListBoxRowActivated cb :: ListBoxRowActivatedCallback
cb = IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback))
-> IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowActivatedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback ListBoxRowActivatedCallback
cb
C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
cb' IO (FunPtr C_ListBoxRowActivatedCallback)
-> (FunPtr C_ListBoxRowActivatedCallback
-> IO (GClosure C_ListBoxRowActivatedCallback))
-> IO (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxRowActivatedCallback
-> IO (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxRowActivatedCallback ::
ListBoxRowActivatedCallback ->
C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback :: ListBoxRowActivatedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback _cb :: ListBoxRowActivatedCallback
_cb _ row :: Ptr ListBoxRow
row _ = 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
ListBoxRowActivatedCallback
_cb ListBoxRow
row'
onListBoxRowActivated :: (IsListBox a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId
onListBoxRowActivated :: a -> ListBoxRowActivatedCallback -> m SignalHandlerId
onListBoxRowActivated obj :: a
obj cb :: ListBoxRowActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowActivatedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback ListBoxRowActivatedCallback
cb
FunPtr C_ListBoxRowActivatedCallback
cb'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
cb'
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 "row-activated" FunPtr C_ListBoxRowActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxRowActivated :: (IsListBox a, MonadIO m) => a -> ListBoxRowActivatedCallback -> m SignalHandlerId
afterListBoxRowActivated :: a -> ListBoxRowActivatedCallback -> m SignalHandlerId
afterListBoxRowActivated obj :: a
obj cb :: ListBoxRowActivatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowActivatedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowActivatedCallback ListBoxRowActivatedCallback
cb
FunPtr C_ListBoxRowActivatedCallback
cb'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowActivatedCallback C_ListBoxRowActivatedCallback
cb'
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 "row-activated" FunPtr C_ListBoxRowActivatedCallback
cb'' 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
#endif
type ListBoxRowSelectedCallback =
Maybe Gtk.ListBoxRow.ListBoxRow
-> IO ()
noListBoxRowSelectedCallback :: Maybe ListBoxRowSelectedCallback
noListBoxRowSelectedCallback :: Maybe ListBoxRowSelectedCallback
noListBoxRowSelectedCallback = Maybe ListBoxRowSelectedCallback
forall a. Maybe a
Nothing
type C_ListBoxRowSelectedCallback =
Ptr () ->
Ptr Gtk.ListBoxRow.ListBoxRow ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxRowSelectedCallback :: C_ListBoxRowSelectedCallback -> IO (FunPtr C_ListBoxRowSelectedCallback)
genClosure_ListBoxRowSelected :: MonadIO m => ListBoxRowSelectedCallback -> m (GClosure C_ListBoxRowSelectedCallback)
genClosure_ListBoxRowSelected :: ListBoxRowSelectedCallback
-> m (GClosure C_ListBoxRowActivatedCallback)
genClosure_ListBoxRowSelected cb :: ListBoxRowSelectedCallback
cb = IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback))
-> IO (GClosure C_ListBoxRowActivatedCallback)
-> m (GClosure C_ListBoxRowActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowSelectedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback ListBoxRowSelectedCallback
cb
C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
cb' IO (FunPtr C_ListBoxRowActivatedCallback)
-> (FunPtr C_ListBoxRowActivatedCallback
-> IO (GClosure C_ListBoxRowActivatedCallback))
-> IO (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxRowActivatedCallback
-> IO (GClosure C_ListBoxRowActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxRowSelectedCallback ::
ListBoxRowSelectedCallback ->
C_ListBoxRowSelectedCallback
wrap_ListBoxRowSelectedCallback :: ListBoxRowSelectedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback _cb :: ListBoxRowSelectedCallback
_cb _ row :: Ptr ListBoxRow
row _ = 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 (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 (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'
ListBoxRowSelectedCallback
_cb Maybe ListBoxRow
maybeRow
onListBoxRowSelected :: (IsListBox a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId
onListBoxRowSelected :: a -> ListBoxRowSelectedCallback -> m SignalHandlerId
onListBoxRowSelected obj :: a
obj cb :: ListBoxRowSelectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowSelectedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback ListBoxRowSelectedCallback
cb
FunPtr C_ListBoxRowActivatedCallback
cb'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
cb'
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 "row-selected" FunPtr C_ListBoxRowActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxRowSelected :: (IsListBox a, MonadIO m) => a -> ListBoxRowSelectedCallback -> m SignalHandlerId
afterListBoxRowSelected :: a -> ListBoxRowSelectedCallback -> m SignalHandlerId
afterListBoxRowSelected obj :: a
obj cb :: ListBoxRowSelectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxRowActivatedCallback
cb' = ListBoxRowSelectedCallback -> C_ListBoxRowActivatedCallback
wrap_ListBoxRowSelectedCallback ListBoxRowSelectedCallback
cb
FunPtr C_ListBoxRowActivatedCallback
cb'' <- C_ListBoxRowActivatedCallback
-> IO (FunPtr C_ListBoxRowActivatedCallback)
mk_ListBoxRowSelectedCallback C_ListBoxRowActivatedCallback
cb'
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 "row-selected" FunPtr C_ListBoxRowActivatedCallback
cb'' 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
#endif
type ListBoxSelectAllCallback =
IO ()
noListBoxSelectAllCallback :: Maybe ListBoxSelectAllCallback
noListBoxSelectAllCallback :: Maybe (IO ())
noListBoxSelectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ListBoxSelectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxSelectAllCallback :: C_ListBoxSelectAllCallback -> IO (FunPtr C_ListBoxSelectAllCallback)
genClosure_ListBoxSelectAll :: MonadIO m => ListBoxSelectAllCallback -> m (GClosure C_ListBoxSelectAllCallback)
genClosure_ListBoxSelectAll :: IO () -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxSelectAll cb :: IO ()
cb = IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback IO ()
cb
C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
cb' IO (FunPtr C_ListBoxActivateCursorRowCallback)
-> (FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxSelectAllCallback ::
ListBoxSelectAllCallback ->
C_ListBoxSelectAllCallback
wrap_ListBoxSelectAllCallback :: IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onListBoxSelectAll :: (IsListBox a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId
onListBoxSelectAll :: a -> IO () -> m SignalHandlerId
onListBoxSelectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
cb'
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 "select-all" FunPtr C_ListBoxActivateCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxSelectAll :: (IsListBox a, MonadIO m) => a -> ListBoxSelectAllCallback -> m SignalHandlerId
afterListBoxSelectAll :: a -> IO () -> m SignalHandlerId
afterListBoxSelectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectAllCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectAllCallback C_ListBoxActivateCursorRowCallback
cb'
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 "select-all" FunPtr C_ListBoxActivateCursorRowCallback
cb'' 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
#endif
type ListBoxSelectedRowsChangedCallback =
IO ()
noListBoxSelectedRowsChangedCallback :: Maybe ListBoxSelectedRowsChangedCallback
noListBoxSelectedRowsChangedCallback :: Maybe (IO ())
noListBoxSelectedRowsChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ListBoxSelectedRowsChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxSelectedRowsChangedCallback :: C_ListBoxSelectedRowsChangedCallback -> IO (FunPtr C_ListBoxSelectedRowsChangedCallback)
genClosure_ListBoxSelectedRowsChanged :: MonadIO m => ListBoxSelectedRowsChangedCallback -> m (GClosure C_ListBoxSelectedRowsChangedCallback)
genClosure_ListBoxSelectedRowsChanged :: IO () -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxSelectedRowsChanged cb :: IO ()
cb = IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback IO ()
cb
C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
cb' IO (FunPtr C_ListBoxActivateCursorRowCallback)
-> (FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxSelectedRowsChangedCallback ::
ListBoxSelectedRowsChangedCallback ->
C_ListBoxSelectedRowsChangedCallback
wrap_ListBoxSelectedRowsChangedCallback :: IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onListBoxSelectedRowsChanged :: (IsListBox a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId
onListBoxSelectedRowsChanged :: a -> IO () -> m SignalHandlerId
onListBoxSelectedRowsChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
cb'
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 "selected-rows-changed" FunPtr C_ListBoxActivateCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxSelectedRowsChanged :: (IsListBox a, MonadIO m) => a -> ListBoxSelectedRowsChangedCallback -> m SignalHandlerId
afterListBoxSelectedRowsChanged :: a -> IO () -> m SignalHandlerId
afterListBoxSelectedRowsChanged obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxSelectedRowsChangedCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxSelectedRowsChangedCallback C_ListBoxActivateCursorRowCallback
cb'
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 "selected-rows-changed" FunPtr C_ListBoxActivateCursorRowCallback
cb'' 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
#endif
type ListBoxToggleCursorRowCallback =
IO ()
noListBoxToggleCursorRowCallback :: Maybe ListBoxToggleCursorRowCallback
noListBoxToggleCursorRowCallback :: Maybe (IO ())
noListBoxToggleCursorRowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ListBoxToggleCursorRowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxToggleCursorRowCallback :: C_ListBoxToggleCursorRowCallback -> IO (FunPtr C_ListBoxToggleCursorRowCallback)
genClosure_ListBoxToggleCursorRow :: MonadIO m => ListBoxToggleCursorRowCallback -> m (GClosure C_ListBoxToggleCursorRowCallback)
genClosure_ListBoxToggleCursorRow :: IO () -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxToggleCursorRow cb :: IO ()
cb = IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback IO ()
cb
C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
cb' IO (FunPtr C_ListBoxActivateCursorRowCallback)
-> (FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxToggleCursorRowCallback ::
ListBoxToggleCursorRowCallback ->
C_ListBoxToggleCursorRowCallback
wrap_ListBoxToggleCursorRowCallback :: IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onListBoxToggleCursorRow :: (IsListBox a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId
onListBoxToggleCursorRow :: a -> IO () -> m SignalHandlerId
onListBoxToggleCursorRow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
cb'
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 "toggle-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxToggleCursorRow :: (IsListBox a, MonadIO m) => a -> ListBoxToggleCursorRowCallback -> m SignalHandlerId
afterListBoxToggleCursorRow :: a -> IO () -> m SignalHandlerId
afterListBoxToggleCursorRow obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxToggleCursorRowCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxToggleCursorRowCallback C_ListBoxActivateCursorRowCallback
cb'
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 "toggle-cursor-row" FunPtr C_ListBoxActivateCursorRowCallback
cb'' 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
#endif
type ListBoxUnselectAllCallback =
IO ()
noListBoxUnselectAllCallback :: Maybe ListBoxUnselectAllCallback
noListBoxUnselectAllCallback :: Maybe (IO ())
noListBoxUnselectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ListBoxUnselectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ListBoxUnselectAllCallback :: C_ListBoxUnselectAllCallback -> IO (FunPtr C_ListBoxUnselectAllCallback)
genClosure_ListBoxUnselectAll :: MonadIO m => ListBoxUnselectAllCallback -> m (GClosure C_ListBoxUnselectAllCallback)
genClosure_ListBoxUnselectAll :: IO () -> m (GClosure C_ListBoxActivateCursorRowCallback)
genClosure_ListBoxUnselectAll cb :: IO ()
cb = IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
-> m (GClosure C_ListBoxActivateCursorRowCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback IO ()
cb
C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
cb' IO (FunPtr C_ListBoxActivateCursorRowCallback)
-> (FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback))
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ListBoxActivateCursorRowCallback
-> IO (GClosure C_ListBoxActivateCursorRowCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ListBoxUnselectAllCallback ::
ListBoxUnselectAllCallback ->
C_ListBoxUnselectAllCallback
wrap_ListBoxUnselectAllCallback :: IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onListBoxUnselectAll :: (IsListBox a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId
onListBoxUnselectAll :: a -> IO () -> m SignalHandlerId
onListBoxUnselectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
cb'
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 "unselect-all" FunPtr C_ListBoxActivateCursorRowCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterListBoxUnselectAll :: (IsListBox a, MonadIO m) => a -> ListBoxUnselectAllCallback -> m SignalHandlerId
afterListBoxUnselectAll :: a -> IO () -> m SignalHandlerId
afterListBoxUnselectAll obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ListBoxActivateCursorRowCallback
cb' = IO () -> C_ListBoxActivateCursorRowCallback
wrap_ListBoxUnselectAllCallback IO ()
cb
FunPtr C_ListBoxActivateCursorRowCallback
cb'' <- C_ListBoxActivateCursorRowCallback
-> IO (FunPtr C_ListBoxActivateCursorRowCallback)
mk_ListBoxUnselectAllCallback C_ListBoxActivateCursorRowCallback
cb'
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 "unselect-all" FunPtr C_ListBoxActivateCursorRowCallback
cb'' 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
#endif
getListBoxActivateOnSingleClick :: (MonadIO m, IsListBox o) => o -> m Bool
getListBoxActivateOnSingleClick :: o -> m Bool
getListBoxActivateOnSingleClick obj :: o
obj = IO Bool -> m Bool
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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "activate-on-single-click"
setListBoxActivateOnSingleClick :: (MonadIO m, IsListBox o) => o -> Bool -> m ()
setListBoxActivateOnSingleClick :: o -> Bool -> m ()
setListBoxActivateOnSingleClick obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "activate-on-single-click" Bool
val
constructListBoxActivateOnSingleClick :: (IsListBox o) => Bool -> IO (GValueConstruct o)
constructListBoxActivateOnSingleClick :: Bool -> IO (GValueConstruct o)
constructListBoxActivateOnSingleClick val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data 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
#endif
getListBoxSelectionMode :: (MonadIO m, IsListBox o) => o -> m Gtk.Enums.SelectionMode
getListBoxSelectionMode :: o -> m SelectionMode
getListBoxSelectionMode obj :: o
obj = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SelectionMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "selection-mode"
setListBoxSelectionMode :: (MonadIO m, IsListBox o) => o -> Gtk.Enums.SelectionMode -> m ()
setListBoxSelectionMode :: o -> SelectionMode -> m ()
setListBoxSelectionMode obj :: o
obj val :: SelectionMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> SelectionMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "selection-mode" SelectionMode
val
constructListBoxSelectionMode :: (IsListBox o) => Gtk.Enums.SelectionMode -> IO (GValueConstruct o)
constructListBoxSelectionMode :: SelectionMode -> IO (GValueConstruct o)
constructListBoxSelectionMode val :: SelectionMode
val = String -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "selection-mode" SelectionMode
val
#if defined(ENABLE_OVERLOADING)
data 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
#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, *)])
#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, *)])
#endif
foreign import ccall "gtk_list_box_new" gtk_list_box_new ::
IO (Ptr ListBox)
listBoxNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ListBox
listBoxNew :: m ListBox
listBoxNew = IO ListBox -> m ListBox
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 "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 (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 :: a -> Maybe b -> Maybe ListBoxCreateWidgetFunc -> m ()
listBoxBindModel box :: a
box model :: Maybe b
model createWidgetFunc :: Maybe ListBoxCreateWidgetFunc
createWidgetFunc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr ListModel -> IO (Ptr ListModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
forall a. Ptr a
nullPtr
Just jModel :: 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 (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
jModel'
FunPtr C_ListBoxCreateWidgetFunc
maybeCreateWidgetFunc <- case Maybe ListBoxCreateWidgetFunc
createWidgetFunc of
Nothing -> FunPtr C_ListBoxCreateWidgetFunc
-> IO (FunPtr C_ListBoxCreateWidgetFunc)
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 jCreateWidgetFunc :: 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 (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 ())
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 (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.MethodInfo ListBoxBindModelMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
listBoxDragHighlightRow box :: a
box row :: b
row = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxDragHighlightRowMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
listBoxDragUnhighlightRow box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxDragUnhighlightRowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxDragUnhighlightRowMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
listBoxGetActivateOnSingleClick box :: a
box = IO Bool -> m Bool
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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Bool -> IO Bool
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.MethodInfo ListBoxGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = 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 :: a -> m Adjustment
listBoxGetAdjustment box :: a
box = IO Adjustment -> m Adjustment
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 "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 (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.MethodInfo ListBoxGetAdjustmentMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m (Maybe ListBoxRow)
listBoxGetRowAtIndex box :: a
box index_ :: Int32
index_ = IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
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
$ \result' :: 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 (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 (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.MethodInfo ListBoxGetRowAtIndexMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m (Maybe ListBoxRow)
listBoxGetRowAtY box :: a
box y :: Int32
y = IO (Maybe ListBoxRow) -> m (Maybe ListBoxRow)
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
$ \result' :: 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 (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 (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.MethodInfo ListBoxGetRowAtYMethodInfo a signature where
overloadedMethod = 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 :: a -> m ListBoxRow
listBoxGetSelectedRow box :: a
box = IO ListBoxRow -> m ListBoxRow
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 "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 (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.MethodInfo ListBoxGetSelectedRowMethodInfo a signature where
overloadedMethod = 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 :: a -> m [ListBoxRow]
listBoxGetSelectedRows box :: a
box = IO [ListBoxRow] -> m [ListBoxRow]
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)
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 (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.MethodInfo ListBoxGetSelectedRowsMethodInfo a signature where
overloadedMethod = 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 :: a -> m SelectionMode
listBoxGetSelectionMode box :: a
box = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxGetSelectionModeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Int32 -> m ()
listBoxInsert box :: a
box child :: b
child position :: Int32
position = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxInsertMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
listBoxInvalidateFilter box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateFilterMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxInvalidateFilterMethodInfo a signature where
overloadedMethod = listBoxInvalidateFilter
#endif
foreign import ccall "gtk_list_box_invalidate_headers" ::
Ptr ListBox ->
IO ()
listBoxInvalidateHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsListBox a) =>
a
-> m ()
box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateHeadersMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxInvalidateHeadersMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
listBoxInvalidateSort box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxInvalidateSortMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxInvalidateSortMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
listBoxPrepend box :: a
box child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxPrependMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
listBoxSelectAll box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxSelectAllMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
listBoxSelectRow box :: a
box row :: Maybe b
row = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr ListBoxRow -> IO (Ptr ListBoxRow)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListBoxRow
forall a. Ptr a
nullPtr
Just jRow :: 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 (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 (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.MethodInfo ListBoxSelectRowMethodInfo a signature where
overloadedMethod = 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 :: a -> ListBoxForeachFunc -> m ()
listBoxSelectedForeach box :: a
box func :: ListBoxForeachFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ListBox
box' <- a -> IO (Ptr ListBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_ListBoxForeachFunc
func' <- C_ListBoxForeachFunc -> IO (FunPtr C_ListBoxForeachFunc)
Gtk.Callbacks.mk_ListBoxForeachFunc (Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
-> ListBoxForeachFunc_WithClosures -> C_ListBoxForeachFunc
Gtk.Callbacks.wrap_ListBoxForeachFunc Maybe (Ptr (FunPtr C_ListBoxForeachFunc))
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_ListBoxForeachFunc -> C_DestroyNotify
gtk_list_box_selected_foreach Ptr ListBox
box' FunPtr C_ListBoxForeachFunc
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_ListBoxForeachFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_ListBoxForeachFunc
func'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
() -> IO ()
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.MethodInfo ListBoxSelectedForeachMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
listBoxSetActivateOnSingleClick box :: a
box single :: Bool
single = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
single
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
listBoxSetAdjustment box :: a
box adjustment :: Maybe b
adjustment = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr Adjustment -> IO (Ptr Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Adjustment
forall a. Ptr a
nullPtr
Just jAdjustment :: 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 (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 (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.MethodInfo ListBoxSetAdjustmentMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe ListBoxFilterFunc -> m ()
listBoxSetFilterFunc box :: a
box filterFunc :: Maybe ListBoxFilterFunc
filterFunc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> FunPtr C_ListBoxFilterFunc -> IO (FunPtr C_ListBoxFilterFunc)
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 jFilterFunc :: 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 (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 ())
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 (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.MethodInfo ListBoxSetFilterFuncMethodInfo a signature where
overloadedMethod = 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 ()
box :: a
box updateHeader :: Maybe ListBoxUpdateHeaderFunc
updateHeader = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> FunPtr C_ListBoxUpdateHeaderFunc
-> IO (FunPtr C_ListBoxUpdateHeaderFunc)
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 jUpdateHeader :: 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 (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 ())
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 (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.MethodInfo ListBoxSetHeaderFuncMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
listBoxSetPlaceholder box :: a
box placeholder :: Maybe b
placeholder = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jPlaceholder :: 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 (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 (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.MethodInfo ListBoxSetPlaceholderMethodInfo a signature where
overloadedMethod = 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 :: a -> SelectionMode -> m ()
listBoxSetSelectionMode box :: a
box mode :: SelectionMode
mode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxSetSelectionModeMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe ListBoxSortFunc -> m ()
listBoxSetSortFunc box :: a
box sortFunc :: Maybe ListBoxSortFunc
sortFunc = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> FunPtr C_ListBoxSortFunc -> IO (FunPtr C_ListBoxSortFunc)
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 jSortFunc :: 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 (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 ())
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 (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.MethodInfo ListBoxSetSortFuncMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
listBoxUnselectAll box :: a
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ListBoxUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsListBox a) => O.MethodInfo ListBoxUnselectAllMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
listBoxUnselectRow box :: a
box row :: b
row = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 (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.MethodInfo ListBoxUnselectRowMethodInfo a signature where
overloadedMethod = listBoxUnselectRow
#endif