{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Container
(
Container(..) ,
IsContainer ,
toContainer ,
noContainer ,
#if defined(ENABLE_OVERLOADING)
ResolveContainerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ContainerAddMethodInfo ,
#endif
containerAdd ,
#if defined(ENABLE_OVERLOADING)
ContainerCheckResizeMethodInfo ,
#endif
containerCheckResize ,
#if defined(ENABLE_OVERLOADING)
ContainerChildGetPropertyMethodInfo ,
#endif
containerChildGetProperty ,
#if defined(ENABLE_OVERLOADING)
ContainerChildNotifyMethodInfo ,
#endif
containerChildNotify ,
#if defined(ENABLE_OVERLOADING)
ContainerChildNotifyByPspecMethodInfo ,
#endif
containerChildNotifyByPspec ,
#if defined(ENABLE_OVERLOADING)
ContainerChildSetPropertyMethodInfo ,
#endif
containerChildSetProperty ,
#if defined(ENABLE_OVERLOADING)
ContainerChildTypeMethodInfo ,
#endif
containerChildType ,
#if defined(ENABLE_OVERLOADING)
ContainerForallMethodInfo ,
#endif
containerForall ,
#if defined(ENABLE_OVERLOADING)
ContainerForeachMethodInfo ,
#endif
containerForeach ,
#if defined(ENABLE_OVERLOADING)
ContainerGetBorderWidthMethodInfo ,
#endif
containerGetBorderWidth ,
#if defined(ENABLE_OVERLOADING)
ContainerGetChildrenMethodInfo ,
#endif
containerGetChildren ,
#if defined(ENABLE_OVERLOADING)
ContainerGetFocusChainMethodInfo ,
#endif
containerGetFocusChain ,
#if defined(ENABLE_OVERLOADING)
ContainerGetFocusChildMethodInfo ,
#endif
containerGetFocusChild ,
#if defined(ENABLE_OVERLOADING)
ContainerGetFocusHadjustmentMethodInfo ,
#endif
containerGetFocusHadjustment ,
#if defined(ENABLE_OVERLOADING)
ContainerGetFocusVadjustmentMethodInfo ,
#endif
containerGetFocusVadjustment ,
#if defined(ENABLE_OVERLOADING)
ContainerGetPathForChildMethodInfo ,
#endif
containerGetPathForChild ,
#if defined(ENABLE_OVERLOADING)
ContainerGetResizeModeMethodInfo ,
#endif
containerGetResizeMode ,
#if defined(ENABLE_OVERLOADING)
ContainerPropagateDrawMethodInfo ,
#endif
containerPropagateDraw ,
#if defined(ENABLE_OVERLOADING)
ContainerRemoveMethodInfo ,
#endif
containerRemove ,
#if defined(ENABLE_OVERLOADING)
ContainerResizeChildrenMethodInfo ,
#endif
containerResizeChildren ,
#if defined(ENABLE_OVERLOADING)
ContainerSetBorderWidthMethodInfo ,
#endif
containerSetBorderWidth ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusChainMethodInfo ,
#endif
containerSetFocusChain ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusChildMethodInfo ,
#endif
containerSetFocusChild ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusHadjustmentMethodInfo ,
#endif
containerSetFocusHadjustment ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusVadjustmentMethodInfo ,
#endif
containerSetFocusVadjustment ,
#if defined(ENABLE_OVERLOADING)
ContainerSetReallocateRedrawsMethodInfo ,
#endif
containerSetReallocateRedraws ,
#if defined(ENABLE_OVERLOADING)
ContainerSetResizeModeMethodInfo ,
#endif
containerSetResizeMode ,
#if defined(ENABLE_OVERLOADING)
ContainerUnsetFocusChainMethodInfo ,
#endif
containerUnsetFocusChain ,
#if defined(ENABLE_OVERLOADING)
ContainerBorderWidthPropertyInfo ,
#endif
constructContainerBorderWidth ,
#if defined(ENABLE_OVERLOADING)
containerBorderWidth ,
#endif
getContainerBorderWidth ,
setContainerBorderWidth ,
#if defined(ENABLE_OVERLOADING)
ContainerChildPropertyInfo ,
#endif
clearContainerChild ,
constructContainerChild ,
#if defined(ENABLE_OVERLOADING)
containerChild ,
#endif
setContainerChild ,
#if defined(ENABLE_OVERLOADING)
ContainerResizeModePropertyInfo ,
#endif
constructContainerResizeMode ,
#if defined(ENABLE_OVERLOADING)
containerResizeMode ,
#endif
getContainerResizeMode ,
setContainerResizeMode ,
C_ContainerAddCallback ,
ContainerAddCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerAddSignalInfo ,
#endif
afterContainerAdd ,
genClosure_ContainerAdd ,
mk_ContainerAddCallback ,
noContainerAddCallback ,
onContainerAdd ,
wrap_ContainerAddCallback ,
C_ContainerCheckResizeCallback ,
ContainerCheckResizeCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerCheckResizeSignalInfo ,
#endif
afterContainerCheckResize ,
genClosure_ContainerCheckResize ,
mk_ContainerCheckResizeCallback ,
noContainerCheckResizeCallback ,
onContainerCheckResize ,
wrap_ContainerCheckResizeCallback ,
C_ContainerRemoveCallback ,
ContainerRemoveCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerRemoveSignalInfo ,
#endif
afterContainerRemove ,
genClosure_ContainerRemove ,
mk_ContainerRemoveCallback ,
noContainerRemoveCallback ,
onContainerRemove ,
wrap_ContainerRemoveCallback ,
C_ContainerSetFocusChildCallback ,
ContainerSetFocusChildCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusChildSignalInfo ,
#endif
afterContainerSetFocusChild ,
genClosure_ContainerSetFocusChild ,
mk_ContainerSetFocusChildCallback ,
noContainerSetFocusChildCallback ,
onContainerSetFocusChild ,
wrap_ContainerSetFocusChildCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.WidgetPath as Gtk.WidgetPath
newtype Container = Container (ManagedPtr Container)
deriving (Container -> Container -> Bool
(Container -> Container -> Bool)
-> (Container -> Container -> Bool) -> Eq Container
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Container -> Container -> Bool
$c/= :: Container -> Container -> Bool
== :: Container -> Container -> Bool
$c== :: Container -> Container -> Bool
Eq)
foreign import ccall "gtk_container_get_type"
c_gtk_container_get_type :: IO GType
instance GObject Container where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_container_get_type
instance B.GValue.IsGValue Container where
toGValue :: Container -> IO GValue
toGValue o :: Container
o = do
GType
gtype <- IO GType
c_gtk_container_get_type
Container -> (Ptr Container -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Container
o (GType
-> (GValue -> Ptr Container -> IO ()) -> Ptr Container -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Container -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Container
fromGValue gv :: GValue
gv = do
Ptr Container
ptr <- GValue -> IO (Ptr Container)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Container)
(ManagedPtr Container -> Container)
-> Ptr Container -> IO Container
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Container -> Container
Container Ptr Container
ptr
class (GObject o, O.IsDescendantOf Container o) => IsContainer o
instance (GObject o, O.IsDescendantOf Container o) => IsContainer o
instance O.HasParentTypes Container
type instance O.ParentTypes Container = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toContainer :: (MonadIO m, IsContainer o) => o -> m Container
toContainer :: o -> m Container
toContainer = IO Container -> m Container
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Container -> m Container)
-> (o -> IO Container) -> o -> m Container
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Container -> Container) -> o -> IO Container
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Container -> Container
Container
noContainer :: Maybe Container
noContainer :: Maybe Container
noContainer = Maybe Container
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveContainerMethod (t :: Symbol) (o :: *) :: * where
ResolveContainerMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveContainerMethod "add" o = ContainerAddMethodInfo
ResolveContainerMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveContainerMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveContainerMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveContainerMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveContainerMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveContainerMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveContainerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveContainerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveContainerMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveContainerMethod "checkResize" o = ContainerCheckResizeMethodInfo
ResolveContainerMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveContainerMethod "childGetProperty" o = ContainerChildGetPropertyMethodInfo
ResolveContainerMethod "childNotify" o = ContainerChildNotifyMethodInfo
ResolveContainerMethod "childNotifyByPspec" o = ContainerChildNotifyByPspecMethodInfo
ResolveContainerMethod "childSetProperty" o = ContainerChildSetPropertyMethodInfo
ResolveContainerMethod "childType" o = ContainerChildTypeMethodInfo
ResolveContainerMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveContainerMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveContainerMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveContainerMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveContainerMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveContainerMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveContainerMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveContainerMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveContainerMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveContainerMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveContainerMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveContainerMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveContainerMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveContainerMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveContainerMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveContainerMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveContainerMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveContainerMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveContainerMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveContainerMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveContainerMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveContainerMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveContainerMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveContainerMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveContainerMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveContainerMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveContainerMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveContainerMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveContainerMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveContainerMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveContainerMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveContainerMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveContainerMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveContainerMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveContainerMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveContainerMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveContainerMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveContainerMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveContainerMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveContainerMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveContainerMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveContainerMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveContainerMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveContainerMethod "forall" o = ContainerForallMethodInfo
ResolveContainerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveContainerMethod "foreach" o = ContainerForeachMethodInfo
ResolveContainerMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveContainerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveContainerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveContainerMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveContainerMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveContainerMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveContainerMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveContainerMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveContainerMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveContainerMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveContainerMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveContainerMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveContainerMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveContainerMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveContainerMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveContainerMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveContainerMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveContainerMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveContainerMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveContainerMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveContainerMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveContainerMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveContainerMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveContainerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveContainerMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveContainerMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveContainerMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveContainerMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveContainerMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveContainerMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveContainerMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveContainerMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveContainerMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveContainerMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveContainerMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveContainerMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveContainerMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveContainerMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveContainerMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveContainerMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveContainerMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveContainerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveContainerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveContainerMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveContainerMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveContainerMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveContainerMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveContainerMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveContainerMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveContainerMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveContainerMethod "propagateDraw" o = ContainerPropagateDrawMethodInfo
ResolveContainerMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveContainerMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveContainerMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveContainerMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveContainerMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveContainerMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveContainerMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveContainerMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveContainerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveContainerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveContainerMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveContainerMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveContainerMethod "remove" o = ContainerRemoveMethodInfo
ResolveContainerMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveContainerMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveContainerMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveContainerMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveContainerMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveContainerMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveContainerMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveContainerMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveContainerMethod "resizeChildren" o = ContainerResizeChildrenMethodInfo
ResolveContainerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveContainerMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveContainerMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveContainerMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveContainerMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveContainerMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveContainerMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveContainerMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveContainerMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveContainerMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveContainerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveContainerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveContainerMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveContainerMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveContainerMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveContainerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveContainerMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveContainerMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveContainerMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveContainerMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveContainerMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveContainerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveContainerMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveContainerMethod "unsetFocusChain" o = ContainerUnsetFocusChainMethodInfo
ResolveContainerMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveContainerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveContainerMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveContainerMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveContainerMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveContainerMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveContainerMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveContainerMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveContainerMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveContainerMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveContainerMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveContainerMethod "getBorderWidth" o = ContainerGetBorderWidthMethodInfo
ResolveContainerMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveContainerMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveContainerMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveContainerMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveContainerMethod "getChildren" o = ContainerGetChildrenMethodInfo
ResolveContainerMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveContainerMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveContainerMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveContainerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveContainerMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveContainerMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveContainerMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveContainerMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveContainerMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveContainerMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveContainerMethod "getFocusChain" o = ContainerGetFocusChainMethodInfo
ResolveContainerMethod "getFocusChild" o = ContainerGetFocusChildMethodInfo
ResolveContainerMethod "getFocusHadjustment" o = ContainerGetFocusHadjustmentMethodInfo
ResolveContainerMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveContainerMethod "getFocusVadjustment" o = ContainerGetFocusVadjustmentMethodInfo
ResolveContainerMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveContainerMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveContainerMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveContainerMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveContainerMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveContainerMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveContainerMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveContainerMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveContainerMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveContainerMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveContainerMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveContainerMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveContainerMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveContainerMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveContainerMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveContainerMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveContainerMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveContainerMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveContainerMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveContainerMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveContainerMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveContainerMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveContainerMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveContainerMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveContainerMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveContainerMethod "getPathForChild" o = ContainerGetPathForChildMethodInfo
ResolveContainerMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveContainerMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveContainerMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveContainerMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveContainerMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveContainerMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveContainerMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveContainerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveContainerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveContainerMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveContainerMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveContainerMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveContainerMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveContainerMethod "getResizeMode" o = ContainerGetResizeModeMethodInfo
ResolveContainerMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveContainerMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveContainerMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveContainerMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveContainerMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveContainerMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveContainerMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveContainerMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveContainerMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveContainerMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveContainerMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveContainerMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveContainerMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveContainerMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveContainerMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveContainerMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveContainerMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveContainerMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveContainerMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveContainerMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveContainerMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveContainerMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveContainerMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveContainerMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveContainerMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveContainerMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveContainerMethod "setBorderWidth" o = ContainerSetBorderWidthMethodInfo
ResolveContainerMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveContainerMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveContainerMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveContainerMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveContainerMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveContainerMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveContainerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveContainerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveContainerMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveContainerMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveContainerMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveContainerMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveContainerMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveContainerMethod "setFocusChain" o = ContainerSetFocusChainMethodInfo
ResolveContainerMethod "setFocusChild" o = ContainerSetFocusChildMethodInfo
ResolveContainerMethod "setFocusHadjustment" o = ContainerSetFocusHadjustmentMethodInfo
ResolveContainerMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveContainerMethod "setFocusVadjustment" o = ContainerSetFocusVadjustmentMethodInfo
ResolveContainerMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveContainerMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveContainerMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveContainerMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveContainerMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveContainerMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveContainerMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveContainerMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveContainerMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveContainerMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveContainerMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveContainerMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveContainerMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveContainerMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveContainerMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveContainerMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveContainerMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveContainerMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveContainerMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveContainerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveContainerMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveContainerMethod "setReallocateRedraws" o = ContainerSetReallocateRedrawsMethodInfo
ResolveContainerMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveContainerMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveContainerMethod "setResizeMode" o = ContainerSetResizeModeMethodInfo
ResolveContainerMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveContainerMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveContainerMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveContainerMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveContainerMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveContainerMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveContainerMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveContainerMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveContainerMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveContainerMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveContainerMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveContainerMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveContainerMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveContainerMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveContainerMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveContainerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveContainerMethod t Container, O.MethodInfo info Container p) => OL.IsLabel t (Container -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type ContainerAddCallback =
Gtk.Widget.Widget
-> IO ()
noContainerAddCallback :: Maybe ContainerAddCallback
noContainerAddCallback :: Maybe ContainerAddCallback
noContainerAddCallback = Maybe ContainerAddCallback
forall a. Maybe a
Nothing
type C_ContainerAddCallback =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerAddCallback :: C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
genClosure_ContainerAdd :: MonadIO m => ContainerAddCallback -> m (GClosure C_ContainerAddCallback)
genClosure_ContainerAdd :: ContainerAddCallback -> m (GClosure C_ContainerAddCallback)
genClosure_ContainerAdd cb :: ContainerAddCallback
cb = IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerAddCallback ContainerAddCallback
cb
C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerAddCallback C_ContainerAddCallback
cb' IO (FunPtr C_ContainerAddCallback)
-> (FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerAddCallback ::
ContainerAddCallback ->
C_ContainerAddCallback
wrap_ContainerAddCallback :: ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerAddCallback _cb :: ContainerAddCallback
_cb _ object :: Ptr Widget
object _ = do
Widget
object' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
object
ContainerAddCallback
_cb Widget
object'
onContainerAdd :: (IsContainer a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
onContainerAdd :: a -> ContainerAddCallback -> m SignalHandlerId
onContainerAdd obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerAddCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerAddCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "add" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerAdd :: (IsContainer a, MonadIO m) => a -> ContainerAddCallback -> m SignalHandlerId
afterContainerAdd :: a -> ContainerAddCallback -> m SignalHandlerId
afterContainerAdd obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerAddCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerAddCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "add" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ContainerAddSignalInfo
instance SignalInfo ContainerAddSignalInfo where
type HaskellCallbackType ContainerAddSignalInfo = ContainerAddCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ContainerAddCallback cb
cb'' <- mk_ContainerAddCallback cb'
connectSignalFunPtr obj "add" cb'' connectMode detail
#endif
type ContainerCheckResizeCallback =
IO ()
noContainerCheckResizeCallback :: Maybe ContainerCheckResizeCallback
noContainerCheckResizeCallback :: Maybe (IO ())
noContainerCheckResizeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ContainerCheckResizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerCheckResizeCallback :: C_ContainerCheckResizeCallback -> IO (FunPtr C_ContainerCheckResizeCallback)
genClosure_ContainerCheckResize :: MonadIO m => ContainerCheckResizeCallback -> m (GClosure C_ContainerCheckResizeCallback)
genClosure_ContainerCheckResize :: IO () -> m (GClosure C_ContainerCheckResizeCallback)
genClosure_ContainerCheckResize cb :: IO ()
cb = IO (GClosure C_ContainerCheckResizeCallback)
-> m (GClosure C_ContainerCheckResizeCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerCheckResizeCallback)
-> m (GClosure C_ContainerCheckResizeCallback))
-> IO (GClosure C_ContainerCheckResizeCallback)
-> m (GClosure C_ContainerCheckResizeCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerCheckResizeCallback
cb' = IO () -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback IO ()
cb
C_ContainerCheckResizeCallback
-> IO (FunPtr C_ContainerCheckResizeCallback)
mk_ContainerCheckResizeCallback C_ContainerCheckResizeCallback
cb' IO (FunPtr C_ContainerCheckResizeCallback)
-> (FunPtr C_ContainerCheckResizeCallback
-> IO (GClosure C_ContainerCheckResizeCallback))
-> IO (GClosure C_ContainerCheckResizeCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerCheckResizeCallback
-> IO (GClosure C_ContainerCheckResizeCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerCheckResizeCallback ::
ContainerCheckResizeCallback ->
C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback :: IO () -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onContainerCheckResize :: (IsContainer a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
onContainerCheckResize :: a -> IO () -> m SignalHandlerId
onContainerCheckResize obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerCheckResizeCallback
cb' = IO () -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback IO ()
cb
FunPtr C_ContainerCheckResizeCallback
cb'' <- C_ContainerCheckResizeCallback
-> IO (FunPtr C_ContainerCheckResizeCallback)
mk_ContainerCheckResizeCallback C_ContainerCheckResizeCallback
cb'
a
-> Text
-> FunPtr C_ContainerCheckResizeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "check-resize" FunPtr C_ContainerCheckResizeCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerCheckResize :: (IsContainer a, MonadIO m) => a -> ContainerCheckResizeCallback -> m SignalHandlerId
afterContainerCheckResize :: a -> IO () -> m SignalHandlerId
afterContainerCheckResize obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerCheckResizeCallback
cb' = IO () -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback IO ()
cb
FunPtr C_ContainerCheckResizeCallback
cb'' <- C_ContainerCheckResizeCallback
-> IO (FunPtr C_ContainerCheckResizeCallback)
mk_ContainerCheckResizeCallback C_ContainerCheckResizeCallback
cb'
a
-> Text
-> FunPtr C_ContainerCheckResizeCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "check-resize" FunPtr C_ContainerCheckResizeCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ContainerCheckResizeSignalInfo
instance SignalInfo ContainerCheckResizeSignalInfo where
type HaskellCallbackType ContainerCheckResizeSignalInfo = ContainerCheckResizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ContainerCheckResizeCallback cb
cb'' <- mk_ContainerCheckResizeCallback cb'
connectSignalFunPtr obj "check-resize" cb'' connectMode detail
#endif
type ContainerRemoveCallback =
Gtk.Widget.Widget
-> IO ()
noContainerRemoveCallback :: Maybe ContainerRemoveCallback
noContainerRemoveCallback :: Maybe ContainerAddCallback
noContainerRemoveCallback = Maybe ContainerAddCallback
forall a. Maybe a
Nothing
type C_ContainerRemoveCallback =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerRemoveCallback :: C_ContainerRemoveCallback -> IO (FunPtr C_ContainerRemoveCallback)
genClosure_ContainerRemove :: MonadIO m => ContainerRemoveCallback -> m (GClosure C_ContainerRemoveCallback)
genClosure_ContainerRemove :: ContainerAddCallback -> m (GClosure C_ContainerAddCallback)
genClosure_ContainerRemove cb :: ContainerAddCallback
cb = IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerRemoveCallback ContainerAddCallback
cb
C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerRemoveCallback C_ContainerAddCallback
cb' IO (FunPtr C_ContainerAddCallback)
-> (FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerRemoveCallback ::
ContainerRemoveCallback ->
C_ContainerRemoveCallback
wrap_ContainerRemoveCallback :: ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerRemoveCallback _cb :: ContainerAddCallback
_cb _ object :: Ptr Widget
object _ = do
Widget
object' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
object
ContainerAddCallback
_cb Widget
object'
onContainerRemove :: (IsContainer a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
onContainerRemove :: a -> ContainerAddCallback -> m SignalHandlerId
onContainerRemove obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerRemoveCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerRemoveCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "remove" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerRemove :: (IsContainer a, MonadIO m) => a -> ContainerRemoveCallback -> m SignalHandlerId
afterContainerRemove :: a -> ContainerAddCallback -> m SignalHandlerId
afterContainerRemove obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerRemoveCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerRemoveCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "remove" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ContainerRemoveSignalInfo
instance SignalInfo ContainerRemoveSignalInfo where
type HaskellCallbackType ContainerRemoveSignalInfo = ContainerRemoveCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ContainerRemoveCallback cb
cb'' <- mk_ContainerRemoveCallback cb'
connectSignalFunPtr obj "remove" cb'' connectMode detail
#endif
type ContainerSetFocusChildCallback =
Gtk.Widget.Widget
-> IO ()
noContainerSetFocusChildCallback :: Maybe ContainerSetFocusChildCallback
noContainerSetFocusChildCallback :: Maybe ContainerAddCallback
noContainerSetFocusChildCallback = Maybe ContainerAddCallback
forall a. Maybe a
Nothing
type C_ContainerSetFocusChildCallback =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerSetFocusChildCallback :: C_ContainerSetFocusChildCallback -> IO (FunPtr C_ContainerSetFocusChildCallback)
genClosure_ContainerSetFocusChild :: MonadIO m => ContainerSetFocusChildCallback -> m (GClosure C_ContainerSetFocusChildCallback)
genClosure_ContainerSetFocusChild :: ContainerAddCallback -> m (GClosure C_ContainerAddCallback)
genClosure_ContainerSetFocusChild cb :: ContainerAddCallback
cb = IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
-> m (GClosure C_ContainerAddCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback ContainerAddCallback
cb
C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerSetFocusChildCallback C_ContainerAddCallback
cb' IO (FunPtr C_ContainerAddCallback)
-> (FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback))
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ContainerAddCallback
-> IO (GClosure C_ContainerAddCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ContainerSetFocusChildCallback ::
ContainerSetFocusChildCallback ->
C_ContainerSetFocusChildCallback
wrap_ContainerSetFocusChildCallback :: ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback _cb :: ContainerAddCallback
_cb _ object :: Ptr Widget
object _ = do
Widget
object' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
object
ContainerAddCallback
_cb Widget
object'
onContainerSetFocusChild :: (IsContainer a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
onContainerSetFocusChild :: a -> ContainerAddCallback -> m SignalHandlerId
onContainerSetFocusChild obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerSetFocusChildCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "set-focus-child" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerSetFocusChild :: (IsContainer a, MonadIO m) => a -> ContainerSetFocusChildCallback -> m SignalHandlerId
afterContainerSetFocusChild :: a -> ContainerAddCallback -> m SignalHandlerId
afterContainerSetFocusChild obj :: a
obj cb :: ContainerAddCallback
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_ContainerAddCallback
cb' = ContainerAddCallback -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback ContainerAddCallback
cb
FunPtr C_ContainerAddCallback
cb'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerSetFocusChildCallback C_ContainerAddCallback
cb'
a
-> Text
-> FunPtr C_ContainerAddCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "set-focus-child" FunPtr C_ContainerAddCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ContainerSetFocusChildSignalInfo
instance SignalInfo ContainerSetFocusChildSignalInfo where
type HaskellCallbackType ContainerSetFocusChildSignalInfo = ContainerSetFocusChildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ContainerSetFocusChildCallback cb
cb'' <- mk_ContainerSetFocusChildCallback cb'
connectSignalFunPtr obj "set-focus-child" cb'' connectMode detail
#endif
getContainerBorderWidth :: (MonadIO m, IsContainer o) => o -> m Word32
getContainerBorderWidth :: o -> m Word32
getContainerBorderWidth obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "border-width"
setContainerBorderWidth :: (MonadIO m, IsContainer o) => o -> Word32 -> m ()
setContainerBorderWidth :: o -> Word32 -> m ()
setContainerBorderWidth obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "border-width" Word32
val
constructContainerBorderWidth :: (IsContainer o) => Word32 -> IO (GValueConstruct o)
constructContainerBorderWidth :: Word32 -> IO (GValueConstruct o)
constructContainerBorderWidth val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "border-width" Word32
val
#if defined(ENABLE_OVERLOADING)
data ContainerBorderWidthPropertyInfo
instance AttrInfo ContainerBorderWidthPropertyInfo where
type AttrAllowedOps ContainerBorderWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ContainerBorderWidthPropertyInfo = IsContainer
type AttrSetTypeConstraint ContainerBorderWidthPropertyInfo = (~) Word32
type AttrTransferTypeConstraint ContainerBorderWidthPropertyInfo = (~) Word32
type AttrTransferType ContainerBorderWidthPropertyInfo = Word32
type AttrGetType ContainerBorderWidthPropertyInfo = Word32
type AttrLabel ContainerBorderWidthPropertyInfo = "border-width"
type AttrOrigin ContainerBorderWidthPropertyInfo = Container
attrGet = getContainerBorderWidth
attrSet = setContainerBorderWidth
attrTransfer _ v = do
return v
attrConstruct = constructContainerBorderWidth
attrClear = undefined
#endif
setContainerChild :: (MonadIO m, IsContainer o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setContainerChild :: o -> a -> m ()
setContainerChild obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructContainerChild :: (IsContainer o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructContainerChild :: a -> IO (GValueConstruct o)
constructContainerChild val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearContainerChild :: (MonadIO m, IsContainer o) => o -> m ()
clearContainerChild :: o -> m ()
clearContainerChild obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "child" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ContainerChildPropertyInfo
instance AttrInfo ContainerChildPropertyInfo where
type AttrAllowedOps ContainerChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint ContainerChildPropertyInfo = IsContainer
type AttrSetTypeConstraint ContainerChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ContainerChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ContainerChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType ContainerChildPropertyInfo = ()
type AttrLabel ContainerChildPropertyInfo = "child"
type AttrOrigin ContainerChildPropertyInfo = Container
attrGet = undefined
attrSet = setContainerChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructContainerChild
attrClear = clearContainerChild
#endif
getContainerResizeMode :: (MonadIO m, IsContainer o) => o -> m Gtk.Enums.ResizeMode
getContainerResizeMode :: o -> m ResizeMode
getContainerResizeMode obj :: o
obj = IO ResizeMode -> m ResizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ResizeMode -> m ResizeMode) -> IO ResizeMode -> m ResizeMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ResizeMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "resize-mode"
setContainerResizeMode :: (MonadIO m, IsContainer o) => o -> Gtk.Enums.ResizeMode -> m ()
setContainerResizeMode :: o -> ResizeMode -> m ()
setContainerResizeMode obj :: o
obj val :: ResizeMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> ResizeMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "resize-mode" ResizeMode
val
constructContainerResizeMode :: (IsContainer o) => Gtk.Enums.ResizeMode -> IO (GValueConstruct o)
constructContainerResizeMode :: ResizeMode -> IO (GValueConstruct o)
constructContainerResizeMode val :: ResizeMode
val = String -> ResizeMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "resize-mode" ResizeMode
val
#if defined(ENABLE_OVERLOADING)
data ContainerResizeModePropertyInfo
instance AttrInfo ContainerResizeModePropertyInfo where
type AttrAllowedOps ContainerResizeModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ContainerResizeModePropertyInfo = IsContainer
type AttrSetTypeConstraint ContainerResizeModePropertyInfo = (~) Gtk.Enums.ResizeMode
type AttrTransferTypeConstraint ContainerResizeModePropertyInfo = (~) Gtk.Enums.ResizeMode
type AttrTransferType ContainerResizeModePropertyInfo = Gtk.Enums.ResizeMode
type AttrGetType ContainerResizeModePropertyInfo = Gtk.Enums.ResizeMode
type AttrLabel ContainerResizeModePropertyInfo = "resize-mode"
type AttrOrigin ContainerResizeModePropertyInfo = Container
attrGet = getContainerResizeMode
attrSet = setContainerResizeMode
attrTransfer _ v = do
return v
attrConstruct = constructContainerResizeMode
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Container
type instance O.AttributeList Container = ContainerAttributeList
type ContainerAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeMode", ContainerResizeModePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
containerBorderWidth :: AttrLabelProxy "borderWidth"
containerBorderWidth = AttrLabelProxy
containerChild :: AttrLabelProxy "child"
containerChild = AttrLabelProxy
containerResizeMode :: AttrLabelProxy "resizeMode"
containerResizeMode = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Container = ContainerSignalList
type ContainerSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", ContainerCheckResizeSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", ContainerRemoveSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setFocusChild", ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_container_add" gtk_container_add ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
IO ()
containerAdd ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
containerAdd :: a -> b -> m ()
containerAdd container :: a
container widget :: 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Container -> Ptr Widget -> IO ()
gtk_container_add Ptr Container
container' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
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 ContainerAddMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerAddMethodInfo a signature where
overloadedMethod = containerAdd
#endif
foreign import ccall "gtk_container_check_resize" gtk_container_check_resize ::
Ptr Container ->
IO ()
containerCheckResize ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ()
containerCheckResize :: a -> m ()
containerCheckResize container :: a
container = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Container -> IO ()
gtk_container_check_resize Ptr Container
container'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerCheckResizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerCheckResizeMethodInfo a signature where
overloadedMethod = containerCheckResize
#endif
foreign import ccall "gtk_container_child_get_property" gtk_container_child_get_property ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
CString ->
Ptr GValue ->
IO ()
containerChildGetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> GValue
-> m ()
containerChildGetProperty :: a -> b -> Text -> GValue -> m ()
containerChildGetProperty container :: a
container child :: b
child propertyName :: Text
propertyName value :: GValue
value = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr Container -> Ptr Widget -> CString -> Ptr GValue -> IO ()
gtk_container_child_get_property Ptr Container
container' Ptr Widget
child' CString
propertyName' Ptr GValue
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerChildGetPropertyMethodInfo
instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerChildGetPropertyMethodInfo a signature where
overloadedMethod = containerChildGetProperty
#endif
foreign import ccall "gtk_container_child_notify" gtk_container_child_notify ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
CString ->
IO ()
containerChildNotify ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> m ()
containerChildNotify :: a -> b -> Text -> m ()
containerChildNotify container :: a
container child :: b
child childProperty :: Text
childProperty = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
childProperty' <- Text -> IO CString
textToCString Text
childProperty
Ptr Container -> Ptr Widget -> CString -> IO ()
gtk_container_child_notify Ptr Container
container' Ptr Widget
child' CString
childProperty'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
childProperty'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerChildNotifyMethodInfo
instance (signature ~ (b -> T.Text -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerChildNotifyMethodInfo a signature where
overloadedMethod = containerChildNotify
#endif
foreign import ccall "gtk_container_child_notify_by_pspec" gtk_container_child_notify_by_pspec ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
Ptr GParamSpec ->
IO ()
containerChildNotifyByPspec ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> GParamSpec
-> m ()
containerChildNotifyByPspec :: a -> b -> GParamSpec -> m ()
containerChildNotifyByPspec container :: a
container child :: b
child pspec :: GParamSpec
pspec = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
Ptr Container -> Ptr Widget -> Ptr GParamSpec -> IO ()
gtk_container_child_notify_by_pspec Ptr Container
container' Ptr Widget
child' Ptr GParamSpec
pspec'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerChildNotifyByPspecMethodInfo
instance (signature ~ (b -> GParamSpec -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerChildNotifyByPspecMethodInfo a signature where
overloadedMethod = containerChildNotifyByPspec
#endif
foreign import ccall "gtk_container_child_set_property" gtk_container_child_set_property ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
CString ->
Ptr GValue ->
IO ()
containerChildSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> T.Text
-> GValue
-> m ()
containerChildSetProperty :: a -> b -> Text -> GValue -> m ()
containerChildSetProperty container :: a
container child :: b
child propertyName :: Text
propertyName value :: GValue
value = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
CString
propertyName' <- Text -> IO CString
textToCString Text
propertyName
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr Container -> Ptr Widget -> CString -> Ptr GValue -> IO ()
gtk_container_child_set_property Ptr Container
container' Ptr Widget
child' CString
propertyName' Ptr GValue
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
propertyName'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerChildSetPropertyMethodInfo
instance (signature ~ (b -> T.Text -> GValue -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerChildSetPropertyMethodInfo a signature where
overloadedMethod = containerChildSetProperty
#endif
foreign import ccall "gtk_container_child_type" gtk_container_child_type ::
Ptr Container ->
IO CGType
containerChildType ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m GType
containerChildType :: a -> m GType
containerChildType container :: a
container = IO GType -> m GType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
CGType
result <- Ptr Container -> IO CGType
gtk_container_child_type Ptr Container
container'
let result' :: GType
result' = CGType -> GType
GType CGType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
GType -> IO GType
forall (m :: * -> *) a. Monad m => a -> m a
return GType
result'
#if defined(ENABLE_OVERLOADING)
data ContainerChildTypeMethodInfo
instance (signature ~ (m GType), MonadIO m, IsContainer a) => O.MethodInfo ContainerChildTypeMethodInfo a signature where
overloadedMethod = containerChildType
#endif
foreign import ccall "gtk_container_forall" gtk_container_forall ::
Ptr Container ->
FunPtr Gtk.Callbacks.C_Callback ->
Ptr () ->
IO ()
containerForall ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> Gtk.Callbacks.Callback
-> m ()
containerForall :: a -> ContainerAddCallback -> m ()
containerForall container :: a
container callback :: ContainerAddCallback
callback = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
FunPtr C_Callback
callback' <- C_Callback -> IO (FunPtr C_Callback)
Gtk.Callbacks.mk_Callback (Maybe (Ptr (FunPtr C_Callback))
-> Callback_WithClosures -> C_Callback
Gtk.Callbacks.wrap_Callback Maybe (Ptr (FunPtr C_Callback))
forall a. Maybe a
Nothing (ContainerAddCallback -> Callback_WithClosures
Gtk.Callbacks.drop_closures_Callback ContainerAddCallback
callback))
let callbackData :: Ptr a
callbackData = Ptr a
forall a. Ptr a
nullPtr
Ptr Container -> FunPtr C_Callback -> Ptr () -> IO ()
gtk_container_forall Ptr Container
container' FunPtr C_Callback
callback' Ptr ()
forall a. Ptr a
callbackData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_Callback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_Callback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerForallMethodInfo
instance (signature ~ (Gtk.Callbacks.Callback -> m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerForallMethodInfo a signature where
overloadedMethod = containerForall
#endif
foreign import ccall "gtk_container_foreach" gtk_container_foreach ::
Ptr Container ->
FunPtr Gtk.Callbacks.C_Callback ->
Ptr () ->
IO ()
containerForeach ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> Gtk.Callbacks.Callback
-> m ()
containerForeach :: a -> ContainerAddCallback -> m ()
containerForeach container :: a
container callback :: ContainerAddCallback
callback = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
FunPtr C_Callback
callback' <- C_Callback -> IO (FunPtr C_Callback)
Gtk.Callbacks.mk_Callback (Maybe (Ptr (FunPtr C_Callback))
-> Callback_WithClosures -> C_Callback
Gtk.Callbacks.wrap_Callback Maybe (Ptr (FunPtr C_Callback))
forall a. Maybe a
Nothing (ContainerAddCallback -> Callback_WithClosures
Gtk.Callbacks.drop_closures_Callback ContainerAddCallback
callback))
let callbackData :: Ptr a
callbackData = Ptr a
forall a. Ptr a
nullPtr
Ptr Container -> FunPtr C_Callback -> Ptr () -> IO ()
gtk_container_foreach Ptr Container
container' FunPtr C_Callback
callback' Ptr ()
forall a. Ptr a
callbackData
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_Callback -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_Callback
callback'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerForeachMethodInfo
instance (signature ~ (Gtk.Callbacks.Callback -> m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerForeachMethodInfo a signature where
overloadedMethod = containerForeach
#endif
foreign import ccall "gtk_container_get_border_width" gtk_container_get_border_width ::
Ptr Container ->
IO Word32
containerGetBorderWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m Word32
containerGetBorderWidth :: a -> m Word32
containerGetBorderWidth container :: a
container = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Word32
result <- Ptr Container -> IO Word32
gtk_container_get_border_width Ptr Container
container'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data ContainerGetBorderWidthMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetBorderWidthMethodInfo a signature where
overloadedMethod = containerGetBorderWidth
#endif
foreign import ccall "gtk_container_get_children" gtk_container_get_children ::
Ptr Container ->
IO (Ptr (GList (Ptr Gtk.Widget.Widget)))
containerGetChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m [Gtk.Widget.Widget]
containerGetChildren :: a -> m [Widget]
containerGetChildren container :: a
container = IO [Widget] -> m [Widget]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Widget] -> m [Widget]) -> IO [Widget] -> m [Widget]
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr (GList (Ptr Widget))
result <- Ptr Container -> IO (Ptr (GList (Ptr Widget)))
gtk_container_get_children Ptr Container
container'
[Ptr Widget]
result' <- Ptr (GList (Ptr Widget)) -> IO [Ptr Widget]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
result
[Widget]
result'' <- (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) [Ptr Widget]
result'
Ptr (GList (Ptr Widget)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
[Widget] -> IO [Widget]
forall (m :: * -> *) a. Monad m => a -> m a
return [Widget]
result''
#if defined(ENABLE_OVERLOADING)
data ContainerGetChildrenMethodInfo
instance (signature ~ (m [Gtk.Widget.Widget]), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetChildrenMethodInfo a signature where
overloadedMethod = containerGetChildren
#endif
foreign import ccall "gtk_container_get_focus_chain" gtk_container_get_focus_chain ::
Ptr Container ->
Ptr (Ptr (GList (Ptr Gtk.Widget.Widget))) ->
IO CInt
{-# DEPRECATED containerGetFocusChain ["(Since version 3.24)","For overriding focus behavior, use the"," GtkWidgetClass[focus](#signal:focus) signal."] #-}
containerGetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ((Bool, [Gtk.Widget.Widget]))
containerGetFocusChain :: a -> m (Bool, [Widget])
containerGetFocusChain container :: a
container = IO (Bool, [Widget]) -> m (Bool, [Widget])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, [Widget]) -> m (Bool, [Widget]))
-> IO (Bool, [Widget]) -> m (Bool, [Widget])
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr (Ptr (GList (Ptr Widget)))
focusableWidgets <- IO (Ptr (Ptr (GList (Ptr Widget))))
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr (Ptr (GList (Ptr Gtk.Widget.Widget))))
CInt
result <- Ptr Container -> Ptr (Ptr (GList (Ptr Widget))) -> IO CInt
gtk_container_get_focus_chain Ptr Container
container' Ptr (Ptr (GList (Ptr Widget)))
focusableWidgets
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Ptr (GList (Ptr Widget))
focusableWidgets' <- Ptr (Ptr (GList (Ptr Widget))) -> IO (Ptr (GList (Ptr Widget)))
forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr (GList (Ptr Widget)))
focusableWidgets
[Ptr Widget]
focusableWidgets'' <- Ptr (GList (Ptr Widget)) -> IO [Ptr Widget]
forall a. Ptr (GList (Ptr a)) -> IO [Ptr a]
unpackGList Ptr (GList (Ptr Widget))
focusableWidgets'
[Widget]
focusableWidgets''' <- (Ptr Widget -> IO Widget) -> [Ptr Widget] -> IO [Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) [Ptr Widget]
focusableWidgets''
Ptr (GList (Ptr Widget)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
focusableWidgets'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Ptr (Ptr (GList (Ptr Widget))) -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr (GList (Ptr Widget)))
focusableWidgets
(Bool, [Widget]) -> IO (Bool, [Widget])
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', [Widget]
focusableWidgets''')
#if defined(ENABLE_OVERLOADING)
data ContainerGetFocusChainMethodInfo
instance (signature ~ (m ((Bool, [Gtk.Widget.Widget]))), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetFocusChainMethodInfo a signature where
overloadedMethod = containerGetFocusChain
#endif
foreign import ccall "gtk_container_get_focus_child" gtk_container_get_focus_child ::
Ptr Container ->
IO (Ptr Gtk.Widget.Widget)
containerGetFocusChild ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m (Maybe Gtk.Widget.Widget)
containerGetFocusChild :: a -> m (Maybe Widget)
containerGetFocusChild container :: a
container = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
result <- Ptr Container -> IO (Ptr Widget)
gtk_container_get_focus_child Ptr Container
container'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ContainerGetFocusChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetFocusChildMethodInfo a signature where
overloadedMethod = containerGetFocusChild
#endif
foreign import ccall "gtk_container_get_focus_hadjustment" gtk_container_get_focus_hadjustment ::
Ptr Container ->
IO (Ptr Gtk.Adjustment.Adjustment)
containerGetFocusHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m (Maybe Gtk.Adjustment.Adjustment)
containerGetFocusHadjustment :: a -> m (Maybe Adjustment)
containerGetFocusHadjustment container :: a
container = IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Adjustment) -> m (Maybe Adjustment))
-> IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Adjustment
result <- Ptr Container -> IO (Ptr Adjustment)
gtk_container_get_focus_hadjustment Ptr Container
container'
Maybe Adjustment
maybeResult <- Ptr Adjustment
-> (Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Adjustment
result ((Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment))
-> (Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Adjustment
result' -> do
Adjustment
result'' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result'
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Maybe Adjustment -> IO (Maybe Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Adjustment
maybeResult
#if defined(ENABLE_OVERLOADING)
data ContainerGetFocusHadjustmentMethodInfo
instance (signature ~ (m (Maybe Gtk.Adjustment.Adjustment)), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetFocusHadjustmentMethodInfo a signature where
overloadedMethod = containerGetFocusHadjustment
#endif
foreign import ccall "gtk_container_get_focus_vadjustment" gtk_container_get_focus_vadjustment ::
Ptr Container ->
IO (Ptr Gtk.Adjustment.Adjustment)
containerGetFocusVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m (Maybe Gtk.Adjustment.Adjustment)
containerGetFocusVadjustment :: a -> m (Maybe Adjustment)
containerGetFocusVadjustment container :: a
container = IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Adjustment) -> m (Maybe Adjustment))
-> IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Adjustment
result <- Ptr Container -> IO (Ptr Adjustment)
gtk_container_get_focus_vadjustment Ptr Container
container'
Maybe Adjustment
maybeResult <- Ptr Adjustment
-> (Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Adjustment
result ((Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment))
-> (Ptr Adjustment -> IO Adjustment) -> IO (Maybe Adjustment)
forall a b. (a -> b) -> a -> b
$ \result' :: Ptr Adjustment
result' -> do
Adjustment
result'' <- ((ManagedPtr Adjustment -> Adjustment)
-> Ptr Adjustment -> IO Adjustment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Adjustment -> Adjustment
Gtk.Adjustment.Adjustment) Ptr Adjustment
result'
Adjustment -> IO Adjustment
forall (m :: * -> *) a. Monad m => a -> m a
return Adjustment
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Maybe Adjustment -> IO (Maybe Adjustment)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Adjustment
maybeResult
#if defined(ENABLE_OVERLOADING)
data ContainerGetFocusVadjustmentMethodInfo
instance (signature ~ (m (Maybe Gtk.Adjustment.Adjustment)), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetFocusVadjustmentMethodInfo a signature where
overloadedMethod = containerGetFocusVadjustment
#endif
foreign import ccall "gtk_container_get_path_for_child" gtk_container_get_path_for_child ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
IO (Ptr Gtk.WidgetPath.WidgetPath)
containerGetPathForChild ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m Gtk.WidgetPath.WidgetPath
containerGetPathForChild :: a -> b -> m WidgetPath
containerGetPathForChild container :: a
container child :: b
child = IO WidgetPath -> m WidgetPath
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO WidgetPath -> m WidgetPath) -> IO WidgetPath -> m WidgetPath
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr WidgetPath
result <- Ptr Container -> Ptr Widget -> IO (Ptr WidgetPath)
gtk_container_get_path_for_child Ptr Container
container' Ptr Widget
child'
Text -> Ptr WidgetPath -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "containerGetPathForChild" Ptr WidgetPath
result
WidgetPath
result' <- ((ManagedPtr WidgetPath -> WidgetPath)
-> Ptr WidgetPath -> IO WidgetPath
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr WidgetPath -> WidgetPath
Gtk.WidgetPath.WidgetPath) Ptr WidgetPath
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
WidgetPath -> IO WidgetPath
forall (m :: * -> *) a. Monad m => a -> m a
return WidgetPath
result'
#if defined(ENABLE_OVERLOADING)
data ContainerGetPathForChildMethodInfo
instance (signature ~ (b -> m Gtk.WidgetPath.WidgetPath), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerGetPathForChildMethodInfo a signature where
overloadedMethod = containerGetPathForChild
#endif
foreign import ccall "gtk_container_get_resize_mode" gtk_container_get_resize_mode ::
Ptr Container ->
IO CUInt
{-# DEPRECATED containerGetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."] #-}
containerGetResizeMode ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m Gtk.Enums.ResizeMode
containerGetResizeMode :: a -> m ResizeMode
containerGetResizeMode container :: a
container = IO ResizeMode -> m ResizeMode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ResizeMode -> m ResizeMode) -> IO ResizeMode -> m ResizeMode
forall a b. (a -> b) -> a -> b
$ do
Ptr Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
CUInt
result <- Ptr Container -> IO CUInt
gtk_container_get_resize_mode Ptr Container
container'
let result' :: ResizeMode
result' = (Int -> ResizeMode
forall a. Enum a => Int -> a
toEnum (Int -> ResizeMode) -> (CUInt -> Int) -> CUInt -> ResizeMode
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
container
ResizeMode -> IO ResizeMode
forall (m :: * -> *) a. Monad m => a -> m a
return ResizeMode
result'
#if defined(ENABLE_OVERLOADING)
data ContainerGetResizeModeMethodInfo
instance (signature ~ (m Gtk.Enums.ResizeMode), MonadIO m, IsContainer a) => O.MethodInfo ContainerGetResizeModeMethodInfo a signature where
overloadedMethod = containerGetResizeMode
#endif
foreign import ccall "gtk_container_propagate_draw" gtk_container_propagate_draw ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
Ptr Cairo.Context.Context ->
IO ()
containerPropagateDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> Cairo.Context.Context
-> m ()
containerPropagateDraw :: a -> b -> Context -> m ()
containerPropagateDraw container :: a
container child :: b
child cr :: Context
cr = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Context
cr' <- Context -> IO (Ptr Context)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Context
cr
Ptr Container -> Ptr Widget -> Ptr Context -> IO ()
gtk_container_propagate_draw Ptr Container
container' Ptr Widget
child' Ptr Context
cr'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Context -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Context
cr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerPropagateDrawMethodInfo
instance (signature ~ (b -> Cairo.Context.Context -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerPropagateDrawMethodInfo a signature where
overloadedMethod = containerPropagateDraw
#endif
foreign import ccall "gtk_container_remove" gtk_container_remove ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
IO ()
containerRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
containerRemove :: a -> b -> m ()
containerRemove container :: a
container widget :: 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr Container -> Ptr Widget -> IO ()
gtk_container_remove Ptr Container
container' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
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 ContainerRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerRemoveMethodInfo a signature where
overloadedMethod = containerRemove
#endif
foreign import ccall "gtk_container_resize_children" gtk_container_resize_children ::
Ptr Container ->
IO ()
{-# DEPRECATED containerResizeChildren ["(Since version 3.10)"] #-}
containerResizeChildren ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ()
containerResizeChildren :: a -> m ()
containerResizeChildren container :: a
container = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Container -> IO ()
gtk_container_resize_children Ptr Container
container'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerResizeChildrenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerResizeChildrenMethodInfo a signature where
overloadedMethod = containerResizeChildren
#endif
foreign import ccall "gtk_container_set_border_width" gtk_container_set_border_width ::
Ptr Container ->
Word32 ->
IO ()
containerSetBorderWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> Word32
-> m ()
containerSetBorderWidth :: a -> Word32 -> m ()
containerSetBorderWidth container :: a
container borderWidth :: Word32
borderWidth = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Container -> Word32 -> IO ()
gtk_container_set_border_width Ptr Container
container' Word32
borderWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetBorderWidthMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerSetBorderWidthMethodInfo a signature where
overloadedMethod = containerSetBorderWidth
#endif
foreign import ccall "gtk_container_set_focus_chain" gtk_container_set_focus_chain ::
Ptr Container ->
Ptr (GList (Ptr Gtk.Widget.Widget)) ->
IO ()
{-# DEPRECATED containerSetFocusChain ["(Since version 3.24)","For overriding focus behavior, use the"," GtkWidgetClass[focus](#signal:focus) signal."] #-}
containerSetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> [b]
-> m ()
containerSetFocusChain :: a -> [b] -> m ()
containerSetFocusChain container :: a
container focusableWidgets :: [b]
focusableWidgets = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
[Ptr Widget]
focusableWidgets' <- (b -> IO (Ptr Widget)) -> [b] -> IO [Ptr Widget]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
mapM b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr [b]
focusableWidgets
Ptr (GList (Ptr Widget))
focusableWidgets'' <- [Ptr Widget] -> IO (Ptr (GList (Ptr Widget)))
forall a. [Ptr a] -> IO (Ptr (GList (Ptr a)))
packGList [Ptr Widget]
focusableWidgets'
Ptr Container -> Ptr (GList (Ptr Widget)) -> IO ()
gtk_container_set_focus_chain Ptr Container
container' Ptr (GList (Ptr Widget))
focusableWidgets''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
(b -> IO ()) -> [b] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr [b]
focusableWidgets
Ptr (GList (Ptr Widget)) -> IO ()
forall a. Ptr (GList a) -> IO ()
g_list_free Ptr (GList (Ptr Widget))
focusableWidgets''
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetFocusChainMethodInfo
instance (signature ~ ([b] -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerSetFocusChainMethodInfo a signature where
overloadedMethod = containerSetFocusChain
#endif
foreign import ccall "gtk_container_set_focus_child" gtk_container_set_focus_child ::
Ptr Container ->
Ptr Gtk.Widget.Widget ->
IO ()
containerSetFocusChild ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
containerSetFocusChild :: a -> Maybe b -> m ()
containerSetFocusChild container :: a
container child :: Maybe 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Widget
maybeChild <- case Maybe b
child of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jChild :: b
jChild -> do
Ptr Widget
jChild' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jChild
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jChild'
Ptr Container -> Ptr Widget -> IO ()
gtk_container_set_focus_child Ptr Container
container' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
child b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetFocusChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) => O.MethodInfo ContainerSetFocusChildMethodInfo a signature where
overloadedMethod = containerSetFocusChild
#endif
foreign import ccall "gtk_container_set_focus_hadjustment" gtk_container_set_focus_hadjustment ::
Ptr Container ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
containerSetFocusHadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
containerSetFocusHadjustment :: a -> b -> m ()
containerSetFocusHadjustment container :: a
container adjustment :: 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr Container -> Ptr Adjustment -> IO ()
gtk_container_set_focus_hadjustment Ptr Container
container' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
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 ContainerSetFocusHadjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainer a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo ContainerSetFocusHadjustmentMethodInfo a signature where
overloadedMethod = containerSetFocusHadjustment
#endif
foreign import ccall "gtk_container_set_focus_vadjustment" gtk_container_set_focus_vadjustment ::
Ptr Container ->
Ptr Gtk.Adjustment.Adjustment ->
IO ()
containerSetFocusVadjustment ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Adjustment.IsAdjustment b) =>
a
-> b
-> m ()
containerSetFocusVadjustment :: a -> b -> m ()
containerSetFocusVadjustment container :: a
container adjustment :: 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Adjustment
adjustment' <- b -> IO (Ptr Adjustment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
adjustment
Ptr Container -> Ptr Adjustment -> IO ()
gtk_container_set_focus_vadjustment Ptr Container
container' Ptr Adjustment
adjustment'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
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 ContainerSetFocusVadjustmentMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsContainer a, Gtk.Adjustment.IsAdjustment b) => O.MethodInfo ContainerSetFocusVadjustmentMethodInfo a signature where
overloadedMethod = containerSetFocusVadjustment
#endif
foreign import ccall "gtk_container_set_reallocate_redraws" gtk_container_set_reallocate_redraws ::
Ptr Container ->
CInt ->
IO ()
{-# DEPRECATED containerSetReallocateRedraws ["(Since version 3.14)","Call 'GI.Gtk.Objects.Widget.widgetQueueDraw' in your size_allocate handler."] #-}
containerSetReallocateRedraws ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> Bool
-> m ()
containerSetReallocateRedraws :: a -> Bool -> m ()
containerSetReallocateRedraws container :: a
container needsRedraws :: Bool
needsRedraws = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
let needsRedraws' :: CInt
needsRedraws' = (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
needsRedraws
Ptr Container -> CInt -> IO ()
gtk_container_set_reallocate_redraws Ptr Container
container' CInt
needsRedraws'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetReallocateRedrawsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerSetReallocateRedrawsMethodInfo a signature where
overloadedMethod = containerSetReallocateRedraws
#endif
foreign import ccall "gtk_container_set_resize_mode" gtk_container_set_resize_mode ::
Ptr Container ->
CUInt ->
IO ()
{-# DEPRECATED containerSetResizeMode ["(Since version 3.12)","Resize modes are deprecated. They aren\8217t necessary"," anymore since frame clocks and might introduce obscure bugs if"," used."] #-}
containerSetResizeMode ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> Gtk.Enums.ResizeMode
-> m ()
containerSetResizeMode :: a -> ResizeMode -> m ()
containerSetResizeMode container :: a
container resizeMode :: ResizeMode
resizeMode = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
let resizeMode' :: CUInt
resizeMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ResizeMode -> Int) -> ResizeMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ResizeMode -> Int
forall a. Enum a => a -> Int
fromEnum) ResizeMode
resizeMode
Ptr Container -> CUInt -> IO ()
gtk_container_set_resize_mode Ptr Container
container' CUInt
resizeMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetResizeModeMethodInfo
instance (signature ~ (Gtk.Enums.ResizeMode -> m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerSetResizeModeMethodInfo a signature where
overloadedMethod = containerSetResizeMode
#endif
foreign import ccall "gtk_container_unset_focus_chain" gtk_container_unset_focus_chain ::
Ptr Container ->
IO ()
{-# DEPRECATED containerUnsetFocusChain ["(Since version 3.24)","For overriding focus behavior, use the"," GtkWidgetClass[focus](#signal:focus) signal."] #-}
containerUnsetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ()
containerUnsetFocusChain :: a -> m ()
containerUnsetFocusChain container :: a
container = 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 Container
container' <- a -> IO (Ptr Container)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
container
Ptr Container -> IO ()
gtk_container_unset_focus_chain Ptr Container
container'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
container
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerUnsetFocusChainMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.MethodInfo ContainerUnsetFocusChainMethodInfo a signature where
overloadedMethod = containerUnsetFocusChain
#endif