{-# LANGUAGE ImplicitParams, RankNTypes, 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 ,
#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 ,
ContainerAddCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerAddSignalInfo ,
#endif
afterContainerAdd ,
onContainerAdd ,
ContainerCheckResizeCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerCheckResizeSignalInfo ,
#endif
afterContainerCheckResize ,
onContainerCheckResize ,
ContainerRemoveCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerRemoveSignalInfo ,
#endif
afterContainerRemove ,
onContainerRemove ,
ContainerSetFocusChildCallback ,
#if defined(ENABLE_OVERLOADING)
ContainerSetFocusChildSignalInfo ,
#endif
afterContainerSetFocusChild ,
onContainerSetFocusChild ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.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 (SP.ManagedPtr Container)
deriving (Container -> Container -> Bool
(Container -> Container -> Bool)
-> (Container -> Container -> Bool) -> Eq Container
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Container -> Container -> Bool
== :: Container -> Container -> Bool
$c/= :: Container -> Container -> Bool
/= :: Container -> Container -> Bool
Eq)
instance SP.ManagedPtrNewtype Container where
toManagedPtr :: Container -> ManagedPtr Container
toManagedPtr (Container ManagedPtr Container
p) = ManagedPtr Container
p
foreign import ccall "gtk_container_get_type"
c_gtk_container_get_type :: IO B.Types.GType
instance B.Types.TypedObject Container where
glibType :: IO GType
glibType = IO GType
c_gtk_container_get_type
instance B.Types.GObject Container
class (SP.GObject o, O.IsDescendantOf Container o) => IsContainer o
instance (SP.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 :: (MIO.MonadIO m, IsContainer o) => o -> m Container
toContainer :: forall (m :: * -> *) o.
(MonadIO m, IsContainer o) =>
o -> m Container
toContainer = IO Container -> m Container
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Container -> Container
Container
instance B.GValue.IsGValue (Maybe Container) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_container_get_type
gvalueSet_ :: Ptr GValue -> Maybe Container -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Container
P.Nothing = Ptr GValue -> Ptr Container -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Container
forall a. Ptr a
FP.nullPtr :: FP.Ptr Container)
gvalueSet_ Ptr GValue
gv (P.Just Container
obj) = Container -> (Ptr Container -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Container
obj (Ptr GValue -> Ptr Container -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Container)
gvalueGet_ Ptr GValue
gv = do
Ptr Container
ptr <- Ptr GValue -> IO (Ptr Container)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Container)
if Ptr Container
ptr Ptr Container -> Ptr Container -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Container
forall a. Ptr a
FP.nullPtr
then Container -> Maybe Container
forall a. a -> Maybe a
P.Just (Container -> Maybe Container)
-> IO Container -> IO (Maybe Container)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (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
else Maybe Container -> IO (Maybe Container)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Container
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveContainerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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.OverloadedMethod 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
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveContainerMethod t Container, O.OverloadedMethod info Container p, R.HasField t Container p) => R.HasField t Container p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveContainerMethod t Container, O.OverloadedMethodInfo info Container) => OL.IsLabel t (O.MethodProxy info Container) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ContainerAddCallback =
Gtk.Widget.Widget
-> IO ()
type C_ContainerAddCallback =
Ptr Container ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerAddCallback :: C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
wrap_ContainerAddCallback ::
GObject a => (a -> ContainerAddCallback) ->
C_ContainerAddCallback
wrap_ContainerAddCallback :: forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerAddCallback a -> ContainerAddCallback
gi'cb Ptr Container
gi'selfPtr Ptr Widget
object Ptr ()
_ = 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
Ptr Container -> (Container -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Container
gi'selfPtr ((Container -> IO ()) -> IO ()) -> (Container -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Container
gi'self -> a -> ContainerAddCallback
gi'cb (Container -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Container
gi'self) Widget
object'
onContainerAdd :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerAddCallback) -> m SignalHandlerId
onContainerAdd :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
onContainerAdd a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerAddCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerAddCallback C_ContainerAddCallback
wrapped'
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 Text
"add" FunPtr C_ContainerAddCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerAdd :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerAddCallback) -> m SignalHandlerId
afterContainerAdd :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
afterContainerAdd a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerAddCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerAddCallback C_ContainerAddCallback
wrapped'
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 Text
"add" FunPtr C_ContainerAddCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container::add"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:signal:add"})
#endif
type ContainerCheckResizeCallback =
IO ()
type C_ContainerCheckResizeCallback =
Ptr Container ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerCheckResizeCallback :: C_ContainerCheckResizeCallback -> IO (FunPtr C_ContainerCheckResizeCallback)
wrap_ContainerCheckResizeCallback ::
GObject a => (a -> ContainerCheckResizeCallback) ->
C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback a -> IO ()
gi'cb Ptr Container
gi'selfPtr Ptr ()
_ = do
Ptr Container -> (Container -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Container
gi'selfPtr ((Container -> IO ()) -> IO ()) -> (Container -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Container
gi'self -> a -> IO ()
gi'cb (Container -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Container
gi'self)
onContainerCheckResize :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerCheckResizeCallback) -> m SignalHandlerId
onContainerCheckResize :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onContainerCheckResize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ContainerCheckResizeCallback
wrapped' = (a -> IO ()) -> C_ContainerCheckResizeCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback a -> IO ()
wrapped
FunPtr C_ContainerCheckResizeCallback
wrapped'' <- C_ContainerCheckResizeCallback
-> IO (FunPtr C_ContainerCheckResizeCallback)
mk_ContainerCheckResizeCallback C_ContainerCheckResizeCallback
wrapped'
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 Text
"check-resize" FunPtr C_ContainerCheckResizeCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerCheckResize :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerCheckResizeCallback) -> m SignalHandlerId
afterContainerCheckResize :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterContainerCheckResize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ContainerCheckResizeCallback
wrapped' = (a -> IO ()) -> C_ContainerCheckResizeCallback
forall a.
GObject a =>
(a -> IO ()) -> C_ContainerCheckResizeCallback
wrap_ContainerCheckResizeCallback a -> IO ()
wrapped
FunPtr C_ContainerCheckResizeCallback
wrapped'' <- C_ContainerCheckResizeCallback
-> IO (FunPtr C_ContainerCheckResizeCallback)
mk_ContainerCheckResizeCallback C_ContainerCheckResizeCallback
wrapped'
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 Text
"check-resize" FunPtr C_ContainerCheckResizeCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container::check-resize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:signal:checkResize"})
#endif
type ContainerRemoveCallback =
Gtk.Widget.Widget
-> IO ()
type C_ContainerRemoveCallback =
Ptr Container ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerRemoveCallback :: C_ContainerRemoveCallback -> IO (FunPtr C_ContainerRemoveCallback)
wrap_ContainerRemoveCallback ::
GObject a => (a -> ContainerRemoveCallback) ->
C_ContainerRemoveCallback
wrap_ContainerRemoveCallback :: forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerRemoveCallback a -> ContainerAddCallback
gi'cb Ptr Container
gi'selfPtr Ptr Widget
object Ptr ()
_ = 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
Ptr Container -> (Container -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Container
gi'selfPtr ((Container -> IO ()) -> IO ()) -> (Container -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Container
gi'self -> a -> ContainerAddCallback
gi'cb (Container -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Container
gi'self) Widget
object'
onContainerRemove :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerRemoveCallback) -> m SignalHandlerId
onContainerRemove :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
onContainerRemove a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerRemoveCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerRemoveCallback C_ContainerAddCallback
wrapped'
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 Text
"remove" FunPtr C_ContainerAddCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerRemove :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerRemoveCallback) -> m SignalHandlerId
afterContainerRemove :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
afterContainerRemove a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerRemoveCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerRemoveCallback C_ContainerAddCallback
wrapped'
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 Text
"remove" FunPtr C_ContainerAddCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container::remove"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:signal:remove"})
#endif
type ContainerSetFocusChildCallback =
Gtk.Widget.Widget
-> IO ()
type C_ContainerSetFocusChildCallback =
Ptr Container ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ContainerSetFocusChildCallback :: C_ContainerSetFocusChildCallback -> IO (FunPtr C_ContainerSetFocusChildCallback)
wrap_ContainerSetFocusChildCallback ::
GObject a => (a -> ContainerSetFocusChildCallback) ->
C_ContainerSetFocusChildCallback
wrap_ContainerSetFocusChildCallback :: forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback a -> ContainerAddCallback
gi'cb Ptr Container
gi'selfPtr Ptr Widget
object Ptr ()
_ = 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
Ptr Container -> (Container -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Container
gi'selfPtr ((Container -> IO ()) -> IO ()) -> (Container -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Container
gi'self -> a -> ContainerAddCallback
gi'cb (Container -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Container
gi'self) Widget
object'
onContainerSetFocusChild :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerSetFocusChildCallback) -> m SignalHandlerId
onContainerSetFocusChild :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
onContainerSetFocusChild a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerSetFocusChildCallback C_ContainerAddCallback
wrapped'
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 Text
"set-focus-child" FunPtr C_ContainerAddCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterContainerSetFocusChild :: (IsContainer a, MonadIO m) => a -> ((?self :: a) => ContainerSetFocusChildCallback) -> m SignalHandlerId
afterContainerSetFocusChild :: forall a (m :: * -> *).
(IsContainer a, MonadIO m) =>
a -> ((?self::a) => ContainerAddCallback) -> m SignalHandlerId
afterContainerSetFocusChild a
obj (?self::a) => ContainerAddCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> ContainerAddCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => ContainerAddCallback
ContainerAddCallback
cb
let wrapped' :: C_ContainerAddCallback
wrapped' = (a -> ContainerAddCallback) -> C_ContainerAddCallback
forall a.
GObject a =>
(a -> ContainerAddCallback) -> C_ContainerAddCallback
wrap_ContainerSetFocusChildCallback a -> ContainerAddCallback
wrapped
FunPtr C_ContainerAddCallback
wrapped'' <- C_ContainerAddCallback -> IO (FunPtr C_ContainerAddCallback)
mk_ContainerSetFocusChildCallback C_ContainerAddCallback
wrapped'
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 Text
"set-focus-child" FunPtr C_ContainerAddCallback
wrapped'' 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
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container::set-focus-child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:signal:setFocusChild"})
#endif
getContainerBorderWidth :: (MonadIO m, IsContainer o) => o -> m Word32
getContainerBorderWidth :: forall (m :: * -> *) o. (MonadIO m, IsContainer o) => o -> m Word32
getContainerBorderWidth o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"border-width"
setContainerBorderWidth :: (MonadIO m, IsContainer o) => o -> Word32 -> m ()
setContainerBorderWidth :: forall (m :: * -> *) o.
(MonadIO m, IsContainer o) =>
o -> Word32 -> m ()
setContainerBorderWidth o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"border-width" Word32
val
constructContainerBorderWidth :: (IsContainer o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructContainerBorderWidth :: forall o (m :: * -> *).
(IsContainer o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructContainerBorderWidth Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.borderWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:attr:borderWidth"
})
#endif
setContainerChild :: (MonadIO m, IsContainer o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setContainerChild :: forall (m :: * -> *) o a.
(MonadIO m, IsContainer o, IsWidget a) =>
o -> a -> m ()
setContainerChild o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"child" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructContainerChild :: (IsContainer o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructContainerChild :: forall o (m :: * -> *) a.
(IsContainer o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructContainerChild a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"child" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearContainerChild :: (MonadIO m, IsContainer o) => o -> m ()
clearContainerChild :: forall (m :: * -> *) o. (MonadIO m, IsContainer o) => o -> m ()
clearContainerChild o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:attr:child"
})
#endif
getContainerResizeMode :: (MonadIO m, IsContainer o) => o -> m Gtk.Enums.ResizeMode
getContainerResizeMode :: forall (m :: * -> *) o.
(MonadIO m, IsContainer o) =>
o -> m ResizeMode
getContainerResizeMode o
obj = IO ResizeMode -> m ResizeMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"resize-mode"
setContainerResizeMode :: (MonadIO m, IsContainer o) => o -> Gtk.Enums.ResizeMode -> m ()
setContainerResizeMode :: forall (m :: * -> *) o.
(MonadIO m, IsContainer o) =>
o -> ResizeMode -> m ()
setContainerResizeMode o
obj ResizeMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> ResizeMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"resize-mode" ResizeMode
val
constructContainerResizeMode :: (IsContainer o, MIO.MonadIO m) => Gtk.Enums.ResizeMode -> m (GValueConstruct o)
constructContainerResizeMode :: forall o (m :: * -> *).
(IsContainer o, MonadIO m) =>
ResizeMode -> m (GValueConstruct o)
constructContainerResizeMode ResizeMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> ResizeMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.resizeMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#g:attr:resizeMode"
})
#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, DK.Type)])
#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, DK.Type)])
#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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> m ()
containerAdd a
container b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerAddMethodInfo a signature where
overloadedMethod = containerAdd
instance O.OverloadedMethodInfo ContainerAddMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerAdd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m ()
containerCheckResize a
container = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerCheckResizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.OverloadedMethod ContainerCheckResizeMethodInfo a signature where
overloadedMethod = containerCheckResize
instance O.OverloadedMethodInfo ContainerCheckResizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerCheckResize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> Text -> GValue -> m ()
containerChildGetProperty a
container b
child Text
propertyName GValue
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerChildGetPropertyMethodInfo a signature where
overloadedMethod = containerChildGetProperty
instance O.OverloadedMethodInfo ContainerChildGetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerChildGetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> Text -> m ()
containerChildNotify a
container b
child Text
childProperty = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerChildNotifyMethodInfo a signature where
overloadedMethod = containerChildNotify
instance O.OverloadedMethodInfo ContainerChildNotifyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerChildNotify",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> GParamSpec -> m ()
containerChildNotifyByPspec a
container b
child GParamSpec
pspec = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerChildNotifyByPspecMethodInfo a signature where
overloadedMethod = containerChildNotifyByPspec
instance O.OverloadedMethodInfo ContainerChildNotifyByPspecMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerChildNotifyByPspec",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> Text -> GValue -> m ()
containerChildSetProperty a
container b
child Text
propertyName GValue
value = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerChildSetPropertyMethodInfo a signature where
overloadedMethod = containerChildSetProperty
instance O.OverloadedMethodInfo ContainerChildSetPropertyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerChildSetProperty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m GType
containerChildType a
container = IO GType -> m GType
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod ContainerChildTypeMethodInfo a signature where
overloadedMethod = containerChildType
instance O.OverloadedMethodInfo ContainerChildTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerChildType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> ContainerAddCallback -> m ()
containerForall a
container ContainerAddCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerForallMethodInfo a signature where
overloadedMethod = containerForall
instance O.OverloadedMethodInfo ContainerForallMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerForall",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> ContainerAddCallback -> m ()
containerForeach a
container ContainerAddCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerForeachMethodInfo a signature where
overloadedMethod = containerForeach
instance O.OverloadedMethodInfo ContainerForeachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerForeach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m Word32
containerGetBorderWidth a
container = IO Word32 -> m Word32
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod ContainerGetBorderWidthMethodInfo a signature where
overloadedMethod = containerGetBorderWidth
instance O.OverloadedMethodInfo ContainerGetBorderWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetBorderWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m [Widget]
containerGetChildren a
container = IO [Widget] -> m [Widget]
forall a. IO a -> m a
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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [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 a. a -> IO a
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.OverloadedMethod ContainerGetChildrenMethodInfo a signature where
overloadedMethod = containerGetChildren
instance O.OverloadedMethodInfo ContainerGetChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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](#g:signal:focus) signal."] #-}
containerGetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ((Bool, [Gtk.Widget.Widget]))
containerGetFocusChain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m (Bool, [Widget])
containerGetFocusChain a
container = IO (Bool, [Widget]) -> m (Bool, [Widget])
forall a. IO a -> m a
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)
callocMem :: 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
/= CInt
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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [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 a. a -> IO a
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.OverloadedMethod ContainerGetFocusChainMethodInfo a signature where
overloadedMethod = containerGetFocusChain
instance O.OverloadedMethodInfo ContainerGetFocusChainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetFocusChain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m (Maybe Widget)
containerGetFocusChild a
container = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
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
$ \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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod ContainerGetFocusChildMethodInfo a signature where
overloadedMethod = containerGetFocusChild
instance O.OverloadedMethodInfo ContainerGetFocusChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetFocusChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m (Maybe Adjustment)
containerGetFocusHadjustment a
container = IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a. IO a -> m a
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
$ \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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod ContainerGetFocusHadjustmentMethodInfo a signature where
overloadedMethod = containerGetFocusHadjustment
instance O.OverloadedMethodInfo ContainerGetFocusHadjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetFocusHadjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m (Maybe Adjustment)
containerGetFocusVadjustment a
container = IO (Maybe Adjustment) -> m (Maybe Adjustment)
forall a. IO a -> m a
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
$ \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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod ContainerGetFocusVadjustmentMethodInfo a signature where
overloadedMethod = containerGetFocusVadjustment
instance O.OverloadedMethodInfo ContainerGetFocusVadjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetFocusVadjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> m WidgetPath
containerGetPathForChild a
container b
child = IO WidgetPath -> m WidgetPath
forall a. IO a -> m a
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 Text
"containerGetPathForChild" Ptr WidgetPath
result
WidgetPath
result' <- ((ManagedPtr WidgetPath -> WidgetPath)
-> Ptr WidgetPath -> IO WidgetPath
forall a.
(HasCallStack, GBoxed 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 a. a -> IO a
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.OverloadedMethod ContainerGetPathForChildMethodInfo a signature where
overloadedMethod = containerGetPathForChild
instance O.OverloadedMethodInfo ContainerGetPathForChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetPathForChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m ResizeMode
containerGetResizeMode a
container = IO ResizeMode -> m ResizeMode
forall a. IO a -> m a
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 a. a -> IO a
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.OverloadedMethod ContainerGetResizeModeMethodInfo a signature where
overloadedMethod = containerGetResizeMode
instance O.OverloadedMethodInfo ContainerGetResizeModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerGetResizeMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> Context -> m ()
containerPropagateDraw a
container b
child Context
cr = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerPropagateDrawMethodInfo a signature where
overloadedMethod = containerPropagateDraw
instance O.OverloadedMethodInfo ContainerPropagateDrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerPropagateDraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> b -> m ()
containerRemove a
container b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerRemoveMethodInfo a signature where
overloadedMethod = containerRemove
instance O.OverloadedMethodInfo ContainerRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m ()
containerResizeChildren a
container = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerResizeChildrenMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.OverloadedMethod ContainerResizeChildrenMethodInfo a signature where
overloadedMethod = containerResizeChildren
instance O.OverloadedMethodInfo ContainerResizeChildrenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerResizeChildren",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> Word32 -> m ()
containerSetBorderWidth a
container Word32
borderWidth = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetBorderWidthMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsContainer a) => O.OverloadedMethod ContainerSetBorderWidthMethodInfo a signature where
overloadedMethod = containerSetBorderWidth
instance O.OverloadedMethodInfo ContainerSetBorderWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetBorderWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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](#g:signal:focus) signal."] #-}
containerSetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a, Gtk.Widget.IsWidget b) =>
a
-> [b]
-> m ()
containerSetFocusChain :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> [b] -> m ()
containerSetFocusChain a
container [b]
focusableWidgets = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [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 a. a -> IO a
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.OverloadedMethod ContainerSetFocusChainMethodInfo a signature where
overloadedMethod = containerSetFocusChain
instance O.OverloadedMethodInfo ContainerSetFocusChainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetFocusChain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsWidget b) =>
a -> Maybe b -> m ()
containerSetFocusChild a
container Maybe b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
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 a. a -> IO a
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 a. a -> IO a
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.OverloadedMethod ContainerSetFocusChildMethodInfo a signature where
overloadedMethod = containerSetFocusChild
instance O.OverloadedMethodInfo ContainerSetFocusChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetFocusChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsAdjustment b) =>
a -> b -> m ()
containerSetFocusHadjustment a
container b
adjustment = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerSetFocusHadjustmentMethodInfo a signature where
overloadedMethod = containerSetFocusHadjustment
instance O.OverloadedMethodInfo ContainerSetFocusHadjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetFocusHadjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsContainer a, IsAdjustment b) =>
a -> b -> m ()
containerSetFocusVadjustment a
container b
adjustment = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerSetFocusVadjustmentMethodInfo a signature where
overloadedMethod = containerSetFocusVadjustment
instance O.OverloadedMethodInfo ContainerSetFocusVadjustmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetFocusVadjustment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> Bool -> m ()
containerSetReallocateRedraws a
container Bool
needsRedraws = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerSetReallocateRedrawsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsContainer a) => O.OverloadedMethod ContainerSetReallocateRedrawsMethodInfo a signature where
overloadedMethod = containerSetReallocateRedraws
instance O.OverloadedMethodInfo ContainerSetReallocateRedrawsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetReallocateRedraws",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> ResizeMode -> m ()
containerSetResizeMode a
container ResizeMode
resizeMode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
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.OverloadedMethod ContainerSetResizeModeMethodInfo a signature where
overloadedMethod = containerSetResizeMode
instance O.OverloadedMethodInfo ContainerSetResizeModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerSetResizeMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v: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](#g:signal:focus) signal."] #-}
containerUnsetFocusChain ::
(B.CallStack.HasCallStack, MonadIO m, IsContainer a) =>
a
-> m ()
containerUnsetFocusChain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsContainer a) =>
a -> m ()
containerUnsetFocusChain a
container = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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 a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ContainerUnsetFocusChainMethodInfo
instance (signature ~ (m ()), MonadIO m, IsContainer a) => O.OverloadedMethod ContainerUnsetFocusChainMethodInfo a signature where
overloadedMethod = containerUnsetFocusChain
instance O.OverloadedMethodInfo ContainerUnsetFocusChainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Container.containerUnsetFocusChain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.41/docs/GI-Gtk-Objects-Container.html#v:containerUnsetFocusChain"
})
#endif