{-# LANGUAGE 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 ,
C_StatusbarTextPoppedCallback ,
StatusbarTextPoppedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusbarTextPoppedSignalInfo ,
#endif
afterStatusbarTextPopped ,
genClosure_StatusbarTextPopped ,
mk_StatusbarTextPoppedCallback ,
noStatusbarTextPoppedCallback ,
onStatusbarTextPopped ,
wrap_StatusbarTextPoppedCallback ,
C_StatusbarTextPushedCallback ,
StatusbarTextPushedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusbarTextPushedSignalInfo ,
#endif
afterStatusbarTextPushed ,
genClosure_StatusbarTextPushed ,
mk_StatusbarTextPushedCallback ,
noStatusbarTextPushedCallback ,
onStatusbarTextPushed ,
wrap_StatusbarTextPushedCallback ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.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
instance B.GValue.IsGValue Statusbar where
toGValue :: Statusbar -> IO GValue
toGValue Statusbar
o = do
GType
gtype <- IO GType
c_gtk_statusbar_get_type
Statusbar -> (Ptr Statusbar -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Statusbar
o (GType
-> (GValue -> Ptr Statusbar -> IO ()) -> Ptr Statusbar -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Statusbar -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Statusbar
fromGValue GValue
gv = do
Ptr Statusbar
ptr <- GValue -> IO (Ptr Statusbar)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Statusbar)
(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
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, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.ConstraintTarget.ConstraintTarget]
toStatusbar :: (MonadIO m, IsStatusbar o) => o -> m Statusbar
toStatusbar :: o -> m Statusbar
toStatusbar = IO Statusbar -> m Statusbar
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr Statusbar -> Statusbar
Statusbar
#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 "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
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 "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveStatusbarMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveStatusbarMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveStatusbarMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveStatusbarMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveStatusbarMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveStatusbarMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveStatusbarMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
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 "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
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 "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 "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStatusbarMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
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 "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 "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
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 "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveStatusbarMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveStatusbarMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveStatusbarMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
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 "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
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 "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
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.MethodInfo 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
#endif
type StatusbarTextPoppedCallback =
Word32
-> T.Text
-> IO ()
noStatusbarTextPoppedCallback :: Maybe StatusbarTextPoppedCallback
noStatusbarTextPoppedCallback :: Maybe StatusbarTextPoppedCallback
noStatusbarTextPoppedCallback = Maybe StatusbarTextPoppedCallback
forall a. Maybe a
Nothing
type C_StatusbarTextPoppedCallback =
Ptr () ->
Word32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusbarTextPoppedCallback :: C_StatusbarTextPoppedCallback -> IO (FunPtr C_StatusbarTextPoppedCallback)
genClosure_StatusbarTextPopped :: MonadIO m => StatusbarTextPoppedCallback -> m (GClosure C_StatusbarTextPoppedCallback)
genClosure_StatusbarTextPopped :: StatusbarTextPoppedCallback
-> m (GClosure C_StatusbarTextPoppedCallback)
genClosure_StatusbarTextPopped StatusbarTextPoppedCallback
cb = IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback))
-> IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback StatusbarTextPoppedCallback
cb
C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPoppedCallback C_StatusbarTextPoppedCallback
cb' IO (FunPtr C_StatusbarTextPoppedCallback)
-> (FunPtr C_StatusbarTextPoppedCallback
-> IO (GClosure C_StatusbarTextPoppedCallback))
-> IO (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_StatusbarTextPoppedCallback
-> IO (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_StatusbarTextPoppedCallback ::
StatusbarTextPoppedCallback ->
C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback :: StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback StatusbarTextPoppedCallback
_cb Ptr ()
_ Word32
contextId CString
text Ptr ()
_ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
StatusbarTextPoppedCallback
_cb Word32
contextId Text
text'
onStatusbarTextPopped :: (IsStatusbar a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId
onStatusbarTextPopped :: a -> StatusbarTextPoppedCallback -> m SignalHandlerId
onStatusbarTextPopped a
obj 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 cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback StatusbarTextPoppedCallback
cb
FunPtr C_StatusbarTextPoppedCallback
cb'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPoppedCallback C_StatusbarTextPoppedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStatusbarTextPopped :: (IsStatusbar a, MonadIO m) => a -> StatusbarTextPoppedCallback -> m SignalHandlerId
afterStatusbarTextPopped :: a -> StatusbarTextPoppedCallback -> m SignalHandlerId
afterStatusbarTextPopped a
obj 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 cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPoppedCallback StatusbarTextPoppedCallback
cb
FunPtr C_StatusbarTextPoppedCallback
cb'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPoppedCallback C_StatusbarTextPoppedCallback
cb'
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
cb'' 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
#endif
type StatusbarTextPushedCallback =
Word32
-> T.Text
-> IO ()
noStatusbarTextPushedCallback :: Maybe StatusbarTextPushedCallback
noStatusbarTextPushedCallback :: Maybe StatusbarTextPoppedCallback
noStatusbarTextPushedCallback = Maybe StatusbarTextPoppedCallback
forall a. Maybe a
Nothing
type C_StatusbarTextPushedCallback =
Ptr () ->
Word32 ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusbarTextPushedCallback :: C_StatusbarTextPushedCallback -> IO (FunPtr C_StatusbarTextPushedCallback)
genClosure_StatusbarTextPushed :: MonadIO m => StatusbarTextPushedCallback -> m (GClosure C_StatusbarTextPushedCallback)
genClosure_StatusbarTextPushed :: StatusbarTextPoppedCallback
-> m (GClosure C_StatusbarTextPoppedCallback)
genClosure_StatusbarTextPushed StatusbarTextPoppedCallback
cb = IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback))
-> IO (GClosure C_StatusbarTextPoppedCallback)
-> m (GClosure C_StatusbarTextPoppedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback StatusbarTextPoppedCallback
cb
C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPushedCallback C_StatusbarTextPoppedCallback
cb' IO (FunPtr C_StatusbarTextPoppedCallback)
-> (FunPtr C_StatusbarTextPoppedCallback
-> IO (GClosure C_StatusbarTextPoppedCallback))
-> IO (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_StatusbarTextPoppedCallback
-> IO (GClosure C_StatusbarTextPoppedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_StatusbarTextPushedCallback ::
StatusbarTextPushedCallback ->
C_StatusbarTextPushedCallback
wrap_StatusbarTextPushedCallback :: StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback StatusbarTextPoppedCallback
_cb Ptr ()
_ Word32
contextId CString
text Ptr ()
_ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
StatusbarTextPoppedCallback
_cb Word32
contextId Text
text'
onStatusbarTextPushed :: (IsStatusbar a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId
onStatusbarTextPushed :: a -> StatusbarTextPoppedCallback -> m SignalHandlerId
onStatusbarTextPushed a
obj 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 cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback StatusbarTextPoppedCallback
cb
FunPtr C_StatusbarTextPoppedCallback
cb'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPushedCallback C_StatusbarTextPoppedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterStatusbarTextPushed :: (IsStatusbar a, MonadIO m) => a -> StatusbarTextPushedCallback -> m SignalHandlerId
afterStatusbarTextPushed :: a -> StatusbarTextPoppedCallback -> m SignalHandlerId
afterStatusbarTextPushed a
obj 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 cb' :: C_StatusbarTextPoppedCallback
cb' = StatusbarTextPoppedCallback -> C_StatusbarTextPoppedCallback
wrap_StatusbarTextPushedCallback StatusbarTextPoppedCallback
cb
FunPtr C_StatusbarTextPoppedCallback
cb'' <- C_StatusbarTextPoppedCallback
-> IO (FunPtr C_StatusbarTextPoppedCallback)
mk_StatusbarTextPushedCallback C_StatusbarTextPoppedCallback
cb'
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
cb'' 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
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Statusbar
type instance O.AttributeList Statusbar = StatusbarAttributeList
type StatusbarAttributeList = ('[ '("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), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("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 :: 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 :: 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.MethodInfo StatusbarGetContextIdMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo StatusbarPopMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo StatusbarPushMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo StatusbarRemoveMethodInfo a signature where
overloadedMethod = 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 :: 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.MethodInfo StatusbarRemoveAllMethodInfo a signature where
overloadedMethod = statusbarRemoveAll
#endif