{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.HeaderBar
(
HeaderBar(..) ,
IsHeaderBar ,
toHeaderBar ,
noHeaderBar ,
#if defined(ENABLE_OVERLOADING)
ResolveHeaderBarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
HeaderBarGetCustomTitleMethodInfo ,
#endif
headerBarGetCustomTitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarGetDecorationLayoutMethodInfo ,
#endif
headerBarGetDecorationLayout ,
#if defined(ENABLE_OVERLOADING)
HeaderBarGetHasSubtitleMethodInfo ,
#endif
headerBarGetHasSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarGetShowTitleButtonsMethodInfo ,
#endif
headerBarGetShowTitleButtons ,
#if defined(ENABLE_OVERLOADING)
HeaderBarGetSubtitleMethodInfo ,
#endif
headerBarGetSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarGetTitleMethodInfo ,
#endif
headerBarGetTitle ,
headerBarNew ,
#if defined(ENABLE_OVERLOADING)
HeaderBarPackEndMethodInfo ,
#endif
headerBarPackEnd ,
#if defined(ENABLE_OVERLOADING)
HeaderBarPackStartMethodInfo ,
#endif
headerBarPackStart ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetCustomTitleMethodInfo ,
#endif
headerBarSetCustomTitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetDecorationLayoutMethodInfo ,
#endif
headerBarSetDecorationLayout ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetHasSubtitleMethodInfo ,
#endif
headerBarSetHasSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetShowTitleButtonsMethodInfo ,
#endif
headerBarSetShowTitleButtons ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetSubtitleMethodInfo ,
#endif
headerBarSetSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSetTitleMethodInfo ,
#endif
headerBarSetTitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarCustomTitlePropertyInfo ,
#endif
clearHeaderBarCustomTitle ,
constructHeaderBarCustomTitle ,
getHeaderBarCustomTitle ,
#if defined(ENABLE_OVERLOADING)
headerBarCustomTitle ,
#endif
setHeaderBarCustomTitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarDecorationLayoutPropertyInfo ,
#endif
clearHeaderBarDecorationLayout ,
constructHeaderBarDecorationLayout ,
getHeaderBarDecorationLayout ,
#if defined(ENABLE_OVERLOADING)
headerBarDecorationLayout ,
#endif
setHeaderBarDecorationLayout ,
#if defined(ENABLE_OVERLOADING)
HeaderBarDecorationLayoutSetPropertyInfo,
#endif
constructHeaderBarDecorationLayoutSet ,
getHeaderBarDecorationLayoutSet ,
#if defined(ENABLE_OVERLOADING)
headerBarDecorationLayoutSet ,
#endif
setHeaderBarDecorationLayoutSet ,
#if defined(ENABLE_OVERLOADING)
HeaderBarHasSubtitlePropertyInfo ,
#endif
constructHeaderBarHasSubtitle ,
getHeaderBarHasSubtitle ,
#if defined(ENABLE_OVERLOADING)
headerBarHasSubtitle ,
#endif
setHeaderBarHasSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarShowTitleButtonsPropertyInfo ,
#endif
constructHeaderBarShowTitleButtons ,
getHeaderBarShowTitleButtons ,
#if defined(ENABLE_OVERLOADING)
headerBarShowTitleButtons ,
#endif
setHeaderBarShowTitleButtons ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSpacingPropertyInfo ,
#endif
constructHeaderBarSpacing ,
getHeaderBarSpacing ,
#if defined(ENABLE_OVERLOADING)
headerBarSpacing ,
#endif
setHeaderBarSpacing ,
#if defined(ENABLE_OVERLOADING)
HeaderBarSubtitlePropertyInfo ,
#endif
clearHeaderBarSubtitle ,
constructHeaderBarSubtitle ,
getHeaderBarSubtitle ,
#if defined(ENABLE_OVERLOADING)
headerBarSubtitle ,
#endif
setHeaderBarSubtitle ,
#if defined(ENABLE_OVERLOADING)
HeaderBarTitlePropertyInfo ,
#endif
clearHeaderBarTitle ,
constructHeaderBarTitle ,
getHeaderBarTitle ,
#if defined(ENABLE_OVERLOADING)
headerBarTitle ,
#endif
setHeaderBarTitle ,
) 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.Container as Gtk.Container
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype = (ManagedPtr HeaderBar)
deriving (HeaderBar -> HeaderBar -> Bool
(HeaderBar -> HeaderBar -> Bool)
-> (HeaderBar -> HeaderBar -> Bool) -> Eq HeaderBar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HeaderBar -> HeaderBar -> Bool
$c/= :: HeaderBar -> HeaderBar -> Bool
== :: HeaderBar -> HeaderBar -> Bool
$c== :: HeaderBar -> HeaderBar -> Bool
Eq)
foreign import ccall "gtk_header_bar_get_type"
:: IO GType
instance GObject HeaderBar where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_header_bar_get_type
instance B.GValue.IsGValue HeaderBar where
toGValue :: HeaderBar -> IO GValue
toGValue o :: HeaderBar
o = do
GType
gtype <- IO GType
c_gtk_header_bar_get_type
HeaderBar -> (Ptr HeaderBar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr HeaderBar
o (GType
-> (GValue -> Ptr HeaderBar -> IO ()) -> Ptr HeaderBar -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr HeaderBar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO HeaderBar
fromGValue gv :: GValue
gv = do
Ptr HeaderBar
ptr <- GValue -> IO (Ptr HeaderBar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr HeaderBar)
(ManagedPtr HeaderBar -> HeaderBar)
-> Ptr HeaderBar -> IO HeaderBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr HeaderBar -> HeaderBar
HeaderBar Ptr HeaderBar
ptr
class (GObject o, O.IsDescendantOf HeaderBar o) => o
instance (GObject o, O.IsDescendantOf HeaderBar o) => IsHeaderBar o
instance O.HasParentTypes HeaderBar
type instance O.ParentTypes HeaderBar = '[Gtk.Container.Container, Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable]
toHeaderBar :: (MonadIO m, IsHeaderBar o) => o -> m HeaderBar
= IO HeaderBar -> m HeaderBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HeaderBar -> m HeaderBar)
-> (o -> IO HeaderBar) -> o -> m HeaderBar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr HeaderBar -> HeaderBar) -> o -> IO HeaderBar
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr HeaderBar -> HeaderBar
HeaderBar
noHeaderBar :: Maybe HeaderBar
= Maybe HeaderBar
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveHeaderBarMethod (t :: Symbol) (o :: *) :: * where
ResolveHeaderBarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveHeaderBarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveHeaderBarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveHeaderBarMethod "add" o = Gtk.Container.ContainerAddMethodInfo
ResolveHeaderBarMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveHeaderBarMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveHeaderBarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveHeaderBarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveHeaderBarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveHeaderBarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveHeaderBarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveHeaderBarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveHeaderBarMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveHeaderBarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveHeaderBarMethod "childType" o = Gtk.Container.ContainerChildTypeMethodInfo
ResolveHeaderBarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveHeaderBarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveHeaderBarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveHeaderBarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveHeaderBarMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveHeaderBarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveHeaderBarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveHeaderBarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveHeaderBarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveHeaderBarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveHeaderBarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveHeaderBarMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveHeaderBarMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveHeaderBarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveHeaderBarMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveHeaderBarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveHeaderBarMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveHeaderBarMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveHeaderBarMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveHeaderBarMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveHeaderBarMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveHeaderBarMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveHeaderBarMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveHeaderBarMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveHeaderBarMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveHeaderBarMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveHeaderBarMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveHeaderBarMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveHeaderBarMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveHeaderBarMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveHeaderBarMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveHeaderBarMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveHeaderBarMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveHeaderBarMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveHeaderBarMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveHeaderBarMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveHeaderBarMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveHeaderBarMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveHeaderBarMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveHeaderBarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveHeaderBarMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveHeaderBarMethod "forall" o = Gtk.Container.ContainerForallMethodInfo
ResolveHeaderBarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveHeaderBarMethod "foreach" o = Gtk.Container.ContainerForeachMethodInfo
ResolveHeaderBarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveHeaderBarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveHeaderBarMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveHeaderBarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveHeaderBarMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveHeaderBarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveHeaderBarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveHeaderBarMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveHeaderBarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveHeaderBarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveHeaderBarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveHeaderBarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveHeaderBarMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveHeaderBarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveHeaderBarMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveHeaderBarMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveHeaderBarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveHeaderBarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveHeaderBarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveHeaderBarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveHeaderBarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveHeaderBarMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveHeaderBarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveHeaderBarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveHeaderBarMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveHeaderBarMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveHeaderBarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveHeaderBarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveHeaderBarMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveHeaderBarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveHeaderBarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveHeaderBarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveHeaderBarMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveHeaderBarMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveHeaderBarMethod "packEnd" o = HeaderBarPackEndMethodInfo
ResolveHeaderBarMethod "packStart" o = HeaderBarPackStartMethodInfo
ResolveHeaderBarMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveHeaderBarMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveHeaderBarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveHeaderBarMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveHeaderBarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveHeaderBarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveHeaderBarMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveHeaderBarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveHeaderBarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveHeaderBarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveHeaderBarMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveHeaderBarMethod "remove" o = Gtk.Container.ContainerRemoveMethodInfo
ResolveHeaderBarMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveHeaderBarMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveHeaderBarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveHeaderBarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveHeaderBarMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveHeaderBarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveHeaderBarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveHeaderBarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveHeaderBarMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveHeaderBarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveHeaderBarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveHeaderBarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveHeaderBarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveHeaderBarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveHeaderBarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveHeaderBarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveHeaderBarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveHeaderBarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveHeaderBarMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveHeaderBarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveHeaderBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveHeaderBarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveHeaderBarMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveHeaderBarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveHeaderBarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveHeaderBarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveHeaderBarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveHeaderBarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveHeaderBarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveHeaderBarMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveHeaderBarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveHeaderBarMethod "getChildren" o = Gtk.Container.ContainerGetChildrenMethodInfo
ResolveHeaderBarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveHeaderBarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveHeaderBarMethod "getCustomTitle" o = HeaderBarGetCustomTitleMethodInfo
ResolveHeaderBarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveHeaderBarMethod "getDecorationLayout" o = HeaderBarGetDecorationLayoutMethodInfo
ResolveHeaderBarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveHeaderBarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveHeaderBarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveHeaderBarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveHeaderBarMethod "getFocusHadjustment" o = Gtk.Container.ContainerGetFocusHadjustmentMethodInfo
ResolveHeaderBarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveHeaderBarMethod "getFocusVadjustment" o = Gtk.Container.ContainerGetFocusVadjustmentMethodInfo
ResolveHeaderBarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveHeaderBarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveHeaderBarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveHeaderBarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveHeaderBarMethod "getHasSubtitle" o = HeaderBarGetHasSubtitleMethodInfo
ResolveHeaderBarMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveHeaderBarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveHeaderBarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveHeaderBarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveHeaderBarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveHeaderBarMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveHeaderBarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveHeaderBarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveHeaderBarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveHeaderBarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveHeaderBarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveHeaderBarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveHeaderBarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveHeaderBarMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveHeaderBarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveHeaderBarMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveHeaderBarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveHeaderBarMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveHeaderBarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveHeaderBarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveHeaderBarMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveHeaderBarMethod "getPathForChild" o = Gtk.Container.ContainerGetPathForChildMethodInfo
ResolveHeaderBarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveHeaderBarMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveHeaderBarMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveHeaderBarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveHeaderBarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveHeaderBarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveHeaderBarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveHeaderBarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveHeaderBarMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveHeaderBarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveHeaderBarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveHeaderBarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveHeaderBarMethod "getShowTitleButtons" o = HeaderBarGetShowTitleButtonsMethodInfo
ResolveHeaderBarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveHeaderBarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveHeaderBarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveHeaderBarMethod "getSubtitle" o = HeaderBarGetSubtitleMethodInfo
ResolveHeaderBarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveHeaderBarMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveHeaderBarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveHeaderBarMethod "getTitle" o = HeaderBarGetTitleMethodInfo
ResolveHeaderBarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveHeaderBarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveHeaderBarMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveHeaderBarMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveHeaderBarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveHeaderBarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveHeaderBarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveHeaderBarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveHeaderBarMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveHeaderBarMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveHeaderBarMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveHeaderBarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveHeaderBarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveHeaderBarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveHeaderBarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveHeaderBarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveHeaderBarMethod "setCustomTitle" o = HeaderBarSetCustomTitleMethodInfo
ResolveHeaderBarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveHeaderBarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveHeaderBarMethod "setDecorationLayout" o = HeaderBarSetDecorationLayoutMethodInfo
ResolveHeaderBarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveHeaderBarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveHeaderBarMethod "setFocusHadjustment" o = Gtk.Container.ContainerSetFocusHadjustmentMethodInfo
ResolveHeaderBarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveHeaderBarMethod "setFocusVadjustment" o = Gtk.Container.ContainerSetFocusVadjustmentMethodInfo
ResolveHeaderBarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveHeaderBarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveHeaderBarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveHeaderBarMethod "setHasSubtitle" o = HeaderBarSetHasSubtitleMethodInfo
ResolveHeaderBarMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveHeaderBarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveHeaderBarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveHeaderBarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveHeaderBarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveHeaderBarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveHeaderBarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveHeaderBarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveHeaderBarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveHeaderBarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveHeaderBarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveHeaderBarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveHeaderBarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveHeaderBarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveHeaderBarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveHeaderBarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveHeaderBarMethod "setShowTitleButtons" o = HeaderBarSetShowTitleButtonsMethodInfo
ResolveHeaderBarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveHeaderBarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveHeaderBarMethod "setSubtitle" o = HeaderBarSetSubtitleMethodInfo
ResolveHeaderBarMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveHeaderBarMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveHeaderBarMethod "setTitle" o = HeaderBarSetTitleMethodInfo
ResolveHeaderBarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveHeaderBarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveHeaderBarMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveHeaderBarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveHeaderBarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveHeaderBarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveHeaderBarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveHeaderBarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveHeaderBarMethod t HeaderBar, O.MethodInfo info HeaderBar p) => OL.IsLabel t (HeaderBar -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getHeaderBarCustomTitle :: (MonadIO m, IsHeaderBar o) => o -> m (Maybe Gtk.Widget.Widget)
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 "custom-title" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setHeaderBarCustomTitle :: (MonadIO m, IsHeaderBar o, Gtk.Widget.IsWidget a) => o -> a -> m ()
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 "custom-title" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructHeaderBarCustomTitle :: (IsHeaderBar o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "custom-title" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearHeaderBarCustomTitle :: (MonadIO m, IsHeaderBar o) => o -> m ()
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 "custom-title" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data HeaderBarCustomTitlePropertyInfo
instance AttrInfo HeaderBarCustomTitlePropertyInfo where
type AttrAllowedOps HeaderBarCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HeaderBarCustomTitlePropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarCustomTitlePropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint HeaderBarCustomTitlePropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType HeaderBarCustomTitlePropertyInfo = Gtk.Widget.Widget
type AttrGetType HeaderBarCustomTitlePropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel HeaderBarCustomTitlePropertyInfo = "custom-title"
type AttrOrigin HeaderBarCustomTitlePropertyInfo = HeaderBar
attrGet = getHeaderBarCustomTitle
attrSet = setHeaderBarCustomTitle
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructHeaderBarCustomTitle
attrClear = clearHeaderBarCustomTitle
#endif
getHeaderBarDecorationLayout :: (MonadIO m, IsHeaderBar o) => o -> m T.Text
obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getHeaderBarDecorationLayout" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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 "decoration-layout"
setHeaderBarDecorationLayout :: (MonadIO m, IsHeaderBar o) => o -> T.Text -> m ()
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 "decoration-layout" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructHeaderBarDecorationLayout :: (IsHeaderBar o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "decoration-layout" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearHeaderBarDecorationLayout :: (MonadIO m, IsHeaderBar o) => o -> m ()
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 "decoration-layout" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data HeaderBarDecorationLayoutPropertyInfo
instance AttrInfo HeaderBarDecorationLayoutPropertyInfo where
type AttrAllowedOps HeaderBarDecorationLayoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HeaderBarDecorationLayoutPropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HeaderBarDecorationLayoutPropertyInfo = (~) T.Text
type AttrTransferType HeaderBarDecorationLayoutPropertyInfo = T.Text
type AttrGetType HeaderBarDecorationLayoutPropertyInfo = T.Text
type AttrLabel HeaderBarDecorationLayoutPropertyInfo = "decoration-layout"
type AttrOrigin HeaderBarDecorationLayoutPropertyInfo = HeaderBar
attrGet = getHeaderBarDecorationLayout
attrSet = setHeaderBarDecorationLayout
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarDecorationLayout
attrClear = clearHeaderBarDecorationLayout
#endif
getHeaderBarDecorationLayoutSet :: (MonadIO m, IsHeaderBar o) => o -> m Bool
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 "decoration-layout-set"
setHeaderBarDecorationLayoutSet :: (MonadIO m, IsHeaderBar o) => o -> Bool -> m ()
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 "decoration-layout-set" Bool
val
constructHeaderBarDecorationLayoutSet :: (IsHeaderBar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "decoration-layout-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data HeaderBarDecorationLayoutSetPropertyInfo
instance AttrInfo HeaderBarDecorationLayoutSetPropertyInfo where
type AttrAllowedOps HeaderBarDecorationLayoutSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint HeaderBarDecorationLayoutSetPropertyInfo = (~) Bool
type AttrTransferType HeaderBarDecorationLayoutSetPropertyInfo = Bool
type AttrGetType HeaderBarDecorationLayoutSetPropertyInfo = Bool
type AttrLabel HeaderBarDecorationLayoutSetPropertyInfo = "decoration-layout-set"
type AttrOrigin HeaderBarDecorationLayoutSetPropertyInfo = HeaderBar
attrGet = getHeaderBarDecorationLayoutSet
attrSet = setHeaderBarDecorationLayoutSet
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarDecorationLayoutSet
attrClear = undefined
#endif
getHeaderBarHasSubtitle :: (MonadIO m, IsHeaderBar o) => o -> m Bool
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 "has-subtitle"
setHeaderBarHasSubtitle :: (MonadIO m, IsHeaderBar o) => o -> Bool -> m ()
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 "has-subtitle" Bool
val
constructHeaderBarHasSubtitle :: (IsHeaderBar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "has-subtitle" Bool
val
#if defined(ENABLE_OVERLOADING)
data HeaderBarHasSubtitlePropertyInfo
instance AttrInfo HeaderBarHasSubtitlePropertyInfo where
type AttrAllowedOps HeaderBarHasSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint HeaderBarHasSubtitlePropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarHasSubtitlePropertyInfo = (~) Bool
type AttrTransferTypeConstraint HeaderBarHasSubtitlePropertyInfo = (~) Bool
type AttrTransferType HeaderBarHasSubtitlePropertyInfo = Bool
type AttrGetType HeaderBarHasSubtitlePropertyInfo = Bool
type AttrLabel HeaderBarHasSubtitlePropertyInfo = "has-subtitle"
type AttrOrigin HeaderBarHasSubtitlePropertyInfo = HeaderBar
attrGet = getHeaderBarHasSubtitle
attrSet = setHeaderBarHasSubtitle
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarHasSubtitle
attrClear = undefined
#endif
getHeaderBarShowTitleButtons :: (MonadIO m, IsHeaderBar o) => o -> m Bool
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 "show-title-buttons"
setHeaderBarShowTitleButtons :: (MonadIO m, IsHeaderBar o) => o -> Bool -> m ()
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 "show-title-buttons" Bool
val
constructHeaderBarShowTitleButtons :: (IsHeaderBar o) => Bool -> IO (GValueConstruct o)
val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "show-title-buttons" Bool
val
#if defined(ENABLE_OVERLOADING)
data HeaderBarShowTitleButtonsPropertyInfo
instance AttrInfo HeaderBarShowTitleButtonsPropertyInfo where
type AttrAllowedOps HeaderBarShowTitleButtonsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint HeaderBarShowTitleButtonsPropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarShowTitleButtonsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint HeaderBarShowTitleButtonsPropertyInfo = (~) Bool
type AttrTransferType HeaderBarShowTitleButtonsPropertyInfo = Bool
type AttrGetType HeaderBarShowTitleButtonsPropertyInfo = Bool
type AttrLabel HeaderBarShowTitleButtonsPropertyInfo = "show-title-buttons"
type AttrOrigin HeaderBarShowTitleButtonsPropertyInfo = HeaderBar
attrGet = getHeaderBarShowTitleButtons
attrSet = setHeaderBarShowTitleButtons
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarShowTitleButtons
attrClear = undefined
#endif
getHeaderBarSpacing :: (MonadIO m, IsHeaderBar o) => o -> m Int32
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"
setHeaderBarSpacing :: (MonadIO m, IsHeaderBar o) => o -> Int32 -> m ()
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
constructHeaderBarSpacing :: (IsHeaderBar o) => Int32 -> IO (GValueConstruct o)
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 HeaderBarSpacingPropertyInfo
instance AttrInfo HeaderBarSpacingPropertyInfo where
type AttrAllowedOps HeaderBarSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint HeaderBarSpacingPropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint HeaderBarSpacingPropertyInfo = (~) Int32
type AttrTransferType HeaderBarSpacingPropertyInfo = Int32
type AttrGetType HeaderBarSpacingPropertyInfo = Int32
type AttrLabel HeaderBarSpacingPropertyInfo = "spacing"
type AttrOrigin HeaderBarSpacingPropertyInfo = HeaderBar
attrGet = getHeaderBarSpacing
attrSet = setHeaderBarSpacing
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarSpacing
attrClear = undefined
#endif
getHeaderBarSubtitle :: (MonadIO m, IsHeaderBar o) => o -> m (Maybe T.Text)
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 "subtitle"
setHeaderBarSubtitle :: (MonadIO m, IsHeaderBar o) => o -> T.Text -> m ()
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 "subtitle" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructHeaderBarSubtitle :: (IsHeaderBar o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "subtitle" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearHeaderBarSubtitle :: (MonadIO m, IsHeaderBar o) => o -> m ()
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 "subtitle" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data HeaderBarSubtitlePropertyInfo
instance AttrInfo HeaderBarSubtitlePropertyInfo where
type AttrAllowedOps HeaderBarSubtitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HeaderBarSubtitlePropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HeaderBarSubtitlePropertyInfo = (~) T.Text
type AttrTransferType HeaderBarSubtitlePropertyInfo = T.Text
type AttrGetType HeaderBarSubtitlePropertyInfo = (Maybe T.Text)
type AttrLabel HeaderBarSubtitlePropertyInfo = "subtitle"
type AttrOrigin HeaderBarSubtitlePropertyInfo = HeaderBar
attrGet = getHeaderBarSubtitle
attrSet = setHeaderBarSubtitle
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarSubtitle
attrClear = clearHeaderBarSubtitle
#endif
getHeaderBarTitle :: (MonadIO m, IsHeaderBar o) => o -> m (Maybe T.Text)
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 "title"
setHeaderBarTitle :: (MonadIO m, IsHeaderBar o) => o -> T.Text -> m ()
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 "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructHeaderBarTitle :: (IsHeaderBar o) => T.Text -> IO (GValueConstruct o)
val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearHeaderBarTitle :: (MonadIO m, IsHeaderBar o) => o -> m ()
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 "title" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data HeaderBarTitlePropertyInfo
instance AttrInfo HeaderBarTitlePropertyInfo where
type AttrAllowedOps HeaderBarTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint HeaderBarTitlePropertyInfo = IsHeaderBar
type AttrSetTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint HeaderBarTitlePropertyInfo = (~) T.Text
type AttrTransferType HeaderBarTitlePropertyInfo = T.Text
type AttrGetType HeaderBarTitlePropertyInfo = (Maybe T.Text)
type AttrLabel HeaderBarTitlePropertyInfo = "title"
type AttrOrigin HeaderBarTitlePropertyInfo = HeaderBar
attrGet = getHeaderBarTitle
attrSet = setHeaderBarTitle
attrTransfer _ v = do
return v
attrConstruct = constructHeaderBarTitle
attrClear = clearHeaderBarTitle
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList HeaderBar
type instance O.AttributeList HeaderBar = HeaderBarAttributeList
type HeaderBarAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("customTitle", HeaderBarCustomTitlePropertyInfo), '("decorationLayout", HeaderBarDecorationLayoutPropertyInfo), '("decorationLayoutSet", HeaderBarDecorationLayoutSetPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasSubtitle", HeaderBarHasSubtitlePropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("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), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("showTitleButtons", HeaderBarShowTitleButtonsPropertyInfo), '("spacing", HeaderBarSpacingPropertyInfo), '("subtitle", HeaderBarSubtitlePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("title", HeaderBarTitlePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
headerBarCustomTitle :: AttrLabelProxy "customTitle"
headerBarCustomTitle = AttrLabelProxy
headerBarDecorationLayout :: AttrLabelProxy "decorationLayout"
headerBarDecorationLayout = AttrLabelProxy
headerBarDecorationLayoutSet :: AttrLabelProxy "decorationLayoutSet"
headerBarDecorationLayoutSet = AttrLabelProxy
headerBarHasSubtitle :: AttrLabelProxy "hasSubtitle"
headerBarHasSubtitle = AttrLabelProxy
headerBarShowTitleButtons :: AttrLabelProxy "showTitleButtons"
headerBarShowTitleButtons = AttrLabelProxy
headerBarSpacing :: AttrLabelProxy "spacing"
headerBarSpacing = AttrLabelProxy
headerBarSubtitle :: AttrLabelProxy "subtitle"
headerBarSubtitle = AttrLabelProxy
headerBarTitle :: AttrLabelProxy "title"
headerBarTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList HeaderBar = HeaderBarSignalList
type HeaderBarSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("add", Gtk.Container.ContainerAddSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("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), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("remove", Gtk.Container.ContainerRemoveSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_header_bar_new" ::
IO (Ptr HeaderBar)
headerBarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m HeaderBar
= IO HeaderBar -> m HeaderBar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HeaderBar -> m HeaderBar) -> IO HeaderBar -> m HeaderBar
forall a b. (a -> b) -> a -> b
$ do
Ptr HeaderBar
result <- IO (Ptr HeaderBar)
gtk_header_bar_new
Text -> Ptr HeaderBar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "headerBarNew" Ptr HeaderBar
result
HeaderBar
result' <- ((ManagedPtr HeaderBar -> HeaderBar)
-> Ptr HeaderBar -> IO HeaderBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr HeaderBar -> HeaderBar
HeaderBar) Ptr HeaderBar
result
HeaderBar -> IO HeaderBar
forall (m :: * -> *) a. Monad m => a -> m a
return HeaderBar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_header_bar_get_custom_title" ::
Ptr HeaderBar ->
IO (Ptr Gtk.Widget.Widget)
headerBarGetCustomTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m (Maybe Gtk.Widget.Widget)
bar :: a
bar = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
Ptr Widget
result <- Ptr HeaderBar -> IO (Ptr Widget)
gtk_header_bar_get_custom_title Ptr HeaderBar
bar'
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
bar
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetCustomTitleMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetCustomTitleMethodInfo a signature where
overloadedMethod = headerBarGetCustomTitle
#endif
foreign import ccall "gtk_header_bar_get_decoration_layout" ::
Ptr HeaderBar ->
IO CString
headerBarGetDecorationLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m T.Text
bar :: a
bar = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
result <- Ptr HeaderBar -> IO CString
gtk_header_bar_get_decoration_layout Ptr HeaderBar
bar'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "headerBarGetDecorationLayout" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetDecorationLayoutMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetDecorationLayoutMethodInfo a signature where
overloadedMethod = headerBarGetDecorationLayout
#endif
foreign import ccall "gtk_header_bar_get_has_subtitle" ::
Ptr HeaderBar ->
IO CInt
headerBarGetHasSubtitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m Bool
bar :: a
bar = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CInt
result <- Ptr HeaderBar -> IO CInt
gtk_header_bar_get_has_subtitle Ptr HeaderBar
bar'
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
bar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetHasSubtitleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetHasSubtitleMethodInfo a signature where
overloadedMethod = headerBarGetHasSubtitle
#endif
foreign import ccall "gtk_header_bar_get_show_title_buttons" ::
Ptr HeaderBar ->
IO CInt
headerBarGetShowTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m Bool
bar :: a
bar = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CInt
result <- Ptr HeaderBar -> IO CInt
gtk_header_bar_get_show_title_buttons Ptr HeaderBar
bar'
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
bar
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetShowTitleButtonsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetShowTitleButtonsMethodInfo a signature where
overloadedMethod = headerBarGetShowTitleButtons
#endif
foreign import ccall "gtk_header_bar_get_subtitle" ::
Ptr HeaderBar ->
IO CString
headerBarGetSubtitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m (Maybe T.Text)
bar :: a
bar = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
result <- Ptr HeaderBar -> IO CString
gtk_header_bar_get_subtitle Ptr HeaderBar
bar'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
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
bar
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetSubtitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetSubtitleMethodInfo a signature where
overloadedMethod = headerBarGetSubtitle
#endif
foreign import ccall "gtk_header_bar_get_title" ::
Ptr HeaderBar ->
IO CString
headerBarGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> m (Maybe T.Text)
bar :: a
bar = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
result <- Ptr HeaderBar -> IO CString
gtk_header_bar_get_title Ptr HeaderBar
bar'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \result' :: CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
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
bar
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data HeaderBarGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarGetTitleMethodInfo a signature where
overloadedMethod = headerBarGetTitle
#endif
foreign import ccall "gtk_header_bar_pack_end" ::
Ptr HeaderBar ->
Ptr Gtk.Widget.Widget ->
IO ()
headerBarPackEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
bar :: a
bar child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr HeaderBar -> Ptr Widget -> IO ()
gtk_header_bar_pack_end Ptr HeaderBar
bar' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarPackEndMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) => O.MethodInfo HeaderBarPackEndMethodInfo a signature where
overloadedMethod = headerBarPackEnd
#endif
foreign import ccall "gtk_header_bar_pack_start" ::
Ptr HeaderBar ->
Ptr Gtk.Widget.Widget ->
IO ()
headerBarPackStart ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
bar :: a
bar child :: b
child = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr HeaderBar -> Ptr Widget -> IO ()
gtk_header_bar_pack_start Ptr HeaderBar
bar' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarPackStartMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) => O.MethodInfo HeaderBarPackStartMethodInfo a signature where
overloadedMethod = headerBarPackStart
#endif
foreign import ccall "gtk_header_bar_set_custom_title" ::
Ptr HeaderBar ->
Ptr Gtk.Widget.Widget ->
IO ()
headerBarSetCustomTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
bar :: a
bar titleWidget :: Maybe b
titleWidget = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
Ptr Widget
maybeTitleWidget <- case Maybe b
titleWidget of
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jTitleWidget :: b
jTitleWidget -> do
Ptr Widget
jTitleWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTitleWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jTitleWidget'
Ptr HeaderBar -> Ptr Widget -> IO ()
gtk_header_bar_set_custom_title Ptr HeaderBar
bar' Ptr Widget
maybeTitleWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
titleWidget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetCustomTitleMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsHeaderBar a, Gtk.Widget.IsWidget b) => O.MethodInfo HeaderBarSetCustomTitleMethodInfo a signature where
overloadedMethod = headerBarSetCustomTitle
#endif
foreign import ccall "gtk_header_bar_set_decoration_layout" ::
Ptr HeaderBar ->
CString ->
IO ()
headerBarSetDecorationLayout ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> Maybe (T.Text)
-> m ()
bar :: a
bar layout :: Maybe Text
layout = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
maybeLayout <- case Maybe Text
layout of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jLayout :: Text
jLayout -> do
CString
jLayout' <- Text -> IO CString
textToCString Text
jLayout
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLayout'
Ptr HeaderBar -> CString -> IO ()
gtk_header_bar_set_decoration_layout Ptr HeaderBar
bar' CString
maybeLayout
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLayout
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetDecorationLayoutMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarSetDecorationLayoutMethodInfo a signature where
overloadedMethod = headerBarSetDecorationLayout
#endif
foreign import ccall "gtk_header_bar_set_has_subtitle" ::
Ptr HeaderBar ->
CInt ->
IO ()
headerBarSetHasSubtitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> Bool
-> m ()
bar :: a
bar setting :: Bool
setting = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
let setting' :: CInt
setting' = (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
setting
Ptr HeaderBar -> CInt -> IO ()
gtk_header_bar_set_has_subtitle Ptr HeaderBar
bar' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetHasSubtitleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarSetHasSubtitleMethodInfo a signature where
overloadedMethod = headerBarSetHasSubtitle
#endif
foreign import ccall "gtk_header_bar_set_show_title_buttons" ::
Ptr HeaderBar ->
CInt ->
IO ()
headerBarSetShowTitleButtons ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> Bool
-> m ()
bar :: a
bar setting :: Bool
setting = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
let setting' :: CInt
setting' = (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
setting
Ptr HeaderBar -> CInt -> IO ()
gtk_header_bar_set_show_title_buttons Ptr HeaderBar
bar' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetShowTitleButtonsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarSetShowTitleButtonsMethodInfo a signature where
overloadedMethod = headerBarSetShowTitleButtons
#endif
foreign import ccall "gtk_header_bar_set_subtitle" ::
Ptr HeaderBar ->
CString ->
IO ()
headerBarSetSubtitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> Maybe (T.Text)
-> m ()
bar :: a
bar subtitle :: Maybe Text
subtitle = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
maybeSubtitle <- case Maybe Text
subtitle of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jSubtitle :: Text
jSubtitle -> do
CString
jSubtitle' <- Text -> IO CString
textToCString Text
jSubtitle
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jSubtitle'
Ptr HeaderBar -> CString -> IO ()
gtk_header_bar_set_subtitle Ptr HeaderBar
bar' CString
maybeSubtitle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeSubtitle
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetSubtitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarSetSubtitleMethodInfo a signature where
overloadedMethod = headerBarSetSubtitle
#endif
foreign import ccall "gtk_header_bar_set_title" ::
Ptr HeaderBar ->
CString ->
IO ()
headerBarSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsHeaderBar a) =>
a
-> Maybe (T.Text)
-> m ()
bar :: a
bar title :: Maybe Text
title = 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 HeaderBar
bar' <- a -> IO (Ptr HeaderBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
bar
CString
maybeTitle <- case Maybe Text
title of
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just jTitle :: Text
jTitle -> do
CString
jTitle' <- Text -> IO CString
textToCString Text
jTitle
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTitle'
Ptr HeaderBar -> CString -> IO ()
gtk_header_bar_set_title Ptr HeaderBar
bar' CString
maybeTitle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
bar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeTitle
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HeaderBarSetTitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsHeaderBar a) => O.MethodInfo HeaderBarSetTitleMethodInfo a signature where
overloadedMethod = headerBarSetTitle
#endif