{-# 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.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.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Accessible as Gtk.Accessible
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype 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
/= :: ActionBar -> ActionBar -> Bool
$c/= :: ActionBar -> ActionBar -> Bool
== :: ActionBar -> ActionBar -> Bool
$c== :: 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 (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 (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 :: *) :: * 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 "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 "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 "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveActionBarMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveActionBarMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveActionBarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
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 "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 "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 "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 "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 "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 "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 (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 (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 (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 (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.5/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, *)])
#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, *)])
#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 (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 (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 (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 (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 (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.5/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 (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 (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.5/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 (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 (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.5/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 (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 (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.5/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 (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 (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.5/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 (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 (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 (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 (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.5/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 (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
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
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 (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.5/docs/GI-Gtk-Objects-ActionBar.html#v:actionBarSetRevealed"
})
#endif