{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ActionBar
(
ActionBar(..) ,
IsActionBar ,
toActionBar ,
#if defined(ENABLE_OVERLOADING)
ResolveActionBarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ActionBarGetCenterWidgetMethodInfo ,
#endif
actionBarGetCenterWidget ,
#if defined(ENABLE_OVERLOADING)
ActionBarGetRevealedMethodInfo ,
#endif
actionBarGetRevealed ,
actionBarNew ,
#if defined(ENABLE_OVERLOADING)
ActionBarPackEndMethodInfo ,
#endif
actionBarPackEnd ,
#if defined(ENABLE_OVERLOADING)
ActionBarPackStartMethodInfo ,
#endif
actionBarPackStart ,
#if defined(ENABLE_OVERLOADING)
ActionBarRemoveMethodInfo ,
#endif
actionBarRemove ,
#if defined(ENABLE_OVERLOADING)
ActionBarSetCenterWidgetMethodInfo ,
#endif
actionBarSetCenterWidget ,
#if defined(ENABLE_OVERLOADING)
ActionBarSetRevealedMethodInfo ,
#endif
actionBarSetRevealed ,
#if defined(ENABLE_OVERLOADING)
ActionBarRevealedPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
actionBarRevealed ,
#endif
constructActionBarRevealed ,
getActionBarRevealed ,
setActionBarRevealed ,
) 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 qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Interfaces.Paintable as Gdk.Paintable
import qualified GI.Gdk.Objects.Clipboard as Gdk.Clipboard
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Objects.Device as Gdk.Device
import qualified GI.Gdk.Objects.Display as Gdk.Display
import qualified GI.Gdk.Objects.Event as Gdk.Event
import qualified GI.Gdk.Objects.FrameClock as Gdk.FrameClock
import qualified GI.Gdk.Objects.Snapshot as Gdk.Snapshot
import qualified GI.Gdk.Objects.Surface as Gdk.Surface
import qualified GI.Gdk.Objects.Texture as Gdk.Texture
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gio.Interfaces.ActionGroup as Gio.ActionGroup
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import qualified GI.Gio.Interfaces.ListModel as Gio.ListModel
import qualified GI.Graphene.Structs.Matrix as Graphene.Matrix
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Point3D as Graphene.Point3D
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec3 as Graphene.Vec3
import qualified GI.Graphene.Structs.Vec4 as Graphene.Vec4
import qualified GI.Gsk.Enums as Gsk.Enums
import qualified GI.Gsk.Objects.GLShader as Gsk.GLShader
import qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import qualified GI.Gsk.Objects.Renderer as Gsk.Renderer
import qualified GI.Gsk.Structs.ColorStop as Gsk.ColorStop
import qualified GI.Gsk.Structs.Path as Gsk.Path
import qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Gsk.Structs.Shadow as Gsk.Shadow
import qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Gsk.Structs.Transform as Gsk.Transform
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Native as Gtk.Native
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Root as Gtk.Root
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.StyleProvider as Gtk.StyleProvider
import {-# SOURCE #-} qualified GI.Gtk.Objects.ATContext as Gtk.ATContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.EventController as Gtk.EventController
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
import {-# SOURCE #-} qualified GI.Gtk.Objects.Settings as Gtk.Settings
import {-# SOURCE #-} qualified GI.Gtk.Objects.Snapshot as Gtk.Snapshot
import {-# SOURCE #-} qualified GI.Gtk.Objects.StyleContext as Gtk.StyleContext
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.Requisition as Gtk.Requisition
import qualified GI.Pango.Enums as Pango.Enums
import qualified GI.Pango.Objects.Context as Pango.Context
import qualified GI.Pango.Objects.FontMap as Pango.FontMap
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
#endif
newtype ActionBar = ActionBar (SP.ManagedPtr ActionBar)
deriving (ActionBar -> ActionBar -> Bool
(ActionBar -> ActionBar -> Bool)
-> (ActionBar -> ActionBar -> Bool) -> Eq ActionBar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ActionBar -> ActionBar -> Bool
== :: ActionBar -> ActionBar -> Bool
$c/= :: ActionBar -> ActionBar -> Bool
/= :: ActionBar -> ActionBar -> Bool
Eq)
instance SP.ManagedPtrNewtype ActionBar where
toManagedPtr :: ActionBar -> ManagedPtr ActionBar
toManagedPtr (ActionBar ManagedPtr ActionBar
p) = ManagedPtr ActionBar
p
foreign import ccall "gtk_action_bar_get_type"
c_gtk_action_bar_get_type :: IO B.Types.GType
instance B.Types.TypedObject ActionBar where
glibType :: IO GType
glibType = IO GType
c_gtk_action_bar_get_type
instance B.Types.GObject ActionBar
class (SP.GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o
instance (SP.GObject o, O.IsDescendantOf ActionBar o) => IsActionBar o
instance O.HasParentTypes ActionBar
type instance O.ParentTypes ActionBar = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toActionBar :: (MIO.MonadIO m, IsActionBar o) => o -> m ActionBar
toActionBar :: forall (m :: * -> *) o.
(MonadIO m, IsActionBar o) =>
o -> m ActionBar
toActionBar = IO ActionBar -> m ActionBar
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ActionBar -> m ActionBar)
-> (o -> IO ActionBar) -> o -> m ActionBar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ActionBar -> ActionBar) -> o -> IO ActionBar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ActionBar -> ActionBar
ActionBar
instance B.GValue.IsGValue (Maybe ActionBar) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_action_bar_get_type
gvalueSet_ :: Ptr GValue -> Maybe ActionBar -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ActionBar
P.Nothing = Ptr GValue -> Ptr ActionBar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ActionBar
forall a. Ptr a
FP.nullPtr :: FP.Ptr ActionBar)
gvalueSet_ Ptr GValue
gv (P.Just ActionBar
obj) = ActionBar -> (Ptr ActionBar -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ActionBar
obj (Ptr GValue -> Ptr ActionBar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ActionBar)
gvalueGet_ Ptr GValue
gv = do
Ptr ActionBar
ptr <- Ptr GValue -> IO (Ptr ActionBar)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ActionBar)
if Ptr ActionBar
ptr Ptr ActionBar -> Ptr ActionBar -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ActionBar
forall a. Ptr a
FP.nullPtr
then ActionBar -> Maybe ActionBar
forall a. a -> Maybe a
P.Just (ActionBar -> Maybe ActionBar)
-> IO ActionBar -> IO (Maybe ActionBar)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ActionBar -> ActionBar)
-> Ptr ActionBar -> IO ActionBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ActionBar -> ActionBar
ActionBar Ptr ActionBar
ptr
else Maybe ActionBar -> IO (Maybe ActionBar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ActionBar
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveActionBarMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveActionBarMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveActionBarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveActionBarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveActionBarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveActionBarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveActionBarMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveActionBarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveActionBarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveActionBarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveActionBarMethod "announce" o = Gtk.Accessible.AccessibleAnnounceMethodInfo
ResolveActionBarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveActionBarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveActionBarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveActionBarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveActionBarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveActionBarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveActionBarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveActionBarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveActionBarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveActionBarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveActionBarMethod "disposeTemplate" o = Gtk.Widget.WidgetDisposeTemplateMethodInfo
ResolveActionBarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveActionBarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveActionBarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveActionBarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveActionBarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveActionBarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveActionBarMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveActionBarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveActionBarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveActionBarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveActionBarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveActionBarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveActionBarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveActionBarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveActionBarMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveActionBarMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveActionBarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveActionBarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveActionBarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveActionBarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveActionBarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveActionBarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveActionBarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveActionBarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveActionBarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveActionBarMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveActionBarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveActionBarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveActionBarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveActionBarMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveActionBarMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveActionBarMethod "packEnd" o = ActionBarPackEndMethodInfo
ResolveActionBarMethod "packStart" o = ActionBarPackStartMethodInfo
ResolveActionBarMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveActionBarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveActionBarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveActionBarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveActionBarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveActionBarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveActionBarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveActionBarMethod "remove" o = ActionBarRemoveMethodInfo
ResolveActionBarMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveActionBarMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveActionBarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveActionBarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveActionBarMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveActionBarMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveActionBarMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveActionBarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveActionBarMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveActionBarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveActionBarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveActionBarMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveActionBarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveActionBarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveActionBarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveActionBarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveActionBarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveActionBarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveActionBarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveActionBarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveActionBarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveActionBarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveActionBarMethod "updateNextAccessibleSibling" o = Gtk.Accessible.AccessibleUpdateNextAccessibleSiblingMethodInfo
ResolveActionBarMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveActionBarMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveActionBarMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveActionBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveActionBarMethod "getAccessibleParent" o = Gtk.Accessible.AccessibleGetAccessibleParentMethodInfo
ResolveActionBarMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveActionBarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveActionBarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveActionBarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveActionBarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveActionBarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveActionBarMethod "getAtContext" o = Gtk.Accessible.AccessibleGetAtContextMethodInfo
ResolveActionBarMethod "getBaseline" o = Gtk.Widget.WidgetGetBaselineMethodInfo
ResolveActionBarMethod "getBounds" o = Gtk.Accessible.AccessibleGetBoundsMethodInfo
ResolveActionBarMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveActionBarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveActionBarMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveActionBarMethod "getCenterWidget" o = ActionBarGetCenterWidgetMethodInfo
ResolveActionBarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveActionBarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveActionBarMethod "getColor" o = Gtk.Widget.WidgetGetColorMethodInfo
ResolveActionBarMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveActionBarMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveActionBarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveActionBarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveActionBarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveActionBarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveActionBarMethod "getFirstAccessibleChild" o = Gtk.Accessible.AccessibleGetFirstAccessibleChildMethodInfo
ResolveActionBarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveActionBarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveActionBarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveActionBarMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveActionBarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveActionBarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveActionBarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveActionBarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveActionBarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveActionBarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveActionBarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveActionBarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveActionBarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveActionBarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveActionBarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveActionBarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveActionBarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveActionBarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveActionBarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveActionBarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveActionBarMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveActionBarMethod "getNextAccessibleSibling" o = Gtk.Accessible.AccessibleGetNextAccessibleSiblingMethodInfo
ResolveActionBarMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveActionBarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveActionBarMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveActionBarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveActionBarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveActionBarMethod "getPlatformState" o = Gtk.Accessible.AccessibleGetPlatformStateMethodInfo
ResolveActionBarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveActionBarMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveActionBarMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveActionBarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveActionBarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveActionBarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveActionBarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveActionBarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveActionBarMethod "getRevealed" o = ActionBarGetRevealedMethodInfo
ResolveActionBarMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveActionBarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveActionBarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveActionBarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveActionBarMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveActionBarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveActionBarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveActionBarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveActionBarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveActionBarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveActionBarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveActionBarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveActionBarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveActionBarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveActionBarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveActionBarMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveActionBarMethod "setAccessibleParent" o = Gtk.Accessible.AccessibleSetAccessibleParentMethodInfo
ResolveActionBarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveActionBarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveActionBarMethod "setCenterWidget" o = ActionBarSetCenterWidgetMethodInfo
ResolveActionBarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveActionBarMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveActionBarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveActionBarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveActionBarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveActionBarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveActionBarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveActionBarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveActionBarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveActionBarMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveActionBarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveActionBarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveActionBarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveActionBarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveActionBarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveActionBarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveActionBarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveActionBarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveActionBarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveActionBarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveActionBarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveActionBarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveActionBarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveActionBarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveActionBarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveActionBarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveActionBarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveActionBarMethod "setRevealed" o = ActionBarSetRevealedMethodInfo
ResolveActionBarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveActionBarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveActionBarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveActionBarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveActionBarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveActionBarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveActionBarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveActionBarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveActionBarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveActionBarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveActionBarMethod t ActionBar, O.OverloadedMethod info ActionBar p) => OL.IsLabel t (ActionBar -> 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 ~ ResolveActionBarMethod t ActionBar, O.OverloadedMethod info ActionBar p, R.HasField t ActionBar p) => R.HasField t ActionBar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveActionBarMethod t ActionBar, O.OverloadedMethodInfo info ActionBar) => OL.IsLabel t (O.MethodProxy info ActionBar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getActionBarRevealed :: (MonadIO m, IsActionBar o) => o -> m Bool
getActionBarRevealed :: forall (m :: * -> *) o. (MonadIO m, IsActionBar o) => o -> m Bool
getActionBarRevealed 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
"revealed"
setActionBarRevealed :: (MonadIO m, IsActionBar o) => o -> Bool -> m ()
setActionBarRevealed :: forall (m :: * -> *) o.
(MonadIO m, IsActionBar o) =>
o -> Bool -> m ()
setActionBarRevealed 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
"revealed" Bool
val
constructActionBarRevealed :: (IsActionBar o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructActionBarRevealed :: forall o (m :: * -> *).
(IsActionBar o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructActionBarRevealed 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
"revealed" Bool
val
#if defined(ENABLE_OVERLOADING)
data ActionBarRevealedPropertyInfo
instance AttrInfo ActionBarRevealedPropertyInfo where
type AttrAllowedOps ActionBarRevealedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ActionBarRevealedPropertyInfo = IsActionBar
type AttrSetTypeConstraint ActionBarRevealedPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ActionBarRevealedPropertyInfo = (~) Bool
type AttrTransferType ActionBarRevealedPropertyInfo = Bool
type AttrGetType ActionBarRevealedPropertyInfo = Bool
type AttrLabel ActionBarRevealedPropertyInfo = "revealed"
type AttrOrigin ActionBarRevealedPropertyInfo = ActionBar
attrGet = getActionBarRevealed
attrSet = setActionBarRevealed
attrTransfer _ v = do
return v
attrConstruct = constructActionBarRevealed
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.revealed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#g:attr:revealed"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ActionBar
type instance O.AttributeList ActionBar = ActionBarAttributeList
type ActionBarAttributeList = ('[ '("accessibleRole", Gtk.Accessible.AccessibleAccessibleRolePropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssClasses", Gtk.Widget.WidgetCssClassesPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("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), '("revealed", ActionBarRevealedPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
actionBarRevealed :: AttrLabelProxy "revealed"
actionBarRevealed = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ActionBar = ActionBarSignalList
type ActionBarSignalList = ('[ '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_action_bar_new" gtk_action_bar_new ::
IO (Ptr ActionBar)
actionBarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ActionBar
actionBarNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ActionBar
actionBarNew = IO ActionBar -> m ActionBar
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ActionBar -> m ActionBar) -> IO ActionBar -> m ActionBar
forall a b. (a -> b) -> a -> b
$ do
Ptr ActionBar
result <- IO (Ptr ActionBar)
gtk_action_bar_new
Text -> Ptr ActionBar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"actionBarNew" Ptr ActionBar
result
ActionBar
result' <- ((ManagedPtr ActionBar -> ActionBar)
-> Ptr ActionBar -> IO ActionBar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ActionBar -> ActionBar
ActionBar) Ptr ActionBar
result
ActionBar -> IO ActionBar
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ActionBar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_action_bar_get_center_widget" gtk_action_bar_get_center_widget ::
Ptr ActionBar ->
IO (Ptr Gtk.Widget.Widget)
actionBarGetCenterWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a) =>
a
-> m (Maybe Gtk.Widget.Widget)
actionBarGetCenterWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsActionBar a) =>
a -> m (Maybe Widget)
actionBarGetCenterWidget a
actionBar = 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 ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
Ptr Widget
result <- Ptr ActionBar -> IO (Ptr Widget)
gtk_action_bar_get_center_widget Ptr ActionBar
actionBar'
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
actionBar
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 ActionBarGetCenterWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsActionBar a) => O.OverloadedMethod ActionBarGetCenterWidgetMethodInfo a signature where
overloadedMethod = actionBarGetCenterWidget
instance O.OverloadedMethodInfo ActionBarGetCenterWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarGetCenterWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarGetCenterWidget"
})
#endif
foreign import ccall "gtk_action_bar_get_revealed" gtk_action_bar_get_revealed ::
Ptr ActionBar ->
IO CInt
actionBarGetRevealed ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a) =>
a
-> m Bool
actionBarGetRevealed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsActionBar a) =>
a -> m Bool
actionBarGetRevealed a
actionBar = 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 ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
CInt
result <- Ptr ActionBar -> IO CInt
gtk_action_bar_get_revealed Ptr ActionBar
actionBar'
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
actionBar
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ActionBarGetRevealedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsActionBar a) => O.OverloadedMethod ActionBarGetRevealedMethodInfo a signature where
overloadedMethod = actionBarGetRevealed
instance O.OverloadedMethodInfo ActionBarGetRevealedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarGetRevealed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarGetRevealed"
})
#endif
foreign import ccall "gtk_action_bar_pack_end" gtk_action_bar_pack_end ::
Ptr ActionBar ->
Ptr Gtk.Widget.Widget ->
IO ()
actionBarPackEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
actionBarPackEnd :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsActionBar a, IsWidget b) =>
a -> b -> m ()
actionBarPackEnd a
actionBar b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ActionBar -> Ptr Widget -> IO ()
gtk_action_bar_pack_end Ptr ActionBar
actionBar' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actionBar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ActionBarPackEndMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ActionBarPackEndMethodInfo a signature where
overloadedMethod = actionBarPackEnd
instance O.OverloadedMethodInfo ActionBarPackEndMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarPackEnd",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarPackEnd"
})
#endif
foreign import ccall "gtk_action_bar_pack_start" gtk_action_bar_pack_start ::
Ptr ActionBar ->
Ptr Gtk.Widget.Widget ->
IO ()
actionBarPackStart ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
actionBarPackStart :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsActionBar a, IsWidget b) =>
a -> b -> m ()
actionBarPackStart a
actionBar b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ActionBar -> Ptr Widget -> IO ()
gtk_action_bar_pack_start Ptr ActionBar
actionBar' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actionBar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ActionBarPackStartMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ActionBarPackStartMethodInfo a signature where
overloadedMethod = actionBarPackStart
instance O.OverloadedMethodInfo ActionBarPackStartMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarPackStart",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarPackStart"
})
#endif
foreign import ccall "gtk_action_bar_remove" gtk_action_bar_remove ::
Ptr ActionBar ->
Ptr Gtk.Widget.Widget ->
IO ()
actionBarRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) =>
a
-> b
-> m ()
actionBarRemove :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsActionBar a, IsWidget b) =>
a -> b -> m ()
actionBarRemove a
actionBar b
child = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
Ptr Widget
child' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr ActionBar -> Ptr Widget -> IO ()
gtk_action_bar_remove Ptr ActionBar
actionBar' Ptr Widget
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actionBar
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ActionBarRemoveMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ActionBarRemoveMethodInfo a signature where
overloadedMethod = actionBarRemove
instance O.OverloadedMethodInfo ActionBarRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarRemove"
})
#endif
foreign import ccall "gtk_action_bar_set_center_widget" gtk_action_bar_set_center_widget ::
Ptr ActionBar ->
Ptr Gtk.Widget.Widget ->
IO ()
actionBarSetCenterWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
actionBarSetCenterWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsActionBar a, IsWidget b) =>
a -> Maybe b -> m ()
actionBarSetCenterWidget a
actionBar Maybe b
centerWidget = 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 ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
Ptr Widget
maybeCenterWidget <- case Maybe b
centerWidget 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
jCenterWidget -> do
Ptr Widget
jCenterWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCenterWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jCenterWidget'
Ptr ActionBar -> Ptr Widget -> IO ()
gtk_action_bar_set_center_widget Ptr ActionBar
actionBar' Ptr Widget
maybeCenterWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actionBar
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
centerWidget 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 ActionBarSetCenterWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsActionBar a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ActionBarSetCenterWidgetMethodInfo a signature where
overloadedMethod = actionBarSetCenterWidget
instance O.OverloadedMethodInfo ActionBarSetCenterWidgetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarSetCenterWidget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarSetCenterWidget"
})
#endif
foreign import ccall "gtk_action_bar_set_revealed" gtk_action_bar_set_revealed ::
Ptr ActionBar ->
CInt ->
IO ()
actionBarSetRevealed ::
(B.CallStack.HasCallStack, MonadIO m, IsActionBar a) =>
a
-> Bool
-> m ()
actionBarSetRevealed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsActionBar a) =>
a -> Bool -> m ()
actionBarSetRevealed a
actionBar Bool
revealed = 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 ActionBar
actionBar' <- a -> IO (Ptr ActionBar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actionBar
let revealed' :: CInt
revealed' = (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
revealed
Ptr ActionBar -> CInt -> IO ()
gtk_action_bar_set_revealed Ptr ActionBar
actionBar' CInt
revealed'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actionBar
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ActionBarSetRevealedMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsActionBar a) => O.OverloadedMethod ActionBarSetRevealedMethodInfo a signature where
overloadedMethod = actionBarSetRevealed
instance O.OverloadedMethodInfo ActionBarSetRevealedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ActionBar.actionBarSetRevealed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.9/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarSetRevealed"
})
#endif