{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.ToolbarView
(
ToolbarView(..) ,
IsToolbarView ,
toToolbarView ,
#if defined(ENABLE_OVERLOADING)
ResolveToolbarViewMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewAddBottomBarMethodInfo ,
#endif
toolbarViewAddBottomBar ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewAddTopBarMethodInfo ,
#endif
toolbarViewAddTopBar ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetBottomBarHeightMethodInfo ,
#endif
toolbarViewGetBottomBarHeight ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetBottomBarStyleMethodInfo ,
#endif
toolbarViewGetBottomBarStyle ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetContentMethodInfo ,
#endif
toolbarViewGetContent ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetExtendContentToBottomEdgeMethodInfo,
#endif
toolbarViewGetExtendContentToBottomEdge ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetExtendContentToTopEdgeMethodInfo,
#endif
toolbarViewGetExtendContentToTopEdge ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetRevealBottomBarsMethodInfo,
#endif
toolbarViewGetRevealBottomBars ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetRevealTopBarsMethodInfo ,
#endif
toolbarViewGetRevealTopBars ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetTopBarHeightMethodInfo ,
#endif
toolbarViewGetTopBarHeight ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewGetTopBarStyleMethodInfo ,
#endif
toolbarViewGetTopBarStyle ,
toolbarViewNew ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewRemoveMethodInfo ,
#endif
toolbarViewRemove ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetBottomBarStyleMethodInfo ,
#endif
toolbarViewSetBottomBarStyle ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetContentMethodInfo ,
#endif
toolbarViewSetContent ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetExtendContentToBottomEdgeMethodInfo,
#endif
toolbarViewSetExtendContentToBottomEdge ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetExtendContentToTopEdgeMethodInfo,
#endif
toolbarViewSetExtendContentToTopEdge ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetRevealBottomBarsMethodInfo,
#endif
toolbarViewSetRevealBottomBars ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetRevealTopBarsMethodInfo ,
#endif
toolbarViewSetRevealTopBars ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewSetTopBarStyleMethodInfo ,
#endif
toolbarViewSetTopBarStyle ,
#if defined(ENABLE_OVERLOADING)
ToolbarViewBottomBarHeightPropertyInfo ,
#endif
getToolbarViewBottomBarHeight ,
#if defined(ENABLE_OVERLOADING)
toolbarViewBottomBarHeight ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewBottomBarStylePropertyInfo ,
#endif
constructToolbarViewBottomBarStyle ,
getToolbarViewBottomBarStyle ,
setToolbarViewBottomBarStyle ,
#if defined(ENABLE_OVERLOADING)
toolbarViewBottomBarStyle ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewContentPropertyInfo ,
#endif
clearToolbarViewContent ,
constructToolbarViewContent ,
getToolbarViewContent ,
setToolbarViewContent ,
#if defined(ENABLE_OVERLOADING)
toolbarViewContent ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewExtendContentToBottomEdgePropertyInfo,
#endif
constructToolbarViewExtendContentToBottomEdge,
getToolbarViewExtendContentToBottomEdge ,
setToolbarViewExtendContentToBottomEdge ,
#if defined(ENABLE_OVERLOADING)
toolbarViewExtendContentToBottomEdge ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewExtendContentToTopEdgePropertyInfo,
#endif
constructToolbarViewExtendContentToTopEdge,
getToolbarViewExtendContentToTopEdge ,
setToolbarViewExtendContentToTopEdge ,
#if defined(ENABLE_OVERLOADING)
toolbarViewExtendContentToTopEdge ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewRevealBottomBarsPropertyInfo ,
#endif
constructToolbarViewRevealBottomBars ,
getToolbarViewRevealBottomBars ,
setToolbarViewRevealBottomBars ,
#if defined(ENABLE_OVERLOADING)
toolbarViewRevealBottomBars ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewRevealTopBarsPropertyInfo ,
#endif
constructToolbarViewRevealTopBars ,
getToolbarViewRevealTopBars ,
setToolbarViewRevealTopBars ,
#if defined(ENABLE_OVERLOADING)
toolbarViewRevealTopBars ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewTopBarHeightPropertyInfo ,
#endif
getToolbarViewTopBarHeight ,
#if defined(ENABLE_OVERLOADING)
toolbarViewTopBarHeight ,
#endif
#if defined(ENABLE_OVERLOADING)
ToolbarViewTopBarStylePropertyInfo ,
#endif
constructToolbarViewTopBarStyle ,
getToolbarViewTopBarStyle ,
setToolbarViewTopBarStyle ,
#if defined(ENABLE_OVERLOADING)
toolbarViewTopBarStyle ,
#endif
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#else
import {-# SOURCE #-} qualified GI.Adw.Enums as Adw.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype ToolbarView = ToolbarView (SP.ManagedPtr ToolbarView)
deriving (ToolbarView -> ToolbarView -> Bool
(ToolbarView -> ToolbarView -> Bool)
-> (ToolbarView -> ToolbarView -> Bool) -> Eq ToolbarView
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ToolbarView -> ToolbarView -> Bool
== :: ToolbarView -> ToolbarView -> Bool
$c/= :: ToolbarView -> ToolbarView -> Bool
/= :: ToolbarView -> ToolbarView -> Bool
Eq)
instance SP.ManagedPtrNewtype ToolbarView where
toManagedPtr :: ToolbarView -> ManagedPtr ToolbarView
toManagedPtr (ToolbarView ManagedPtr ToolbarView
p) = ManagedPtr ToolbarView
p
foreign import ccall "adw_toolbar_view_get_type"
c_adw_toolbar_view_get_type :: IO B.Types.GType
instance B.Types.TypedObject ToolbarView where
glibType :: IO GType
glibType = IO GType
c_adw_toolbar_view_get_type
instance B.Types.GObject ToolbarView
class (SP.GObject o, O.IsDescendantOf ToolbarView o) => IsToolbarView o
instance (SP.GObject o, O.IsDescendantOf ToolbarView o) => IsToolbarView o
instance O.HasParentTypes ToolbarView
type instance O.ParentTypes ToolbarView = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toToolbarView :: (MIO.MonadIO m, IsToolbarView o) => o -> m ToolbarView
toToolbarView :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m ToolbarView
toToolbarView = IO ToolbarView -> m ToolbarView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ToolbarView -> m ToolbarView)
-> (o -> IO ToolbarView) -> o -> m ToolbarView
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ToolbarView -> ToolbarView) -> o -> IO ToolbarView
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ToolbarView -> ToolbarView
ToolbarView
instance B.GValue.IsGValue (Maybe ToolbarView) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_toolbar_view_get_type
gvalueSet_ :: Ptr GValue -> Maybe ToolbarView -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ToolbarView
P.Nothing = Ptr GValue -> Ptr ToolbarView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ToolbarView
forall a. Ptr a
FP.nullPtr :: FP.Ptr ToolbarView)
gvalueSet_ Ptr GValue
gv (P.Just ToolbarView
obj) = ToolbarView -> (Ptr ToolbarView -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ToolbarView
obj (Ptr GValue -> Ptr ToolbarView -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ToolbarView)
gvalueGet_ Ptr GValue
gv = do
Ptr ToolbarView
ptr <- Ptr GValue -> IO (Ptr ToolbarView)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ToolbarView)
if Ptr ToolbarView
ptr Ptr ToolbarView -> Ptr ToolbarView -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ToolbarView
forall a. Ptr a
FP.nullPtr
then ToolbarView -> Maybe ToolbarView
forall a. a -> Maybe a
P.Just (ToolbarView -> Maybe ToolbarView)
-> IO ToolbarView -> IO (Maybe ToolbarView)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ToolbarView -> ToolbarView)
-> Ptr ToolbarView -> IO ToolbarView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ToolbarView -> ToolbarView
ToolbarView Ptr ToolbarView
ptr
else Maybe ToolbarView -> IO (Maybe ToolbarView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ToolbarView
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveToolbarViewMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveToolbarViewMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveToolbarViewMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveToolbarViewMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveToolbarViewMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveToolbarViewMethod "addBottomBar" o = ToolbarViewAddBottomBarMethodInfo
ResolveToolbarViewMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveToolbarViewMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveToolbarViewMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveToolbarViewMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveToolbarViewMethod "addTopBar" o = ToolbarViewAddTopBarMethodInfo
ResolveToolbarViewMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveToolbarViewMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveToolbarViewMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveToolbarViewMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveToolbarViewMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveToolbarViewMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveToolbarViewMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveToolbarViewMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveToolbarViewMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveToolbarViewMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveToolbarViewMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveToolbarViewMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveToolbarViewMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveToolbarViewMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveToolbarViewMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveToolbarViewMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveToolbarViewMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveToolbarViewMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveToolbarViewMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveToolbarViewMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveToolbarViewMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveToolbarViewMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveToolbarViewMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveToolbarViewMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveToolbarViewMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveToolbarViewMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveToolbarViewMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveToolbarViewMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveToolbarViewMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveToolbarViewMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveToolbarViewMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveToolbarViewMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveToolbarViewMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveToolbarViewMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveToolbarViewMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveToolbarViewMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveToolbarViewMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveToolbarViewMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveToolbarViewMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveToolbarViewMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveToolbarViewMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveToolbarViewMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveToolbarViewMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveToolbarViewMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveToolbarViewMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveToolbarViewMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveToolbarViewMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveToolbarViewMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveToolbarViewMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveToolbarViewMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveToolbarViewMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveToolbarViewMethod "remove" o = ToolbarViewRemoveMethodInfo
ResolveToolbarViewMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveToolbarViewMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveToolbarViewMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveToolbarViewMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveToolbarViewMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveToolbarViewMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveToolbarViewMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveToolbarViewMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveToolbarViewMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveToolbarViewMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveToolbarViewMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveToolbarViewMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveToolbarViewMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveToolbarViewMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveToolbarViewMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveToolbarViewMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveToolbarViewMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveToolbarViewMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveToolbarViewMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveToolbarViewMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveToolbarViewMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveToolbarViewMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveToolbarViewMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveToolbarViewMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveToolbarViewMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveToolbarViewMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveToolbarViewMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveToolbarViewMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveToolbarViewMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveToolbarViewMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveToolbarViewMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveToolbarViewMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveToolbarViewMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveToolbarViewMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveToolbarViewMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveToolbarViewMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveToolbarViewMethod "getBottomBarHeight" o = ToolbarViewGetBottomBarHeightMethodInfo
ResolveToolbarViewMethod "getBottomBarStyle" o = ToolbarViewGetBottomBarStyleMethodInfo
ResolveToolbarViewMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveToolbarViewMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveToolbarViewMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveToolbarViewMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveToolbarViewMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveToolbarViewMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveToolbarViewMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveToolbarViewMethod "getContent" o = ToolbarViewGetContentMethodInfo
ResolveToolbarViewMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveToolbarViewMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveToolbarViewMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveToolbarViewMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveToolbarViewMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveToolbarViewMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveToolbarViewMethod "getExtendContentToBottomEdge" o = ToolbarViewGetExtendContentToBottomEdgeMethodInfo
ResolveToolbarViewMethod "getExtendContentToTopEdge" o = ToolbarViewGetExtendContentToTopEdgeMethodInfo
ResolveToolbarViewMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveToolbarViewMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveToolbarViewMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveToolbarViewMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveToolbarViewMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveToolbarViewMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveToolbarViewMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveToolbarViewMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveToolbarViewMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveToolbarViewMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveToolbarViewMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveToolbarViewMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveToolbarViewMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveToolbarViewMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveToolbarViewMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveToolbarViewMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveToolbarViewMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveToolbarViewMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveToolbarViewMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveToolbarViewMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveToolbarViewMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveToolbarViewMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveToolbarViewMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveToolbarViewMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveToolbarViewMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveToolbarViewMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveToolbarViewMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveToolbarViewMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveToolbarViewMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveToolbarViewMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveToolbarViewMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveToolbarViewMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveToolbarViewMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveToolbarViewMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveToolbarViewMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveToolbarViewMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveToolbarViewMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveToolbarViewMethod "getRevealBottomBars" o = ToolbarViewGetRevealBottomBarsMethodInfo
ResolveToolbarViewMethod "getRevealTopBars" o = ToolbarViewGetRevealTopBarsMethodInfo
ResolveToolbarViewMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveToolbarViewMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveToolbarViewMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveToolbarViewMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveToolbarViewMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveToolbarViewMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveToolbarViewMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveToolbarViewMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveToolbarViewMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveToolbarViewMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveToolbarViewMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveToolbarViewMethod "getTopBarHeight" o = ToolbarViewGetTopBarHeightMethodInfo
ResolveToolbarViewMethod "getTopBarStyle" o = ToolbarViewGetTopBarStyleMethodInfo
ResolveToolbarViewMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveToolbarViewMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveToolbarViewMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveToolbarViewMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveToolbarViewMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveToolbarViewMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveToolbarViewMethod "setBottomBarStyle" o = ToolbarViewSetBottomBarStyleMethodInfo
ResolveToolbarViewMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveToolbarViewMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveToolbarViewMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveToolbarViewMethod "setContent" o = ToolbarViewSetContentMethodInfo
ResolveToolbarViewMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveToolbarViewMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveToolbarViewMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveToolbarViewMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveToolbarViewMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveToolbarViewMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveToolbarViewMethod "setExtendContentToBottomEdge" o = ToolbarViewSetExtendContentToBottomEdgeMethodInfo
ResolveToolbarViewMethod "setExtendContentToTopEdge" o = ToolbarViewSetExtendContentToTopEdgeMethodInfo
ResolveToolbarViewMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveToolbarViewMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveToolbarViewMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveToolbarViewMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveToolbarViewMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveToolbarViewMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveToolbarViewMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveToolbarViewMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveToolbarViewMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveToolbarViewMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveToolbarViewMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveToolbarViewMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveToolbarViewMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveToolbarViewMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveToolbarViewMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveToolbarViewMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveToolbarViewMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveToolbarViewMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveToolbarViewMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveToolbarViewMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveToolbarViewMethod "setRevealBottomBars" o = ToolbarViewSetRevealBottomBarsMethodInfo
ResolveToolbarViewMethod "setRevealTopBars" o = ToolbarViewSetRevealTopBarsMethodInfo
ResolveToolbarViewMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveToolbarViewMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveToolbarViewMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveToolbarViewMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveToolbarViewMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveToolbarViewMethod "setTopBarStyle" o = ToolbarViewSetTopBarStyleMethodInfo
ResolveToolbarViewMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveToolbarViewMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveToolbarViewMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveToolbarViewMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveToolbarViewMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveToolbarViewMethod t ToolbarView, O.OverloadedMethod info ToolbarView p) => OL.IsLabel t (ToolbarView -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveToolbarViewMethod t ToolbarView, O.OverloadedMethod info ToolbarView p, R.HasField t ToolbarView p) => R.HasField t ToolbarView p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveToolbarViewMethod t ToolbarView, O.OverloadedMethodInfo info ToolbarView) => OL.IsLabel t (O.MethodProxy info ToolbarView) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getToolbarViewBottomBarHeight :: (MonadIO m, IsToolbarView o) => o -> m Int32
getToolbarViewBottomBarHeight :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m Int32
getToolbarViewBottomBarHeight o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"bottom-bar-height"
#if defined(ENABLE_OVERLOADING)
data ToolbarViewBottomBarHeightPropertyInfo
instance AttrInfo ToolbarViewBottomBarHeightPropertyInfo where
type AttrAllowedOps ToolbarViewBottomBarHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewBottomBarHeightPropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewBottomBarHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint ToolbarViewBottomBarHeightPropertyInfo = (~) ()
type AttrTransferType ToolbarViewBottomBarHeightPropertyInfo = ()
type AttrGetType ToolbarViewBottomBarHeightPropertyInfo = Int32
type AttrLabel ToolbarViewBottomBarHeightPropertyInfo = "bottom-bar-height"
type AttrOrigin ToolbarViewBottomBarHeightPropertyInfo = ToolbarView
attrGet = getToolbarViewBottomBarHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.bottomBarHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:bottomBarHeight"
})
#endif
getToolbarViewBottomBarStyle :: (MonadIO m, IsToolbarView o) => o -> m Adw.Enums.ToolbarStyle
getToolbarViewBottomBarStyle :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m ToolbarStyle
getToolbarViewBottomBarStyle o
obj = IO ToolbarStyle -> m ToolbarStyle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ToolbarStyle -> m ToolbarStyle)
-> IO ToolbarStyle -> m ToolbarStyle
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ToolbarStyle
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"bottom-bar-style"
setToolbarViewBottomBarStyle :: (MonadIO m, IsToolbarView o) => o -> Adw.Enums.ToolbarStyle -> m ()
setToolbarViewBottomBarStyle :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> ToolbarStyle -> m ()
setToolbarViewBottomBarStyle o
obj ToolbarStyle
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> ToolbarStyle -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"bottom-bar-style" ToolbarStyle
val
constructToolbarViewBottomBarStyle :: (IsToolbarView o, MIO.MonadIO m) => Adw.Enums.ToolbarStyle -> m (GValueConstruct o)
constructToolbarViewBottomBarStyle :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
ToolbarStyle -> m (GValueConstruct o)
constructToolbarViewBottomBarStyle ToolbarStyle
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> ToolbarStyle -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"bottom-bar-style" ToolbarStyle
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewBottomBarStylePropertyInfo
instance AttrInfo ToolbarViewBottomBarStylePropertyInfo where
type AttrAllowedOps ToolbarViewBottomBarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewBottomBarStylePropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewBottomBarStylePropertyInfo = (~) Adw.Enums.ToolbarStyle
type AttrTransferTypeConstraint ToolbarViewBottomBarStylePropertyInfo = (~) Adw.Enums.ToolbarStyle
type AttrTransferType ToolbarViewBottomBarStylePropertyInfo = Adw.Enums.ToolbarStyle
type AttrGetType ToolbarViewBottomBarStylePropertyInfo = Adw.Enums.ToolbarStyle
type AttrLabel ToolbarViewBottomBarStylePropertyInfo = "bottom-bar-style"
type AttrOrigin ToolbarViewBottomBarStylePropertyInfo = ToolbarView
attrGet = getToolbarViewBottomBarStyle
attrSet = setToolbarViewBottomBarStyle
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewBottomBarStyle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.bottomBarStyle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:bottomBarStyle"
})
#endif
getToolbarViewContent :: (MonadIO m, IsToolbarView o) => o -> m (Maybe Gtk.Widget.Widget)
getToolbarViewContent :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m (Maybe Widget)
getToolbarViewContent o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"content" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setToolbarViewContent :: (MonadIO m, IsToolbarView o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setToolbarViewContent :: forall (m :: * -> *) o a.
(MonadIO m, IsToolbarView o, IsWidget a) =>
o -> a -> m ()
setToolbarViewContent o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"content" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructToolbarViewContent :: (IsToolbarView o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructToolbarViewContent :: forall o (m :: * -> *) a.
(IsToolbarView o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructToolbarViewContent a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"content" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearToolbarViewContent :: (MonadIO m, IsToolbarView o) => o -> m ()
clearToolbarViewContent :: forall (m :: * -> *) o. (MonadIO m, IsToolbarView o) => o -> m ()
clearToolbarViewContent o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"content" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ToolbarViewContentPropertyInfo
instance AttrInfo ToolbarViewContentPropertyInfo where
type AttrAllowedOps ToolbarViewContentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ToolbarViewContentPropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewContentPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ToolbarViewContentPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ToolbarViewContentPropertyInfo = Gtk.Widget.Widget
type AttrGetType ToolbarViewContentPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ToolbarViewContentPropertyInfo = "content"
type AttrOrigin ToolbarViewContentPropertyInfo = ToolbarView
attrGet = getToolbarViewContent
attrSet = setToolbarViewContent
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructToolbarViewContent
attrClear = clearToolbarViewContent
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.content"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:content"
})
#endif
getToolbarViewExtendContentToBottomEdge :: (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewExtendContentToBottomEdge :: forall (m :: * -> *) o. (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewExtendContentToBottomEdge o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"extend-content-to-bottom-edge"
setToolbarViewExtendContentToBottomEdge :: (MonadIO m, IsToolbarView o) => o -> Bool -> m ()
setToolbarViewExtendContentToBottomEdge :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> Bool -> m ()
setToolbarViewExtendContentToBottomEdge o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"extend-content-to-bottom-edge" Bool
val
constructToolbarViewExtendContentToBottomEdge :: (IsToolbarView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToolbarViewExtendContentToBottomEdge :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToolbarViewExtendContentToBottomEdge Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"extend-content-to-bottom-edge" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewExtendContentToBottomEdgePropertyInfo
instance AttrInfo ToolbarViewExtendContentToBottomEdgePropertyInfo where
type AttrAllowedOps ToolbarViewExtendContentToBottomEdgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewExtendContentToBottomEdgePropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewExtendContentToBottomEdgePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToolbarViewExtendContentToBottomEdgePropertyInfo = (~) Bool
type AttrTransferType ToolbarViewExtendContentToBottomEdgePropertyInfo = Bool
type AttrGetType ToolbarViewExtendContentToBottomEdgePropertyInfo = Bool
type AttrLabel ToolbarViewExtendContentToBottomEdgePropertyInfo = "extend-content-to-bottom-edge"
type AttrOrigin ToolbarViewExtendContentToBottomEdgePropertyInfo = ToolbarView
attrGet = getToolbarViewExtendContentToBottomEdge
attrSet = setToolbarViewExtendContentToBottomEdge
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewExtendContentToBottomEdge
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.extendContentToBottomEdge"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:extendContentToBottomEdge"
})
#endif
getToolbarViewExtendContentToTopEdge :: (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewExtendContentToTopEdge :: forall (m :: * -> *) o. (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewExtendContentToTopEdge o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"extend-content-to-top-edge"
setToolbarViewExtendContentToTopEdge :: (MonadIO m, IsToolbarView o) => o -> Bool -> m ()
setToolbarViewExtendContentToTopEdge :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> Bool -> m ()
setToolbarViewExtendContentToTopEdge o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"extend-content-to-top-edge" Bool
val
constructToolbarViewExtendContentToTopEdge :: (IsToolbarView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToolbarViewExtendContentToTopEdge :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToolbarViewExtendContentToTopEdge Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"extend-content-to-top-edge" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewExtendContentToTopEdgePropertyInfo
instance AttrInfo ToolbarViewExtendContentToTopEdgePropertyInfo where
type AttrAllowedOps ToolbarViewExtendContentToTopEdgePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewExtendContentToTopEdgePropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewExtendContentToTopEdgePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToolbarViewExtendContentToTopEdgePropertyInfo = (~) Bool
type AttrTransferType ToolbarViewExtendContentToTopEdgePropertyInfo = Bool
type AttrGetType ToolbarViewExtendContentToTopEdgePropertyInfo = Bool
type AttrLabel ToolbarViewExtendContentToTopEdgePropertyInfo = "extend-content-to-top-edge"
type AttrOrigin ToolbarViewExtendContentToTopEdgePropertyInfo = ToolbarView
attrGet = getToolbarViewExtendContentToTopEdge
attrSet = setToolbarViewExtendContentToTopEdge
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewExtendContentToTopEdge
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.extendContentToTopEdge"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:extendContentToTopEdge"
})
#endif
getToolbarViewRevealBottomBars :: (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewRevealBottomBars :: forall (m :: * -> *) o. (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewRevealBottomBars o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"reveal-bottom-bars"
setToolbarViewRevealBottomBars :: (MonadIO m, IsToolbarView o) => o -> Bool -> m ()
setToolbarViewRevealBottomBars :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> Bool -> m ()
setToolbarViewRevealBottomBars o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reveal-bottom-bars" Bool
val
constructToolbarViewRevealBottomBars :: (IsToolbarView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToolbarViewRevealBottomBars :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToolbarViewRevealBottomBars Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"reveal-bottom-bars" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewRevealBottomBarsPropertyInfo
instance AttrInfo ToolbarViewRevealBottomBarsPropertyInfo where
type AttrAllowedOps ToolbarViewRevealBottomBarsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewRevealBottomBarsPropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewRevealBottomBarsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToolbarViewRevealBottomBarsPropertyInfo = (~) Bool
type AttrTransferType ToolbarViewRevealBottomBarsPropertyInfo = Bool
type AttrGetType ToolbarViewRevealBottomBarsPropertyInfo = Bool
type AttrLabel ToolbarViewRevealBottomBarsPropertyInfo = "reveal-bottom-bars"
type AttrOrigin ToolbarViewRevealBottomBarsPropertyInfo = ToolbarView
attrGet = getToolbarViewRevealBottomBars
attrSet = setToolbarViewRevealBottomBars
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewRevealBottomBars
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.revealBottomBars"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:revealBottomBars"
})
#endif
getToolbarViewRevealTopBars :: (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewRevealTopBars :: forall (m :: * -> *) o. (MonadIO m, IsToolbarView o) => o -> m Bool
getToolbarViewRevealTopBars o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"reveal-top-bars"
setToolbarViewRevealTopBars :: (MonadIO m, IsToolbarView o) => o -> Bool -> m ()
setToolbarViewRevealTopBars :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> Bool -> m ()
setToolbarViewRevealTopBars o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"reveal-top-bars" Bool
val
constructToolbarViewRevealTopBars :: (IsToolbarView o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructToolbarViewRevealTopBars :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructToolbarViewRevealTopBars Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"reveal-top-bars" Bool
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewRevealTopBarsPropertyInfo
instance AttrInfo ToolbarViewRevealTopBarsPropertyInfo where
type AttrAllowedOps ToolbarViewRevealTopBarsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewRevealTopBarsPropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewRevealTopBarsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ToolbarViewRevealTopBarsPropertyInfo = (~) Bool
type AttrTransferType ToolbarViewRevealTopBarsPropertyInfo = Bool
type AttrGetType ToolbarViewRevealTopBarsPropertyInfo = Bool
type AttrLabel ToolbarViewRevealTopBarsPropertyInfo = "reveal-top-bars"
type AttrOrigin ToolbarViewRevealTopBarsPropertyInfo = ToolbarView
attrGet = getToolbarViewRevealTopBars
attrSet = setToolbarViewRevealTopBars
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewRevealTopBars
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.revealTopBars"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:revealTopBars"
})
#endif
getToolbarViewTopBarHeight :: (MonadIO m, IsToolbarView o) => o -> m Int32
getToolbarViewTopBarHeight :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m Int32
getToolbarViewTopBarHeight o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"top-bar-height"
#if defined(ENABLE_OVERLOADING)
data ToolbarViewTopBarHeightPropertyInfo
instance AttrInfo ToolbarViewTopBarHeightPropertyInfo where
type AttrAllowedOps ToolbarViewTopBarHeightPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewTopBarHeightPropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewTopBarHeightPropertyInfo = (~) ()
type AttrTransferTypeConstraint ToolbarViewTopBarHeightPropertyInfo = (~) ()
type AttrTransferType ToolbarViewTopBarHeightPropertyInfo = ()
type AttrGetType ToolbarViewTopBarHeightPropertyInfo = Int32
type AttrLabel ToolbarViewTopBarHeightPropertyInfo = "top-bar-height"
type AttrOrigin ToolbarViewTopBarHeightPropertyInfo = ToolbarView
attrGet = getToolbarViewTopBarHeight
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.topBarHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:topBarHeight"
})
#endif
getToolbarViewTopBarStyle :: (MonadIO m, IsToolbarView o) => o -> m Adw.Enums.ToolbarStyle
getToolbarViewTopBarStyle :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> m ToolbarStyle
getToolbarViewTopBarStyle o
obj = IO ToolbarStyle -> m ToolbarStyle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ToolbarStyle -> m ToolbarStyle)
-> IO ToolbarStyle -> m ToolbarStyle
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ToolbarStyle
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"top-bar-style"
setToolbarViewTopBarStyle :: (MonadIO m, IsToolbarView o) => o -> Adw.Enums.ToolbarStyle -> m ()
setToolbarViewTopBarStyle :: forall (m :: * -> *) o.
(MonadIO m, IsToolbarView o) =>
o -> ToolbarStyle -> m ()
setToolbarViewTopBarStyle o
obj ToolbarStyle
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> ToolbarStyle -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"top-bar-style" ToolbarStyle
val
constructToolbarViewTopBarStyle :: (IsToolbarView o, MIO.MonadIO m) => Adw.Enums.ToolbarStyle -> m (GValueConstruct o)
constructToolbarViewTopBarStyle :: forall o (m :: * -> *).
(IsToolbarView o, MonadIO m) =>
ToolbarStyle -> m (GValueConstruct o)
constructToolbarViewTopBarStyle ToolbarStyle
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> ToolbarStyle -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"top-bar-style" ToolbarStyle
val
#if defined(ENABLE_OVERLOADING)
data ToolbarViewTopBarStylePropertyInfo
instance AttrInfo ToolbarViewTopBarStylePropertyInfo where
type AttrAllowedOps ToolbarViewTopBarStylePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToolbarViewTopBarStylePropertyInfo = IsToolbarView
type AttrSetTypeConstraint ToolbarViewTopBarStylePropertyInfo = (~) Adw.Enums.ToolbarStyle
type AttrTransferTypeConstraint ToolbarViewTopBarStylePropertyInfo = (~) Adw.Enums.ToolbarStyle
type AttrTransferType ToolbarViewTopBarStylePropertyInfo = Adw.Enums.ToolbarStyle
type AttrGetType ToolbarViewTopBarStylePropertyInfo = Adw.Enums.ToolbarStyle
type AttrLabel ToolbarViewTopBarStylePropertyInfo = "top-bar-style"
type AttrOrigin ToolbarViewTopBarStylePropertyInfo = ToolbarView
attrGet = getToolbarViewTopBarStyle
attrSet = setToolbarViewTopBarStyle
attrTransfer _ v = do
return v
attrConstruct = constructToolbarViewTopBarStyle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.topBarStyle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#g:attr:topBarStyle"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ToolbarView
type instance O.AttributeList ToolbarView = ToolbarViewAttributeList
type ToolbarViewAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("bottomBarHeight", ToolbarViewBottomBarHeightPropertyInfo), '("bottomBarStyle", ToolbarViewBottomBarStylePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("content", ToolbarViewContentPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("extendContentToBottomEdge", ToolbarViewExtendContentToBottomEdgePropertyInfo), '("extendContentToTopEdge", ToolbarViewExtendContentToTopEdgePropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("focusable", Gtk.Widget.WidgetFocusablePropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("revealBottomBars", ToolbarViewRevealBottomBarsPropertyInfo), '("revealTopBars", ToolbarViewRevealTopBarsPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("topBarHeight", ToolbarViewTopBarHeightPropertyInfo), '("topBarStyle", ToolbarViewTopBarStylePropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
toolbarViewBottomBarHeight :: AttrLabelProxy "bottomBarHeight"
toolbarViewBottomBarHeight = AttrLabelProxy
toolbarViewBottomBarStyle :: AttrLabelProxy "bottomBarStyle"
toolbarViewBottomBarStyle = AttrLabelProxy
toolbarViewContent :: AttrLabelProxy "content"
toolbarViewContent = AttrLabelProxy
toolbarViewExtendContentToBottomEdge :: AttrLabelProxy "extendContentToBottomEdge"
toolbarViewExtendContentToBottomEdge = AttrLabelProxy
toolbarViewExtendContentToTopEdge :: AttrLabelProxy "extendContentToTopEdge"
toolbarViewExtendContentToTopEdge = AttrLabelProxy
toolbarViewRevealBottomBars :: AttrLabelProxy "revealBottomBars"
toolbarViewRevealBottomBars = AttrLabelProxy
toolbarViewRevealTopBars :: AttrLabelProxy "revealTopBars"
toolbarViewRevealTopBars = AttrLabelProxy
toolbarViewTopBarHeight :: AttrLabelProxy "topBarHeight"
toolbarViewTopBarHeight = AttrLabelProxy
toolbarViewTopBarStyle :: AttrLabelProxy "topBarStyle"
toolbarViewTopBarStyle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ToolbarView = ToolbarViewSignalList
type ToolbarViewSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_toolbar_view_new" adw_toolbar_view_new ::
IO (Ptr ToolbarView)
toolbarViewNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ToolbarView
toolbarViewNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ToolbarView
toolbarViewNew = IO ToolbarView -> m ToolbarView
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ToolbarView -> m ToolbarView)
-> IO ToolbarView -> m ToolbarView
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
result <- IO (Ptr ToolbarView)
adw_toolbar_view_new
Text -> Ptr ToolbarView -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"toolbarViewNew" Ptr ToolbarView
result
ToolbarView
result' <- ((ManagedPtr ToolbarView -> ToolbarView)
-> Ptr ToolbarView -> IO ToolbarView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ToolbarView -> ToolbarView
ToolbarView) Ptr ToolbarView
result
ToolbarView -> IO ToolbarView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ToolbarView
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_toolbar_view_add_bottom_bar" adw_toolbar_view_add_bottom_bar ::
Ptr ToolbarView ->
Ptr Gtk.Widget.Widget ->
IO ()
toolbarViewAddBottomBar ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
toolbarViewAddBottomBar :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToolbarView a, IsWidget b) =>
a -> b -> m ()
toolbarViewAddBottomBar a
self b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr ToolbarView -> Ptr Widget -> IO ()
adw_toolbar_view_add_bottom_bar Ptr ToolbarView
self' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewAddBottomBarMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ToolbarViewAddBottomBarMethodInfo a signature where
overloadedMethod = toolbarViewAddBottomBar
instance O.OverloadedMethodInfo ToolbarViewAddBottomBarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewAddBottomBar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewAddBottomBar"
})
#endif
foreign import ccall "adw_toolbar_view_add_top_bar" adw_toolbar_view_add_top_bar ::
Ptr ToolbarView ->
Ptr Gtk.Widget.Widget ->
IO ()
toolbarViewAddTopBar ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
toolbarViewAddTopBar :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToolbarView a, IsWidget b) =>
a -> b -> m ()
toolbarViewAddTopBar a
self b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr ToolbarView -> Ptr Widget -> IO ()
adw_toolbar_view_add_top_bar Ptr ToolbarView
self' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewAddTopBarMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ToolbarViewAddTopBarMethodInfo a signature where
overloadedMethod = toolbarViewAddTopBar
instance O.OverloadedMethodInfo ToolbarViewAddTopBarMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewAddTopBar",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewAddTopBar"
})
#endif
foreign import ccall "adw_toolbar_view_get_bottom_bar_height" adw_toolbar_view_get_bottom_bar_height ::
Ptr ToolbarView ->
IO Int32
toolbarViewGetBottomBarHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Int32
toolbarViewGetBottomBarHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Int32
toolbarViewGetBottomBarHeight a
self = IO Int32 -> m Int32
forall a. IO a -> m a
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 ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr ToolbarView -> IO Int32
adw_toolbar_view_get_bottom_bar_height Ptr ToolbarView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetBottomBarHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetBottomBarHeightMethodInfo a signature where
overloadedMethod = toolbarViewGetBottomBarHeight
instance O.OverloadedMethodInfo ToolbarViewGetBottomBarHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetBottomBarHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetBottomBarHeight"
})
#endif
foreign import ccall "adw_toolbar_view_get_bottom_bar_style" adw_toolbar_view_get_bottom_bar_style ::
Ptr ToolbarView ->
IO CUInt
toolbarViewGetBottomBarStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Adw.Enums.ToolbarStyle
toolbarViewGetBottomBarStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m ToolbarStyle
toolbarViewGetBottomBarStyle a
self = IO ToolbarStyle -> m ToolbarStyle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ToolbarStyle -> m ToolbarStyle)
-> IO ToolbarStyle -> m ToolbarStyle
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr ToolbarView -> IO CUInt
adw_toolbar_view_get_bottom_bar_style Ptr ToolbarView
self'
let result' :: ToolbarStyle
result' = (Int -> ToolbarStyle
forall a. Enum a => Int -> a
toEnum (Int -> ToolbarStyle) -> (CUInt -> Int) -> CUInt -> ToolbarStyle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ToolbarStyle -> IO ToolbarStyle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ToolbarStyle
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetBottomBarStyleMethodInfo
instance (signature ~ (m Adw.Enums.ToolbarStyle), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetBottomBarStyleMethodInfo a signature where
overloadedMethod = toolbarViewGetBottomBarStyle
instance O.OverloadedMethodInfo ToolbarViewGetBottomBarStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetBottomBarStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetBottomBarStyle"
})
#endif
foreign import ccall "adw_toolbar_view_get_content" adw_toolbar_view_get_content ::
Ptr ToolbarView ->
IO (Ptr Gtk.Widget.Widget)
toolbarViewGetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m (Maybe Gtk.Widget.Widget)
toolbarViewGetContent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m (Maybe Widget)
toolbarViewGetContent a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr ToolbarView -> IO (Ptr Widget)
adw_toolbar_view_get_content Ptr ToolbarView
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetContentMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetContentMethodInfo a signature where
overloadedMethod = toolbarViewGetContent
instance O.OverloadedMethodInfo ToolbarViewGetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetContent"
})
#endif
foreign import ccall "adw_toolbar_view_get_extend_content_to_bottom_edge" adw_toolbar_view_get_extend_content_to_bottom_edge ::
Ptr ToolbarView ->
IO CInt
toolbarViewGetExtendContentToBottomEdge ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Bool
toolbarViewGetExtendContentToBottomEdge :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Bool
toolbarViewGetExtendContentToBottomEdge a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ToolbarView -> IO CInt
adw_toolbar_view_get_extend_content_to_bottom_edge Ptr ToolbarView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetExtendContentToBottomEdgeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetExtendContentToBottomEdgeMethodInfo a signature where
overloadedMethod = toolbarViewGetExtendContentToBottomEdge
instance O.OverloadedMethodInfo ToolbarViewGetExtendContentToBottomEdgeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetExtendContentToBottomEdge",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetExtendContentToBottomEdge"
})
#endif
foreign import ccall "adw_toolbar_view_get_extend_content_to_top_edge" adw_toolbar_view_get_extend_content_to_top_edge ::
Ptr ToolbarView ->
IO CInt
toolbarViewGetExtendContentToTopEdge ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Bool
toolbarViewGetExtendContentToTopEdge :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Bool
toolbarViewGetExtendContentToTopEdge a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ToolbarView -> IO CInt
adw_toolbar_view_get_extend_content_to_top_edge Ptr ToolbarView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetExtendContentToTopEdgeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetExtendContentToTopEdgeMethodInfo a signature where
overloadedMethod = toolbarViewGetExtendContentToTopEdge
instance O.OverloadedMethodInfo ToolbarViewGetExtendContentToTopEdgeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetExtendContentToTopEdge",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetExtendContentToTopEdge"
})
#endif
foreign import ccall "adw_toolbar_view_get_reveal_bottom_bars" adw_toolbar_view_get_reveal_bottom_bars ::
Ptr ToolbarView ->
IO CInt
toolbarViewGetRevealBottomBars ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Bool
toolbarViewGetRevealBottomBars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Bool
toolbarViewGetRevealBottomBars a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ToolbarView -> IO CInt
adw_toolbar_view_get_reveal_bottom_bars Ptr ToolbarView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetRevealBottomBarsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetRevealBottomBarsMethodInfo a signature where
overloadedMethod = toolbarViewGetRevealBottomBars
instance O.OverloadedMethodInfo ToolbarViewGetRevealBottomBarsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetRevealBottomBars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetRevealBottomBars"
})
#endif
foreign import ccall "adw_toolbar_view_get_reveal_top_bars" adw_toolbar_view_get_reveal_top_bars ::
Ptr ToolbarView ->
IO CInt
toolbarViewGetRevealTopBars ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Bool
toolbarViewGetRevealTopBars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Bool
toolbarViewGetRevealTopBars a
self = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ToolbarView -> IO CInt
adw_toolbar_view_get_reveal_top_bars Ptr ToolbarView
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetRevealTopBarsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetRevealTopBarsMethodInfo a signature where
overloadedMethod = toolbarViewGetRevealTopBars
instance O.OverloadedMethodInfo ToolbarViewGetRevealTopBarsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetRevealTopBars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetRevealTopBars"
})
#endif
foreign import ccall "adw_toolbar_view_get_top_bar_height" adw_toolbar_view_get_top_bar_height ::
Ptr ToolbarView ->
IO Int32
toolbarViewGetTopBarHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Int32
toolbarViewGetTopBarHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m Int32
toolbarViewGetTopBarHeight a
self = IO Int32 -> m Int32
forall a. IO a -> m a
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 ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr ToolbarView -> IO Int32
adw_toolbar_view_get_top_bar_height Ptr ToolbarView
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetTopBarHeightMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetTopBarHeightMethodInfo a signature where
overloadedMethod = toolbarViewGetTopBarHeight
instance O.OverloadedMethodInfo ToolbarViewGetTopBarHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetTopBarHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetTopBarHeight"
})
#endif
foreign import ccall "adw_toolbar_view_get_top_bar_style" adw_toolbar_view_get_top_bar_style ::
Ptr ToolbarView ->
IO CUInt
toolbarViewGetTopBarStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> m Adw.Enums.ToolbarStyle
toolbarViewGetTopBarStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> m ToolbarStyle
toolbarViewGetTopBarStyle a
self = IO ToolbarStyle -> m ToolbarStyle
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ToolbarStyle -> m ToolbarStyle)
-> IO ToolbarStyle -> m ToolbarStyle
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr ToolbarView -> IO CUInt
adw_toolbar_view_get_top_bar_style Ptr ToolbarView
self'
let result' :: ToolbarStyle
result' = (Int -> ToolbarStyle
forall a. Enum a => Int -> a
toEnum (Int -> ToolbarStyle) -> (CUInt -> Int) -> CUInt -> ToolbarStyle
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
ToolbarStyle -> IO ToolbarStyle
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ToolbarStyle
result'
#if defined(ENABLE_OVERLOADING)
data ToolbarViewGetTopBarStyleMethodInfo
instance (signature ~ (m Adw.Enums.ToolbarStyle), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewGetTopBarStyleMethodInfo a signature where
overloadedMethod = toolbarViewGetTopBarStyle
instance O.OverloadedMethodInfo ToolbarViewGetTopBarStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewGetTopBarStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewGetTopBarStyle"
})
#endif
foreign import ccall "adw_toolbar_view_remove" adw_toolbar_view_remove ::
Ptr ToolbarView ->
Ptr Gtk.Widget.Widget ->
IO ()
toolbarViewRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
toolbarViewRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToolbarView a, IsWidget b) =>
a -> b -> m ()
toolbarViewRemove a
self b
widget = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
widget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
widget
Ptr ToolbarView -> Ptr Widget -> IO ()
adw_toolbar_view_remove Ptr ToolbarView
self' Ptr Widget
widget'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
widget
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ToolbarViewRemoveMethodInfo a signature where
overloadedMethod = toolbarViewRemove
instance O.OverloadedMethodInfo ToolbarViewRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewRemove"
})
#endif
foreign import ccall "adw_toolbar_view_set_bottom_bar_style" adw_toolbar_view_set_bottom_bar_style ::
Ptr ToolbarView ->
CUInt ->
IO ()
toolbarViewSetBottomBarStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Adw.Enums.ToolbarStyle
-> m ()
toolbarViewSetBottomBarStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> ToolbarStyle -> m ()
toolbarViewSetBottomBarStyle a
self ToolbarStyle
style = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let style' :: CUInt
style' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ToolbarStyle -> Int) -> ToolbarStyle -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ToolbarStyle -> Int
forall a. Enum a => a -> Int
fromEnum) ToolbarStyle
style
Ptr ToolbarView -> CUInt -> IO ()
adw_toolbar_view_set_bottom_bar_style Ptr ToolbarView
self' CUInt
style'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetBottomBarStyleMethodInfo
instance (signature ~ (Adw.Enums.ToolbarStyle -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetBottomBarStyleMethodInfo a signature where
overloadedMethod = toolbarViewSetBottomBarStyle
instance O.OverloadedMethodInfo ToolbarViewSetBottomBarStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetBottomBarStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetBottomBarStyle"
})
#endif
foreign import ccall "adw_toolbar_view_set_content" adw_toolbar_view_set_content ::
Ptr ToolbarView ->
Ptr Gtk.Widget.Widget ->
IO ()
toolbarViewSetContent ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
toolbarViewSetContent :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToolbarView a, IsWidget b) =>
a -> Maybe b -> m ()
toolbarViewSetContent a
self Maybe b
content = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeContent <- case Maybe b
content of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jContent -> do
Ptr Widget
jContent' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jContent
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jContent'
Ptr ToolbarView -> Ptr Widget -> IO ()
adw_toolbar_view_set_content Ptr ToolbarView
self' Ptr Widget
maybeContent
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
content b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetContentMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsToolbarView a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ToolbarViewSetContentMethodInfo a signature where
overloadedMethod = toolbarViewSetContent
instance O.OverloadedMethodInfo ToolbarViewSetContentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetContent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetContent"
})
#endif
foreign import ccall "adw_toolbar_view_set_extend_content_to_bottom_edge" adw_toolbar_view_set_extend_content_to_bottom_edge ::
Ptr ToolbarView ->
CInt ->
IO ()
toolbarViewSetExtendContentToBottomEdge ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Bool
-> m ()
toolbarViewSetExtendContentToBottomEdge :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> Bool -> m ()
toolbarViewSetExtendContentToBottomEdge a
self Bool
extend = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let extend' :: CInt
extend' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
extend
Ptr ToolbarView -> CInt -> IO ()
adw_toolbar_view_set_extend_content_to_bottom_edge Ptr ToolbarView
self' CInt
extend'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetExtendContentToBottomEdgeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetExtendContentToBottomEdgeMethodInfo a signature where
overloadedMethod = toolbarViewSetExtendContentToBottomEdge
instance O.OverloadedMethodInfo ToolbarViewSetExtendContentToBottomEdgeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetExtendContentToBottomEdge",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetExtendContentToBottomEdge"
})
#endif
foreign import ccall "adw_toolbar_view_set_extend_content_to_top_edge" adw_toolbar_view_set_extend_content_to_top_edge ::
Ptr ToolbarView ->
CInt ->
IO ()
toolbarViewSetExtendContentToTopEdge ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Bool
-> m ()
toolbarViewSetExtendContentToTopEdge :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> Bool -> m ()
toolbarViewSetExtendContentToTopEdge a
self Bool
extend = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let extend' :: CInt
extend' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
extend
Ptr ToolbarView -> CInt -> IO ()
adw_toolbar_view_set_extend_content_to_top_edge Ptr ToolbarView
self' CInt
extend'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetExtendContentToTopEdgeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetExtendContentToTopEdgeMethodInfo a signature where
overloadedMethod = toolbarViewSetExtendContentToTopEdge
instance O.OverloadedMethodInfo ToolbarViewSetExtendContentToTopEdgeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetExtendContentToTopEdge",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetExtendContentToTopEdge"
})
#endif
foreign import ccall "adw_toolbar_view_set_reveal_bottom_bars" adw_toolbar_view_set_reveal_bottom_bars ::
Ptr ToolbarView ->
CInt ->
IO ()
toolbarViewSetRevealBottomBars ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Bool
-> m ()
toolbarViewSetRevealBottomBars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> Bool -> m ()
toolbarViewSetRevealBottomBars a
self Bool
reveal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let reveal' :: CInt
reveal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
reveal
Ptr ToolbarView -> CInt -> IO ()
adw_toolbar_view_set_reveal_bottom_bars Ptr ToolbarView
self' CInt
reveal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetRevealBottomBarsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetRevealBottomBarsMethodInfo a signature where
overloadedMethod = toolbarViewSetRevealBottomBars
instance O.OverloadedMethodInfo ToolbarViewSetRevealBottomBarsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetRevealBottomBars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetRevealBottomBars"
})
#endif
foreign import ccall "adw_toolbar_view_set_reveal_top_bars" adw_toolbar_view_set_reveal_top_bars ::
Ptr ToolbarView ->
CInt ->
IO ()
toolbarViewSetRevealTopBars ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Bool
-> m ()
toolbarViewSetRevealTopBars :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> Bool -> m ()
toolbarViewSetRevealTopBars a
self Bool
reveal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let reveal' :: CInt
reveal' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
reveal
Ptr ToolbarView -> CInt -> IO ()
adw_toolbar_view_set_reveal_top_bars Ptr ToolbarView
self' CInt
reveal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetRevealTopBarsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetRevealTopBarsMethodInfo a signature where
overloadedMethod = toolbarViewSetRevealTopBars
instance O.OverloadedMethodInfo ToolbarViewSetRevealTopBarsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetRevealTopBars",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetRevealTopBars"
})
#endif
foreign import ccall "adw_toolbar_view_set_top_bar_style" adw_toolbar_view_set_top_bar_style ::
Ptr ToolbarView ->
CUInt ->
IO ()
toolbarViewSetTopBarStyle ::
(B.CallStack.HasCallStack, MonadIO m, IsToolbarView a) =>
a
-> Adw.Enums.ToolbarStyle
-> m ()
toolbarViewSetTopBarStyle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToolbarView a) =>
a -> ToolbarStyle -> m ()
toolbarViewSetTopBarStyle a
self ToolbarStyle
style = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ToolbarView
self' <- a -> IO (Ptr ToolbarView)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let style' :: CUInt
style' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ToolbarStyle -> Int) -> ToolbarStyle -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ToolbarStyle -> Int
forall a. Enum a => a -> Int
fromEnum) ToolbarStyle
style
Ptr ToolbarView -> CUInt -> IO ()
adw_toolbar_view_set_top_bar_style Ptr ToolbarView
self' CUInt
style'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToolbarViewSetTopBarStyleMethodInfo
instance (signature ~ (Adw.Enums.ToolbarStyle -> m ()), MonadIO m, IsToolbarView a) => O.OverloadedMethod ToolbarViewSetTopBarStyleMethodInfo a signature where
overloadedMethod = toolbarViewSetTopBarStyle
instance O.OverloadedMethodInfo ToolbarViewSetTopBarStyleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.ToolbarView.toolbarViewSetTopBarStyle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.7/docs/GI-Adw-Objects-ToolbarView.html#v:toolbarViewSetTopBarStyle"
})
#endif