{-# 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)
FlowBoxRemoveMethodInfo ,
#endif
flowBoxRemove ,
#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)
FlowBoxAcceptUnpairedReleasePropertyInfo,
#endif
constructFlowBoxAcceptUnpairedRelease ,
#if defined(ENABLE_OVERLOADING)
flowBoxAcceptUnpairedRelease ,
#endif
getFlowBoxAcceptUnpairedRelease ,
setFlowBoxAcceptUnpairedRelease ,
#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 GHC.Records as R
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
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
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.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget, Gtk.Orientable.Orientable]
toFlowBox :: (MIO.MonadIO m, IsFlowBox o) => o -> m FlowBox
toFlowBox :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m FlowBox
toFlowBox = IO FlowBox -> m FlowBox
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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'
B.ManagedPtr.unsafeCastTo ManagedPtr FlowBox -> FlowBox
FlowBox
instance B.GValue.IsGValue (Maybe FlowBox) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_flow_box_get_type
gvalueSet_ :: Ptr GValue -> Maybe FlowBox -> IO ()
gvalueSet_ Ptr GValue
gv Maybe FlowBox
P.Nothing = Ptr GValue -> Ptr FlowBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr FlowBox
forall a. Ptr a
FP.nullPtr :: FP.Ptr FlowBox)
gvalueSet_ Ptr GValue
gv (P.Just FlowBox
obj) = FlowBox -> (Ptr FlowBox -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr FlowBox
obj (Ptr GValue -> Ptr FlowBox -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe FlowBox)
gvalueGet_ Ptr GValue
gv = do
Ptr FlowBox
ptr <- Ptr GValue -> IO (Ptr FlowBox)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr FlowBox)
if Ptr FlowBox
ptr Ptr FlowBox -> Ptr FlowBox -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr FlowBox
forall a. Ptr a
FP.nullPtr
then FlowBox -> Maybe FlowBox
forall a. a -> Maybe a
P.Just (FlowBox -> Maybe FlowBox) -> IO FlowBox -> IO (Maybe FlowBox)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe FlowBox -> IO (Maybe FlowBox)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FlowBox
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveFlowBoxMethod (t :: Symbol) (o :: *) :: * where
ResolveFlowBoxMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveFlowBoxMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveFlowBoxMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveFlowBoxMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveFlowBoxMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveFlowBoxMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveFlowBoxMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveFlowBoxMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveFlowBoxMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveFlowBoxMethod "bindModel" o = FlowBoxBindModelMethodInfo
ResolveFlowBoxMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFlowBoxMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFlowBoxMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveFlowBoxMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveFlowBoxMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveFlowBoxMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveFlowBoxMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveFlowBoxMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveFlowBoxMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveFlowBoxMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveFlowBoxMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveFlowBoxMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveFlowBoxMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFlowBoxMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFlowBoxMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFlowBoxMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveFlowBoxMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveFlowBoxMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveFlowBoxMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveFlowBoxMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveFlowBoxMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveFlowBoxMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveFlowBoxMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveFlowBoxMethod "insert" o = FlowBoxInsertMethodInfo
ResolveFlowBoxMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveFlowBoxMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveFlowBoxMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveFlowBoxMethod "invalidateFilter" o = FlowBoxInvalidateFilterMethodInfo
ResolveFlowBoxMethod "invalidateSort" o = FlowBoxInvalidateSortMethodInfo
ResolveFlowBoxMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
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 "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveFlowBoxMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveFlowBoxMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveFlowBoxMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveFlowBoxMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveFlowBoxMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveFlowBoxMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFlowBoxMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFlowBoxMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveFlowBoxMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveFlowBoxMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveFlowBoxMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveFlowBoxMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveFlowBoxMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveFlowBoxMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveFlowBoxMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFlowBoxMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFlowBoxMethod "remove" o = FlowBoxRemoveMethodInfo
ResolveFlowBoxMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveFlowBoxMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveFlowBoxMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveFlowBoxMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveFlowBoxMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveFlowBoxMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveFlowBoxMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveFlowBoxMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFlowBoxMethod "selectAll" o = FlowBoxSelectAllMethodInfo
ResolveFlowBoxMethod "selectChild" o = FlowBoxSelectChildMethodInfo
ResolveFlowBoxMethod "selectedForeach" o = FlowBoxSelectedForeachMethodInfo
ResolveFlowBoxMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveFlowBoxMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveFlowBoxMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveFlowBoxMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveFlowBoxMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFlowBoxMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
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 "unselectAll" o = FlowBoxUnselectAllMethodInfo
ResolveFlowBoxMethod "unselectChild" o = FlowBoxUnselectChildMethodInfo
ResolveFlowBoxMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveFlowBoxMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveFlowBoxMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveFlowBoxMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveFlowBoxMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFlowBoxMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveFlowBoxMethod "getActivateOnSingleClick" o = FlowBoxGetActivateOnSingleClickMethodInfo
ResolveFlowBoxMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveFlowBoxMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveFlowBoxMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveFlowBoxMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveFlowBoxMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveFlowBoxMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveFlowBoxMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveFlowBoxMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveFlowBoxMethod "getChildAtIndex" o = FlowBoxGetChildAtIndexMethodInfo
ResolveFlowBoxMethod "getChildAtPos" o = FlowBoxGetChildAtPosMethodInfo
ResolveFlowBoxMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveFlowBoxMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveFlowBoxMethod "getColumnSpacing" o = FlowBoxGetColumnSpacingMethodInfo
ResolveFlowBoxMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveFlowBoxMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveFlowBoxMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveFlowBoxMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFlowBoxMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveFlowBoxMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveFlowBoxMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveFlowBoxMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveFlowBoxMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveFlowBoxMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
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 "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveFlowBoxMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveFlowBoxMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveFlowBoxMethod "getHomogeneous" o = FlowBoxGetHomogeneousMethodInfo
ResolveFlowBoxMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveFlowBoxMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveFlowBoxMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveFlowBoxMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveFlowBoxMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveFlowBoxMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveFlowBoxMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveFlowBoxMethod "getMaxChildrenPerLine" o = FlowBoxGetMaxChildrenPerLineMethodInfo
ResolveFlowBoxMethod "getMinChildrenPerLine" o = FlowBoxGetMinChildrenPerLineMethodInfo
ResolveFlowBoxMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveFlowBoxMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveFlowBoxMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveFlowBoxMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveFlowBoxMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveFlowBoxMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveFlowBoxMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveFlowBoxMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveFlowBoxMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveFlowBoxMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveFlowBoxMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
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 "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveFlowBoxMethod "getRowSpacing" o = FlowBoxGetRowSpacingMethodInfo
ResolveFlowBoxMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveFlowBoxMethod "getSelectedChildren" o = FlowBoxGetSelectedChildrenMethodInfo
ResolveFlowBoxMethod "getSelectionMode" o = FlowBoxGetSelectionModeMethodInfo
ResolveFlowBoxMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveFlowBoxMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveFlowBoxMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveFlowBoxMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveFlowBoxMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveFlowBoxMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveFlowBoxMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveFlowBoxMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveFlowBoxMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveFlowBoxMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveFlowBoxMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveFlowBoxMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveFlowBoxMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveFlowBoxMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveFlowBoxMethod "setActivateOnSingleClick" o = FlowBoxSetActivateOnSingleClickMethodInfo
ResolveFlowBoxMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveFlowBoxMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveFlowBoxMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveFlowBoxMethod "setColumnSpacing" o = FlowBoxSetColumnSpacingMethodInfo
ResolveFlowBoxMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveFlowBoxMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveFlowBoxMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveFlowBoxMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFlowBoxMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveFlowBoxMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveFlowBoxMethod "setFilterFunc" o = FlowBoxSetFilterFuncMethodInfo
ResolveFlowBoxMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveFlowBoxMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveFlowBoxMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
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 "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveFlowBoxMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveFlowBoxMethod "setHomogeneous" o = FlowBoxSetHomogeneousMethodInfo
ResolveFlowBoxMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveFlowBoxMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveFlowBoxMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
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 "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveFlowBoxMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveFlowBoxMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveFlowBoxMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveFlowBoxMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFlowBoxMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
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 "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveFlowBoxMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveFlowBoxMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
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 l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFlowBoxMethod t FlowBox, O.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveFlowBoxMethod t FlowBox, O.OverloadedMethod info FlowBox p, R.HasField t FlowBox p) => R.HasField t FlowBox p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFlowBoxMethod t FlowBox, O.OverloadedMethodInfo info FlowBox) => OL.IsLabel t (O.MethodProxy info FlowBox) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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
-> Bool
-> Bool
-> IO Bool
noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback
noFlowBoxMoveCursorCallback :: Maybe FlowBoxMoveCursorCallback
noFlowBoxMoveCursorCallback = Maybe FlowBoxMoveCursorCallback
forall a. Maybe a
Nothing
type C_FlowBoxMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
CInt ->
CInt ->
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 :: forall (m :: * -> *).
MonadIO m =>
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 CInt
extend CInt
modify Ptr ()
_ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
let extend' :: Bool
extend' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
extend
let modify' :: Bool
modify' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
modify
Bool
result <- FlowBoxMoveCursorCallback
_cb MovementStep
step' Int32
count Bool
extend' Bool
modify'
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall (m :: * -> *).
MonadIO m =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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 :: forall a (m :: * -> *).
(IsFlowBox a, MonadIO m) =>
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
getFlowBoxAcceptUnpairedRelease :: (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxAcceptUnpairedRelease :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxAcceptUnpairedRelease o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"accept-unpaired-release"
setFlowBoxAcceptUnpairedRelease :: (MonadIO m, IsFlowBox o) => o -> Bool -> m ()
setFlowBoxAcceptUnpairedRelease :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Bool -> m ()
setFlowBoxAcceptUnpairedRelease o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"accept-unpaired-release" Bool
val
constructFlowBoxAcceptUnpairedRelease :: (IsFlowBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlowBoxAcceptUnpairedRelease :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructFlowBoxAcceptUnpairedRelease 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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"accept-unpaired-release" Bool
val
#if defined(ENABLE_OVERLOADING)
data FlowBoxAcceptUnpairedReleasePropertyInfo
instance AttrInfo FlowBoxAcceptUnpairedReleasePropertyInfo where
type AttrAllowedOps FlowBoxAcceptUnpairedReleasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint FlowBoxAcceptUnpairedReleasePropertyInfo = IsFlowBox
type AttrSetTypeConstraint FlowBoxAcceptUnpairedReleasePropertyInfo = (~) Bool
type AttrTransferTypeConstraint FlowBoxAcceptUnpairedReleasePropertyInfo = (~) Bool
type AttrTransferType FlowBoxAcceptUnpairedReleasePropertyInfo = Bool
type AttrGetType FlowBoxAcceptUnpairedReleasePropertyInfo = Bool
type AttrLabel FlowBoxAcceptUnpairedReleasePropertyInfo = "accept-unpaired-release"
type AttrOrigin FlowBoxAcceptUnpairedReleasePropertyInfo = FlowBox
attrGet = getFlowBoxAcceptUnpairedRelease
attrSet = setFlowBoxAcceptUnpairedRelease
attrTransfer _ v = do
return v
attrConstruct = constructFlowBoxAcceptUnpairedRelease
attrClear = undefined
#endif
getFlowBoxActivateOnSingleClick :: (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxActivateOnSingleClick :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxActivateOnSingleClick o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"activate-on-single-click"
setFlowBoxActivateOnSingleClick :: (MonadIO m, IsFlowBox o) => o -> Bool -> m ()
setFlowBoxActivateOnSingleClick :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Bool -> m ()
setFlowBoxActivateOnSingleClick o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"activate-on-single-click" Bool
val
constructFlowBoxActivateOnSingleClick :: (IsFlowBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlowBoxActivateOnSingleClick :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"activate-on-single-click" Bool
val
#if defined(ENABLE_OVERLOADING)
data 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 :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxColumnSpacing o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Word32 -> m ()
setFlowBoxColumnSpacing o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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 :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Bool
getFlowBoxHomogeneous o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"homogeneous"
setFlowBoxHomogeneous :: (MonadIO m, IsFlowBox o) => o -> Bool -> m ()
setFlowBoxHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Bool -> m ()
setFlowBoxHomogeneous o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"homogeneous" Bool
val
constructFlowBoxHomogeneous :: (IsFlowBox o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructFlowBoxHomogeneous :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"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 :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxMaxChildrenPerLine o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Word32 -> m ()
setFlowBoxMaxChildrenPerLine o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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 :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxMinChildrenPerLine o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Word32 -> m ()
setFlowBoxMinChildrenPerLine o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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 :: forall (m :: * -> *) o. (MonadIO m, IsFlowBox o) => o -> m Word32
getFlowBoxRowSpacing o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> Word32 -> m ()
setFlowBoxRowSpacing o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> 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 :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> 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 :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> m SelectionMode
getFlowBoxSelectionMode o
obj = IO SelectionMode -> m SelectionMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SelectionMode -> m SelectionMode)
-> IO SelectionMode -> m SelectionMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SelectionMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"selection-mode"
setFlowBoxSelectionMode :: (MonadIO m, IsFlowBox o) => o -> Gtk.Enums.SelectionMode -> m ()
setFlowBoxSelectionMode :: forall (m :: * -> *) o.
(MonadIO m, IsFlowBox o) =>
o -> SelectionMode -> m ()
setFlowBoxSelectionMode o
obj SelectionMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> SelectionMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"selection-mode" SelectionMode
val
constructFlowBoxSelectionMode :: (IsFlowBox o, MIO.MonadIO m) => Gtk.Enums.SelectionMode -> m (GValueConstruct o)
constructFlowBoxSelectionMode :: forall o (m :: * -> *).
(IsFlowBox o, MonadIO m) =>
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SelectionMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"selection-mode" SelectionMode
val
#if defined(ENABLE_OVERLOADING)
data 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 = ('[ '("acceptUnpairedRelease", FlowBoxAcceptUnpairedReleasePropertyInfo), '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("activateOnSingleClick", FlowBoxActivateOnSingleClickPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("columnSpacing", FlowBoxColumnSpacingPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("homogeneous", FlowBoxHomogeneousPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxChildrenPerLine", FlowBoxMaxChildrenPerLinePropertyInfo), '("minChildrenPerLine", FlowBoxMinChildrenPerLinePropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("rowSpacing", FlowBoxRowSpacingPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionMode", FlowBoxSelectionModePropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
flowBoxAcceptUnpairedRelease :: AttrLabelProxy "acceptUnpairedRelease"
flowBoxAcceptUnpairedRelease = AttrLabelProxy
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 = ('[ '("activateCursorChild", FlowBoxActivateCursorChildSignalInfo), '("childActivated", FlowBoxChildActivatedSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveCursor", FlowBoxMoveCursorSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("selectAll", FlowBoxSelectAllSignalInfo), '("selectedChildrenChanged", FlowBoxSelectedChildrenChangedSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("toggleCursorChild", FlowBoxToggleCursorChildSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("unselectAll", FlowBoxUnselectAllSignalInfo)] :: [(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 :: forall (m :: * -> *). (HasCallStack, MonadIO m) => 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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsListModel b) =>
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 ())
SP.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.OverloadedMethod FlowBoxBindModelMethodInfo a signature where
overloadedMethod = flowBoxBindModel
instance O.OverloadedMethodInfo FlowBoxBindModelMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxBindModel",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = flowBoxGetActivateOnSingleClick
instance O.OverloadedMethodInfo FlowBoxGetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetChildAtIndexMethodInfo a signature where
overloadedMethod = flowBoxGetChildAtIndex
instance O.OverloadedMethodInfo FlowBoxGetChildAtIndexMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetChildAtIndex",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetChildAtPosMethodInfo a signature where
overloadedMethod = flowBoxGetChildAtPos
instance O.OverloadedMethodInfo FlowBoxGetChildAtPosMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetChildAtPos",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetColumnSpacingMethodInfo a signature where
overloadedMethod = flowBoxGetColumnSpacing
instance O.OverloadedMethodInfo FlowBoxGetColumnSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetColumnSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetHomogeneousMethodInfo a signature where
overloadedMethod = flowBoxGetHomogeneous
instance O.OverloadedMethodInfo FlowBoxGetHomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetHomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetMaxChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxGetMaxChildrenPerLine
instance O.OverloadedMethodInfo FlowBoxGetMaxChildrenPerLineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetMaxChildrenPerLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetMinChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxGetMinChildrenPerLine
instance O.OverloadedMethodInfo FlowBoxGetMinChildrenPerLineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetMinChildrenPerLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetRowSpacingMethodInfo a signature where
overloadedMethod = flowBoxGetRowSpacing
instance O.OverloadedMethodInfo FlowBoxGetRowSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetRowSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetSelectedChildrenMethodInfo a signature where
overloadedMethod = flowBoxGetSelectedChildren
instance O.OverloadedMethodInfo FlowBoxGetSelectedChildrenMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetSelectedChildren",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxGetSelectionModeMethodInfo a signature where
overloadedMethod = flowBoxGetSelectionMode
instance O.OverloadedMethodInfo FlowBoxGetSelectionModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxGetSelectionMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsWidget b) =>
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.OverloadedMethod FlowBoxInsertMethodInfo a signature where
overloadedMethod = flowBoxInsert
instance O.OverloadedMethodInfo FlowBoxInsertMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxInsert",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxInvalidateFilterMethodInfo a signature where
overloadedMethod = flowBoxInvalidateFilter
instance O.OverloadedMethodInfo FlowBoxInvalidateFilterMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxInvalidateFilter",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxInvalidateSortMethodInfo a signature where
overloadedMethod = flowBoxInvalidateSort
instance O.OverloadedMethodInfo FlowBoxInvalidateSortMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxInvalidateSort",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v:flowBoxInvalidateSort"
}
#endif
foreign import ccall "gtk_flow_box_remove" gtk_flow_box_remove ::
Ptr FlowBox ->
Ptr Gtk.Widget.Widget ->
IO ()
flowBoxRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsFlowBox a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
flowBoxRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsWidget b) =>
a -> b -> m ()
flowBoxRemove a
box b
widget = 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 -> IO ()
gtk_flow_box_remove Ptr FlowBox
box' Ptr Widget
widget'
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 FlowBoxRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsFlowBox a, Gtk.Widget.IsWidget b) => O.OverloadedMethod FlowBoxRemoveMethodInfo a signature where
overloadedMethod = flowBoxRemove
instance O.OverloadedMethodInfo FlowBoxRemoveMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxRemove",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v:flowBoxRemove"
}
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSelectAllMethodInfo a signature where
overloadedMethod = flowBoxSelectAll
instance O.OverloadedMethodInfo FlowBoxSelectAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSelectAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsFlowBoxChild b) =>
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.OverloadedMethod FlowBoxSelectChildMethodInfo a signature where
overloadedMethod = flowBoxSelectChild
instance O.OverloadedMethodInfo FlowBoxSelectChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSelectChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSelectedForeachMethodInfo a signature where
overloadedMethod = flowBoxSelectedForeach
instance O.OverloadedMethodInfo FlowBoxSelectedForeachMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSelectedForeach",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetActivateOnSingleClickMethodInfo a signature where
overloadedMethod = flowBoxSetActivateOnSingleClick
instance O.OverloadedMethodInfo FlowBoxSetActivateOnSingleClickMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetActivateOnSingleClick",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetColumnSpacingMethodInfo a signature where
overloadedMethod = flowBoxSetColumnSpacing
instance O.OverloadedMethodInfo FlowBoxSetColumnSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetColumnSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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 ())
SP.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.OverloadedMethod FlowBoxSetFilterFuncMethodInfo a signature where
overloadedMethod = flowBoxSetFilterFunc
instance O.OverloadedMethodInfo FlowBoxSetFilterFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetFilterFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsAdjustment b) =>
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.OverloadedMethod FlowBoxSetHadjustmentMethodInfo a signature where
overloadedMethod = flowBoxSetHadjustment
instance O.OverloadedMethodInfo FlowBoxSetHadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetHadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetHomogeneousMethodInfo a signature where
overloadedMethod = flowBoxSetHomogeneous
instance O.OverloadedMethodInfo FlowBoxSetHomogeneousMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetHomogeneous",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetMaxChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxSetMaxChildrenPerLine
instance O.OverloadedMethodInfo FlowBoxSetMaxChildrenPerLineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetMaxChildrenPerLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetMinChildrenPerLineMethodInfo a signature where
overloadedMethod = flowBoxSetMinChildrenPerLine
instance O.OverloadedMethodInfo FlowBoxSetMinChildrenPerLineMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetMinChildrenPerLine",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetRowSpacingMethodInfo a signature where
overloadedMethod = flowBoxSetRowSpacing
instance O.OverloadedMethodInfo FlowBoxSetRowSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetRowSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxSetSelectionModeMethodInfo a signature where
overloadedMethod = flowBoxSetSelectionMode
instance O.OverloadedMethodInfo FlowBoxSetSelectionModeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetSelectionMode",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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 ())
SP.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.OverloadedMethod FlowBoxSetSortFuncMethodInfo a signature where
overloadedMethod = flowBoxSetSortFunc
instance O.OverloadedMethodInfo FlowBoxSetSortFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetSortFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsAdjustment b) =>
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.OverloadedMethod FlowBoxSetVadjustmentMethodInfo a signature where
overloadedMethod = flowBoxSetVadjustment
instance O.OverloadedMethodInfo FlowBoxSetVadjustmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxSetVadjustment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFlowBox a) =>
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.OverloadedMethod FlowBoxUnselectAllMethodInfo a signature where
overloadedMethod = flowBoxUnselectAll
instance O.OverloadedMethodInfo FlowBoxUnselectAllMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxUnselectAll",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsFlowBox a, IsFlowBoxChild b) =>
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.OverloadedMethod FlowBoxUnselectChildMethodInfo a signature where
overloadedMethod = flowBoxUnselectChild
instance O.OverloadedMethodInfo FlowBoxUnselectChildMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.FlowBox.flowBoxUnselectChild",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-4.0.4/docs/GI-Gtk-Objects-FlowBox.html#v:flowBoxUnselectChild"
}
#endif