{-# LANGUAGE 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 ,
noExpander ,
#if defined(ENABLE_OVERLOADING)
ResolveExpanderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ExpanderGetExpandedMethodInfo ,
#endif
expanderGetExpanded ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetLabelMethodInfo ,
#endif
expanderGetLabel ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetLabelFillMethodInfo ,
#endif
expanderGetLabelFill ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetLabelWidgetMethodInfo ,
#endif
expanderGetLabelWidget ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetResizeToplevelMethodInfo ,
#endif
expanderGetResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetSpacingMethodInfo ,
#endif
expanderGetSpacing ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetUseMarkupMethodInfo ,
#endif
expanderGetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
ExpanderGetUseUnderlineMethodInfo ,
#endif
expanderGetUseUnderline ,
expanderNew ,
expanderNewWithMnemonic ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetExpandedMethodInfo ,
#endif
expanderSetExpanded ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetLabelMethodInfo ,
#endif
expanderSetLabel ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetLabelFillMethodInfo ,
#endif
expanderSetLabelFill ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetLabelWidgetMethodInfo ,
#endif
expanderSetLabelWidget ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetResizeToplevelMethodInfo ,
#endif
expanderSetResizeToplevel ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetSpacingMethodInfo ,
#endif
expanderSetSpacing ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetUseMarkupMethodInfo ,
#endif
expanderSetUseMarkup ,
#if defined(ENABLE_OVERLOADING)
ExpanderSetUseUnderlineMethodInfo ,
#endif
expanderSetUseUnderline ,
#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)
ExpanderLabelFillPropertyInfo ,
#endif
constructExpanderLabelFill ,
#if defined(ENABLE_OVERLOADING)
expanderLabelFill ,
#endif
getExpanderLabelFill ,
setExpanderLabelFill ,
#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)
ExpanderSpacingPropertyInfo ,
#endif
constructExpanderSpacing ,
#if defined(ENABLE_OVERLOADING)
expanderSpacing ,
#endif
getExpanderSpacing ,
setExpanderSpacing ,
#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 ,
C_ExpanderActivateCallback ,
ExpanderActivateCallback ,
#if defined(ENABLE_OVERLOADING)
ExpanderActivateSignalInfo ,
#endif
afterExpanderActivate ,
genClosure_ExpanderActivate ,
mk_ExpanderActivateCallback ,
noExpanderActivateCallback ,
onExpanderActivate ,
wrap_ExpanderActivateCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Bin as Gtk.Bin
import {-# SOURCE #-} qualified GI.Gtk.Objects.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Expander = Expander (ManagedPtr Expander)
deriving (Expander -> Expander -> Bool
(Expander -> Expander -> Bool)
-> (Expander -> Expander -> Bool) -> Eq Expander
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Expander -> Expander -> Bool
$c/= :: Expander -> Expander -> Bool
== :: Expander -> Expander -> Bool
$c== :: Expander -> Expander -> Bool
Eq)
foreign import ccall "gtk_expander_get_type"
c_gtk_expander_get_type :: IO GType
instance GObject Expander where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_expander_get_type
instance B.GValue.IsGValue Expander where
toGValue :: Expander -> IO GValue
toGValue o :: Expander
o = do
GType
gtype <- IO GType
c_gtk_expander_get_type
Expander -> (Ptr Expander -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Expander
o (GType
-> (GValue -> Ptr Expander -> IO ()) -> Ptr Expander -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Expander -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Expander
fromGValue gv :: GValue
gv = do
Ptr Expander
ptr <- GValue -> IO (Ptr Expander)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Expander)
(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
class (GObject o, O.IsDescendantOf Expander o) => IsExpander o
instance (GObject o, O.IsDescendantOf Expander o) => IsExpander o
instance O.HasParentTypes Expander
type instance O.ParentTypes Expander = '[Gtk.Bin.Bin, Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toExpander :: (MonadIO m, IsExpander o) => o -> m Expander
toExpander :: o -> m Expander
toExpander = IO Expander -> m Expander
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Expander -> Expander
Expander
noExpander :: Maybe Expander
noExpander :: Maybe Expander
noExpander = Maybe Expander
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveExpanderMethod (t :: Symbol) (o :: *) :: * where
ResolveExpanderMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveExpanderMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveExpanderMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveExpanderMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveExpanderMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveExpanderMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveExpanderMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveExpanderMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveExpanderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveExpanderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveExpanderMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveExpanderMethod "checkResize" o = Gtk.Container.ContainerCheckResizeMethodInfo
ResolveExpanderMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveExpanderMethod "childGetProperty" o = Gtk.Container.ContainerChildGetPropertyMethodInfo
ResolveExpanderMethod "childNotify" o = Gtk.Container.ContainerChildNotifyMethodInfo
ResolveExpanderMethod "childNotifyByPspec" o = Gtk.Container.ContainerChildNotifyByPspecMethodInfo
ResolveExpanderMethod "childSetProperty" o = Gtk.Container.ContainerChildSetPropertyMethodInfo
ResolveExpanderMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveExpanderMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveExpanderMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveExpanderMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveExpanderMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveExpanderMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveExpanderMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveExpanderMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveExpanderMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveExpanderMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveExpanderMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveExpanderMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveExpanderMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveExpanderMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveExpanderMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveExpanderMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveExpanderMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveExpanderMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveExpanderMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveExpanderMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveExpanderMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveExpanderMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveExpanderMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveExpanderMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveExpanderMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveExpanderMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveExpanderMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveExpanderMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveExpanderMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveExpanderMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveExpanderMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveExpanderMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveExpanderMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveExpanderMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveExpanderMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveExpanderMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveExpanderMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveExpanderMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveExpanderMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveExpanderMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveExpanderMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveExpanderMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveExpanderMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveExpanderMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveExpanderMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveExpanderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveExpanderMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveExpanderMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveExpanderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveExpanderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveExpanderMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveExpanderMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveExpanderMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveExpanderMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveExpanderMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveExpanderMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveExpanderMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveExpanderMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveExpanderMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveExpanderMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveExpanderMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveExpanderMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveExpanderMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveExpanderMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveExpanderMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveExpanderMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveExpanderMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveExpanderMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveExpanderMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
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 "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveExpanderMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveExpanderMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveExpanderMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveExpanderMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveExpanderMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveExpanderMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveExpanderMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveExpanderMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveExpanderMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveExpanderMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveExpanderMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveExpanderMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveExpanderMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveExpanderMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveExpanderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveExpanderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveExpanderMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveExpanderMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveExpanderMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveExpanderMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveExpanderMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveExpanderMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveExpanderMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveExpanderMethod "propagateDraw" o = Gtk.Container.ContainerPropagateDrawMethodInfo
ResolveExpanderMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveExpanderMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveExpanderMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveExpanderMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveExpanderMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveExpanderMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveExpanderMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveExpanderMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveExpanderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveExpanderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveExpanderMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveExpanderMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveExpanderMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveExpanderMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveExpanderMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveExpanderMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveExpanderMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveExpanderMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveExpanderMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveExpanderMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveExpanderMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveExpanderMethod "resizeChildren" o = Gtk.Container.ContainerResizeChildrenMethodInfo
ResolveExpanderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveExpanderMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveExpanderMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveExpanderMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveExpanderMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveExpanderMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveExpanderMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveExpanderMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveExpanderMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveExpanderMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveExpanderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveExpanderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveExpanderMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveExpanderMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveExpanderMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
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 "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveExpanderMethod "unsetFocusChain" o = Gtk.Container.ContainerUnsetFocusChainMethodInfo
ResolveExpanderMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveExpanderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveExpanderMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveExpanderMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveExpanderMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveExpanderMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveExpanderMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveExpanderMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveExpanderMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveExpanderMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveExpanderMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveExpanderMethod "getBorderWidth" o = Gtk.Container.ContainerGetBorderWidthMethodInfo
ResolveExpanderMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveExpanderMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveExpanderMethod "getChild" o = Gtk.Bin.BinGetChildMethodInfo
ResolveExpanderMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveExpanderMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveExpanderMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveExpanderMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveExpanderMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveExpanderMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveExpanderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveExpanderMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveExpanderMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveExpanderMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveExpanderMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveExpanderMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveExpanderMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveExpanderMethod "getExpanded" o = ExpanderGetExpandedMethodInfo
ResolveExpanderMethod "getFocusChain" o = Gtk.Container.ContainerGetFocusChainMethodInfo
ResolveExpanderMethod "getFocusChild" o = Gtk.Container.ContainerGetFocusChildMethodInfo
ResolveExpanderMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveExpanderMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveExpanderMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
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 "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveExpanderMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveExpanderMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveExpanderMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveExpanderMethod "getLabel" o = ExpanderGetLabelMethodInfo
ResolveExpanderMethod "getLabelFill" o = ExpanderGetLabelFillMethodInfo
ResolveExpanderMethod "getLabelWidget" o = ExpanderGetLabelWidgetMethodInfo
ResolveExpanderMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveExpanderMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveExpanderMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveExpanderMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveExpanderMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveExpanderMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveExpanderMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveExpanderMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveExpanderMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveExpanderMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveExpanderMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveExpanderMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveExpanderMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveExpanderMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveExpanderMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveExpanderMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveExpanderMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveExpanderMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveExpanderMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveExpanderMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveExpanderMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveExpanderMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveExpanderMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveExpanderMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
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 "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveExpanderMethod "getResizeMode" o = Gtk.Container.ContainerGetResizeModeMethodInfo
ResolveExpanderMethod "getResizeToplevel" o = ExpanderGetResizeToplevelMethodInfo
ResolveExpanderMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveExpanderMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveExpanderMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveExpanderMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveExpanderMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveExpanderMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveExpanderMethod "getSpacing" o = ExpanderGetSpacingMethodInfo
ResolveExpanderMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveExpanderMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveExpanderMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveExpanderMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveExpanderMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveExpanderMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveExpanderMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveExpanderMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveExpanderMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveExpanderMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveExpanderMethod "getUseMarkup" o = ExpanderGetUseMarkupMethodInfo
ResolveExpanderMethod "getUseUnderline" o = ExpanderGetUseUnderlineMethodInfo
ResolveExpanderMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveExpanderMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveExpanderMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveExpanderMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveExpanderMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveExpanderMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveExpanderMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveExpanderMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveExpanderMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveExpanderMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveExpanderMethod "setBorderWidth" o = Gtk.Container.ContainerSetBorderWidthMethodInfo
ResolveExpanderMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveExpanderMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveExpanderMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveExpanderMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveExpanderMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveExpanderMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveExpanderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveExpanderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveExpanderMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveExpanderMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveExpanderMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveExpanderMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveExpanderMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveExpanderMethod "setExpanded" o = ExpanderSetExpandedMethodInfo
ResolveExpanderMethod "setFocusChain" o = Gtk.Container.ContainerSetFocusChainMethodInfo
ResolveExpanderMethod "setFocusChild" o = Gtk.Container.ContainerSetFocusChildMethodInfo
ResolveExpanderMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveExpanderMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveExpanderMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
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 "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveExpanderMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveExpanderMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveExpanderMethod "setLabel" o = ExpanderSetLabelMethodInfo
ResolveExpanderMethod "setLabelFill" o = ExpanderSetLabelFillMethodInfo
ResolveExpanderMethod "setLabelWidget" o = ExpanderSetLabelWidgetMethodInfo
ResolveExpanderMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveExpanderMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveExpanderMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveExpanderMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveExpanderMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveExpanderMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveExpanderMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveExpanderMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveExpanderMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveExpanderMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveExpanderMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveExpanderMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveExpanderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveExpanderMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveExpanderMethod "setReallocateRedraws" o = Gtk.Container.ContainerSetReallocateRedrawsMethodInfo
ResolveExpanderMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveExpanderMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveExpanderMethod "setResizeMode" o = Gtk.Container.ContainerSetResizeModeMethodInfo
ResolveExpanderMethod "setResizeToplevel" o = ExpanderSetResizeToplevelMethodInfo
ResolveExpanderMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveExpanderMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveExpanderMethod "setSpacing" o = ExpanderSetSpacingMethodInfo
ResolveExpanderMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveExpanderMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveExpanderMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveExpanderMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveExpanderMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveExpanderMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveExpanderMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
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 "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveExpanderMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveExpanderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveExpanderMethod t Expander, O.MethodInfo 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
#endif
type ExpanderActivateCallback =
IO ()
noExpanderActivateCallback :: Maybe ExpanderActivateCallback
noExpanderActivateCallback :: Maybe (IO ())
noExpanderActivateCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_ExpanderActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ExpanderActivateCallback :: C_ExpanderActivateCallback -> IO (FunPtr C_ExpanderActivateCallback)
genClosure_ExpanderActivate :: MonadIO m => ExpanderActivateCallback -> m (GClosure C_ExpanderActivateCallback)
genClosure_ExpanderActivate :: IO () -> m (GClosure C_ExpanderActivateCallback)
genClosure_ExpanderActivate cb :: IO ()
cb = IO (GClosure C_ExpanderActivateCallback)
-> m (GClosure C_ExpanderActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_ExpanderActivateCallback)
-> m (GClosure C_ExpanderActivateCallback))
-> IO (GClosure C_ExpanderActivateCallback)
-> m (GClosure C_ExpanderActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ExpanderActivateCallback
cb' = IO () -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback IO ()
cb
C_ExpanderActivateCallback
-> IO (FunPtr C_ExpanderActivateCallback)
mk_ExpanderActivateCallback C_ExpanderActivateCallback
cb' IO (FunPtr C_ExpanderActivateCallback)
-> (FunPtr C_ExpanderActivateCallback
-> IO (GClosure C_ExpanderActivateCallback))
-> IO (GClosure C_ExpanderActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_ExpanderActivateCallback
-> IO (GClosure C_ExpanderActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_ExpanderActivateCallback ::
ExpanderActivateCallback ->
C_ExpanderActivateCallback
wrap_ExpanderActivateCallback :: IO () -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onExpanderActivate :: (IsExpander a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
onExpanderActivate :: a -> IO () -> m SignalHandlerId
onExpanderActivate obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ExpanderActivateCallback
cb' = IO () -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback IO ()
cb
FunPtr C_ExpanderActivateCallback
cb'' <- C_ExpanderActivateCallback
-> IO (FunPtr C_ExpanderActivateCallback)
mk_ExpanderActivateCallback C_ExpanderActivateCallback
cb'
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 "activate" FunPtr C_ExpanderActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterExpanderActivate :: (IsExpander a, MonadIO m) => a -> ExpanderActivateCallback -> m SignalHandlerId
afterExpanderActivate :: a -> IO () -> m SignalHandlerId
afterExpanderActivate obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_ExpanderActivateCallback
cb' = IO () -> C_ExpanderActivateCallback
wrap_ExpanderActivateCallback IO ()
cb
FunPtr C_ExpanderActivateCallback
cb'' <- C_ExpanderActivateCallback
-> IO (FunPtr C_ExpanderActivateCallback)
mk_ExpanderActivateCallback C_ExpanderActivateCallback
cb'
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 "activate" FunPtr C_ExpanderActivateCallback
cb'' 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
#endif
getExpanderExpanded :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderExpanded :: o -> m Bool
getExpanderExpanded obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "expanded"
setExpanderExpanded :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderExpanded :: o -> Bool -> m ()
setExpanderExpanded obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "expanded" Bool
val
constructExpanderExpanded :: (IsExpander o) => Bool -> IO (GValueConstruct o)
constructExpanderExpanded :: Bool -> IO (GValueConstruct o)
constructExpanderExpanded val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getExpanderLabel :: (MonadIO m, IsExpander o) => o -> m (Maybe T.Text)
getExpanderLabel :: o -> m (Maybe Text)
getExpanderLabel obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
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
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "label"
setExpanderLabel :: (MonadIO m, IsExpander o) => o -> T.Text -> m ()
setExpanderLabel :: o -> Text -> m ()
setExpanderLabel obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructExpanderLabel :: (IsExpander o) => T.Text -> IO (GValueConstruct o)
constructExpanderLabel :: Text -> IO (GValueConstruct o)
constructExpanderLabel val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearExpanderLabel :: (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabel :: o -> m ()
clearExpanderLabel obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "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
#endif
getExpanderLabelFill :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderLabelFill :: o -> m Bool
getExpanderLabelFill obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "label-fill"
setExpanderLabelFill :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderLabelFill :: o -> Bool -> m ()
setExpanderLabelFill obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "label-fill" Bool
val
constructExpanderLabelFill :: (IsExpander o) => Bool -> IO (GValueConstruct o)
constructExpanderLabelFill :: Bool -> IO (GValueConstruct o)
constructExpanderLabelFill val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "label-fill" Bool
val
#if defined(ENABLE_OVERLOADING)
data ExpanderLabelFillPropertyInfo
instance AttrInfo ExpanderLabelFillPropertyInfo where
type AttrAllowedOps ExpanderLabelFillPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderLabelFillPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderLabelFillPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ExpanderLabelFillPropertyInfo = (~) Bool
type AttrTransferType ExpanderLabelFillPropertyInfo = Bool
type AttrGetType ExpanderLabelFillPropertyInfo = Bool
type AttrLabel ExpanderLabelFillPropertyInfo = "label-fill"
type AttrOrigin ExpanderLabelFillPropertyInfo = Expander
attrGet = getExpanderLabelFill
attrSet = setExpanderLabelFill
attrTransfer _ v = do
return v
attrConstruct = constructExpanderLabelFill
attrClear = undefined
#endif
getExpanderLabelWidget :: (MonadIO m, IsExpander o) => o -> m (Maybe Gtk.Widget.Widget)
getExpanderLabelWidget :: o -> m (Maybe Widget)
getExpanderLabelWidget obj :: o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ 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 "label-widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setExpanderLabelWidget :: (MonadIO m, IsExpander o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setExpanderLabelWidget :: o -> a -> m ()
setExpanderLabelWidget obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "label-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructExpanderLabelWidget :: (IsExpander o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructExpanderLabelWidget :: a -> IO (GValueConstruct o)
constructExpanderLabelWidget val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "label-widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearExpanderLabelWidget :: (MonadIO m, IsExpander o) => o -> m ()
clearExpanderLabelWidget :: o -> m ()
clearExpanderLabelWidget obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "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
#endif
getExpanderResizeToplevel :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderResizeToplevel :: o -> m Bool
getExpanderResizeToplevel obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "resize-toplevel"
setExpanderResizeToplevel :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderResizeToplevel :: o -> Bool -> m ()
setExpanderResizeToplevel obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "resize-toplevel" Bool
val
constructExpanderResizeToplevel :: (IsExpander o) => Bool -> IO (GValueConstruct o)
constructExpanderResizeToplevel :: Bool -> IO (GValueConstruct o)
constructExpanderResizeToplevel val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getExpanderSpacing :: (MonadIO m, IsExpander o) => o -> m Int32
getExpanderSpacing :: o -> m Int32
getExpanderSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "spacing"
setExpanderSpacing :: (MonadIO m, IsExpander o) => o -> Int32 -> m ()
setExpanderSpacing :: o -> Int32 -> m ()
setExpanderSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "spacing" Int32
val
constructExpanderSpacing :: (IsExpander o) => Int32 -> IO (GValueConstruct o)
constructExpanderSpacing :: Int32 -> IO (GValueConstruct o)
constructExpanderSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data ExpanderSpacingPropertyInfo
instance AttrInfo ExpanderSpacingPropertyInfo where
type AttrAllowedOps ExpanderSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ExpanderSpacingPropertyInfo = IsExpander
type AttrSetTypeConstraint ExpanderSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ExpanderSpacingPropertyInfo = (~) Int32
type AttrTransferType ExpanderSpacingPropertyInfo = Int32
type AttrGetType ExpanderSpacingPropertyInfo = Int32
type AttrLabel ExpanderSpacingPropertyInfo = "spacing"
type AttrOrigin ExpanderSpacingPropertyInfo = Expander
attrGet = getExpanderSpacing
attrSet = setExpanderSpacing
attrTransfer _ v = do
return v
attrConstruct = constructExpanderSpacing
attrClear = undefined
#endif
getExpanderUseMarkup :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseMarkup :: o -> m Bool
getExpanderUseMarkup obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "use-markup"
setExpanderUseMarkup :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderUseMarkup :: o -> Bool -> m ()
setExpanderUseMarkup obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "use-markup" Bool
val
constructExpanderUseMarkup :: (IsExpander o) => Bool -> IO (GValueConstruct o)
constructExpanderUseMarkup :: Bool -> IO (GValueConstruct o)
constructExpanderUseMarkup val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
getExpanderUseUnderline :: (MonadIO m, IsExpander o) => o -> m Bool
getExpanderUseUnderline :: o -> m Bool
getExpanderUseUnderline obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "use-underline"
setExpanderUseUnderline :: (MonadIO m, IsExpander o) => o -> Bool -> m ()
setExpanderUseUnderline :: o -> Bool -> m ()
setExpanderUseUnderline obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "use-underline" Bool
val
constructExpanderUseUnderline :: (IsExpander o) => Bool -> IO (GValueConstruct o)
constructExpanderUseUnderline :: Bool -> IO (GValueConstruct o)
constructExpanderUseUnderline val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Expander
type instance O.AttributeList Expander = ExpanderAttributeList
type ExpanderAttributeList = ('[ '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("borderWidth", Gtk.Container.ContainerBorderWidthPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("child", Gtk.Container.ContainerChildPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("expanded", ExpanderExpandedPropertyInfo), '("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), '("label", ExpanderLabelPropertyInfo), '("labelFill", ExpanderLabelFillPropertyInfo), '("labelWidget", ExpanderLabelWidgetPropertyInfo), '("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", Gtk.Container.ContainerResizeModePropertyInfo), '("resizeToplevel", ExpanderResizeToplevelPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("spacing", ExpanderSpacingPropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("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), '("window", Gtk.Widget.WidgetWindowPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
expanderExpanded :: AttrLabelProxy "expanded"
expanderExpanded = AttrLabelProxy
expanderLabel :: AttrLabelProxy "label"
expanderLabel = AttrLabelProxy
expanderLabelFill :: AttrLabelProxy "labelFill"
expanderLabelFill = AttrLabelProxy
expanderLabelWidget :: AttrLabelProxy "labelWidget"
expanderLabelWidget = AttrLabelProxy
expanderResizeToplevel :: AttrLabelProxy "resizeToplevel"
expanderResizeToplevel = AttrLabelProxy
expanderSpacing :: AttrLabelProxy "spacing"
expanderSpacing = AttrLabelProxy
expanderUseMarkup :: AttrLabelProxy "useMarkup"
expanderUseMarkup = AttrLabelProxy
expanderUseUnderline :: AttrLabelProxy "useUnderline"
expanderUseUnderline = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Expander = ExpanderSignalList
type ExpanderSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("activate", ExpanderActivateSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("checkResize", Gtk.Container.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", Gtk.Container.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", Gtk.Container.ContainerSetFocusChildSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_expander_new" gtk_expander_new ::
CString ->
IO (Ptr Expander)
expanderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Maybe (T.Text)
-> m Expander
expanderNew :: Maybe Text -> m Expander
expanderNew label :: Maybe Text
label = IO Expander -> m Expander
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
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
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 "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 (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 :: Maybe Text -> m Expander
expanderNewWithMnemonic label :: Maybe Text
label = IO Expander -> m Expander
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
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
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 "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 (m :: * -> *) a. Monad m => a -> m a
return Expander
result'
#if defined(ENABLE_OVERLOADING)
#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 :: a -> m Bool
expanderGetExpanded expander :: a
expander = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
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.MethodInfo ExpanderGetExpandedMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
expanderGetLabel expander :: a
expander = IO (Maybe Text) -> m (Maybe Text)
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
$ \result' :: Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
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 (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.MethodInfo ExpanderGetLabelMethodInfo a signature where
overloadedMethod = expanderGetLabel
#endif
foreign import ccall "gtk_expander_get_label_fill" gtk_expander_get_label_fill ::
Ptr Expander ->
IO CInt
expanderGetLabelFill ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Bool
expanderGetLabelFill :: a -> m Bool
expanderGetLabelFill expander :: a
expander = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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_label_fill Ptr Expander
expander'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ExpanderGetLabelFillMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsExpander a) => O.MethodInfo ExpanderGetLabelFillMethodInfo a signature where
overloadedMethod = expanderGetLabelFill
#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 :: a -> m (Maybe Widget)
expanderGetLabelWidget expander :: a
expander = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
$ \result' :: Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Maybe Widget -> IO (Maybe Widget)
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.MethodInfo ExpanderGetLabelWidgetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
expanderGetResizeToplevel expander :: a
expander = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
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.MethodInfo ExpanderGetResizeToplevelMethodInfo a signature where
overloadedMethod = expanderGetResizeToplevel
#endif
foreign import ccall "gtk_expander_get_spacing" gtk_expander_get_spacing ::
Ptr Expander ->
IO Int32
{-# DEPRECATED expanderGetSpacing ["(Since version 3.20)","Use margins on the child instead."] #-}
expanderGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> m Int32
expanderGetSpacing :: a -> m Int32
expanderGetSpacing expander :: a
expander = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
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
Int32
result <- Ptr Expander -> IO Int32
gtk_expander_get_spacing Ptr Expander
expander'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ExpanderGetSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsExpander a) => O.MethodInfo ExpanderGetSpacingMethodInfo a signature where
overloadedMethod = expanderGetSpacing
#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 :: a -> m Bool
expanderGetUseMarkup expander :: a
expander = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
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.MethodInfo ExpanderGetUseMarkupMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
expanderGetUseUnderline expander :: a
expander = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
Bool -> IO Bool
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.MethodInfo ExpanderGetUseUnderlineMethodInfo a signature where
overloadedMethod = expanderGetUseUnderline
#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 :: a -> Bool -> m ()
expanderSetExpanded expander :: a
expander expanded :: Bool
expanded = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetExpandedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetExpandedMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Text -> m ()
expanderSetLabel expander :: a
expander label :: Maybe Text
label = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just jLabel :: Text
jLabel -> do
Ptr CChar
jLabel' <- Text -> IO (Ptr CChar)
textToCString Text
jLabel
Ptr CChar -> IO (Ptr CChar)
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 (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.MethodInfo ExpanderSetLabelMethodInfo a signature where
overloadedMethod = expanderSetLabel
#endif
foreign import ccall "gtk_expander_set_label_fill" gtk_expander_set_label_fill ::
Ptr Expander ->
CInt ->
IO ()
expanderSetLabelFill ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Bool
-> m ()
expanderSetLabelFill :: a -> Bool -> m ()
expanderSetLabelFill expander :: a
expander labelFill :: Bool
labelFill = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
let labelFill' :: CInt
labelFill' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
labelFill
Ptr Expander -> CInt -> IO ()
gtk_expander_set_label_fill Ptr Expander
expander' CInt
labelFill'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetLabelFillMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetLabelFillMethodInfo a signature where
overloadedMethod = expanderSetLabelFill
#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 :: a -> Maybe b -> m ()
expanderSetLabelWidget expander :: a
expander labelWidget :: Maybe b
labelWidget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jLabelWidget :: 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 (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 (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.MethodInfo ExpanderSetLabelWidgetMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
expanderSetResizeToplevel expander :: a
expander resizeToplevel :: Bool
resizeToplevel = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetResizeToplevelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetResizeToplevelMethodInfo a signature where
overloadedMethod = expanderSetResizeToplevel
#endif
foreign import ccall "gtk_expander_set_spacing" gtk_expander_set_spacing ::
Ptr Expander ->
Int32 ->
IO ()
{-# DEPRECATED expanderSetSpacing ["(Since version 3.20)","Use margins on the child instead."] #-}
expanderSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsExpander a) =>
a
-> Int32
-> m ()
expanderSetSpacing :: a -> Int32 -> m ()
expanderSetSpacing expander :: a
expander spacing :: Int32
spacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Expander
expander' <- a -> IO (Ptr Expander)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
expander
Ptr Expander -> Int32 -> IO ()
gtk_expander_set_spacing Ptr Expander
expander' Int32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
expander
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetSpacingMethodInfo a signature where
overloadedMethod = expanderSetSpacing
#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 :: a -> Bool -> m ()
expanderSetUseMarkup expander :: a
expander useMarkup :: Bool
useMarkup = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetUseMarkupMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetUseMarkupMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
expanderSetUseUnderline expander :: a
expander useUnderline :: Bool
useUnderline = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr 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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ExpanderSetUseUnderlineMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsExpander a) => O.MethodInfo ExpanderSetUseUnderlineMethodInfo a signature where
overloadedMethod = expanderSetUseUnderline
#endif