{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Expander
(
Expander(..) ,
IsExpander ,
toExpander ,
#if defined(ENABLE_OVERLOADING)
ResolveExpanderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ExpanderGetChildMethodInfo ,
#endif
expanderGetChild ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetExpandedMethodInfo ,
#endif
expanderGetExpanded ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetLabelMethodInfo ,
#endif
expanderGetLabel ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetLabelWidgetMethodInfo ,
#endif
expanderGetLabelWidget ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetResizeToplevelMethodInfo ,
#endif
expanderGetResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetUseMarkupMethodInfo ,
#endif
expanderGetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetUseUnderlineMethodInfo ,
#endif
expanderGetUseUnderline ,
expanderNew ,
expanderNewWithMnemonic ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetChildMethodInfo ,
#endif
expanderSetChild ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetExpandedMethodInfo ,
#endif
expanderSetExpanded ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetLabelMethodInfo ,
#endif
expanderSetLabel ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetLabelWidgetMethodInfo ,
#endif
expanderSetLabelWidget ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetResizeToplevelMethodInfo ,
#endif
expanderSetResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetUseMarkupMethodInfo ,
#endif
expanderSetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetUseUnderlineMethodInfo ,
#endif
expanderSetUseUnderline ,
#if defined(ENABLE_OVERLOADING)
ExpanderChildPropertyInfo ,
#endif
clearExpanderChild ,
constructExpanderChild ,
#if defined(ENABLE_OVERLOADING)
expanderChild ,
#endif
getExpanderChild ,
setExpanderChild ,
#if defined(ENABLE_OVERLOADING)
ExpanderExpandedPropertyInfo ,
#endif
constructExpanderExpanded ,
#if defined(ENABLE_OVERLOADING)
expanderExpanded ,
#endif
getExpanderExpanded ,
setExpanderExpanded ,
#if defined(ENABLE_OVERLOADING)
ExpanderLabelPropertyInfo ,
#endif
clearExpanderLabel ,
constructExpanderLabel ,
#if defined(ENABLE_OVERLOADING)
expanderLabel ,
#endif
getExpanderLabel ,
setExpanderLabel ,
#if defined(ENABLE_OVERLOADING)
ExpanderLabelWidgetPropertyInfo ,
#endif
clearExpanderLabelWidget ,
constructExpanderLabelWidget ,
#if defined(ENABLE_OVERLOADING)
expanderLabelWidget ,
#endif
getExpanderLabelWidget ,
setExpanderLabelWidget ,
#if defined(ENABLE_OVERLOADING)
ExpanderResizeToplevelPropertyInfo ,
#endif
constructExpanderResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
expanderResizeToplevel ,
#endif
getExpanderResizeToplevel ,
setExpanderResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
ExpanderUseMarkupPropertyInfo ,
#endif
constructExpanderUseMarkup ,
#if defined(ENABLE_OVERLOADING)
expanderUseMarkup ,
#endif
getExpanderUseMarkup ,
setExpanderUseMarkup ,
#if defined(ENABLE_OVERLOADING)
ExpanderUseUnderlinePropertyInfo ,
#endif
constructExpanderUseUnderline ,
#if defined(ENABLE_OVERLOADING)
expanderUseUnderline ,
#endif
getExpanderUseUnderline ,
setExpanderUseUnderline ,
ExpanderActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ExpanderActivateSignalInfo ,
#endif
afterExpanderActivate ,
onExpanderActivate ,
) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Expander = Expander (SP.ManagedPtr Expander)
deriving (Expander -> Expander -> Bool
(Expander -> Expander -> Bool)
-> (Expander -> Expander -> Bool) -> Eq Expander
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Expander -> Expander -> Bool
== :: Expander -> Expander -> Bool
$c/= :: Expander -> Expander -> Bool
/= :: Expander -> Expander -> Bool
Eq)
instance SP.ManagedPtrNewtype Expander where
toManagedPtr :: Expander -> ManagedPtr Expander
toManagedPtr (Expander ManagedPtr Expander
p) = ManagedPtr Expander
p
foreign import ccall "gtk_expander_get_type"
c_gtk_expander_get_type :: IO B.Types.GType
instance B.Types.TypedObject Expander where
glibType :: IO GType
glibType = IO GType
c_gtk_expander_get_type
instance B.Types.GObject Expander
class (SP.GObject o, O.IsDescendantOf Expander o) => IsExpander o
instance (SP.GObject o, O.IsDescendantOf Expander o) => IsExpander o
instance O.HasParentTypes Expander
type instance O.ParentTypes Expander = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toExpander :: (MIO.MonadIO m, IsExpander o) => o -> m Expander
toExpander :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> m Expander
toExpander = IO Expander -> m Expander
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Expander -> m Expander)
-> (o -> IO Expander) -> o -> m Expander
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Expander -> Expander) -> o -> IO Expander
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Expander -> Expander
Expander
instance B.GValue.IsGValue (Maybe Expander) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_expander_get_type
gvalueSet_ :: Ptr GValue -> Maybe Expander -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Expander
P.Nothing = Ptr GValue -> Ptr Expander -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Expander
forall a. Ptr a
FP.nullPtr :: FP.Ptr Expander)
gvalueSet_ Ptr GValue
gv (P.Just Expander
obj) = Expander -> (Ptr Expander -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Expander
obj (Ptr GValue -> Ptr Expander -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Expander)
gvalueGet_ Ptr GValue
gv = do
Ptr Expander
ptr <- Ptr GValue -> IO (Ptr Expander)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Expander)
if Ptr Expander
ptr Ptr Expander -> Ptr Expander -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Expander
forall a. Ptr a
FP.nullPtr
then Expander -> Maybe Expander
forall a. a -> Maybe a
P.Just (Expander -> Maybe Expander) -> IO Expander -> IO (Maybe Expander)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Expander -> Expander) -> Ptr Expander -> IO Expander
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Expander -> Expander
Expander Ptr Expander
ptr
else Maybe Expander -> IO (Maybe Expander)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Expander
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveExpanderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveExpanderMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveExpanderMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveExpanderMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveExpanderMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveExpanderMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveExpanderMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveExpanderMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveExpanderMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveExpanderMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveExpanderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveExpanderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveExpanderMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveExpanderMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveExpanderMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveExpanderMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveExpanderMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveExpanderMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveExpanderMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveExpanderMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveExpanderMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveExpanderMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveExpanderMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveExpanderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveExpanderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveExpanderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveExpanderMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveExpanderMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveExpanderMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveExpanderMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveExpanderMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveExpanderMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveExpanderMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveExpanderMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveExpanderMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveExpanderMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveExpanderMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveExpanderMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveExpanderMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveExpanderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveExpanderMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveExpanderMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveExpanderMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveExpanderMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveExpanderMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveExpanderMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveExpanderMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveExpanderMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveExpanderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveExpanderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveExpanderMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveExpanderMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveExpanderMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveExpanderMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveExpanderMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveExpanderMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveExpanderMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveExpanderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveExpanderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveExpanderMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveExpanderMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveExpanderMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveExpanderMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveExpanderMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveExpanderMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveExpanderMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveExpanderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveExpanderMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveExpanderMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveExpanderMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveExpanderMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveExpanderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveExpanderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveExpanderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveExpanderMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveExpanderMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveExpanderMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveExpanderMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveExpanderMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveExpanderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveExpanderMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveExpanderMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveExpanderMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveExpanderMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveExpanderMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveExpanderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveExpanderMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveExpanderMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveExpanderMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveExpanderMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveExpanderMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveExpanderMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveExpanderMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveExpanderMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveExpanderMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveExpanderMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveExpanderMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveExpanderMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveExpanderMethod "getChild" o = ExpanderGetChildMethodInfo
ResolveExpanderMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveExpanderMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveExpanderMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveExpanderMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveExpanderMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveExpanderMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveExpanderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveExpanderMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveExpanderMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveExpanderMethod "getExpanded" o = ExpanderGetExpandedMethodInfo
ResolveExpanderMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveExpanderMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveExpanderMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveExpanderMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveExpanderMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveExpanderMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveExpanderMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveExpanderMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveExpanderMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveExpanderMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveExpanderMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveExpanderMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveExpanderMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveExpanderMethod "getLabel" o = ExpanderGetLabelMethodInfo
ResolveExpanderMethod "getLabelWidget" o = ExpanderGetLabelWidgetMethodInfo
ResolveExpanderMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveExpanderMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveExpanderMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveExpanderMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveExpanderMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveExpanderMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveExpanderMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveExpanderMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveExpanderMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveExpanderMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveExpanderMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveExpanderMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveExpanderMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveExpanderMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveExpanderMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveExpanderMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveExpanderMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveExpanderMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveExpanderMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveExpanderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveExpanderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveExpanderMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveExpanderMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveExpanderMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveExpanderMethod "getResizeToplevel" o = ExpanderGetResizeToplevelMethodInfo
ResolveExpanderMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveExpanderMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveExpanderMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveExpanderMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveExpanderMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveExpanderMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveExpanderMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveExpanderMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveExpanderMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveExpanderMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveExpanderMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveExpanderMethod "getUseMarkup" o = ExpanderGetUseMarkupMethodInfo
ResolveExpanderMethod "getUseUnderline" o = ExpanderGetUseUnderlineMethodInfo
ResolveExpanderMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveExpanderMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveExpanderMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveExpanderMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveExpanderMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveExpanderMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveExpanderMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveExpanderMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveExpanderMethod "setChild" o = ExpanderSetChildMethodInfo
ResolveExpanderMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveExpanderMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveExpanderMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveExpanderMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveExpanderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveExpanderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveExpanderMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveExpanderMethod "setExpanded" o = ExpanderSetExpandedMethodInfo
ResolveExpanderMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveExpanderMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveExpanderMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveExpanderMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveExpanderMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveExpanderMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveExpanderMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveExpanderMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveExpanderMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveExpanderMethod "setLabel" o = ExpanderSetLabelMethodInfo
ResolveExpanderMethod "setLabelWidget" o = ExpanderSetLabelWidgetMethodInfo
ResolveExpanderMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveExpanderMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveExpanderMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveExpanderMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveExpanderMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveExpanderMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveExpanderMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveExpanderMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveExpanderMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveExpanderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveExpanderMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveExpanderMethod "setResizeToplevel" o = ExpanderSetResizeToplevelMethodInfo
ResolveExpanderMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveExpanderMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveExpanderMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveExpanderMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveExpanderMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveExpanderMethod "setUseMarkup" o = ExpanderSetUseMarkupMethodInfo
ResolveExpanderMethod "setUseUnderline" o = ExpanderSetUseUnderlineMethodInfo
ResolveExpanderMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveExpanderMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveExpanderMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveExpanderMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveExpanderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveExpanderMethod t Expander, O.OverloadedMethod info Expander p) => OL.IsLabel t (Expander -> 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 ~ ResolveExpanderMethod t Expander, O.OverloadedMethod info Expander p, R.HasField t Expander p) => R.HasField t Expander p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveExpanderMethod t Expander, O.OverloadedMethodInfo info Expander) => OL.IsLabel t (O.MethodProxy info Expander) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ExpanderActivateCallback =
IO ()
type C_ExpanderActivateCallback =
Ptr Expander ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ExpanderActivateCallback :: C_ExpanderActivateCallback -> IO (FunPtr C_ExpanderActivateCallback)
wrap_ExpanderActivateCallback ::
GObject a => (a -> ExpanderActivateCallback) ->
C_ExpanderActivateCallback
wrap_ExpanderActivateCallback :: forall a. GObject a => (a -> IO ()) -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback a -> IO ()
gi'cb Ptr Expander
gi'selfPtr Ptr ()
_ = do
Ptr Expander -> (Expander -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Expander
gi'selfPtr ((Expander -> IO ()) -> IO ()) -> (Expander -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Expander
gi'self -> a -> IO ()
gi'cb (Expander -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Expander
gi'self)
onExpanderActivate :: (IsExpander a, MonadIO m) => a -> ((?self :: a) => ExpanderActivateCallback) -> m SignalHandlerId
onExpanderActivate :: forall a (m :: * -> *).
(IsExpander a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onExpanderActivate 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_ExpanderActivateCallback
wrapped' = (a -> IO ()) -> C_ExpanderActivateCallback
forall a. GObject a => (a -> IO ()) -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback a -> IO ()
wrapped
FunPtr C_ExpanderActivateCallback
wrapped'' <- C_ExpanderActivateCallback
-> IO (FunPtr C_ExpanderActivateCallback)
mk_ExpanderActivateCallback C_ExpanderActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ExpanderActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ExpanderActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterExpanderActivate :: (IsExpander a, MonadIO m) => a -> ((?self :: a) => ExpanderActivateCallback) -> m SignalHandlerId
afterExpanderActivate :: forall a (m :: * -> *).
(IsExpander a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterExpanderActivate 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_ExpanderActivateCallback
wrapped' = (a -> IO ()) -> C_ExpanderActivateCallback
forall a. GObject a => (a -> IO ()) -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback a -> IO ()
wrapped
FunPtr C_ExpanderActivateCallback
wrapped'' <- C_ExpanderActivateCallback
-> IO (FunPtr C_ExpanderActivateCallback)
mk_ExpanderActivateCallback C_ExpanderActivateCallback
wrapped'
a
-> Text
-> FunPtr C_ExpanderActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_ExpanderActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ExpanderActivateSignalInfo
instance SignalInfo ExpanderActivateSignalInfo where
type HaskellCallbackType ExpanderActivateSignalInfo = ExpanderActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ExpanderActivateCallback cb
cb'' <- mk_ExpanderActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:signal:activate"})
#endif
getExpanderChild :: (MonadIO m, IsExpander o) => o -> m (Maybe Gtk.Widget.Widget)
getExpanderChild :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> m (Maybe Widget)
getExpanderChild o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"child" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setExpanderChild :: (MonadIO m, IsExpander o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setExpanderChild :: forall (m :: * -> *) o a.
(MonadIO m, IsExpander o, IsWidget a) =>
o -> a -> m ()
setExpanderChild 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)
constructExpanderChild :: (IsExpander o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructExpanderChild :: forall o (m :: * -> *) a.
(IsExpander o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructExpanderChild 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)
clearExpanderChild :: (MonadIO m, IsExpander o) => o -> m ()
clearExpanderChild :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m ()
clearExpanderChild 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 ExpanderChildPropertyInfo
instance AttrInfo ExpanderChildPropertyInfo where
type AttrAllowedOps ExpanderChildPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ExpanderChildPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ExpanderChildPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ExpanderChildPropertyInfo = Gtk.Widget.Widget
type AttrGetType ExpanderChildPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ExpanderChildPropertyInfo = "child"
type AttrOrigin ExpanderChildPropertyInfo = Expander
attrGet = getExpanderChild
attrSet = setExpanderChild
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructExpanderChild
attrClear = clearExpanderChild
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.child"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:child"
})
#endif
getExpanderExpanded :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderExpanded :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m Bool
getExpanderExpanded o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"expanded"
setExpanderExpanded :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderExpanded :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> Bool -> m ()
setExpanderExpanded o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"expanded" Bool
val
constructExpanderExpanded :: (IsExpander o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructExpanderExpanded :: forall o (m :: * -> *).
(IsExpander o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructExpanderExpanded Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"expanded" Bool
val
#if defined(ENABLE_OVERLOADING)
data ExpanderExpandedPropertyInfo
instance AttrInfo ExpanderExpandedPropertyInfo where
type AttrAllowedOps ExpanderExpandedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderExpandedPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderExpandedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ExpanderExpandedPropertyInfo = (~) Bool
type AttrTransferType ExpanderExpandedPropertyInfo = Bool
type AttrGetType ExpanderExpandedPropertyInfo = Bool
type AttrLabel ExpanderExpandedPropertyInfo = "expanded"
type AttrOrigin ExpanderExpandedPropertyInfo = Expander
attrGet = getExpanderExpanded
attrSet = setExpanderExpanded
attrTransfer _ v = do
return v
attrConstruct = constructExpanderExpanded
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:expanded"
})
#endif
getExpanderLabel :: (MonadIO m, IsExpander o) => o -> m (Maybe T.Text)
getExpanderLabel :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> m (Maybe Text)
getExpanderLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"label"
setExpanderLabel :: (MonadIO m, IsExpander o) => o -> T.Text -> m ()
setExpanderLabel :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> Text -> m ()
setExpanderLabel o
obj Text
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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructExpanderLabel :: (IsExpander o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructExpanderLabel :: forall o (m :: * -> *).
(IsExpander o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructExpanderLabel Text
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 Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearExpanderLabel :: (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabel :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabel 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 Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ExpanderLabelPropertyInfo
instance AttrInfo ExpanderLabelPropertyInfo where
type AttrAllowedOps ExpanderLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ExpanderLabelPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ExpanderLabelPropertyInfo = (~) T.Text
type AttrTransferType ExpanderLabelPropertyInfo = T.Text
type AttrGetType ExpanderLabelPropertyInfo = (Maybe T.Text)
type AttrLabel ExpanderLabelPropertyInfo = "label"
type AttrOrigin ExpanderLabelPropertyInfo = Expander
attrGet = getExpanderLabel
attrSet = setExpanderLabel
attrTransfer _ v = do
return v
attrConstruct = constructExpanderLabel
attrClear = clearExpanderLabel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.label"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:label"
})
#endif
getExpanderLabelWidget :: (MonadIO m, IsExpander o) => o -> m (Maybe Gtk.Widget.Widget)
getExpanderLabelWidget :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> m (Maybe Widget)
getExpanderLabelWidget o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"label-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setExpanderLabelWidget :: (MonadIO m, IsExpander o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setExpanderLabelWidget :: forall (m :: * -> *) o a.
(MonadIO m, IsExpander o, IsWidget a) =>
o -> a -> m ()
setExpanderLabelWidget 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
"label-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructExpanderLabelWidget :: (IsExpander o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructExpanderLabelWidget :: forall o (m :: * -> *) a.
(IsExpander o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructExpanderLabelWidget 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
"label-widget" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearExpanderLabelWidget :: (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabelWidget :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabelWidget 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
"label-widget" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ExpanderLabelWidgetPropertyInfo
instance AttrInfo ExpanderLabelWidgetPropertyInfo where
type AttrAllowedOps ExpanderLabelWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ExpanderLabelWidgetPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderLabelWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ExpanderLabelWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ExpanderLabelWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType ExpanderLabelWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ExpanderLabelWidgetPropertyInfo = "label-widget"
type AttrOrigin ExpanderLabelWidgetPropertyInfo = Expander
attrGet = getExpanderLabelWidget
attrSet = setExpanderLabelWidget
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructExpanderLabelWidget
attrClear = clearExpanderLabelWidget
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.labelWidget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:labelWidget"
})
#endif
getExpanderResizeToplevel :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderResizeToplevel :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m Bool
getExpanderResizeToplevel o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"resize-toplevel"
setExpanderResizeToplevel :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderResizeToplevel :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> Bool -> m ()
setExpanderResizeToplevel o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"resize-toplevel" Bool
val
constructExpanderResizeToplevel :: (IsExpander o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructExpanderResizeToplevel :: forall o (m :: * -> *).
(IsExpander o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructExpanderResizeToplevel Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"resize-toplevel" Bool
val
#if defined(ENABLE_OVERLOADING)
data ExpanderResizeToplevelPropertyInfo
instance AttrInfo ExpanderResizeToplevelPropertyInfo where
type AttrAllowedOps ExpanderResizeToplevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderResizeToplevelPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderResizeToplevelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ExpanderResizeToplevelPropertyInfo = (~) Bool
type AttrTransferType ExpanderResizeToplevelPropertyInfo = Bool
type AttrGetType ExpanderResizeToplevelPropertyInfo = Bool
type AttrLabel ExpanderResizeToplevelPropertyInfo = "resize-toplevel"
type AttrOrigin ExpanderResizeToplevelPropertyInfo = Expander
attrGet = getExpanderResizeToplevel
attrSet = setExpanderResizeToplevel
attrTransfer _ v = do
return v
attrConstruct = constructExpanderResizeToplevel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.resizeToplevel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:resizeToplevel"
})
#endif
getExpanderUseMarkup :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseMarkup :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseMarkup o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-markup"
setExpanderUseMarkup :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderUseMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> Bool -> m ()
setExpanderUseMarkup o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-markup" Bool
val
constructExpanderUseMarkup :: (IsExpander o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructExpanderUseMarkup :: forall o (m :: * -> *).
(IsExpander o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructExpanderUseMarkup Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-markup" Bool
val
#if defined(ENABLE_OVERLOADING)
data ExpanderUseMarkupPropertyInfo
instance AttrInfo ExpanderUseMarkupPropertyInfo where
type AttrAllowedOps ExpanderUseMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderUseMarkupPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderUseMarkupPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ExpanderUseMarkupPropertyInfo = (~) Bool
type AttrTransferType ExpanderUseMarkupPropertyInfo = Bool
type AttrGetType ExpanderUseMarkupPropertyInfo = Bool
type AttrLabel ExpanderUseMarkupPropertyInfo = "use-markup"
type AttrOrigin ExpanderUseMarkupPropertyInfo = Expander
attrGet = getExpanderUseMarkup
attrSet = setExpanderUseMarkup
attrTransfer _ v = do
return v
attrConstruct = constructExpanderUseMarkup
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.useMarkup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:useMarkup"
})
#endif
getExpanderUseUnderline :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseUnderline :: forall (m :: * -> *) o. (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseUnderline o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"use-underline"
setExpanderUseUnderline :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderUseUnderline :: forall (m :: * -> *) o.
(MonadIO m, IsExpander o) =>
o -> Bool -> m ()
setExpanderUseUnderline o
obj Bool
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"use-underline" Bool
val
constructExpanderUseUnderline :: (IsExpander o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructExpanderUseUnderline :: forall o (m :: * -> *).
(IsExpander o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructExpanderUseUnderline Bool
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"use-underline" Bool
val
#if defined(ENABLE_OVERLOADING)
data ExpanderUseUnderlinePropertyInfo
instance AttrInfo ExpanderUseUnderlinePropertyInfo where
type AttrAllowedOps ExpanderUseUnderlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderUseUnderlinePropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderUseUnderlinePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ExpanderUseUnderlinePropertyInfo = (~) Bool
type AttrTransferType ExpanderUseUnderlinePropertyInfo = Bool
type AttrGetType ExpanderUseUnderlinePropertyInfo = Bool
type AttrLabel ExpanderUseUnderlinePropertyInfo = "use-underline"
type AttrOrigin ExpanderUseUnderlinePropertyInfo = Expander
attrGet = getExpanderUseUnderline
attrSet = setExpanderUseUnderline
attrTransfer _ v = do
return v
attrConstruct = constructExpanderUseUnderline
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.useUnderline"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#g:attr:useUnderline"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Expander
type instance O.AttributeList Expander = ExpanderAttributeList
type ExpanderAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("child", ExpanderChildPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("label", ExpanderLabelPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("useMarkup", ExpanderUseMarkupPropertyInfo), '("useUnderline", ExpanderUseUnderlinePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
expanderChild :: AttrLabelProxy "child"
expanderChild = AttrLabelProxy
expanderExpanded :: AttrLabelProxy "expanded"
expanderExpanded = AttrLabelProxy
expanderLabel :: AttrLabelProxy "label"
expanderLabel = AttrLabelProxy
expanderLabelWidget :: AttrLabelProxy "labelWidget"
expanderLabelWidget = AttrLabelProxy
expanderResizeToplevel :: AttrLabelProxy "resizeToplevel"
expanderResizeToplevel = AttrLabelProxy
expanderUseMarkup :: AttrLabelProxy "useMarkup"
expanderUseMarkup = AttrLabelProxy
expanderUseUnderline :: AttrLabelProxy "useUnderline"
expanderUseUnderline = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Expander = ExpanderSignalList
type ExpanderSignalList = ('[ '("activate", ExpanderActivateSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_expander_new" gtk_expander_new ::
CString ->
IO (Ptr Expander)
expanderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m Expander
expanderNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> m Expander
expanderNew Maybe Text
label = IO Expander -> m Expander
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Expander -> m Expander) -> IO Expander -> m Expander
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr Expander
result <- Ptr CChar -> IO (Ptr Expander)
gtk_expander_new Ptr CChar
maybeLabel
Text -> Ptr Expander -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"expanderNew" Ptr Expander
result
Expander
result' <- ((ManagedPtr Expander -> Expander) -> Ptr Expander -> IO Expander
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Expander -> Expander
Expander) Ptr Expander
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
Expander -> IO Expander
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Expander
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_expander_new_with_mnemonic" gtk_expander_new_with_mnemonic ::
CString ->
IO (Ptr Expander)
expanderNewWithMnemonic ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m Expander
expanderNewWithMnemonic :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Maybe Text -> m Expander
expanderNewWithMnemonic Maybe Text
label = IO Expander -> m Expander
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Expander -> m Expander) -> IO Expander -> m Expander
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr Expander
result <- Ptr CChar -> IO (Ptr Expander)
gtk_expander_new_with_mnemonic Ptr CChar
maybeLabel
Text -> Ptr Expander -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"expanderNewWithMnemonic" Ptr Expander
result
Expander
result' <- ((ManagedPtr Expander -> Expander) -> Ptr Expander -> IO Expander
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Expander -> Expander
Expander) Ptr Expander
result
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
Expander -> IO Expander
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Expander
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_expander_get_child" gtk_expander_get_child ::
Ptr Expander ->
IO (Ptr Gtk.Widget.Widget)
expanderGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m (Maybe Gtk.Widget.Widget)
expanderGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m (Maybe Widget)
expanderGetChild a
expander = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr Widget
result <- Ptr Expander -> IO (Ptr Widget)
gtk_expander_get_child Ptr Expander
expander'
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
expander
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 ExpanderGetChildMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetChildMethodInfo a signature where
overloadedMethod = expanderGetChild
instance O.OverloadedMethodInfo ExpanderGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetChild"
})
#endif
foreign import ccall "gtk_expander_get_expanded" gtk_expander_get_expanded ::
Ptr Expander ->
IO CInt
expanderGetExpanded ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Bool
expanderGetExpanded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m Bool
expanderGetExpanded a
expander = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
CInt
result <- Ptr Expander -> IO CInt
gtk_expander_get_expanded Ptr Expander
expander'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ExpanderGetExpandedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetExpandedMethodInfo a signature where
overloadedMethod = expanderGetExpanded
instance O.OverloadedMethodInfo ExpanderGetExpandedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetExpanded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetExpanded"
})
#endif
foreign import ccall "gtk_expander_get_label" gtk_expander_get_label ::
Ptr Expander ->
IO CString
expanderGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m (Maybe T.Text)
expanderGetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m (Maybe Text)
expanderGetLabel a
expander = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr CChar
result <- Ptr Expander -> IO (Ptr CChar)
gtk_expander_get_label Ptr Expander
expander'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ExpanderGetLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetLabelMethodInfo a signature where
overloadedMethod = expanderGetLabel
instance O.OverloadedMethodInfo ExpanderGetLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetLabel"
})
#endif
foreign import ccall "gtk_expander_get_label_widget" gtk_expander_get_label_widget ::
Ptr Expander ->
IO (Ptr Gtk.Widget.Widget)
expanderGetLabelWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m (Maybe Gtk.Widget.Widget)
expanderGetLabelWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m (Maybe Widget)
expanderGetLabelWidget a
expander = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr Widget
result <- Ptr Expander -> IO (Ptr Widget)
gtk_expander_get_label_widget Ptr Expander
expander'
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
expander
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 ExpanderGetLabelWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetLabelWidgetMethodInfo a signature where
overloadedMethod = expanderGetLabelWidget
instance O.OverloadedMethodInfo ExpanderGetLabelWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetLabelWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetLabelWidget"
})
#endif
foreign import ccall "gtk_expander_get_resize_toplevel" gtk_expander_get_resize_toplevel ::
Ptr Expander ->
IO CInt
expanderGetResizeToplevel ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Bool
expanderGetResizeToplevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m Bool
expanderGetResizeToplevel a
expander = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
CInt
result <- Ptr Expander -> IO CInt
gtk_expander_get_resize_toplevel Ptr Expander
expander'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ExpanderGetResizeToplevelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetResizeToplevelMethodInfo a signature where
overloadedMethod = expanderGetResizeToplevel
instance O.OverloadedMethodInfo ExpanderGetResizeToplevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetResizeToplevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetResizeToplevel"
})
#endif
foreign import ccall "gtk_expander_get_use_markup" gtk_expander_get_use_markup ::
Ptr Expander ->
IO CInt
expanderGetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Bool
expanderGetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m Bool
expanderGetUseMarkup a
expander = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
CInt
result <- Ptr Expander -> IO CInt
gtk_expander_get_use_markup Ptr Expander
expander'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ExpanderGetUseMarkupMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetUseMarkupMethodInfo a signature where
overloadedMethod = expanderGetUseMarkup
instance O.OverloadedMethodInfo ExpanderGetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetUseMarkup"
})
#endif
foreign import ccall "gtk_expander_get_use_underline" gtk_expander_get_use_underline ::
Ptr Expander ->
IO CInt
expanderGetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Bool
expanderGetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> m Bool
expanderGetUseUnderline a
expander = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
CInt
result <- Ptr Expander -> IO CInt
gtk_expander_get_use_underline Ptr Expander
expander'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ExpanderGetUseUnderlineMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderGetUseUnderlineMethodInfo a signature where
overloadedMethod = expanderGetUseUnderline
instance O.OverloadedMethodInfo ExpanderGetUseUnderlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderGetUseUnderline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderGetUseUnderline"
})
#endif
foreign import ccall "gtk_expander_set_child" gtk_expander_set_child ::
Ptr Expander ->
Ptr Gtk.Widget.Widget ->
IO ()
expanderSetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
expanderSetChild :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsExpander a, IsWidget b) =>
a -> Maybe b -> m ()
expanderSetChild a
expander 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
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 Expander -> Ptr Widget -> IO ()
gtk_expander_set_child Ptr Expander
expander' Ptr Widget
maybeChild
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
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 ExpanderSetChildMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsExpander a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ExpanderSetChildMethodInfo a signature where
overloadedMethod = expanderSetChild
instance O.OverloadedMethodInfo ExpanderSetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetChild"
})
#endif
foreign import ccall "gtk_expander_set_expanded" gtk_expander_set_expanded ::
Ptr Expander ->
CInt ->
IO ()
expanderSetExpanded ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Bool
-> m ()
expanderSetExpanded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> Bool -> m ()
expanderSetExpanded a
expander Bool
expanded = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
let expanded' :: CInt
expanded' = (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
expanded
Ptr Expander -> CInt -> IO ()
gtk_expander_set_expanded Ptr Expander
expander' CInt
expanded'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetExpandedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderSetExpandedMethodInfo a signature where
overloadedMethod = expanderSetExpanded
instance O.OverloadedMethodInfo ExpanderSetExpandedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetExpanded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetExpanded"
})
#endif
foreign import ccall "gtk_expander_set_label" gtk_expander_set_label ::
Ptr Expander ->
CString ->
IO ()
expanderSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Maybe (T.Text)
-> m ()
expanderSetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> Maybe Text -> m ()
expanderSetLabel a
expander Maybe Text
label = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr CChar
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jLabel'
Ptr Expander -> Ptr CChar -> IO ()
gtk_expander_set_label Ptr Expander
expander' Ptr CChar
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeLabel
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderSetLabelMethodInfo a signature where
overloadedMethod = expanderSetLabel
instance O.OverloadedMethodInfo ExpanderSetLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetLabel"
})
#endif
foreign import ccall "gtk_expander_set_label_widget" gtk_expander_set_label_widget ::
Ptr Expander ->
Ptr Gtk.Widget.Widget ->
IO ()
expanderSetLabelWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
expanderSetLabelWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsExpander a, IsWidget b) =>
a -> Maybe b -> m ()
expanderSetLabelWidget a
expander Maybe b
labelWidget = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr Widget
maybeLabelWidget <- case Maybe b
labelWidget 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
jLabelWidget -> do
Ptr Widget
jLabelWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jLabelWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jLabelWidget'
Ptr Expander -> Ptr Widget -> IO ()
gtk_expander_set_label_widget Ptr Expander
expander' Ptr Widget
maybeLabelWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
labelWidget 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 ExpanderSetLabelWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsExpander a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ExpanderSetLabelWidgetMethodInfo a signature where
overloadedMethod = expanderSetLabelWidget
instance O.OverloadedMethodInfo ExpanderSetLabelWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetLabelWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetLabelWidget"
})
#endif
foreign import ccall "gtk_expander_set_resize_toplevel" gtk_expander_set_resize_toplevel ::
Ptr Expander ->
CInt ->
IO ()
expanderSetResizeToplevel ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Bool
-> m ()
expanderSetResizeToplevel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> Bool -> m ()
expanderSetResizeToplevel a
expander Bool
resizeToplevel = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
let resizeToplevel' :: CInt
resizeToplevel' = (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
resizeToplevel
Ptr Expander -> CInt -> IO ()
gtk_expander_set_resize_toplevel Ptr Expander
expander' CInt
resizeToplevel'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetResizeToplevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderSetResizeToplevelMethodInfo a signature where
overloadedMethod = expanderSetResizeToplevel
instance O.OverloadedMethodInfo ExpanderSetResizeToplevelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetResizeToplevel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetResizeToplevel"
})
#endif
foreign import ccall "gtk_expander_set_use_markup" gtk_expander_set_use_markup ::
Ptr Expander ->
CInt ->
IO ()
expanderSetUseMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Bool
-> m ()
expanderSetUseMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> Bool -> m ()
expanderSetUseMarkup a
expander Bool
useMarkup = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
let useMarkup' :: CInt
useMarkup' = (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
useMarkup
Ptr Expander -> CInt -> IO ()
gtk_expander_set_use_markup Ptr Expander
expander' CInt
useMarkup'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetUseMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderSetUseMarkupMethodInfo a signature where
overloadedMethod = expanderSetUseMarkup
instance O.OverloadedMethodInfo ExpanderSetUseMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetUseMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetUseMarkup"
})
#endif
foreign import ccall "gtk_expander_set_use_underline" gtk_expander_set_use_underline ::
Ptr Expander ->
CInt ->
IO ()
expanderSetUseUnderline ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Bool
-> m ()
expanderSetUseUnderline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsExpander a) =>
a -> Bool -> m ()
expanderSetUseUnderline a
expander Bool
useUnderline = 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 Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
let useUnderline' :: CInt
useUnderline' = (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
useUnderline
Ptr Expander -> CInt -> IO ()
gtk_expander_set_use_underline Ptr Expander
expander' CInt
useUnderline'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetUseUnderlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.OverloadedMethod ExpanderSetUseUnderlineMethodInfo a signature where
overloadedMethod = expanderSetUseUnderline
instance O.OverloadedMethodInfo ExpanderSetUseUnderlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Expander.expanderSetUseUnderline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-Expander.html#v:expanderSetUseUnderline"
})
#endif