{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.FlowBox
(
FlowBox(..) ,
IsFlowBox ,
toFlowBox ,
#if defined(ENABLE_OVERLOADING)
ResolveFlowBoxMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FlowBoxBindModelMethodInfo ,
#endif
flowBoxBindModel ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetActivateOnSingleClickMethodInfo,
#endif
flowBoxGetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetChildAtIndexMethodInfo ,
#endif
flowBoxGetChildAtIndex ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetChildAtPosMethodInfo ,
#endif
flowBoxGetChildAtPos ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetColumnSpacingMethodInfo ,
#endif
flowBoxGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetHomogeneousMethodInfo ,
#endif
flowBoxGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetMaxChildrenPerLineMethodInfo ,
#endif
flowBoxGetMaxChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetMinChildrenPerLineMethodInfo ,
#endif
flowBoxGetMinChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetRowSpacingMethodInfo ,
#endif
flowBoxGetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetSelectedChildrenMethodInfo ,
#endif
flowBoxGetSelectedChildren ,
#if defined(ENABLE_OVERLOADING)
FlowBoxGetSelectionModeMethodInfo ,
#endif
flowBoxGetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
FlowBoxInsertMethodInfo ,
#endif
flowBoxInsert ,
#if defined(ENABLE_OVERLOADING)
FlowBoxInvalidateFilterMethodInfo ,
#endif
flowBoxInvalidateFilter ,
#if defined(ENABLE_OVERLOADING)
FlowBoxInvalidateSortMethodInfo ,
#endif
flowBoxInvalidateSort ,
flowBoxNew ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectAllMethodInfo ,
#endif
flowBoxSelectAll ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectChildMethodInfo ,
#endif
flowBoxSelectChild ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectedForeachMethodInfo ,
#endif
flowBoxSelectedForeach ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetActivateOnSingleClickMethodInfo,
#endif
flowBoxSetActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetColumnSpacingMethodInfo ,
#endif
flowBoxSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetFilterFuncMethodInfo ,
#endif
flowBoxSetFilterFunc ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetHadjustmentMethodInfo ,
#endif
flowBoxSetHadjustment ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetHomogeneousMethodInfo ,
#endif
flowBoxSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetMaxChildrenPerLineMethodInfo ,
#endif
flowBoxSetMaxChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetMinChildrenPerLineMethodInfo ,
#endif
flowBoxSetMinChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetRowSpacingMethodInfo ,
#endif
flowBoxSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetSelectionModeMethodInfo ,
#endif
flowBoxSetSelectionMode ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetSortFuncMethodInfo ,
#endif
flowBoxSetSortFunc ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSetVadjustmentMethodInfo ,
#endif
flowBoxSetVadjustment ,
#if defined(ENABLE_OVERLOADING)
FlowBoxUnselectAllMethodInfo ,
#endif
flowBoxUnselectAll ,
#if defined(ENABLE_OVERLOADING)
FlowBoxUnselectChildMethodInfo ,
#endif
flowBoxUnselectChild ,
#if defined(ENABLE_OVERLOADING)
FlowBoxActivateOnSingleClickPropertyInfo,
#endif
constructFlowBoxActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
flowBoxActivateOnSingleClick ,
#endif
getFlowBoxActivateOnSingleClick ,
setFlowBoxActivateOnSingleClick ,
#if defined(ENABLE_OVERLOADING)
FlowBoxColumnSpacingPropertyInfo ,
#endif
constructFlowBoxColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
flowBoxColumnSpacing ,
#endif
getFlowBoxColumnSpacing ,
setFlowBoxColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxHomogeneousPropertyInfo ,
#endif
constructFlowBoxHomogeneous ,
#if defined(ENABLE_OVERLOADING)
flowBoxHomogeneous ,
#endif
getFlowBoxHomogeneous ,
setFlowBoxHomogeneous ,
#if defined(ENABLE_OVERLOADING)
FlowBoxMaxChildrenPerLinePropertyInfo ,
#endif
constructFlowBoxMaxChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
flowBoxMaxChildrenPerLine ,
#endif
getFlowBoxMaxChildrenPerLine ,
setFlowBoxMaxChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxMinChildrenPerLinePropertyInfo ,
#endif
constructFlowBoxMinChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
flowBoxMinChildrenPerLine ,
#endif
getFlowBoxMinChildrenPerLine ,
setFlowBoxMinChildrenPerLine ,
#if defined(ENABLE_OVERLOADING)
FlowBoxRowSpacingPropertyInfo ,
#endif
constructFlowBoxRowSpacing ,
#if defined(ENABLE_OVERLOADING)
flowBoxRowSpacing ,
#endif
getFlowBoxRowSpacing ,
setFlowBoxRowSpacing ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectionModePropertyInfo ,
#endif
constructFlowBoxSelectionMode ,
#if defined(ENABLE_OVERLOADING)
flowBoxSelectionMode ,
#endif
getFlowBoxSelectionMode ,
setFlowBoxSelectionMode ,
C_FlowBoxActivateCursorChildCallback ,
FlowBoxActivateCursorChildCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxActivateCursorChildSignalInfo ,
#endif
afterFlowBoxActivateCursorChild ,
genClosure_FlowBoxActivateCursorChild ,
mk_FlowBoxActivateCursorChildCallback ,
noFlowBoxActivateCursorChildCallback ,
onFlowBoxActivateCursorChild ,
wrap_FlowBoxActivateCursorChildCallback ,
C_FlowBoxChildActivatedCallback ,
FlowBoxChildActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxChildActivatedSignalInfo ,
#endif
afterFlowBoxChildActivated ,
genClosure_FlowBoxChildActivated ,
mk_FlowBoxChildActivatedCallback ,
noFlowBoxChildActivatedCallback ,
onFlowBoxChildActivated ,
wrap_FlowBoxChildActivatedCallback ,
C_FlowBoxMoveCursorCallback ,
FlowBoxMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxMoveCursorSignalInfo ,
#endif
afterFlowBoxMoveCursor ,
genClosure_FlowBoxMoveCursor ,
mk_FlowBoxMoveCursorCallback ,
noFlowBoxMoveCursorCallback ,
onFlowBoxMoveCursor ,
wrap_FlowBoxMoveCursorCallback ,
C_FlowBoxSelectAllCallback ,
FlowBoxSelectAllCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectAllSignalInfo ,
#endif
afterFlowBoxSelectAll ,
genClosure_FlowBoxSelectAll ,
mk_FlowBoxSelectAllCallback ,
noFlowBoxSelectAllCallback ,
onFlowBoxSelectAll ,
wrap_FlowBoxSelectAllCallback ,
C_FlowBoxSelectedChildrenChangedCallback,
FlowBoxSelectedChildrenChangedCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxSelectedChildrenChangedSignalInfo,
#endif
afterFlowBoxSelectedChildrenChanged ,
genClosure_FlowBoxSelectedChildrenChanged,
mk_FlowBoxSelectedChildrenChangedCallback,
noFlowBoxSelectedChildrenChangedCallback,
onFlowBoxSelectedChildrenChanged ,
wrap_FlowBoxSelectedChildrenChangedCallback,
C_FlowBoxToggleCursorChildCallback ,
FlowBoxToggleCursorChildCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxToggleCursorChildSignalInfo ,
#endif
afterFlowBoxToggleCursorChild ,
genClosure_FlowBoxToggleCursorChild ,
mk_FlowBoxToggleCursorChildCallback ,
noFlowBoxToggleCursorChildCallback ,
onFlowBoxToggleCursorChild ,
wrap_FlowBoxToggleCursorChildCallback ,
C_FlowBoxUnselectAllCallback ,
FlowBoxUnselectAllCallback ,
#if defined(ENABLE_OVERLOADING)
FlowBoxUnselectAllSignalInfo ,
#endif
afterFlowBoxUnselectAll ,
genClosure_FlowBoxUnselectAll ,
mk_FlowBoxUnselectAllCallback ,
noFlowBoxUnselectAllCallback ,
onFlowBoxUnselectAll ,
wrap_FlowBoxUnselectAllCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified 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.Interfaces.Orientable as Gtk.Orientable
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.FlowBoxChild as Gtk.FlowBoxChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype FlowBox = FlowBox (SP.ManagedPtr FlowBox)
deriving (FlowBox -> FlowBox -> Bool
(FlowBox -> FlowBox -> Bool)
-> (FlowBox -> FlowBox -> Bool) -> Eq FlowBox
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FlowBox -> FlowBox -> Bool
$c/= :: FlowBox -> FlowBox -> Bool
== :: FlowBox -> FlowBox -> Bool
$c== :: FlowBox -> FlowBox -> Bool
Eq)
instance SP.ManagedPtrNewtype FlowBox where
toManagedPtr :: FlowBox -> ManagedPtr FlowBox
toManagedPtr (FlowBox ManagedPtr FlowBox
p) = ManagedPtr FlowBox
p
foreign import ccall "gtk_flow_box_get_type"
c_gtk_flow_box_get_type :: IO B.Types.GType
instance B.Types.TypedObject FlowBox where
glibType :: IO GType
glibType = IO GType
c_gtk_flow_box_get_type
instance B.Types.GObject FlowBox
instance B.GValue.IsGValue FlowBox where
toGValue :: FlowBox -> IO GValue
toGValue FlowBox
o = do
GType
gtype <- IO GType
c_gtk_flow_box_get_type
FlowBox -> (Ptr FlowBox -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FlowBox
o (GType
-> (GValue -> Ptr FlowBox -> IO ()) -> Ptr FlowBox -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr FlowBox -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO FlowBox
fromGValue GValue
gv = do
Ptr FlowBox
ptr <- GValue -> IO (Ptr FlowBox)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr FlowBox)
(ManagedPtr FlowBox -> FlowBox) -> Ptr FlowBox -> IO FlowBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr FlowBox -> FlowBox
FlowBox Ptr FlowBox
ptr
class (SP.GObject o, O.IsDescendantOf FlowBox o) => IsFlowBox o
instance (SP.GObject o, O.IsDescendantOf FlowBox o) => IsFlowBox o
instance O.HasParentTypes FlowBox
type instance O.ParentTypes FlowBox = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Orientable.Orientable]
toFlowBox :: (MonadIO m, IsFlowBox o) => o -> m FlowBox
toFlowBox :: o -> m FlowBox
toFlowBox = IO FlowBox -> m FlowBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowBox -> m FlowBox) -> (o -> IO FlowBox) -> o -> m FlowBox
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FlowBox -> FlowBox) -> o -> IO FlowBox
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr FlowBox -> FlowBox
FlowBox
#if defined(ENABLE_OVERLOADING)
type family ResolveFlowBoxMethod (t :: Symbol) (o :: *) :: * where
ResolveFlowBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveFlowBoxMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveFlowBoxMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveFlowBoxMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveFlowBoxMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveFlowBoxMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveFlowBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveFlowBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveFlowBoxMethod "bindModel" o = FlowBoxBindModelMethodInfo
ResolveFlowBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFlowBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFlowBoxMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveFlowBoxMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveFlowBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveFlowBoxMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveFlowBoxMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveFlowBoxMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveFlowBoxMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveFlowBoxMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveFlowBoxMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveFlowBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveFlowBoxMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveFlowBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveFlowBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveFlowBoxMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveFlowBoxMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveFlowBoxMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveFlowBoxMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveFlowBoxMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveFlowBoxMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveFlowBoxMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveFlowBoxMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveFlowBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveFlowBoxMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveFlowBoxMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveFlowBoxMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveFlowBoxMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveFlowBoxMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveFlowBoxMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveFlowBoxMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveFlowBoxMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveFlowBoxMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveFlowBoxMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveFlowBoxMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveFlowBoxMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveFlowBoxMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveFlowBoxMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveFlowBoxMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveFlowBoxMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveFlowBoxMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveFlowBoxMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveFlowBoxMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveFlowBoxMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveFlowBoxMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveFlowBoxMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveFlowBoxMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveFlowBoxMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveFlowBoxMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveFlowBoxMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveFlowBoxMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveFlowBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveFlowBoxMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveFlowBoxMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveFlowBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFlowBoxMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveFlowBoxMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveFlowBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFlowBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFlowBoxMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveFlowBoxMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveFlowBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveFlowBoxMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveFlowBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveFlowBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveFlowBoxMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveFlowBoxMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveFlowBoxMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveFlowBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveFlowBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveFlowBoxMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveFlowBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveFlowBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveFlowBoxMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveFlowBoxMethod "insert" o = FlowBoxInsertMethodInfo
ResolveFlowBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveFlowBoxMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveFlowBoxMethod "invalidateFilter" o = FlowBoxInvalidateFilterMethodInfo
ResolveFlowBoxMethod "invalidateSort" o = FlowBoxInvalidateSortMethodInfo
ResolveFlowBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveFlowBoxMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveFlowBoxMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveFlowBoxMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFlowBoxMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveFlowBoxMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveFlowBoxMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveFlowBoxMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveFlowBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveFlowBoxMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveFlowBoxMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveFlowBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveFlowBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveFlowBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveFlowBoxMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveFlowBoxMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveFlowBoxMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveFlowBoxMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveFlowBoxMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveFlowBoxMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveFlowBoxMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveFlowBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFlowBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFlowBoxMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveFlowBoxMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveFlowBoxMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveFlowBoxMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveFlowBoxMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveFlowBoxMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveFlowBoxMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveFlowBoxMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveFlowBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveFlowBoxMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveFlowBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveFlowBoxMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveFlowBoxMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveFlowBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveFlowBoxMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveFlowBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveFlowBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFlowBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFlowBoxMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveFlowBoxMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveFlowBoxMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveFlowBoxMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveFlowBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveFlowBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveFlowBoxMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveFlowBoxMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveFlowBoxMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveFlowBoxMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveFlowBoxMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveFlowBoxMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveFlowBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFlowBoxMethod "selectAll" o = FlowBoxSelectAllMethodInfo
ResolveFlowBoxMethod "selectChild" o = FlowBoxSelectChildMethodInfo
ResolveFlowBoxMethod "selectedForeach" o = FlowBoxSelectedForeachMethodInfo
ResolveFlowBoxMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveFlowBoxMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveFlowBoxMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveFlowBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveFlowBoxMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveFlowBoxMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveFlowBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveFlowBoxMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveFlowBoxMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveFlowBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFlowBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFlowBoxMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveFlowBoxMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveFlowBoxMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveFlowBoxMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFlowBoxMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveFlowBoxMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveFlowBoxMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveFlowBoxMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveFlowBoxMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveFlowBoxMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFlowBoxMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveFlowBoxMethod "unselectAll" o = FlowBoxUnselectAllMethodInfo
ResolveFlowBoxMethod "unselectChild" o = FlowBoxUnselectChildMethodInfo
ResolveFlowBoxMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveFlowBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveFlowBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFlowBoxMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveFlowBoxMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveFlowBoxMethod "getActivateOnSingleClick" o = FlowBoxGetActivateOnSingleClickMethodInfo
ResolveFlowBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveFlowBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveFlowBoxMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveFlowBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveFlowBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveFlowBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveFlowBoxMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveFlowBoxMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveFlowBoxMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveFlowBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveFlowBoxMethod "getChildAtIndex" o = FlowBoxGetChildAtIndexMethodInfo
ResolveFlowBoxMethod "getChildAtPos" o = FlowBoxGetChildAtPosMethodInfo
ResolveFlowBoxMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveFlowBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveFlowBoxMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveFlowBoxMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveFlowBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveFlowBoxMethod "getColumnSpacing" o = FlowBoxGetColumnSpacingMethodInfo
ResolveFlowBoxMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveFlowBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFlowBoxMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveFlowBoxMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveFlowBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveFlowBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveFlowBoxMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveFlowBoxMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveFlowBoxMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveFlowBoxMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveFlowBoxMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveFlowBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveFlowBoxMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveFlowBoxMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveFlowBoxMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveFlowBoxMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveFlowBoxMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveFlowBoxMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveFlowBoxMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveFlowBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveFlowBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveFlowBoxMethod "getHomogeneous" o = FlowBoxGetHomogeneousMethodInfo
ResolveFlowBoxMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveFlowBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveFlowBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveFlowBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveFlowBoxMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveFlowBoxMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveFlowBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveFlowBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveFlowBoxMethod "getMaxChildrenPerLine" o = FlowBoxGetMaxChildrenPerLineMethodInfo
ResolveFlowBoxMethod "getMinChildrenPerLine" o = FlowBoxGetMinChildrenPerLineMethodInfo
ResolveFlowBoxMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveFlowBoxMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveFlowBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveFlowBoxMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveFlowBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveFlowBoxMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveFlowBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveFlowBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveFlowBoxMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveFlowBoxMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveFlowBoxMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveFlowBoxMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveFlowBoxMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveFlowBoxMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveFlowBoxMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveFlowBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveFlowBoxMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveFlowBoxMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveFlowBoxMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFlowBoxMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFlowBoxMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveFlowBoxMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveFlowBoxMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveFlowBoxMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveFlowBoxMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveFlowBoxMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveFlowBoxMethod "getRowSpacing" o = FlowBoxGetRowSpacingMethodInfo
ResolveFlowBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveFlowBoxMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveFlowBoxMethod "getSelectedChildren" o = FlowBoxGetSelectedChildrenMethodInfo
ResolveFlowBoxMethod "getSelectionMode" o = FlowBoxGetSelectionModeMethodInfo
ResolveFlowBoxMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveFlowBoxMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveFlowBoxMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveFlowBoxMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveFlowBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveFlowBoxMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveFlowBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveFlowBoxMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveFlowBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveFlowBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveFlowBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveFlowBoxMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveFlowBoxMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveFlowBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveFlowBoxMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveFlowBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveFlowBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveFlowBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveFlowBoxMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveFlowBoxMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveFlowBoxMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveFlowBoxMethod "setActivateOnSingleClick" o = FlowBoxSetActivateOnSingleClickMethodInfo
ResolveFlowBoxMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveFlowBoxMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveFlowBoxMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveFlowBoxMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveFlowBoxMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveFlowBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveFlowBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveFlowBoxMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveFlowBoxMethod "setColumnSpacing" o = FlowBoxSetColumnSpacingMethodInfo
ResolveFlowBoxMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveFlowBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFlowBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFlowBoxMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveFlowBoxMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveFlowBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveFlowBoxMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveFlowBoxMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveFlowBoxMethod "setFilterFunc" o = FlowBoxSetFilterFuncMethodInfo
ResolveFlowBoxMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveFlowBoxMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveFlowBoxMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveFlowBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveFlowBoxMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveFlowBoxMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveFlowBoxMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveFlowBoxMethod "setHadjustment" o = FlowBoxSetHadjustmentMethodInfo
ResolveFlowBoxMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveFlowBoxMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveFlowBoxMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveFlowBoxMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveFlowBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveFlowBoxMethod "setHomogeneous" o = FlowBoxSetHomogeneousMethodInfo
ResolveFlowBoxMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveFlowBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveFlowBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveFlowBoxMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveFlowBoxMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveFlowBoxMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveFlowBoxMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveFlowBoxMethod "setMaxChildrenPerLine" o = FlowBoxSetMaxChildrenPerLineMethodInfo
ResolveFlowBoxMethod "setMinChildrenPerLine" o = FlowBoxSetMinChildrenPerLineMethodInfo
ResolveFlowBoxMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveFlowBoxMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveFlowBoxMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveFlowBoxMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveFlowBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveFlowBoxMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveFlowBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFlowBoxMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveFlowBoxMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveFlowBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveFlowBoxMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveFlowBoxMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveFlowBoxMethod "setRowSpacing" o = FlowBoxSetRowSpacingMethodInfo
ResolveFlowBoxMethod "setSelectionMode" o = FlowBoxSetSelectionModeMethodInfo
ResolveFlowBoxMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveFlowBoxMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveFlowBoxMethod "setSortFunc" o = FlowBoxSetSortFuncMethodInfo
ResolveFlowBoxMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveFlowBoxMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveFlowBoxMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveFlowBoxMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveFlowBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveFlowBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveFlowBoxMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveFlowBoxMethod "setVadjustment" o = FlowBoxSetVadjustmentMethodInfo
ResolveFlowBoxMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveFlowBoxMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveFlowBoxMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveFlowBoxMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveFlowBoxMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveFlowBoxMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveFlowBoxMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFlowBoxMethod t FlowBox, O.MethodInfo info FlowBox p) => OL.IsLabel t (FlowBox -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type FlowBoxActivateCursorChildCallback =
IO ()
noFlowBoxActivateCursorChildCallback :: Maybe FlowBoxActivateCursorChildCallback
noFlowBoxActivateCursorChildCallback :: Maybe (IO ())
noFlowBoxActivateCursorChildCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FlowBoxActivateCursorChildCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxActivateCursorChildCallback :: C_FlowBoxActivateCursorChildCallback -> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxActivateCursorChild :: MonadIO m => FlowBoxActivateCursorChildCallback -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxActivateCursorChild :: IO () -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxActivateCursorChild IO ()
cb = IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxActivateCursorChildCallback IO ()
cb
C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxActivateCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb' IO (FunPtr C_FlowBoxActivateCursorChildCallback)
-> (FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxActivateCursorChildCallback ::
FlowBoxActivateCursorChildCallback ->
C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxActivateCursorChildCallback :: IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxActivateCursorChildCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFlowBoxActivateCursorChild :: (IsFlowBox a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId
onFlowBoxActivateCursorChild :: a -> IO () -> m SignalHandlerId
onFlowBoxActivateCursorChild a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxActivateCursorChildCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxActivateCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-cursor-child" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxActivateCursorChild :: (IsFlowBox a, MonadIO m) => a -> FlowBoxActivateCursorChildCallback -> m SignalHandlerId
afterFlowBoxActivateCursorChild :: a -> IO () -> m SignalHandlerId
afterFlowBoxActivateCursorChild a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxActivateCursorChildCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxActivateCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate-cursor-child" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxActivateCursorChildSignalInfo
instance SignalInfo FlowBoxActivateCursorChildSignalInfo where
type HaskellCallbackType FlowBoxActivateCursorChildSignalInfo = FlowBoxActivateCursorChildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxActivateCursorChildCallback cb
cb'' <- mk_FlowBoxActivateCursorChildCallback cb'
connectSignalFunPtr obj "activate-cursor-child" cb'' connectMode detail
#endif
type FlowBoxChildActivatedCallback =
Gtk.FlowBoxChild.FlowBoxChild
-> IO ()
noFlowBoxChildActivatedCallback :: Maybe FlowBoxChildActivatedCallback
noFlowBoxChildActivatedCallback :: Maybe FlowBoxChildActivatedCallback
noFlowBoxChildActivatedCallback = Maybe FlowBoxChildActivatedCallback
forall a. Maybe a
Nothing
type C_FlowBoxChildActivatedCallback =
Ptr () ->
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxChildActivatedCallback :: C_FlowBoxChildActivatedCallback -> IO (FunPtr C_FlowBoxChildActivatedCallback)
genClosure_FlowBoxChildActivated :: MonadIO m => FlowBoxChildActivatedCallback -> m (GClosure C_FlowBoxChildActivatedCallback)
genClosure_FlowBoxChildActivated :: FlowBoxChildActivatedCallback
-> m (GClosure C_FlowBoxChildActivatedCallback)
genClosure_FlowBoxChildActivated FlowBoxChildActivatedCallback
cb = IO (GClosure C_FlowBoxChildActivatedCallback)
-> m (GClosure C_FlowBoxChildActivatedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxChildActivatedCallback)
-> m (GClosure C_FlowBoxChildActivatedCallback))
-> IO (GClosure C_FlowBoxChildActivatedCallback)
-> m (GClosure C_FlowBoxChildActivatedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxChildActivatedCallback
cb' = FlowBoxChildActivatedCallback -> C_FlowBoxChildActivatedCallback
wrap_FlowBoxChildActivatedCallback FlowBoxChildActivatedCallback
cb
C_FlowBoxChildActivatedCallback
-> IO (FunPtr C_FlowBoxChildActivatedCallback)
mk_FlowBoxChildActivatedCallback C_FlowBoxChildActivatedCallback
cb' IO (FunPtr C_FlowBoxChildActivatedCallback)
-> (FunPtr C_FlowBoxChildActivatedCallback
-> IO (GClosure C_FlowBoxChildActivatedCallback))
-> IO (GClosure C_FlowBoxChildActivatedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxChildActivatedCallback
-> IO (GClosure C_FlowBoxChildActivatedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxChildActivatedCallback ::
FlowBoxChildActivatedCallback ->
C_FlowBoxChildActivatedCallback
wrap_FlowBoxChildActivatedCallback :: FlowBoxChildActivatedCallback -> C_FlowBoxChildActivatedCallback
wrap_FlowBoxChildActivatedCallback FlowBoxChildActivatedCallback
_cb Ptr ()
_ Ptr FlowBoxChild
child Ptr ()
_ = do
FlowBoxChild
child' <- ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) Ptr FlowBoxChild
child
FlowBoxChildActivatedCallback
_cb FlowBoxChild
child'
onFlowBoxChildActivated :: (IsFlowBox a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
onFlowBoxChildActivated :: a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
onFlowBoxChildActivated a
obj FlowBoxChildActivatedCallback
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_FlowBoxChildActivatedCallback
cb' = FlowBoxChildActivatedCallback -> C_FlowBoxChildActivatedCallback
wrap_FlowBoxChildActivatedCallback FlowBoxChildActivatedCallback
cb
FunPtr C_FlowBoxChildActivatedCallback
cb'' <- C_FlowBoxChildActivatedCallback
-> IO (FunPtr C_FlowBoxChildActivatedCallback)
mk_FlowBoxChildActivatedCallback C_FlowBoxChildActivatedCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxChildActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-activated" FunPtr C_FlowBoxChildActivatedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxChildActivated :: (IsFlowBox a, MonadIO m) => a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
afterFlowBoxChildActivated :: a -> FlowBoxChildActivatedCallback -> m SignalHandlerId
afterFlowBoxChildActivated a
obj FlowBoxChildActivatedCallback
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_FlowBoxChildActivatedCallback
cb' = FlowBoxChildActivatedCallback -> C_FlowBoxChildActivatedCallback
wrap_FlowBoxChildActivatedCallback FlowBoxChildActivatedCallback
cb
FunPtr C_FlowBoxChildActivatedCallback
cb'' <- C_FlowBoxChildActivatedCallback
-> IO (FunPtr C_FlowBoxChildActivatedCallback)
mk_FlowBoxChildActivatedCallback C_FlowBoxChildActivatedCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxChildActivatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-activated" FunPtr C_FlowBoxChildActivatedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxChildActivatedSignalInfo
instance SignalInfo FlowBoxChildActivatedSignalInfo where
type HaskellCallbackType FlowBoxChildActivatedSignalInfo = FlowBoxChildActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxChildActivatedCallback cb
cb'' <- mk_FlowBoxChildActivatedCallback cb'
connectSignalFunPtr obj "child-activated" cb'' connectMode detail
#endif
type FlowBoxMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> IO Bool
noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback
noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback
noFlowBoxMoveCursorCallback = Maybe FlowBoxMoveCursorCallback
forall a. Maybe a
Nothing
type C_FlowBoxMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_FlowBoxMoveCursorCallback :: C_FlowBoxMoveCursorCallback -> IO (FunPtr C_FlowBoxMoveCursorCallback)
genClosure_FlowBoxMoveCursor :: MonadIO m => FlowBoxMoveCursorCallback -> m (GClosure C_FlowBoxMoveCursorCallback)
genClosure_FlowBoxMoveCursor :: FlowBoxMoveCursorCallback
-> m (GClosure C_FlowBoxMoveCursorCallback)
genClosure_FlowBoxMoveCursor FlowBoxMoveCursorCallback
cb = IO (GClosure C_FlowBoxMoveCursorCallback)
-> m (GClosure C_FlowBoxMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxMoveCursorCallback)
-> m (GClosure C_FlowBoxMoveCursorCallback))
-> IO (GClosure C_FlowBoxMoveCursorCallback)
-> m (GClosure C_FlowBoxMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxMoveCursorCallback
cb' = FlowBoxMoveCursorCallback -> C_FlowBoxMoveCursorCallback
wrap_FlowBoxMoveCursorCallback FlowBoxMoveCursorCallback
cb
C_FlowBoxMoveCursorCallback
-> IO (FunPtr C_FlowBoxMoveCursorCallback)
mk_FlowBoxMoveCursorCallback C_FlowBoxMoveCursorCallback
cb' IO (FunPtr C_FlowBoxMoveCursorCallback)
-> (FunPtr C_FlowBoxMoveCursorCallback
-> IO (GClosure C_FlowBoxMoveCursorCallback))
-> IO (GClosure C_FlowBoxMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxMoveCursorCallback
-> IO (GClosure C_FlowBoxMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxMoveCursorCallback ::
FlowBoxMoveCursorCallback ->
C_FlowBoxMoveCursorCallback
wrap_FlowBoxMoveCursorCallback :: FlowBoxMoveCursorCallback -> C_FlowBoxMoveCursorCallback
wrap_FlowBoxMoveCursorCallback FlowBoxMoveCursorCallback
_cb Ptr ()
_ CUInt
step Int32
count Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
Bool
result <- FlowBoxMoveCursorCallback
_cb MovementStep
step' Int32
count
let result' :: CInt
result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
result
CInt -> IO CInt
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onFlowBoxMoveCursor :: (IsFlowBox a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
onFlowBoxMoveCursor :: a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
onFlowBoxMoveCursor a
obj FlowBoxMoveCursorCallback
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_FlowBoxMoveCursorCallback
cb' = FlowBoxMoveCursorCallback -> C_FlowBoxMoveCursorCallback
wrap_FlowBoxMoveCursorCallback FlowBoxMoveCursorCallback
cb
FunPtr C_FlowBoxMoveCursorCallback
cb'' <- C_FlowBoxMoveCursorCallback
-> IO (FunPtr C_FlowBoxMoveCursorCallback)
mk_FlowBoxMoveCursorCallback C_FlowBoxMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_FlowBoxMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxMoveCursor :: (IsFlowBox a, MonadIO m) => a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
afterFlowBoxMoveCursor :: a -> FlowBoxMoveCursorCallback -> m SignalHandlerId
afterFlowBoxMoveCursor a
obj FlowBoxMoveCursorCallback
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_FlowBoxMoveCursorCallback
cb' = FlowBoxMoveCursorCallback -> C_FlowBoxMoveCursorCallback
wrap_FlowBoxMoveCursorCallback FlowBoxMoveCursorCallback
cb
FunPtr C_FlowBoxMoveCursorCallback
cb'' <- C_FlowBoxMoveCursorCallback
-> IO (FunPtr C_FlowBoxMoveCursorCallback)
mk_FlowBoxMoveCursorCallback C_FlowBoxMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-cursor" FunPtr C_FlowBoxMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxMoveCursorSignalInfo
instance SignalInfo FlowBoxMoveCursorSignalInfo where
type HaskellCallbackType FlowBoxMoveCursorSignalInfo = FlowBoxMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxMoveCursorCallback cb
cb'' <- mk_FlowBoxMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
#endif
type FlowBoxSelectAllCallback =
IO ()
noFlowBoxSelectAllCallback :: Maybe FlowBoxSelectAllCallback
noFlowBoxSelectAllCallback :: Maybe (IO ())
noFlowBoxSelectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FlowBoxSelectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxSelectAllCallback :: C_FlowBoxSelectAllCallback -> IO (FunPtr C_FlowBoxSelectAllCallback)
genClosure_FlowBoxSelectAll :: MonadIO m => FlowBoxSelectAllCallback -> m (GClosure C_FlowBoxSelectAllCallback)
genClosure_FlowBoxSelectAll :: IO () -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxSelectAll IO ()
cb = IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectAllCallback IO ()
cb
C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectAllCallback C_FlowBoxActivateCursorChildCallback
cb' IO (FunPtr C_FlowBoxActivateCursorChildCallback)
-> (FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxSelectAllCallback ::
FlowBoxSelectAllCallback ->
C_FlowBoxSelectAllCallback
wrap_FlowBoxSelectAllCallback :: IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectAllCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFlowBoxSelectAll :: (IsFlowBox a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId
onFlowBoxSelectAll :: a -> IO () -> m SignalHandlerId
onFlowBoxSelectAll a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectAllCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectAllCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-all" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxSelectAll :: (IsFlowBox a, MonadIO m) => a -> FlowBoxSelectAllCallback -> m SignalHandlerId
afterFlowBoxSelectAll :: a -> IO () -> m SignalHandlerId
afterFlowBoxSelectAll a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectAllCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectAllCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"select-all" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxSelectAllSignalInfo
instance SignalInfo FlowBoxSelectAllSignalInfo where
type HaskellCallbackType FlowBoxSelectAllSignalInfo = FlowBoxSelectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxSelectAllCallback cb
cb'' <- mk_FlowBoxSelectAllCallback cb'
connectSignalFunPtr obj "select-all" cb'' connectMode detail
#endif
type FlowBoxSelectedChildrenChangedCallback =
IO ()
noFlowBoxSelectedChildrenChangedCallback :: Maybe FlowBoxSelectedChildrenChangedCallback
noFlowBoxSelectedChildrenChangedCallback :: Maybe (IO ())
noFlowBoxSelectedChildrenChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FlowBoxSelectedChildrenChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxSelectedChildrenChangedCallback :: C_FlowBoxSelectedChildrenChangedCallback -> IO (FunPtr C_FlowBoxSelectedChildrenChangedCallback)
genClosure_FlowBoxSelectedChildrenChanged :: MonadIO m => FlowBoxSelectedChildrenChangedCallback -> m (GClosure C_FlowBoxSelectedChildrenChangedCallback)
genClosure_FlowBoxSelectedChildrenChanged :: IO () -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxSelectedChildrenChanged IO ()
cb = IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectedChildrenChangedCallback IO ()
cb
C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectedChildrenChangedCallback C_FlowBoxActivateCursorChildCallback
cb' IO (FunPtr C_FlowBoxActivateCursorChildCallback)
-> (FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxSelectedChildrenChangedCallback ::
FlowBoxSelectedChildrenChangedCallback ->
C_FlowBoxSelectedChildrenChangedCallback
wrap_FlowBoxSelectedChildrenChangedCallback :: IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectedChildrenChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFlowBoxSelectedChildrenChanged :: (IsFlowBox a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId
onFlowBoxSelectedChildrenChanged :: a -> IO () -> m SignalHandlerId
onFlowBoxSelectedChildrenChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectedChildrenChangedCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectedChildrenChangedCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selected-children-changed" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxSelectedChildrenChanged :: (IsFlowBox a, MonadIO m) => a -> FlowBoxSelectedChildrenChangedCallback -> m SignalHandlerId
afterFlowBoxSelectedChildrenChanged :: a -> IO () -> m SignalHandlerId
afterFlowBoxSelectedChildrenChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxSelectedChildrenChangedCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxSelectedChildrenChangedCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selected-children-changed" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxSelectedChildrenChangedSignalInfo
instance SignalInfo FlowBoxSelectedChildrenChangedSignalInfo where
type HaskellCallbackType FlowBoxSelectedChildrenChangedSignalInfo = FlowBoxSelectedChildrenChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxSelectedChildrenChangedCallback cb
cb'' <- mk_FlowBoxSelectedChildrenChangedCallback cb'
connectSignalFunPtr obj "selected-children-changed" cb'' connectMode detail
#endif
type FlowBoxToggleCursorChildCallback =
IO ()
noFlowBoxToggleCursorChildCallback :: Maybe FlowBoxToggleCursorChildCallback
noFlowBoxToggleCursorChildCallback :: Maybe (IO ())
noFlowBoxToggleCursorChildCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FlowBoxToggleCursorChildCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxToggleCursorChildCallback :: C_FlowBoxToggleCursorChildCallback -> IO (FunPtr C_FlowBoxToggleCursorChildCallback)
genClosure_FlowBoxToggleCursorChild :: MonadIO m => FlowBoxToggleCursorChildCallback -> m (GClosure C_FlowBoxToggleCursorChildCallback)
genClosure_FlowBoxToggleCursorChild :: IO () -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxToggleCursorChild IO ()
cb = IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxToggleCursorChildCallback IO ()
cb
C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxToggleCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb' IO (FunPtr C_FlowBoxActivateCursorChildCallback)
-> (FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxToggleCursorChildCallback ::
FlowBoxToggleCursorChildCallback ->
C_FlowBoxToggleCursorChildCallback
wrap_FlowBoxToggleCursorChildCallback :: IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxToggleCursorChildCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFlowBoxToggleCursorChild :: (IsFlowBox a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId
onFlowBoxToggleCursorChild :: a -> IO () -> m SignalHandlerId
onFlowBoxToggleCursorChild a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxToggleCursorChildCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxToggleCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-cursor-child" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxToggleCursorChild :: (IsFlowBox a, MonadIO m) => a -> FlowBoxToggleCursorChildCallback -> m SignalHandlerId
afterFlowBoxToggleCursorChild :: a -> IO () -> m SignalHandlerId
afterFlowBoxToggleCursorChild a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxToggleCursorChildCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxToggleCursorChildCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"toggle-cursor-child" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxToggleCursorChildSignalInfo
instance SignalInfo FlowBoxToggleCursorChildSignalInfo where
type HaskellCallbackType FlowBoxToggleCursorChildSignalInfo = FlowBoxToggleCursorChildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxToggleCursorChildCallback cb
cb'' <- mk_FlowBoxToggleCursorChildCallback cb'
connectSignalFunPtr obj "toggle-cursor-child" cb'' connectMode detail
#endif
type FlowBoxUnselectAllCallback =
IO ()
noFlowBoxUnselectAllCallback :: Maybe FlowBoxUnselectAllCallback
noFlowBoxUnselectAllCallback :: Maybe (IO ())
noFlowBoxUnselectAllCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_FlowBoxUnselectAllCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FlowBoxUnselectAllCallback :: C_FlowBoxUnselectAllCallback -> IO (FunPtr C_FlowBoxUnselectAllCallback)
genClosure_FlowBoxUnselectAll :: MonadIO m => FlowBoxUnselectAllCallback -> m (GClosure C_FlowBoxUnselectAllCallback)
genClosure_FlowBoxUnselectAll :: IO () -> m (GClosure C_FlowBoxActivateCursorChildCallback)
genClosure_FlowBoxUnselectAll IO ()
cb = IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
-> m (GClosure C_FlowBoxActivateCursorChildCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxUnselectAllCallback IO ()
cb
C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxUnselectAllCallback C_FlowBoxActivateCursorChildCallback
cb' IO (FunPtr C_FlowBoxActivateCursorChildCallback)
-> (FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback))
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_FlowBoxActivateCursorChildCallback
-> IO (GClosure C_FlowBoxActivateCursorChildCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_FlowBoxUnselectAllCallback ::
FlowBoxUnselectAllCallback ->
C_FlowBoxUnselectAllCallback
wrap_FlowBoxUnselectAllCallback :: IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxUnselectAllCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onFlowBoxUnselectAll :: (IsFlowBox a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId
onFlowBoxUnselectAll :: a -> IO () -> m SignalHandlerId
onFlowBoxUnselectAll a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxUnselectAllCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxUnselectAllCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unselect-all" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterFlowBoxUnselectAll :: (IsFlowBox a, MonadIO m) => a -> FlowBoxUnselectAllCallback -> m SignalHandlerId
afterFlowBoxUnselectAll :: a -> IO () -> m SignalHandlerId
afterFlowBoxUnselectAll a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_FlowBoxActivateCursorChildCallback
cb' = IO () -> C_FlowBoxActivateCursorChildCallback
wrap_FlowBoxUnselectAllCallback IO ()
cb
FunPtr C_FlowBoxActivateCursorChildCallback
cb'' <- C_FlowBoxActivateCursorChildCallback
-> IO (FunPtr C_FlowBoxActivateCursorChildCallback)
mk_FlowBoxUnselectAllCallback C_FlowBoxActivateCursorChildCallback
cb'
a
-> Text
-> FunPtr C_FlowBoxActivateCursorChildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"unselect-all" FunPtr C_FlowBoxActivateCursorChildCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data FlowBoxUnselectAllSignalInfo
instance SignalInfo FlowBoxUnselectAllSignalInfo where
type HaskellCallbackType FlowBoxUnselectAllSignalInfo = FlowBoxUnselectAllCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_FlowBoxUnselectAllCallback cb
cb'' <- mk_FlowBoxUnselectAllCallback cb'
connectSignalFunPtr obj "unselect-all" cb'' connectMode detail
#endif
getFlowBoxActivateOnSingleClick :: (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxActivateOnSingleClick :: o -> m Bool
getFlowBoxActivateOnSingleClick 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 String
"activate-on-single-click"
setFlowBoxActivateOnSingleClick :: (MonadIO m, IsFlowBox o) => o -> Bool -> m ()
setFlowBoxActivateOnSingleClick :: o -> Bool -> m ()
setFlowBoxActivateOnSingleClick o
obj 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 String
"activate-on-single-click" Bool
val
constructFlowBoxActivateOnSingleClick :: (IsFlowBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlowBoxActivateOnSingleClick :: Bool -> m (GValueConstruct o)
constructFlowBoxActivateOnSingleClick Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxActivateOnSingleClickPropertyInfo
instance AttrInfo FlowBoxActivateOnSingleClickPropertyInfo where
type AttrAllowedOps FlowBoxActivateOnSingleClickPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlowBoxActivateOnSingleClickPropertyInfo = (~) Bool
type AttrTransferType FlowBoxActivateOnSingleClickPropertyInfo = Bool
type AttrGetType FlowBoxActivateOnSingleClickPropertyInfo = Bool
type AttrLabel FlowBoxActivateOnSingleClickPropertyInfo = "activate-on-single-click"
type AttrOrigin FlowBoxActivateOnSingleClickPropertyInfo = FlowBox
attrGet = getFlowBoxActivateOnSingleClick
attrSet = setFlowBoxActivateOnSingleClick
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxActivateOnSingleClick
attrClear = undefined
#endif
getFlowBoxColumnSpacing :: (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxColumnSpacing :: o -> m Word32
getFlowBoxColumnSpacing o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"column-spacing"
setFlowBoxColumnSpacing :: (MonadIO m, IsFlowBox o) => o -> Word32 -> m ()
setFlowBoxColumnSpacing :: o -> Word32 -> m ()
setFlowBoxColumnSpacing o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"column-spacing" Word32
val
constructFlowBoxColumnSpacing :: (IsFlowBox o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructFlowBoxColumnSpacing :: Word32 -> m (GValueConstruct o)
constructFlowBoxColumnSpacing Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"column-spacing" Word32
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxColumnSpacingPropertyInfo
instance AttrInfo FlowBoxColumnSpacingPropertyInfo where
type AttrAllowedOps FlowBoxColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxColumnSpacingPropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxColumnSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint FlowBoxColumnSpacingPropertyInfo = (~) Word32
type AttrTransferType FlowBoxColumnSpacingPropertyInfo = Word32
type AttrGetType FlowBoxColumnSpacingPropertyInfo = Word32
type AttrLabel FlowBoxColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin FlowBoxColumnSpacingPropertyInfo = FlowBox
attrGet = getFlowBoxColumnSpacing
attrSet = setFlowBoxColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxColumnSpacing
attrClear = undefined
#endif
getFlowBoxHomogeneous :: (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxHomogeneous :: o -> m Bool
getFlowBoxHomogeneous 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 String
"homogeneous"
setFlowBoxHomogeneous :: (MonadIO m, IsFlowBox o) => o -> Bool -> m ()
setFlowBoxHomogeneous :: o -> Bool -> m ()
setFlowBoxHomogeneous o
obj 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 String
"homogeneous" Bool
val
constructFlowBoxHomogeneous :: (IsFlowBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlowBoxHomogeneous :: Bool -> m (GValueConstruct o)
constructFlowBoxHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxHomogeneousPropertyInfo
instance AttrInfo FlowBoxHomogeneousPropertyInfo where
type AttrAllowedOps FlowBoxHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxHomogeneousPropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlowBoxHomogeneousPropertyInfo = (~) Bool
type AttrTransferType FlowBoxHomogeneousPropertyInfo = Bool
type AttrGetType FlowBoxHomogeneousPropertyInfo = Bool
type AttrLabel FlowBoxHomogeneousPropertyInfo = "homogeneous"
type AttrOrigin FlowBoxHomogeneousPropertyInfo = FlowBox
attrGet = getFlowBoxHomogeneous
attrSet = setFlowBoxHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxHomogeneous
attrClear = undefined
#endif
getFlowBoxMaxChildrenPerLine :: (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxMaxChildrenPerLine :: o -> m Word32
getFlowBoxMaxChildrenPerLine o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"max-children-per-line"
setFlowBoxMaxChildrenPerLine :: (MonadIO m, IsFlowBox o) => o -> Word32 -> m ()
setFlowBoxMaxChildrenPerLine :: o -> Word32 -> m ()
setFlowBoxMaxChildrenPerLine o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"max-children-per-line" Word32
val
constructFlowBoxMaxChildrenPerLine :: (IsFlowBox o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructFlowBoxMaxChildrenPerLine :: Word32 -> m (GValueConstruct o)
constructFlowBoxMaxChildrenPerLine Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"max-children-per-line" Word32
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxMaxChildrenPerLinePropertyInfo
instance AttrInfo FlowBoxMaxChildrenPerLinePropertyInfo where
type AttrAllowedOps FlowBoxMaxChildrenPerLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = (~) Word32
type AttrTransferTypeConstraint FlowBoxMaxChildrenPerLinePropertyInfo = (~) Word32
type AttrTransferType FlowBoxMaxChildrenPerLinePropertyInfo = Word32
type AttrGetType FlowBoxMaxChildrenPerLinePropertyInfo = Word32
type AttrLabel FlowBoxMaxChildrenPerLinePropertyInfo = "max-children-per-line"
type AttrOrigin FlowBoxMaxChildrenPerLinePropertyInfo = FlowBox
attrGet = getFlowBoxMaxChildrenPerLine
attrSet = setFlowBoxMaxChildrenPerLine
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxMaxChildrenPerLine
attrClear = undefined
#endif
getFlowBoxMinChildrenPerLine :: (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxMinChildrenPerLine :: o -> m Word32
getFlowBoxMinChildrenPerLine o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"min-children-per-line"
setFlowBoxMinChildrenPerLine :: (MonadIO m, IsFlowBox o) => o -> Word32 -> m ()
setFlowBoxMinChildrenPerLine :: o -> Word32 -> m ()
setFlowBoxMinChildrenPerLine o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"min-children-per-line" Word32
val
constructFlowBoxMinChildrenPerLine :: (IsFlowBox o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructFlowBoxMinChildrenPerLine :: Word32 -> m (GValueConstruct o)
constructFlowBoxMinChildrenPerLine Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"min-children-per-line" Word32
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxMinChildrenPerLinePropertyInfo
instance AttrInfo FlowBoxMinChildrenPerLinePropertyInfo where
type AttrAllowedOps FlowBoxMinChildrenPerLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = (~) Word32
type AttrTransferTypeConstraint FlowBoxMinChildrenPerLinePropertyInfo = (~) Word32
type AttrTransferType FlowBoxMinChildrenPerLinePropertyInfo = Word32
type AttrGetType FlowBoxMinChildrenPerLinePropertyInfo = Word32
type AttrLabel FlowBoxMinChildrenPerLinePropertyInfo = "min-children-per-line"
type AttrOrigin FlowBoxMinChildrenPerLinePropertyInfo = FlowBox
attrGet = getFlowBoxMinChildrenPerLine
attrSet = setFlowBoxMinChildrenPerLine
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxMinChildrenPerLine
attrClear = undefined
#endif
getFlowBoxRowSpacing :: (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxRowSpacing :: o -> m Word32
getFlowBoxRowSpacing o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"row-spacing"
setFlowBoxRowSpacing :: (MonadIO m, IsFlowBox o) => o -> Word32 -> m ()
setFlowBoxRowSpacing :: o -> Word32 -> m ()
setFlowBoxRowSpacing o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"row-spacing" Word32
val
constructFlowBoxRowSpacing :: (IsFlowBox o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructFlowBoxRowSpacing :: Word32 -> m (GValueConstruct o)
constructFlowBoxRowSpacing Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"row-spacing" Word32
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxRowSpacingPropertyInfo
instance AttrInfo FlowBoxRowSpacingPropertyInfo where
type AttrAllowedOps FlowBoxRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxRowSpacingPropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxRowSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint FlowBoxRowSpacingPropertyInfo = (~) Word32
type AttrTransferType FlowBoxRowSpacingPropertyInfo = Word32
type AttrGetType FlowBoxRowSpacingPropertyInfo = Word32
type AttrLabel FlowBoxRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin FlowBoxRowSpacingPropertyInfo = FlowBox
attrGet = getFlowBoxRowSpacing
attrSet = setFlowBoxRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxRowSpacing
attrClear = undefined
#endif
getFlowBoxSelectionMode :: (MonadIO m, IsFlowBox o) => o -> m Gtk.Enums.SelectionMode
getFlowBoxSelectionMode :: o -> m SelectionMode
getFlowBoxSelectionMode 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 String
"selection-mode"
setFlowBoxSelectionMode :: (MonadIO m, IsFlowBox o) => o -> Gtk.Enums.SelectionMode -> m ()
setFlowBoxSelectionMode :: o -> SelectionMode -> m ()
setFlowBoxSelectionMode o
obj 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 String
"selection-mode" SelectionMode
val
constructFlowBoxSelectionMode :: (IsFlowBox o, MIO.MonadIO m) => Gtk.Enums.SelectionMode -> m (GValueConstruct o)
constructFlowBoxSelectionMode :: SelectionMode -> m (GValueConstruct o)
constructFlowBoxSelectionMode SelectionMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"selection-mode" SelectionMode
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxSelectionModePropertyInfo
instance AttrInfo FlowBoxSelectionModePropertyInfo where
type AttrAllowedOps FlowBoxSelectionModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxSelectionModePropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferTypeConstraint FlowBoxSelectionModePropertyInfo = (~) Gtk.Enums.SelectionMode
type AttrTransferType FlowBoxSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrGetType FlowBoxSelectionModePropertyInfo = Gtk.Enums.SelectionMode
type AttrLabel FlowBoxSelectionModePropertyInfo = "selection-mode"
type AttrOrigin FlowBoxSelectionModePropertyInfo = FlowBox
attrGet = getFlowBoxSelectionMode
attrSet = setFlowBoxSelectionMode
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxSelectionMode
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList FlowBox
type instance O.AttributeList FlowBox = FlowBoxAttributeList
type FlowBoxAttributeList = ('[ '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("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), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("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), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", Gtk.Container.ContainerResizeModePropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("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)
flowBoxActivateOnSingleClick :: AttrLabelProxy "activateOnSingleClick"
flowBoxActivateOnSingleClick = AttrLabelProxy
flowBoxColumnSpacing :: AttrLabelProxy "columnSpacing"
flowBoxColumnSpacing = AttrLabelProxy
flowBoxHomogeneous :: AttrLabelProxy "homogeneous"
flowBoxHomogeneous = AttrLabelProxy
flowBoxMaxChildrenPerLine :: AttrLabelProxy "maxChildrenPerLine"
flowBoxMaxChildrenPerLine = AttrLabelProxy
flowBoxMinChildrenPerLine :: AttrLabelProxy "minChildrenPerLine"
flowBoxMinChildrenPerLine = AttrLabelProxy
flowBoxRowSpacing :: AttrLabelProxy "rowSpacing"
flowBoxRowSpacing = AttrLabelProxy
flowBoxSelectionMode :: AttrLabelProxy "selectionMode"
flowBoxSelectionMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList FlowBox = FlowBoxSignalList
type FlowBoxSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activateCursorChild", FlowBoxActivateCursorChildSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.ContainerCheckResizeSignalInfo), '("childActivated", FlowBoxChildActivatedSignalInfo), '("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", FlowBoxMoveCursorSignalInfo), '("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), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectAll", FlowBoxSelectAllSignalInfo), '("selectedChildrenChanged", FlowBoxSelectedChildrenChangedSignalInfo), '("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), '("toggleCursorChild", FlowBoxToggleCursorChildSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", FlowBoxUnselectAllSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_flow_box_new" gtk_flow_box_new ::
IO (Ptr FlowBox)
flowBoxNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m FlowBox
flowBoxNew :: m FlowBox
flowBoxNew = IO FlowBox -> m FlowBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FlowBox -> m FlowBox) -> IO FlowBox -> m FlowBox
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
result <- IO (Ptr FlowBox)
gtk_flow_box_new
Text -> Ptr FlowBox -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"flowBoxNew" Ptr FlowBox
result
FlowBox
result' <- ((ManagedPtr FlowBox -> FlowBox) -> Ptr FlowBox -> IO FlowBox
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBox -> FlowBox
FlowBox) Ptr FlowBox
result
FlowBox -> IO FlowBox
forall (m :: * -> *) a. Monad m => a -> m a
return FlowBox
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_flow_box_bind_model" gtk_flow_box_bind_model ::
Ptr FlowBox ->
Ptr Gio.ListModel.ListModel ->
FunPtr Gtk.Callbacks.C_FlowBoxCreateWidgetFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
flowBoxBindModel ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gio.ListModel.IsListModel b) =>
a
-> Maybe (b)
-> Gtk.Callbacks.FlowBoxCreateWidgetFunc
-> m ()
flowBoxBindModel :: a -> Maybe b -> FlowBoxCreateWidgetFunc -> m ()
flowBoxBindModel a
box Maybe b
model FlowBoxCreateWidgetFunc
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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr ListModel
maybeModel <- case Maybe b
model of
Maybe b
Nothing -> Ptr ListModel -> IO (Ptr ListModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
forall a. Ptr a
nullPtr
Just b
jModel -> do
Ptr ListModel
jModel' <- b -> IO (Ptr ListModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr ListModel -> IO (Ptr ListModel)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListModel
jModel'
FunPtr C_FlowBoxCreateWidgetFunc
createWidgetFunc' <- C_FlowBoxCreateWidgetFunc -> IO (FunPtr C_FlowBoxCreateWidgetFunc)
Gtk.Callbacks.mk_FlowBoxCreateWidgetFunc (Maybe (Ptr (FunPtr C_FlowBoxCreateWidgetFunc))
-> FlowBoxCreateWidgetFunc_WithClosures
-> C_FlowBoxCreateWidgetFunc
Gtk.Callbacks.wrap_FlowBoxCreateWidgetFunc Maybe (Ptr (FunPtr C_FlowBoxCreateWidgetFunc))
forall a. Maybe a
Nothing (FlowBoxCreateWidgetFunc -> FlowBoxCreateWidgetFunc_WithClosures
Gtk.Callbacks.drop_closures_FlowBoxCreateWidgetFunc FlowBoxCreateWidgetFunc
createWidgetFunc))
let userData :: Ptr ()
userData = FunPtr C_FlowBoxCreateWidgetFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_FlowBoxCreateWidgetFunc
createWidgetFunc'
let userDataFreeFunc :: FunPtr (Ptr a -> IO ())
userDataFreeFunc = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr FlowBox
-> Ptr ListModel
-> FunPtr C_FlowBoxCreateWidgetFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_flow_box_bind_model Ptr FlowBox
box' Ptr ListModel
maybeModel FunPtr C_FlowBoxCreateWidgetFunc
createWidgetFunc' 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 FlowBoxBindModelMethodInfo
instance (signature ~ (Maybe (b) -> Gtk.Callbacks.FlowBoxCreateWidgetFunc -> m ()), MonadIO m, IsFlowBox a, Gio.ListModel.IsListModel b) => O.MethodInfo FlowBoxBindModelMethodInfo a signature where
overloadedMethod = flowBoxBindModel
#endif
foreign import ccall "gtk_flow_box_get_activate_on_single_click" gtk_flow_box_get_activate_on_single_click ::
Ptr FlowBox ->
IO CInt
flowBoxGetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Bool
flowBoxGetActivateOnSingleClick :: a -> m Bool
flowBoxGetActivateOnSingleClick 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
CInt
result <- Ptr FlowBox -> IO CInt
gtk_flow_box_get_activate_on_single_click Ptr FlowBox
box'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetActivateOnSingleClickMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = flowBoxGetActivateOnSingleClick
#endif
foreign import ccall "gtk_flow_box_get_child_at_index" gtk_flow_box_get_child_at_index ::
Ptr FlowBox ->
Int32 ->
IO (Ptr Gtk.FlowBoxChild.FlowBoxChild)
flowBoxGetChildAtIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Int32
-> m (Maybe Gtk.FlowBoxChild.FlowBoxChild)
flowBoxGetChildAtIndex :: a -> Int32 -> m (Maybe FlowBoxChild)
flowBoxGetChildAtIndex a
box Int32
idx = IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild))
-> IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild)
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBoxChild
result <- Ptr FlowBox -> Int32 -> IO (Ptr FlowBoxChild)
gtk_flow_box_get_child_at_index Ptr FlowBox
box' Int32
idx
Maybe FlowBoxChild
maybeResult <- Ptr FlowBoxChild
-> (Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FlowBoxChild
result ((Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild))
-> (Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild)
forall a b. (a -> b) -> a -> b
$ \Ptr FlowBoxChild
result' -> do
FlowBoxChild
result'' <- ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) Ptr FlowBoxChild
result'
FlowBoxChild -> IO FlowBoxChild
forall (m :: * -> *) a. Monad m => a -> m a
return FlowBoxChild
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe FlowBoxChild -> IO (Maybe FlowBoxChild)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FlowBoxChild
maybeResult
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetChildAtIndexMethodInfo
instance (signature ~ (Int32 -> m (Maybe Gtk.FlowBoxChild.FlowBoxChild)), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetChildAtIndexMethodInfo a signature where
overloadedMethod = flowBoxGetChildAtIndex
#endif
foreign import ccall "gtk_flow_box_get_child_at_pos" gtk_flow_box_get_child_at_pos ::
Ptr FlowBox ->
Int32 ->
Int32 ->
IO (Ptr Gtk.FlowBoxChild.FlowBoxChild)
flowBoxGetChildAtPos ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Int32
-> Int32
-> m (Maybe Gtk.FlowBoxChild.FlowBoxChild)
flowBoxGetChildAtPos :: a -> Int32 -> Int32 -> m (Maybe FlowBoxChild)
flowBoxGetChildAtPos a
box Int32
x Int32
y = IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild))
-> IO (Maybe FlowBoxChild) -> m (Maybe FlowBoxChild)
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBoxChild
result <- Ptr FlowBox -> Int32 -> Int32 -> IO (Ptr FlowBoxChild)
gtk_flow_box_get_child_at_pos Ptr FlowBox
box' Int32
x Int32
y
Maybe FlowBoxChild
maybeResult <- Ptr FlowBoxChild
-> (Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FlowBoxChild
result ((Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild))
-> (Ptr FlowBoxChild -> IO FlowBoxChild) -> IO (Maybe FlowBoxChild)
forall a b. (a -> b) -> a -> b
$ \Ptr FlowBoxChild
result' -> do
FlowBoxChild
result'' <- ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) Ptr FlowBoxChild
result'
FlowBoxChild -> IO FlowBoxChild
forall (m :: * -> *) a. Monad m => a -> m a
return FlowBoxChild
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Maybe FlowBoxChild -> IO (Maybe FlowBoxChild)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FlowBoxChild
maybeResult
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetChildAtPosMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Maybe Gtk.FlowBoxChild.FlowBoxChild)), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetChildAtPosMethodInfo a signature where
overloadedMethod = flowBoxGetChildAtPos
#endif
foreign import ccall "gtk_flow_box_get_column_spacing" gtk_flow_box_get_column_spacing ::
Ptr FlowBox ->
IO Word32
flowBoxGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Word32
flowBoxGetColumnSpacing :: a -> m Word32
flowBoxGetColumnSpacing a
box = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Word32
result <- Ptr FlowBox -> IO Word32
gtk_flow_box_get_column_spacing Ptr FlowBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetColumnSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetColumnSpacingMethodInfo a signature where
overloadedMethod = flowBoxGetColumnSpacing
#endif
foreign import ccall "gtk_flow_box_get_homogeneous" gtk_flow_box_get_homogeneous ::
Ptr FlowBox ->
IO CInt
flowBoxGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Bool
flowBoxGetHomogeneous :: a -> m Bool
flowBoxGetHomogeneous 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
CInt
result <- Ptr FlowBox -> IO CInt
gtk_flow_box_get_homogeneous Ptr FlowBox
box'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetHomogeneousMethodInfo a signature where
overloadedMethod = flowBoxGetHomogeneous
#endif
foreign import ccall "gtk_flow_box_get_max_children_per_line" gtk_flow_box_get_max_children_per_line ::
Ptr FlowBox ->
IO Word32
flowBoxGetMaxChildrenPerLine ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Word32
flowBoxGetMaxChildrenPerLine :: a -> m Word32
flowBoxGetMaxChildrenPerLine a
box = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Word32
result <- Ptr FlowBox -> IO Word32
gtk_flow_box_get_max_children_per_line Ptr FlowBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetMaxChildrenPerLineMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetMaxChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxGetMaxChildrenPerLine
#endif
foreign import ccall "gtk_flow_box_get_min_children_per_line" gtk_flow_box_get_min_children_per_line ::
Ptr FlowBox ->
IO Word32
flowBoxGetMinChildrenPerLine ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Word32
flowBoxGetMinChildrenPerLine :: a -> m Word32
flowBoxGetMinChildrenPerLine a
box = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Word32
result <- Ptr FlowBox -> IO Word32
gtk_flow_box_get_min_children_per_line Ptr FlowBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetMinChildrenPerLineMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetMinChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxGetMinChildrenPerLine
#endif
foreign import ccall "gtk_flow_box_get_row_spacing" gtk_flow_box_get_row_spacing ::
Ptr FlowBox ->
IO Word32
flowBoxGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Word32
flowBoxGetRowSpacing :: a -> m Word32
flowBoxGetRowSpacing a
box = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Word32
result <- Ptr FlowBox -> IO Word32
gtk_flow_box_get_row_spacing Ptr FlowBox
box'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetRowSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetRowSpacingMethodInfo a signature where
overloadedMethod = flowBoxGetRowSpacing
#endif
foreign import ccall "gtk_flow_box_get_selected_children" gtk_flow_box_get_selected_children ::
Ptr FlowBox ->
IO (Ptr (GList (Ptr Gtk.FlowBoxChild.FlowBoxChild)))
flowBoxGetSelectedChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m [Gtk.FlowBoxChild.FlowBoxChild]
flowBoxGetSelectedChildren :: a -> m [FlowBoxChild]
flowBoxGetSelectedChildren a
box = IO [FlowBoxChild] -> m [FlowBoxChild]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [FlowBoxChild] -> m [FlowBoxChild])
-> IO [FlowBoxChild] -> m [FlowBoxChild]
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr (GList (Ptr FlowBoxChild))
result <- Ptr FlowBox -> IO (Ptr (GList (Ptr FlowBoxChild)))
gtk_flow_box_get_selected_children Ptr FlowBox
box'
[Ptr FlowBoxChild]
result' <- Ptr (GList (Ptr FlowBoxChild)) -> IO [Ptr FlowBoxChild]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr FlowBoxChild))
result
[FlowBoxChild]
result'' <- (Ptr FlowBoxChild -> IO FlowBoxChild)
-> [Ptr FlowBoxChild] -> IO [FlowBoxChild]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr FlowBoxChild -> FlowBoxChild)
-> Ptr FlowBoxChild -> IO FlowBoxChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr FlowBoxChild -> FlowBoxChild
Gtk.FlowBoxChild.FlowBoxChild) [Ptr FlowBoxChild]
result'
Ptr (GList (Ptr FlowBoxChild)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr FlowBoxChild))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
[FlowBoxChild] -> IO [FlowBoxChild]
forall (m :: * -> *) a. Monad m => a -> m a
return [FlowBoxChild]
result''
#if defined(ENABLE_OVERLOADING)
data FlowBoxGetSelectedChildrenMethodInfo
instance (signature ~ (m [Gtk.FlowBoxChild.FlowBoxChild]), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetSelectedChildrenMethodInfo a signature where
overloadedMethod = flowBoxGetSelectedChildren
#endif
foreign import ccall "gtk_flow_box_get_selection_mode" gtk_flow_box_get_selection_mode ::
Ptr FlowBox ->
IO CUInt
flowBoxGetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m Gtk.Enums.SelectionMode
flowBoxGetSelectionMode :: a -> m SelectionMode
flowBoxGetSelectionMode 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
CUInt
result <- Ptr FlowBox -> IO CUInt
gtk_flow_box_get_selection_mode Ptr FlowBox
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 FlowBoxGetSelectionModeMethodInfo
instance (signature ~ (m Gtk.Enums.SelectionMode), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxGetSelectionModeMethodInfo a signature where
overloadedMethod = flowBoxGetSelectionMode
#endif
foreign import ccall "gtk_flow_box_insert" gtk_flow_box_insert ::
Ptr FlowBox ->
Ptr Gtk.Widget.Widget ->
Int32 ->
IO ()
flowBoxInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Int32
-> m ()
flowBoxInsert :: a -> b -> Int32 -> m ()
flowBoxInsert a
box b
widget 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr FlowBox -> Ptr Widget -> Int32 -> IO ()
gtk_flow_box_insert Ptr FlowBox
box' Ptr Widget
widget' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlowBoxInsertMethodInfo
instance (signature ~ (b -> Int32 -> m ()), MonadIO m, IsFlowBox a, Gtk.Widget.IsWidget b) => O.MethodInfo FlowBoxInsertMethodInfo a signature where
overloadedMethod = flowBoxInsert
#endif
foreign import ccall "gtk_flow_box_invalidate_filter" gtk_flow_box_invalidate_filter ::
Ptr FlowBox ->
IO ()
flowBoxInvalidateFilter ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m ()
flowBoxInvalidateFilter :: a -> m ()
flowBoxInvalidateFilter 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> IO ()
gtk_flow_box_invalidate_filter Ptr FlowBox
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 FlowBoxInvalidateFilterMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxInvalidateFilterMethodInfo a signature where
overloadedMethod = flowBoxInvalidateFilter
#endif
foreign import ccall "gtk_flow_box_invalidate_sort" gtk_flow_box_invalidate_sort ::
Ptr FlowBox ->
IO ()
flowBoxInvalidateSort ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m ()
flowBoxInvalidateSort :: a -> m ()
flowBoxInvalidateSort 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> IO ()
gtk_flow_box_invalidate_sort Ptr FlowBox
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 FlowBoxInvalidateSortMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxInvalidateSortMethodInfo a signature where
overloadedMethod = flowBoxInvalidateSort
#endif
foreign import ccall "gtk_flow_box_select_all" gtk_flow_box_select_all ::
Ptr FlowBox ->
IO ()
flowBoxSelectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m ()
flowBoxSelectAll :: a -> m ()
flowBoxSelectAll 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> IO ()
gtk_flow_box_select_all Ptr FlowBox
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 FlowBoxSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSelectAllMethodInfo a signature where
overloadedMethod = flowBoxSelectAll
#endif
foreign import ccall "gtk_flow_box_select_child" gtk_flow_box_select_child ::
Ptr FlowBox ->
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
IO ()
flowBoxSelectChild ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) =>
a
-> b
-> m ()
flowBoxSelectChild :: a -> b -> m ()
flowBoxSelectChild a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBoxChild
child' <- b -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr FlowBox -> Ptr FlowBoxChild -> IO ()
gtk_flow_box_select_child Ptr FlowBox
box' Ptr FlowBoxChild
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 FlowBoxSelectChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) => O.MethodInfo FlowBoxSelectChildMethodInfo a signature where
overloadedMethod = flowBoxSelectChild
#endif
foreign import ccall "gtk_flow_box_selected_foreach" gtk_flow_box_selected_foreach ::
Ptr FlowBox ->
FunPtr Gtk.Callbacks.C_FlowBoxForeachFunc ->
Ptr () ->
IO ()
flowBoxSelectedForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Gtk.Callbacks.FlowBoxForeachFunc
-> m ()
flowBoxSelectedForeach :: a -> FlowBoxForeachFunc -> m ()
flowBoxSelectedForeach a
box FlowBoxForeachFunc
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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_FlowBoxForeachFunc
func' <- C_FlowBoxForeachFunc -> IO (FunPtr C_FlowBoxForeachFunc)
Gtk.Callbacks.mk_FlowBoxForeachFunc (Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
-> FlowBoxForeachFunc_WithClosures -> C_FlowBoxForeachFunc
Gtk.Callbacks.wrap_FlowBoxForeachFunc Maybe (Ptr (FunPtr C_FlowBoxForeachFunc))
forall a. Maybe a
Nothing (FlowBoxForeachFunc -> FlowBoxForeachFunc_WithClosures
Gtk.Callbacks.drop_closures_FlowBoxForeachFunc FlowBoxForeachFunc
func))
let data_ :: Ptr a
data_ = Ptr a
forall a. Ptr a
nullPtr
Ptr FlowBox -> FunPtr C_FlowBoxForeachFunc -> C_DestroyNotify
gtk_flow_box_selected_foreach Ptr FlowBox
box' FunPtr C_FlowBoxForeachFunc
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_FlowBoxForeachFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_FlowBoxForeachFunc
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 FlowBoxSelectedForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.FlowBoxForeachFunc -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSelectedForeachMethodInfo a signature where
overloadedMethod = flowBoxSelectedForeach
#endif
foreign import ccall "gtk_flow_box_set_activate_on_single_click" gtk_flow_box_set_activate_on_single_click ::
Ptr FlowBox ->
CInt ->
IO ()
flowBoxSetActivateOnSingleClick ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Bool
-> m ()
flowBoxSetActivateOnSingleClick :: a -> Bool -> m ()
flowBoxSetActivateOnSingleClick a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
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 FlowBox -> CInt -> IO ()
gtk_flow_box_set_activate_on_single_click Ptr FlowBox
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 FlowBoxSetActivateOnSingleClickMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = flowBoxSetActivateOnSingleClick
#endif
foreign import ccall "gtk_flow_box_set_column_spacing" gtk_flow_box_set_column_spacing ::
Ptr FlowBox ->
Word32 ->
IO ()
flowBoxSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Word32
-> m ()
flowBoxSetColumnSpacing :: a -> Word32 -> m ()
flowBoxSetColumnSpacing a
box Word32
spacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> Word32 -> IO ()
gtk_flow_box_set_column_spacing Ptr FlowBox
box' Word32
spacing
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 FlowBoxSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetColumnSpacingMethodInfo a signature where
overloadedMethod = flowBoxSetColumnSpacing
#endif
foreign import ccall "gtk_flow_box_set_filter_func" gtk_flow_box_set_filter_func ::
Ptr FlowBox ->
FunPtr Gtk.Callbacks.C_FlowBoxFilterFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
flowBoxSetFilterFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Maybe (Gtk.Callbacks.FlowBoxFilterFunc)
-> m ()
flowBoxSetFilterFunc :: a -> Maybe FlowBoxFilterFunc -> m ()
flowBoxSetFilterFunc a
box Maybe FlowBoxFilterFunc
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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_FlowBoxFilterFunc
maybeFilterFunc <- case Maybe FlowBoxFilterFunc
filterFunc of
Maybe FlowBoxFilterFunc
Nothing -> FunPtr C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_FlowBoxFilterFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just FlowBoxFilterFunc
jFilterFunc -> do
FunPtr C_FlowBoxFilterFunc
jFilterFunc' <- C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc)
Gtk.Callbacks.mk_FlowBoxFilterFunc (Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
-> FlowBoxFilterFunc_WithClosures -> C_FlowBoxFilterFunc
Gtk.Callbacks.wrap_FlowBoxFilterFunc Maybe (Ptr (FunPtr C_FlowBoxFilterFunc))
forall a. Maybe a
Nothing (FlowBoxFilterFunc -> FlowBoxFilterFunc_WithClosures
Gtk.Callbacks.drop_closures_FlowBoxFilterFunc FlowBoxFilterFunc
jFilterFunc))
FunPtr C_FlowBoxFilterFunc -> IO (FunPtr C_FlowBoxFilterFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_FlowBoxFilterFunc
jFilterFunc'
let userData :: Ptr ()
userData = FunPtr C_FlowBoxFilterFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_FlowBoxFilterFunc
maybeFilterFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr FlowBox
-> FunPtr C_FlowBoxFilterFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_flow_box_set_filter_func Ptr FlowBox
box' FunPtr C_FlowBoxFilterFunc
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 FlowBoxSetFilterFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.FlowBoxFilterFunc) -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetFilterFuncMethodInfo a signature where
overloadedMethod = flowBoxSetFilterFunc
#endif
foreign import ccall "gtk_flow_box_set_hadjustment" gtk_flow_box_set_hadjustment ::
Ptr FlowBox ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
flowBoxSetHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
flowBoxSetHadjustment :: a -> b -> m ()
flowBoxSetHadjustment a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr FlowBox -> Ptr Adjustment -> IO ()
gtk_flow_box_set_hadjustment Ptr FlowBox
box' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlowBoxSetHadjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFlowBox a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo FlowBoxSetHadjustmentMethodInfo a signature where
overloadedMethod = flowBoxSetHadjustment
#endif
foreign import ccall "gtk_flow_box_set_homogeneous" gtk_flow_box_set_homogeneous ::
Ptr FlowBox ->
CInt ->
IO ()
flowBoxSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Bool
-> m ()
flowBoxSetHomogeneous :: a -> Bool -> m ()
flowBoxSetHomogeneous a
box Bool
homogeneous = 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
let homogeneous' :: CInt
homogeneous' = (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
homogeneous
Ptr FlowBox -> CInt -> IO ()
gtk_flow_box_set_homogeneous Ptr FlowBox
box' CInt
homogeneous'
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 FlowBoxSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetHomogeneousMethodInfo a signature where
overloadedMethod = flowBoxSetHomogeneous
#endif
foreign import ccall "gtk_flow_box_set_max_children_per_line" gtk_flow_box_set_max_children_per_line ::
Ptr FlowBox ->
Word32 ->
IO ()
flowBoxSetMaxChildrenPerLine ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Word32
-> m ()
flowBoxSetMaxChildrenPerLine :: a -> Word32 -> m ()
flowBoxSetMaxChildrenPerLine a
box Word32
nChildren = 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> Word32 -> IO ()
gtk_flow_box_set_max_children_per_line Ptr FlowBox
box' Word32
nChildren
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 FlowBoxSetMaxChildrenPerLineMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetMaxChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxSetMaxChildrenPerLine
#endif
foreign import ccall "gtk_flow_box_set_min_children_per_line" gtk_flow_box_set_min_children_per_line ::
Ptr FlowBox ->
Word32 ->
IO ()
flowBoxSetMinChildrenPerLine ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Word32
-> m ()
flowBoxSetMinChildrenPerLine :: a -> Word32 -> m ()
flowBoxSetMinChildrenPerLine a
box Word32
nChildren = 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> Word32 -> IO ()
gtk_flow_box_set_min_children_per_line Ptr FlowBox
box' Word32
nChildren
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 FlowBoxSetMinChildrenPerLineMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetMinChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxSetMinChildrenPerLine
#endif
foreign import ccall "gtk_flow_box_set_row_spacing" gtk_flow_box_set_row_spacing ::
Ptr FlowBox ->
Word32 ->
IO ()
flowBoxSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Word32
-> m ()
flowBoxSetRowSpacing :: a -> Word32 -> m ()
flowBoxSetRowSpacing a
box Word32
spacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> Word32 -> IO ()
gtk_flow_box_set_row_spacing Ptr FlowBox
box' Word32
spacing
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 FlowBoxSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetRowSpacingMethodInfo a signature where
overloadedMethod = flowBoxSetRowSpacing
#endif
foreign import ccall "gtk_flow_box_set_selection_mode" gtk_flow_box_set_selection_mode ::
Ptr FlowBox ->
CUInt ->
IO ()
flowBoxSetSelectionMode ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Gtk.Enums.SelectionMode
-> m ()
flowBoxSetSelectionMode :: a -> SelectionMode -> m ()
flowBoxSetSelectionMode a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
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 FlowBox -> CUInt -> IO ()
gtk_flow_box_set_selection_mode Ptr FlowBox
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 FlowBoxSetSelectionModeMethodInfo
instance (signature ~ (Gtk.Enums.SelectionMode -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetSelectionModeMethodInfo a signature where
overloadedMethod = flowBoxSetSelectionMode
#endif
foreign import ccall "gtk_flow_box_set_sort_func" gtk_flow_box_set_sort_func ::
Ptr FlowBox ->
FunPtr Gtk.Callbacks.C_FlowBoxSortFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
flowBoxSetSortFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> Maybe (Gtk.Callbacks.FlowBoxSortFunc)
-> m ()
flowBoxSetSortFunc :: a -> Maybe FlowBoxSortFunc -> m ()
flowBoxSetSortFunc a
box Maybe FlowBoxSortFunc
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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
FunPtr C_FlowBoxSortFunc
maybeSortFunc <- case Maybe FlowBoxSortFunc
sortFunc of
Maybe FlowBoxSortFunc
Nothing -> FunPtr C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_FlowBoxSortFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just FlowBoxSortFunc
jSortFunc -> do
FunPtr C_FlowBoxSortFunc
jSortFunc' <- C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc)
Gtk.Callbacks.mk_FlowBoxSortFunc (Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
-> FlowBoxSortFunc_WithClosures -> C_FlowBoxSortFunc
Gtk.Callbacks.wrap_FlowBoxSortFunc Maybe (Ptr (FunPtr C_FlowBoxSortFunc))
forall a. Maybe a
Nothing (FlowBoxSortFunc -> FlowBoxSortFunc_WithClosures
Gtk.Callbacks.drop_closures_FlowBoxSortFunc FlowBoxSortFunc
jSortFunc))
FunPtr C_FlowBoxSortFunc -> IO (FunPtr C_FlowBoxSortFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_FlowBoxSortFunc
jSortFunc'
let userData :: Ptr ()
userData = FunPtr C_FlowBoxSortFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_FlowBoxSortFunc
maybeSortFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
safeFreeFunPtrPtr
Ptr FlowBox
-> FunPtr C_FlowBoxSortFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_flow_box_set_sort_func Ptr FlowBox
box' FunPtr C_FlowBoxSortFunc
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 FlowBoxSetSortFuncMethodInfo
instance (signature ~ (Maybe (Gtk.Callbacks.FlowBoxSortFunc) -> m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxSetSortFuncMethodInfo a signature where
overloadedMethod = flowBoxSetSortFunc
#endif
foreign import ccall "gtk_flow_box_set_vadjustment" gtk_flow_box_set_vadjustment ::
Ptr FlowBox ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
flowBoxSetVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
flowBoxSetVadjustment :: a -> b -> m ()
flowBoxSetVadjustment a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr FlowBox -> Ptr Adjustment -> IO ()
gtk_flow_box_set_vadjustment Ptr FlowBox
box' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
box
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
adjustment
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data FlowBoxSetVadjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFlowBox a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo FlowBoxSetVadjustmentMethodInfo a signature where
overloadedMethod = flowBoxSetVadjustment
#endif
foreign import ccall "gtk_flow_box_unselect_all" gtk_flow_box_unselect_all ::
Ptr FlowBox ->
IO ()
flowBoxUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a) =>
a
-> m ()
flowBoxUnselectAll :: a -> m ()
flowBoxUnselectAll 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBox -> IO ()
gtk_flow_box_unselect_all Ptr FlowBox
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 FlowBoxUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFlowBox a) => O.MethodInfo FlowBoxUnselectAllMethodInfo a signature where
overloadedMethod = flowBoxUnselectAll
#endif
foreign import ccall "gtk_flow_box_unselect_child" gtk_flow_box_unselect_child ::
Ptr FlowBox ->
Ptr Gtk.FlowBoxChild.FlowBoxChild ->
IO ()
flowBoxUnselectChild ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) =>
a
-> b
-> m ()
flowBoxUnselectChild :: a -> b -> m ()
flowBoxUnselectChild a
box 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 FlowBox
box' <- a -> IO (Ptr FlowBox)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
box
Ptr FlowBoxChild
child' <- b -> IO (Ptr FlowBoxChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr FlowBox -> Ptr FlowBoxChild -> IO ()
gtk_flow_box_unselect_child Ptr FlowBox
box' Ptr FlowBoxChild
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 FlowBoxUnselectChildMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFlowBox a, Gtk.FlowBoxChild.IsFlowBoxChild b) => O.MethodInfo FlowBoxUnselectChildMethodInfo a signature where
overloadedMethod = flowBoxUnselectChild
#endif