{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Statusbar
(
Statusbar(..) ,
IsStatusbar ,
toStatusbar ,
#if defined(ENABLE_OVERLOADING)
ResolveStatusbarMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusbarGetContextIdMethodInfo ,
#endif
statusbarGetContextId ,
statusbarNew ,
#if defined(ENABLE_OVERLOADING)
StatusbarPopMethodInfo ,
#endif
statusbarPop ,
#if defined(ENABLE_OVERLOADING)
StatusbarPushMethodInfo ,
#endif
statusbarPush ,
#if defined(ENABLE_OVERLOADING)
StatusbarRemoveMethodInfo ,
#endif
statusbarRemove ,
#if defined(ENABLE_OVERLOADING)
StatusbarRemoveAllMethodInfo ,
#endif
statusbarRemoveAll ,
StatusbarTextPoppedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusbarTextPoppedSignalInfo ,
#endif
afterStatusbarTextPopped ,
onStatusbarTextPopped ,
StatusbarTextPushedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusbarTextPushedSignalInfo ,
#endif
afterStatusbarTextPushed ,
onStatusbarTextPushed ,
) 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 Statusbar = Statusbar (SP.ManagedPtr Statusbar)
deriving (Statusbar -> Statusbar -> Bool
(Statusbar -> Statusbar -> Bool)
-> (Statusbar -> Statusbar -> Bool) -> Eq Statusbar
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Statusbar -> Statusbar -> Bool
$c/= :: Statusbar -> Statusbar -> Bool
== :: Statusbar -> Statusbar -> Bool
$c== :: Statusbar -> Statusbar -> Bool
Eq)
instance SP.ManagedPtrNewtype Statusbar where
toManagedPtr :: Statusbar -> ManagedPtr Statusbar
toManagedPtr (Statusbar ManagedPtr Statusbar
p) = ManagedPtr Statusbar
p
foreign import ccall "gtk_statusbar_get_type"
c_gtk_statusbar_get_type :: IO B.Types.GType
instance B.Types.TypedObject Statusbar where
glibType :: IO GType
glibType = IO GType
c_gtk_statusbar_get_type
instance B.Types.GObject Statusbar
class (SP.GObject o, O.IsDescendantOf Statusbar o) => IsStatusbar o
instance (SP.GObject o, O.IsDescendantOf Statusbar o) => IsStatusbar o
instance O.HasParentTypes Statusbar
type instance O.ParentTypes Statusbar = '[Gtk.Widget.Widget, GObject.Object.Object, Gtk.Accessible.Accessible, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toStatusbar :: (MIO.MonadIO m, IsStatusbar o) => o -> m Statusbar
toStatusbar :: forall (m :: * -> *) o.
(MonadIO m, IsStatusbar o) =>
o -> m Statusbar
toStatusbar = IO Statusbar -> m Statusbar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Statusbar -> m Statusbar)
-> (o -> IO Statusbar) -> o -> m Statusbar
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Statusbar -> Statusbar) -> o -> IO Statusbar
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Statusbar -> Statusbar
Statusbar
instance B.GValue.IsGValue (Maybe Statusbar) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_statusbar_get_type
gvalueSet_ :: Ptr GValue -> Maybe Statusbar -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Statusbar
P.Nothing = Ptr GValue -> Ptr Statusbar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Statusbar
forall a. Ptr a
FP.nullPtr :: FP.Ptr Statusbar)
gvalueSet_ Ptr GValue
gv (P.Just Statusbar
obj) = Statusbar -> (Ptr Statusbar -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Statusbar
obj (Ptr GValue -> Ptr Statusbar -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Statusbar)
gvalueGet_ Ptr GValue
gv = do
Ptr Statusbar
ptr <- Ptr GValue -> IO (Ptr Statusbar)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Statusbar)
if Ptr Statusbar
ptr Ptr Statusbar -> Ptr Statusbar -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Statusbar
forall a. Ptr a
FP.nullPtr
then Statusbar -> Maybe Statusbar
forall a. a -> Maybe a
P.Just (Statusbar -> Maybe Statusbar)
-> IO Statusbar -> IO (Maybe Statusbar)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Statusbar -> Statusbar)
-> Ptr Statusbar -> IO Statusbar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Statusbar -> Statusbar
Statusbar Ptr Statusbar
ptr
else Maybe Statusbar -> IO (Maybe Statusbar)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Statusbar
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStatusbarMethod (t :: Symbol) (o :: *) :: * where
ResolveStatusbarMethod "actionSetEnabled" o = Gtk.Widget.WidgetActionSetEnabledMethodInfo
ResolveStatusbarMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveStatusbarMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveStatusbarMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveStatusbarMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveStatusbarMethod "addCssClass" o = Gtk.Widget.WidgetAddCssClassMethodInfo
ResolveStatusbarMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveStatusbarMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveStatusbarMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveStatusbarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStatusbarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStatusbarMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveStatusbarMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveStatusbarMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveStatusbarMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveStatusbarMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveStatusbarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveStatusbarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveStatusbarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveStatusbarMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveStatusbarMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveStatusbarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStatusbarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStatusbarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStatusbarMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveStatusbarMethod "hasCssClass" o = Gtk.Widget.WidgetHasCssClassMethodInfo
ResolveStatusbarMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveStatusbarMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveStatusbarMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveStatusbarMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveStatusbarMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveStatusbarMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveStatusbarMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveStatusbarMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveStatusbarMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveStatusbarMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveStatusbarMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveStatusbarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStatusbarMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveStatusbarMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveStatusbarMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveStatusbarMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveStatusbarMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveStatusbarMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveStatusbarMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveStatusbarMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveStatusbarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStatusbarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStatusbarMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveStatusbarMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveStatusbarMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveStatusbarMethod "pop" o = StatusbarPopMethodInfo
ResolveStatusbarMethod "push" o = StatusbarPushMethodInfo
ResolveStatusbarMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveStatusbarMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveStatusbarMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveStatusbarMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveStatusbarMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStatusbarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStatusbarMethod "remove" o = StatusbarRemoveMethodInfo
ResolveStatusbarMethod "removeAll" o = StatusbarRemoveAllMethodInfo
ResolveStatusbarMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveStatusbarMethod "removeCssClass" o = Gtk.Widget.WidgetRemoveCssClassMethodInfo
ResolveStatusbarMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveStatusbarMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveStatusbarMethod "resetProperty" o = Gtk.Accessible.AccessibleResetPropertyMethodInfo
ResolveStatusbarMethod "resetRelation" o = Gtk.Accessible.AccessibleResetRelationMethodInfo
ResolveStatusbarMethod "resetState" o = Gtk.Accessible.AccessibleResetStateMethodInfo
ResolveStatusbarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStatusbarMethod "shouldLayout" o = Gtk.Widget.WidgetShouldLayoutMethodInfo
ResolveStatusbarMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveStatusbarMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveStatusbarMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveStatusbarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStatusbarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStatusbarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStatusbarMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveStatusbarMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveStatusbarMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveStatusbarMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveStatusbarMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveStatusbarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStatusbarMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveStatusbarMethod "updateProperty" o = Gtk.Accessible.AccessibleUpdatePropertyMethodInfo
ResolveStatusbarMethod "updateRelation" o = Gtk.Accessible.AccessibleUpdateRelationMethodInfo
ResolveStatusbarMethod "updateState" o = Gtk.Accessible.AccessibleUpdateStateMethodInfo
ResolveStatusbarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStatusbarMethod "getAccessibleRole" o = Gtk.Accessible.AccessibleGetAccessibleRoleMethodInfo
ResolveStatusbarMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveStatusbarMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveStatusbarMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveStatusbarMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveStatusbarMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveStatusbarMethod "getBuildableId" o = Gtk.Buildable.BuildableGetBuildableIdMethodInfo
ResolveStatusbarMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveStatusbarMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveStatusbarMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveStatusbarMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveStatusbarMethod "getContextId" o = StatusbarGetContextIdMethodInfo
ResolveStatusbarMethod "getCssClasses" o = Gtk.Widget.WidgetGetCssClassesMethodInfo
ResolveStatusbarMethod "getCssName" o = Gtk.Widget.WidgetGetCssNameMethodInfo
ResolveStatusbarMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveStatusbarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStatusbarMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveStatusbarMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveStatusbarMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveStatusbarMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveStatusbarMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveStatusbarMethod "getFocusable" o = Gtk.Widget.WidgetGetFocusableMethodInfo
ResolveStatusbarMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveStatusbarMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveStatusbarMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveStatusbarMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveStatusbarMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveStatusbarMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveStatusbarMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveStatusbarMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveStatusbarMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveStatusbarMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveStatusbarMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveStatusbarMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveStatusbarMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveStatusbarMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveStatusbarMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveStatusbarMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveStatusbarMethod "getNative" o = Gtk.Widget.WidgetGetNativeMethodInfo
ResolveStatusbarMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveStatusbarMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveStatusbarMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveStatusbarMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveStatusbarMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveStatusbarMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveStatusbarMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveStatusbarMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveStatusbarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStatusbarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStatusbarMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveStatusbarMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveStatusbarMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveStatusbarMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveStatusbarMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveStatusbarMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveStatusbarMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveStatusbarMethod "getSize" o = Gtk.Widget.WidgetGetSizeMethodInfo
ResolveStatusbarMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveStatusbarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveStatusbarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveStatusbarMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveStatusbarMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveStatusbarMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveStatusbarMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveStatusbarMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveStatusbarMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveStatusbarMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveStatusbarMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveStatusbarMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveStatusbarMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveStatusbarMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveStatusbarMethod "setCssClasses" o = Gtk.Widget.WidgetSetCssClassesMethodInfo
ResolveStatusbarMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveStatusbarMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveStatusbarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStatusbarMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStatusbarMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveStatusbarMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveStatusbarMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveStatusbarMethod "setFocusable" o = Gtk.Widget.WidgetSetFocusableMethodInfo
ResolveStatusbarMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveStatusbarMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveStatusbarMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveStatusbarMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveStatusbarMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveStatusbarMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveStatusbarMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveStatusbarMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveStatusbarMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveStatusbarMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveStatusbarMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveStatusbarMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveStatusbarMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveStatusbarMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveStatusbarMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveStatusbarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStatusbarMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveStatusbarMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveStatusbarMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveStatusbarMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveStatusbarMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveStatusbarMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveStatusbarMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveStatusbarMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveStatusbarMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveStatusbarMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveStatusbarMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStatusbarMethod t Statusbar, O.OverloadedMethod info Statusbar p) => OL.IsLabel t (Statusbar -> 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 ~ ResolveStatusbarMethod t Statusbar, O.OverloadedMethod info Statusbar p, R.HasField t Statusbar p) => R.HasField t Statusbar p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStatusbarMethod t Statusbar, O.OverloadedMethodInfo info Statusbar) => OL.IsLabel t (O.MethodProxy info Statusbar) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type StatusbarTextPoppedCallback =
Word32
-> T.Text
-> IO ()
type C_StatusbarTextPoppedCallback =
Ptr Statusbar ->
Word32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusbarTextPoppedCallback :: C_StatusbarTextPoppedCallback -> IO (FunPtr C_StatusbarTextPoppedCallback)
wrap_StatusbarTextPoppedCallback ::
GObject a => (a -> StatusbarTextPoppedCallback) ->
C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback :: forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback a -> StatusbarTextPoppedCallback
gi'cb Ptr Statusbar
gi'selfPtr Word32
contextId CString
text Ptr ()
_ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
Ptr Statusbar -> (Statusbar -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Statusbar
gi'selfPtr ((Statusbar -> IO ()) -> IO ()) -> (Statusbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Statusbar
gi'self -> a -> StatusbarTextPoppedCallback
gi'cb (Statusbar -> a
Coerce.coerce Statusbar
gi'self) Word32
contextId Text
text'
onStatusbarTextPopped :: (IsStatusbar a, MonadIO m) => a -> ((?self :: a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
onStatusbarTextPopped :: forall a (m :: * -> *).
(IsStatusbar a, MonadIO m) =>
a
-> ((?self::a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
onStatusbarTextPopped a
obj (?self::a) => StatusbarTextPoppedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusbarTextPoppedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StatusbarTextPoppedCallback
StatusbarTextPoppedCallback
cb
let wrapped' :: C_StatusbarTextPoppedCallback
wrapped' = (a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback a -> StatusbarTextPoppedCallback
wrapped
FunPtr C_StatusbarTextPoppedCallback
wrapped'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPoppedCallback C_StatusbarTextPoppedCallback
wrapped'
a
-> Text
-> FunPtr C_StatusbarTextPoppedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-popped" FunPtr C_StatusbarTextPoppedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStatusbarTextPopped :: (IsStatusbar a, MonadIO m) => a -> ((?self :: a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
afterStatusbarTextPopped :: forall a (m :: * -> *).
(IsStatusbar a, MonadIO m) =>
a
-> ((?self::a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
afterStatusbarTextPopped a
obj (?self::a) => StatusbarTextPoppedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusbarTextPoppedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StatusbarTextPoppedCallback
StatusbarTextPoppedCallback
cb
let wrapped' :: C_StatusbarTextPoppedCallback
wrapped' = (a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback a -> StatusbarTextPoppedCallback
wrapped
FunPtr C_StatusbarTextPoppedCallback
wrapped'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPoppedCallback C_StatusbarTextPoppedCallback
wrapped'
a
-> Text
-> FunPtr C_StatusbarTextPoppedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-popped" FunPtr C_StatusbarTextPoppedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusbarTextPoppedSignalInfo
instance SignalInfo StatusbarTextPoppedSignalInfo where
type HaskellCallbackType StatusbarTextPoppedSignalInfo = StatusbarTextPoppedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusbarTextPoppedCallback cb
cb'' <- mk_StatusbarTextPoppedCallback cb'
connectSignalFunPtr obj "text-popped" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar::text-popped"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#g:signal:textPopped"})
#endif
type StatusbarTextPushedCallback =
Word32
-> T.Text
-> IO ()
type C_StatusbarTextPushedCallback =
Ptr Statusbar ->
Word32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusbarTextPushedCallback :: C_StatusbarTextPushedCallback -> IO (FunPtr C_StatusbarTextPushedCallback)
wrap_StatusbarTextPushedCallback ::
GObject a => (a -> StatusbarTextPushedCallback) ->
C_StatusbarTextPushedCallback
wrap_StatusbarTextPushedCallback :: forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback a -> StatusbarTextPoppedCallback
gi'cb Ptr Statusbar
gi'selfPtr Word32
contextId CString
text Ptr ()
_ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
Ptr Statusbar -> (Statusbar -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Statusbar
gi'selfPtr ((Statusbar -> IO ()) -> IO ()) -> (Statusbar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Statusbar
gi'self -> a -> StatusbarTextPoppedCallback
gi'cb (Statusbar -> a
Coerce.coerce Statusbar
gi'self) Word32
contextId Text
text'
onStatusbarTextPushed :: (IsStatusbar a, MonadIO m) => a -> ((?self :: a) => StatusbarTextPushedCallback) -> m SignalHandlerId
onStatusbarTextPushed :: forall a (m :: * -> *).
(IsStatusbar a, MonadIO m) =>
a
-> ((?self::a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
onStatusbarTextPushed a
obj (?self::a) => StatusbarTextPoppedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusbarTextPoppedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StatusbarTextPoppedCallback
StatusbarTextPoppedCallback
cb
let wrapped' :: C_StatusbarTextPoppedCallback
wrapped' = (a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback a -> StatusbarTextPoppedCallback
wrapped
FunPtr C_StatusbarTextPoppedCallback
wrapped'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPushedCallback C_StatusbarTextPoppedCallback
wrapped'
a
-> Text
-> FunPtr C_StatusbarTextPoppedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-pushed" FunPtr C_StatusbarTextPoppedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStatusbarTextPushed :: (IsStatusbar a, MonadIO m) => a -> ((?self :: a) => StatusbarTextPushedCallback) -> m SignalHandlerId
afterStatusbarTextPushed :: forall a (m :: * -> *).
(IsStatusbar a, MonadIO m) =>
a
-> ((?self::a) => StatusbarTextPoppedCallback) -> m SignalHandlerId
afterStatusbarTextPushed a
obj (?self::a) => StatusbarTextPoppedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusbarTextPoppedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => StatusbarTextPoppedCallback
StatusbarTextPoppedCallback
cb
let wrapped' :: C_StatusbarTextPoppedCallback
wrapped' = (a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
forall a.
GObject a =>
(a -> StatusbarTextPoppedCallback) -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback a -> StatusbarTextPoppedCallback
wrapped
FunPtr C_StatusbarTextPoppedCallback
wrapped'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPushedCallback C_StatusbarTextPoppedCallback
wrapped'
a
-> Text
-> FunPtr C_StatusbarTextPoppedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-pushed" FunPtr C_StatusbarTextPoppedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusbarTextPushedSignalInfo
instance SignalInfo StatusbarTextPushedSignalInfo where
type HaskellCallbackType StatusbarTextPushedSignalInfo = StatusbarTextPushedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusbarTextPushedCallback cb
cb'' <- mk_StatusbarTextPushedCallback cb'
connectSignalFunPtr obj "text-pushed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar::text-pushed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#g:signal:textPushed"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Statusbar
type instance O.AttributeList Statusbar = StatusbarAttributeList
type StatusbarAttributeList = ('[ '("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), '("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)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Statusbar = StatusbarSignalList
type StatusbarSignalList = ('[ '("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), '("textPopped", StatusbarTextPoppedSignalInfo), '("textPushed", StatusbarTextPushedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_statusbar_new" gtk_statusbar_new ::
IO (Ptr Statusbar)
statusbarNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Statusbar
statusbarNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Statusbar
statusbarNew = IO Statusbar -> m Statusbar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Statusbar -> m Statusbar) -> IO Statusbar -> m Statusbar
forall a b. (a -> b) -> a -> b
$ do
Ptr Statusbar
result <- IO (Ptr Statusbar)
gtk_statusbar_new
Text -> Ptr Statusbar -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusbarNew" Ptr Statusbar
result
Statusbar
result' <- ((ManagedPtr Statusbar -> Statusbar)
-> Ptr Statusbar -> IO Statusbar
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Statusbar -> Statusbar
Statusbar) Ptr Statusbar
result
Statusbar -> IO Statusbar
forall (m :: * -> *) a. Monad m => a -> m a
return Statusbar
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_statusbar_get_context_id" gtk_statusbar_get_context_id ::
Ptr Statusbar ->
CString ->
IO Word32
statusbarGetContextId ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusbar a) =>
a
-> T.Text
-> m Word32
statusbarGetContextId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusbar a) =>
a -> Text -> m Word32
statusbarGetContextId a
statusbar Text
contextDescription = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Statusbar
statusbar' <- a -> IO (Ptr Statusbar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusbar
CString
contextDescription' <- Text -> IO CString
textToCString Text
contextDescription
Word32
result <- Ptr Statusbar -> CString -> IO Word32
gtk_statusbar_get_context_id Ptr Statusbar
statusbar' CString
contextDescription'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusbar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contextDescription'
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StatusbarGetContextIdMethodInfo
instance (signature ~ (T.Text -> m Word32), MonadIO m, IsStatusbar a) => O.OverloadedMethod StatusbarGetContextIdMethodInfo a signature where
overloadedMethod = statusbarGetContextId
instance O.OverloadedMethodInfo StatusbarGetContextIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar.statusbarGetContextId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#v:statusbarGetContextId"
})
#endif
foreign import ccall "gtk_statusbar_pop" gtk_statusbar_pop ::
Ptr Statusbar ->
Word32 ->
IO ()
statusbarPop ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusbar a) =>
a
-> Word32
-> m ()
statusbarPop :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusbar a) =>
a -> Word32 -> m ()
statusbarPop a
statusbar Word32
contextId = 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 Statusbar
statusbar' <- a -> IO (Ptr Statusbar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusbar
Ptr Statusbar -> Word32 -> IO ()
gtk_statusbar_pop Ptr Statusbar
statusbar' Word32
contextId
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusbarPopMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsStatusbar a) => O.OverloadedMethod StatusbarPopMethodInfo a signature where
overloadedMethod = statusbarPop
instance O.OverloadedMethodInfo StatusbarPopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar.statusbarPop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#v:statusbarPop"
})
#endif
foreign import ccall "gtk_statusbar_push" gtk_statusbar_push ::
Ptr Statusbar ->
Word32 ->
CString ->
IO Word32
statusbarPush ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusbar a) =>
a
-> Word32
-> T.Text
-> m Word32
statusbarPush :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusbar a) =>
a -> Word32 -> Text -> m Word32
statusbarPush a
statusbar Word32
contextId Text
text = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Statusbar
statusbar' <- a -> IO (Ptr Statusbar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusbar
CString
text' <- Text -> IO CString
textToCString Text
text
Word32
result <- Ptr Statusbar -> Word32 -> CString -> IO Word32
gtk_statusbar_push Ptr Statusbar
statusbar' Word32
contextId CString
text'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusbar
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StatusbarPushMethodInfo
instance (signature ~ (Word32 -> T.Text -> m Word32), MonadIO m, IsStatusbar a) => O.OverloadedMethod StatusbarPushMethodInfo a signature where
overloadedMethod = statusbarPush
instance O.OverloadedMethodInfo StatusbarPushMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar.statusbarPush",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#v:statusbarPush"
})
#endif
foreign import ccall "gtk_statusbar_remove" gtk_statusbar_remove ::
Ptr Statusbar ->
Word32 ->
Word32 ->
IO ()
statusbarRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusbar a) =>
a
-> Word32
-> Word32
-> m ()
statusbarRemove :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusbar a) =>
a -> Word32 -> Word32 -> m ()
statusbarRemove a
statusbar Word32
contextId Word32
messageId = 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 Statusbar
statusbar' <- a -> IO (Ptr Statusbar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusbar
Ptr Statusbar -> Word32 -> Word32 -> IO ()
gtk_statusbar_remove Ptr Statusbar
statusbar' Word32
contextId Word32
messageId
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusbarRemoveMethodInfo
instance (signature ~ (Word32 -> Word32 -> m ()), MonadIO m, IsStatusbar a) => O.OverloadedMethod StatusbarRemoveMethodInfo a signature where
overloadedMethod = statusbarRemove
instance O.OverloadedMethodInfo StatusbarRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar.statusbarRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#v:statusbarRemove"
})
#endif
foreign import ccall "gtk_statusbar_remove_all" gtk_statusbar_remove_all ::
Ptr Statusbar ->
Word32 ->
IO ()
statusbarRemoveAll ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusbar a) =>
a
-> Word32
-> m ()
statusbarRemoveAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusbar a) =>
a -> Word32 -> m ()
statusbarRemoveAll a
statusbar Word32
contextId = 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 Statusbar
statusbar' <- a -> IO (Ptr Statusbar)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusbar
Ptr Statusbar -> Word32 -> IO ()
gtk_statusbar_remove_all Ptr Statusbar
statusbar' Word32
contextId
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusbar
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusbarRemoveAllMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsStatusbar a) => O.OverloadedMethod StatusbarRemoveAllMethodInfo a signature where
overloadedMethod = statusbarRemoveAll
instance O.OverloadedMethodInfo StatusbarRemoveAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Statusbar.statusbarRemoveAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-Statusbar.html#v:statusbarRemoveAll"
})
#endif