{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.StatusIcon
(
StatusIcon(..) ,
IsStatusIcon ,
toStatusIcon ,
#if defined(ENABLE_OVERLOADING)
ResolveStatusIconMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconGetGeometryMethodInfo ,
#endif
statusIconGetGeometry ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetGiconMethodInfo ,
#endif
statusIconGetGicon ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetHasTooltipMethodInfo ,
#endif
statusIconGetHasTooltip ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetIconNameMethodInfo ,
#endif
statusIconGetIconName ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetPixbufMethodInfo ,
#endif
statusIconGetPixbuf ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetScreenMethodInfo ,
#endif
statusIconGetScreen ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetSizeMethodInfo ,
#endif
statusIconGetSize ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetStockMethodInfo ,
#endif
statusIconGetStock ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetStorageTypeMethodInfo ,
#endif
statusIconGetStorageType ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetTitleMethodInfo ,
#endif
statusIconGetTitle ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetTooltipMarkupMethodInfo ,
#endif
statusIconGetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetTooltipTextMethodInfo ,
#endif
statusIconGetTooltipText ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetVisibleMethodInfo ,
#endif
statusIconGetVisible ,
#if defined(ENABLE_OVERLOADING)
StatusIconGetX11WindowIdMethodInfo ,
#endif
statusIconGetX11WindowId ,
#if defined(ENABLE_OVERLOADING)
StatusIconIsEmbeddedMethodInfo ,
#endif
statusIconIsEmbedded ,
statusIconNew ,
statusIconNewFromFile ,
statusIconNewFromGicon ,
statusIconNewFromIconName ,
statusIconNewFromPixbuf ,
statusIconNewFromStock ,
statusIconPositionMenu ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetFromFileMethodInfo ,
#endif
statusIconSetFromFile ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetFromGiconMethodInfo ,
#endif
statusIconSetFromGicon ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetFromIconNameMethodInfo ,
#endif
statusIconSetFromIconName ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetFromPixbufMethodInfo ,
#endif
statusIconSetFromPixbuf ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetFromStockMethodInfo ,
#endif
statusIconSetFromStock ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetHasTooltipMethodInfo ,
#endif
statusIconSetHasTooltip ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetNameMethodInfo ,
#endif
statusIconSetName ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetScreenMethodInfo ,
#endif
statusIconSetScreen ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetTitleMethodInfo ,
#endif
statusIconSetTitle ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetTooltipMarkupMethodInfo ,
#endif
statusIconSetTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetTooltipTextMethodInfo ,
#endif
statusIconSetTooltipText ,
#if defined(ENABLE_OVERLOADING)
StatusIconSetVisibleMethodInfo ,
#endif
statusIconSetVisible ,
#if defined(ENABLE_OVERLOADING)
StatusIconEmbeddedPropertyInfo ,
#endif
getStatusIconEmbedded ,
#if defined(ENABLE_OVERLOADING)
statusIconEmbedded ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconFilePropertyInfo ,
#endif
clearStatusIconFile ,
constructStatusIconFile ,
setStatusIconFile ,
#if defined(ENABLE_OVERLOADING)
statusIconFile ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconGiconPropertyInfo ,
#endif
clearStatusIconGicon ,
constructStatusIconGicon ,
getStatusIconGicon ,
setStatusIconGicon ,
#if defined(ENABLE_OVERLOADING)
statusIconGicon ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconHasTooltipPropertyInfo ,
#endif
constructStatusIconHasTooltip ,
getStatusIconHasTooltip ,
setStatusIconHasTooltip ,
#if defined(ENABLE_OVERLOADING)
statusIconHasTooltip ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconIconNamePropertyInfo ,
#endif
clearStatusIconIconName ,
constructStatusIconIconName ,
getStatusIconIconName ,
setStatusIconIconName ,
#if defined(ENABLE_OVERLOADING)
statusIconIconName ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconOrientationPropertyInfo ,
#endif
getStatusIconOrientation ,
#if defined(ENABLE_OVERLOADING)
statusIconOrientation ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconPixbufPropertyInfo ,
#endif
clearStatusIconPixbuf ,
constructStatusIconPixbuf ,
getStatusIconPixbuf ,
setStatusIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
statusIconPixbuf ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconScreenPropertyInfo ,
#endif
constructStatusIconScreen ,
getStatusIconScreen ,
setStatusIconScreen ,
#if defined(ENABLE_OVERLOADING)
statusIconScreen ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconSizePropertyInfo ,
#endif
getStatusIconSize ,
#if defined(ENABLE_OVERLOADING)
statusIconSize ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconStockPropertyInfo ,
#endif
clearStatusIconStock ,
constructStatusIconStock ,
getStatusIconStock ,
setStatusIconStock ,
#if defined(ENABLE_OVERLOADING)
statusIconStock ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconStorageTypePropertyInfo ,
#endif
getStatusIconStorageType ,
#if defined(ENABLE_OVERLOADING)
statusIconStorageType ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconTitlePropertyInfo ,
#endif
constructStatusIconTitle ,
getStatusIconTitle ,
setStatusIconTitle ,
#if defined(ENABLE_OVERLOADING)
statusIconTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconTooltipMarkupPropertyInfo ,
#endif
clearStatusIconTooltipMarkup ,
constructStatusIconTooltipMarkup ,
getStatusIconTooltipMarkup ,
setStatusIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
statusIconTooltipMarkup ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconTooltipTextPropertyInfo ,
#endif
constructStatusIconTooltipText ,
getStatusIconTooltipText ,
setStatusIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
statusIconTooltipText ,
#endif
#if defined(ENABLE_OVERLOADING)
StatusIconVisiblePropertyInfo ,
#endif
constructStatusIconVisible ,
getStatusIconVisible ,
setStatusIconVisible ,
#if defined(ENABLE_OVERLOADING)
statusIconVisible ,
#endif
StatusIconActivateCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconActivateSignalInfo ,
#endif
afterStatusIconActivate ,
onStatusIconActivate ,
StatusIconButtonPressEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconButtonPressEventSignalInfo ,
#endif
afterStatusIconButtonPressEvent ,
onStatusIconButtonPressEvent ,
StatusIconButtonReleaseEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconButtonReleaseEventSignalInfo ,
#endif
afterStatusIconButtonReleaseEvent ,
onStatusIconButtonReleaseEvent ,
StatusIconPopupMenuCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconPopupMenuSignalInfo ,
#endif
afterStatusIconPopupMenu ,
onStatusIconPopupMenu ,
StatusIconQueryTooltipCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconQueryTooltipSignalInfo ,
#endif
afterStatusIconQueryTooltip ,
onStatusIconQueryTooltip ,
StatusIconScrollEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconScrollEventSignalInfo ,
#endif
afterStatusIconScrollEvent ,
onStatusIconScrollEvent ,
StatusIconSizeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconSizeChangedSignalInfo ,
#endif
afterStatusIconSizeChanged ,
onStatusIconSizeChanged ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Objects.Screen as Gdk.Screen
import qualified GI.Gdk.Structs.EventButton as Gdk.EventButton
import qualified GI.Gdk.Structs.EventScroll as Gdk.EventScroll
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Objects.Menu as Gtk.Menu
import {-# SOURCE #-} qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
newtype StatusIcon = StatusIcon (SP.ManagedPtr StatusIcon)
deriving (StatusIcon -> StatusIcon -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StatusIcon -> StatusIcon -> Bool
$c/= :: StatusIcon -> StatusIcon -> Bool
== :: StatusIcon -> StatusIcon -> Bool
$c== :: StatusIcon -> StatusIcon -> Bool
Eq)
instance SP.ManagedPtrNewtype StatusIcon where
toManagedPtr :: StatusIcon -> ManagedPtr StatusIcon
toManagedPtr (StatusIcon ManagedPtr StatusIcon
p) = ManagedPtr StatusIcon
p
foreign import ccall "gtk_status_icon_get_type"
c_gtk_status_icon_get_type :: IO B.Types.GType
instance B.Types.TypedObject StatusIcon where
glibType :: IO GType
glibType = IO GType
c_gtk_status_icon_get_type
instance B.Types.GObject StatusIcon
class (SP.GObject o, O.IsDescendantOf StatusIcon o) => IsStatusIcon o
instance (SP.GObject o, O.IsDescendantOf StatusIcon o) => IsStatusIcon o
instance O.HasParentTypes StatusIcon
type instance O.ParentTypes StatusIcon = '[GObject.Object.Object]
toStatusIcon :: (MIO.MonadIO m, IsStatusIcon o) => o -> m StatusIcon
toStatusIcon :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m StatusIcon
toStatusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr StatusIcon -> StatusIcon
StatusIcon
instance B.GValue.IsGValue (Maybe StatusIcon) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_status_icon_get_type
gvalueSet_ :: Ptr GValue -> Maybe StatusIcon -> IO ()
gvalueSet_ Ptr GValue
gv Maybe StatusIcon
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr StatusIcon)
gvalueSet_ Ptr GValue
gv (P.Just StatusIcon
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr StatusIcon
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe StatusIcon)
gvalueGet_ Ptr GValue
gv = do
Ptr StatusIcon
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr StatusIcon)
if Ptr StatusIcon
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon Ptr StatusIcon
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStatusIconMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveStatusIconMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveStatusIconMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveStatusIconMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveStatusIconMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveStatusIconMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveStatusIconMethod "isEmbedded" o = StatusIconIsEmbeddedMethodInfo
ResolveStatusIconMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveStatusIconMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveStatusIconMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveStatusIconMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveStatusIconMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveStatusIconMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveStatusIconMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveStatusIconMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveStatusIconMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveStatusIconMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveStatusIconMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveStatusIconMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveStatusIconMethod "getGeometry" o = StatusIconGetGeometryMethodInfo
ResolveStatusIconMethod "getGicon" o = StatusIconGetGiconMethodInfo
ResolveStatusIconMethod "getHasTooltip" o = StatusIconGetHasTooltipMethodInfo
ResolveStatusIconMethod "getIconName" o = StatusIconGetIconNameMethodInfo
ResolveStatusIconMethod "getPixbuf" o = StatusIconGetPixbufMethodInfo
ResolveStatusIconMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveStatusIconMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveStatusIconMethod "getScreen" o = StatusIconGetScreenMethodInfo
ResolveStatusIconMethod "getSize" o = StatusIconGetSizeMethodInfo
ResolveStatusIconMethod "getStock" o = StatusIconGetStockMethodInfo
ResolveStatusIconMethod "getStorageType" o = StatusIconGetStorageTypeMethodInfo
ResolveStatusIconMethod "getTitle" o = StatusIconGetTitleMethodInfo
ResolveStatusIconMethod "getTooltipMarkup" o = StatusIconGetTooltipMarkupMethodInfo
ResolveStatusIconMethod "getTooltipText" o = StatusIconGetTooltipTextMethodInfo
ResolveStatusIconMethod "getVisible" o = StatusIconGetVisibleMethodInfo
ResolveStatusIconMethod "getX11WindowId" o = StatusIconGetX11WindowIdMethodInfo
ResolveStatusIconMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveStatusIconMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveStatusIconMethod "setFromFile" o = StatusIconSetFromFileMethodInfo
ResolveStatusIconMethod "setFromGicon" o = StatusIconSetFromGiconMethodInfo
ResolveStatusIconMethod "setFromIconName" o = StatusIconSetFromIconNameMethodInfo
ResolveStatusIconMethod "setFromPixbuf" o = StatusIconSetFromPixbufMethodInfo
ResolveStatusIconMethod "setFromStock" o = StatusIconSetFromStockMethodInfo
ResolveStatusIconMethod "setHasTooltip" o = StatusIconSetHasTooltipMethodInfo
ResolveStatusIconMethod "setName" o = StatusIconSetNameMethodInfo
ResolveStatusIconMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveStatusIconMethod "setScreen" o = StatusIconSetScreenMethodInfo
ResolveStatusIconMethod "setTitle" o = StatusIconSetTitleMethodInfo
ResolveStatusIconMethod "setTooltipMarkup" o = StatusIconSetTooltipMarkupMethodInfo
ResolveStatusIconMethod "setTooltipText" o = StatusIconSetTooltipTextMethodInfo
ResolveStatusIconMethod "setVisible" o = StatusIconSetVisibleMethodInfo
ResolveStatusIconMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveStatusIconMethod t StatusIcon, O.OverloadedMethod info StatusIcon p) => OL.IsLabel t (StatusIcon -> 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 ~ ResolveStatusIconMethod t StatusIcon, O.OverloadedMethod info StatusIcon p, R.HasField t StatusIcon p) => R.HasField t StatusIcon p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveStatusIconMethod t StatusIcon, O.OverloadedMethodInfo info StatusIcon) => OL.IsLabel t (O.MethodProxy info StatusIcon) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type StatusIconActivateCallback =
IO ()
type C_StatusIconActivateCallback =
Ptr StatusIcon ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusIconActivateCallback :: C_StatusIconActivateCallback -> IO (FunPtr C_StatusIconActivateCallback)
wrap_StatusIconActivateCallback ::
GObject a => (a -> StatusIconActivateCallback) ->
C_StatusIconActivateCallback
wrap_StatusIconActivateCallback :: forall a. GObject a => (a -> IO ()) -> C_StatusIconActivateCallback
wrap_StatusIconActivateCallback a -> IO ()
gi'cb Ptr StatusIcon
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self)
onStatusIconActivate :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconActivateCallback) -> m SignalHandlerId
onStatusIconActivate :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onStatusIconActivate a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_StatusIconActivateCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_StatusIconActivateCallback
wrap_StatusIconActivateCallback a -> IO ()
wrapped
FunPtr C_StatusIconActivateCallback
wrapped'' <- C_StatusIconActivateCallback
-> IO (FunPtr C_StatusIconActivateCallback)
mk_StatusIconActivateCallback C_StatusIconActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_StatusIconActivateCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconActivate :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconActivateCallback) -> m SignalHandlerId
afterStatusIconActivate :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterStatusIconActivate a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_StatusIconActivateCallback
wrapped' = forall a. GObject a => (a -> IO ()) -> C_StatusIconActivateCallback
wrap_StatusIconActivateCallback a -> IO ()
wrapped
FunPtr C_StatusIconActivateCallback
wrapped'' <- C_StatusIconActivateCallback
-> IO (FunPtr C_StatusIconActivateCallback)
mk_StatusIconActivateCallback C_StatusIconActivateCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"activate" FunPtr C_StatusIconActivateCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconActivateSignalInfo
instance SignalInfo StatusIconActivateSignalInfo where
type HaskellCallbackType StatusIconActivateSignalInfo = StatusIconActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconActivateCallback cb
cb'' <- mk_StatusIconActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::activate"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:activate"})
#endif
type StatusIconButtonPressEventCallback =
Gdk.EventButton.EventButton
-> IO Bool
type C_StatusIconButtonPressEventCallback =
Ptr StatusIcon ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconButtonPressEventCallback :: C_StatusIconButtonPressEventCallback -> IO (FunPtr C_StatusIconButtonPressEventCallback)
wrap_StatusIconButtonPressEventCallback ::
GObject a => (a -> StatusIconButtonPressEventCallback) ->
C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonPressEventCallback :: forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonPressEventCallback a -> StatusIconButtonPressEventCallback
gi'cb Ptr StatusIcon
gi'selfPtr Ptr EventButton
event Ptr ()
_ = do
EventButton
event' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventButton -> EventButton
Gdk.EventButton.EventButton) Ptr EventButton
event
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconButtonPressEventCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) EventButton
event'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStatusIconButtonPressEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconButtonPressEventCallback) -> m SignalHandlerId
onStatusIconButtonPressEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconButtonPressEventCallback)
-> m SignalHandlerId
onStatusIconButtonPressEvent a
obj (?self::a) => StatusIconButtonPressEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconButtonPressEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconButtonPressEventCallback
cb
let wrapped' :: C_StatusIconButtonPressEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonPressEventCallback a -> StatusIconButtonPressEventCallback
wrapped
FunPtr C_StatusIconButtonPressEventCallback
wrapped'' <- C_StatusIconButtonPressEventCallback
-> IO (FunPtr C_StatusIconButtonPressEventCallback)
mk_StatusIconButtonPressEventCallback C_StatusIconButtonPressEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-press-event" FunPtr C_StatusIconButtonPressEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconButtonPressEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconButtonPressEventCallback) -> m SignalHandlerId
afterStatusIconButtonPressEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconButtonPressEventCallback)
-> m SignalHandlerId
afterStatusIconButtonPressEvent a
obj (?self::a) => StatusIconButtonPressEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconButtonPressEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconButtonPressEventCallback
cb
let wrapped' :: C_StatusIconButtonPressEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonPressEventCallback a -> StatusIconButtonPressEventCallback
wrapped
FunPtr C_StatusIconButtonPressEventCallback
wrapped'' <- C_StatusIconButtonPressEventCallback
-> IO (FunPtr C_StatusIconButtonPressEventCallback)
mk_StatusIconButtonPressEventCallback C_StatusIconButtonPressEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-press-event" FunPtr C_StatusIconButtonPressEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconButtonPressEventSignalInfo
instance SignalInfo StatusIconButtonPressEventSignalInfo where
type HaskellCallbackType StatusIconButtonPressEventSignalInfo = StatusIconButtonPressEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconButtonPressEventCallback cb
cb'' <- mk_StatusIconButtonPressEventCallback cb'
connectSignalFunPtr obj "button-press-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::button-press-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:buttonPressEvent"})
#endif
type StatusIconButtonReleaseEventCallback =
Gdk.EventButton.EventButton
-> IO Bool
type C_StatusIconButtonReleaseEventCallback =
Ptr StatusIcon ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconButtonReleaseEventCallback :: C_StatusIconButtonReleaseEventCallback -> IO (FunPtr C_StatusIconButtonReleaseEventCallback)
wrap_StatusIconButtonReleaseEventCallback ::
GObject a => (a -> StatusIconButtonReleaseEventCallback) ->
C_StatusIconButtonReleaseEventCallback
wrap_StatusIconButtonReleaseEventCallback :: forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonReleaseEventCallback a -> StatusIconButtonPressEventCallback
gi'cb Ptr StatusIcon
gi'selfPtr Ptr EventButton
event Ptr ()
_ = do
EventButton
event' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventButton -> EventButton
Gdk.EventButton.EventButton) Ptr EventButton
event
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconButtonPressEventCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) EventButton
event'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStatusIconButtonReleaseEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconButtonReleaseEventCallback) -> m SignalHandlerId
onStatusIconButtonReleaseEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconButtonPressEventCallback)
-> m SignalHandlerId
onStatusIconButtonReleaseEvent a
obj (?self::a) => StatusIconButtonPressEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconButtonPressEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconButtonPressEventCallback
cb
let wrapped' :: C_StatusIconButtonPressEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonReleaseEventCallback a -> StatusIconButtonPressEventCallback
wrapped
FunPtr C_StatusIconButtonPressEventCallback
wrapped'' <- C_StatusIconButtonPressEventCallback
-> IO (FunPtr C_StatusIconButtonPressEventCallback)
mk_StatusIconButtonReleaseEventCallback C_StatusIconButtonPressEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-release-event" FunPtr C_StatusIconButtonPressEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconButtonReleaseEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconButtonReleaseEventCallback) -> m SignalHandlerId
afterStatusIconButtonReleaseEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconButtonPressEventCallback)
-> m SignalHandlerId
afterStatusIconButtonReleaseEvent a
obj (?self::a) => StatusIconButtonPressEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconButtonPressEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconButtonPressEventCallback
cb
let wrapped' :: C_StatusIconButtonPressEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconButtonPressEventCallback)
-> C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonReleaseEventCallback a -> StatusIconButtonPressEventCallback
wrapped
FunPtr C_StatusIconButtonPressEventCallback
wrapped'' <- C_StatusIconButtonPressEventCallback
-> IO (FunPtr C_StatusIconButtonPressEventCallback)
mk_StatusIconButtonReleaseEventCallback C_StatusIconButtonPressEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-release-event" FunPtr C_StatusIconButtonPressEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconButtonReleaseEventSignalInfo
instance SignalInfo StatusIconButtonReleaseEventSignalInfo where
type HaskellCallbackType StatusIconButtonReleaseEventSignalInfo = StatusIconButtonReleaseEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
cb'' <- mk_StatusIconButtonReleaseEventCallback cb'
connectSignalFunPtr obj "button-release-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::button-release-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:buttonReleaseEvent"})
#endif
type =
Word32
-> Word32
-> IO ()
type =
Ptr StatusIcon ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_StatusIconPopupMenuCallback -> IO (FunPtr C_StatusIconPopupMenuCallback)
wrap_StatusIconPopupMenuCallback ::
GObject a => (a -> StatusIconPopupMenuCallback) ->
C_StatusIconPopupMenuCallback
a -> StatusIconPopupMenuCallback
gi'cb Ptr StatusIcon
gi'selfPtr Word32
button Word32
activateTime Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconPopupMenuCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) Word32
button Word32
activateTime
onStatusIconPopupMenu :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconPopupMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => StatusIconPopupMenuCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconPopupMenuCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconPopupMenuCallback
cb
let wrapped' :: C_StatusIconPopupMenuCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconPopupMenuCallback) -> C_StatusIconPopupMenuCallback
wrap_StatusIconPopupMenuCallback a -> StatusIconPopupMenuCallback
wrapped
FunPtr C_StatusIconPopupMenuCallback
wrapped'' <- C_StatusIconPopupMenuCallback
-> IO (FunPtr C_StatusIconPopupMenuCallback)
mk_StatusIconPopupMenuCallback C_StatusIconPopupMenuCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup-menu" FunPtr C_StatusIconPopupMenuCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconPopupMenu :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconPopupMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => StatusIconPopupMenuCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconPopupMenuCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconPopupMenuCallback
cb
let wrapped' :: C_StatusIconPopupMenuCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconPopupMenuCallback) -> C_StatusIconPopupMenuCallback
wrap_StatusIconPopupMenuCallback a -> StatusIconPopupMenuCallback
wrapped
FunPtr C_StatusIconPopupMenuCallback
wrapped'' <- C_StatusIconPopupMenuCallback
-> IO (FunPtr C_StatusIconPopupMenuCallback)
mk_StatusIconPopupMenuCallback C_StatusIconPopupMenuCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"popup-menu" FunPtr C_StatusIconPopupMenuCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconPopupMenuSignalInfo
instance SignalInfo StatusIconPopupMenuSignalInfo where
type HaskellCallbackType StatusIconPopupMenuSignalInfo = StatusIconPopupMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconPopupMenuCallback cb
cb'' <- mk_StatusIconPopupMenuCallback cb'
connectSignalFunPtr obj "popup-menu" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::popup-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:popupMenu"})
#endif
type StatusIconQueryTooltipCallback =
Int32
-> Int32
-> Bool
-> Gtk.Tooltip.Tooltip
-> IO Bool
type C_StatusIconQueryTooltipCallback =
Ptr StatusIcon ->
Int32 ->
Int32 ->
CInt ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconQueryTooltipCallback :: C_StatusIconQueryTooltipCallback -> IO (FunPtr C_StatusIconQueryTooltipCallback)
wrap_StatusIconQueryTooltipCallback ::
GObject a => (a -> StatusIconQueryTooltipCallback) ->
C_StatusIconQueryTooltipCallback
wrap_StatusIconQueryTooltipCallback :: forall a.
GObject a =>
(a -> StatusIconQueryTooltipCallback)
-> C_StatusIconQueryTooltipCallback
wrap_StatusIconQueryTooltipCallback a -> StatusIconQueryTooltipCallback
gi'cb Ptr StatusIcon
gi'selfPtr Int32
x Int32
y CInt
keyboardMode Ptr Tooltip
tooltip Ptr ()
_ = do
let keyboardMode' :: Bool
keyboardMode' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
keyboardMode
Tooltip
tooltip' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Tooltip -> Tooltip
Gtk.Tooltip.Tooltip) Ptr Tooltip
tooltip
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconQueryTooltipCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) Int32
x Int32
y Bool
keyboardMode' Tooltip
tooltip'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStatusIconQueryTooltip :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconQueryTooltipCallback) -> m SignalHandlerId
onStatusIconQueryTooltip :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconQueryTooltipCallback)
-> m SignalHandlerId
onStatusIconQueryTooltip a
obj (?self::a) => StatusIconQueryTooltipCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconQueryTooltipCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconQueryTooltipCallback
cb
let wrapped' :: C_StatusIconQueryTooltipCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconQueryTooltipCallback)
-> C_StatusIconQueryTooltipCallback
wrap_StatusIconQueryTooltipCallback a -> StatusIconQueryTooltipCallback
wrapped
FunPtr C_StatusIconQueryTooltipCallback
wrapped'' <- C_StatusIconQueryTooltipCallback
-> IO (FunPtr C_StatusIconQueryTooltipCallback)
mk_StatusIconQueryTooltipCallback C_StatusIconQueryTooltipCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_StatusIconQueryTooltipCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconQueryTooltip :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconQueryTooltipCallback) -> m SignalHandlerId
afterStatusIconQueryTooltip :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconQueryTooltipCallback)
-> m SignalHandlerId
afterStatusIconQueryTooltip a
obj (?self::a) => StatusIconQueryTooltipCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconQueryTooltipCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconQueryTooltipCallback
cb
let wrapped' :: C_StatusIconQueryTooltipCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconQueryTooltipCallback)
-> C_StatusIconQueryTooltipCallback
wrap_StatusIconQueryTooltipCallback a -> StatusIconQueryTooltipCallback
wrapped
FunPtr C_StatusIconQueryTooltipCallback
wrapped'' <- C_StatusIconQueryTooltipCallback
-> IO (FunPtr C_StatusIconQueryTooltipCallback)
mk_StatusIconQueryTooltipCallback C_StatusIconQueryTooltipCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"query-tooltip" FunPtr C_StatusIconQueryTooltipCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconQueryTooltipSignalInfo
instance SignalInfo StatusIconQueryTooltipSignalInfo where
type HaskellCallbackType StatusIconQueryTooltipSignalInfo = StatusIconQueryTooltipCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconQueryTooltipCallback cb
cb'' <- mk_StatusIconQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::query-tooltip"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:queryTooltip"})
#endif
type StatusIconScrollEventCallback =
Gdk.EventScroll.EventScroll
-> IO Bool
type C_StatusIconScrollEventCallback =
Ptr StatusIcon ->
Ptr Gdk.EventScroll.EventScroll ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconScrollEventCallback :: C_StatusIconScrollEventCallback -> IO (FunPtr C_StatusIconScrollEventCallback)
wrap_StatusIconScrollEventCallback ::
GObject a => (a -> StatusIconScrollEventCallback) ->
C_StatusIconScrollEventCallback
wrap_StatusIconScrollEventCallback :: forall a.
GObject a =>
(a -> StatusIconScrollEventCallback)
-> C_StatusIconScrollEventCallback
wrap_StatusIconScrollEventCallback a -> StatusIconScrollEventCallback
gi'cb Ptr StatusIcon
gi'selfPtr Ptr EventScroll
event Ptr ()
_ = do
EventScroll
event' <- (forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventScroll -> EventScroll
Gdk.EventScroll.EventScroll) Ptr EventScroll
event
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconScrollEventCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) EventScroll
event'
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStatusIconScrollEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconScrollEventCallback) -> m SignalHandlerId
onStatusIconScrollEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconScrollEventCallback)
-> m SignalHandlerId
onStatusIconScrollEvent a
obj (?self::a) => StatusIconScrollEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconScrollEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconScrollEventCallback
cb
let wrapped' :: C_StatusIconScrollEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconScrollEventCallback)
-> C_StatusIconScrollEventCallback
wrap_StatusIconScrollEventCallback a -> StatusIconScrollEventCallback
wrapped
FunPtr C_StatusIconScrollEventCallback
wrapped'' <- C_StatusIconScrollEventCallback
-> IO (FunPtr C_StatusIconScrollEventCallback)
mk_StatusIconScrollEventCallback C_StatusIconScrollEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-event" FunPtr C_StatusIconScrollEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconScrollEvent :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconScrollEventCallback) -> m SignalHandlerId
afterStatusIconScrollEvent :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconScrollEventCallback)
-> m SignalHandlerId
afterStatusIconScrollEvent a
obj (?self::a) => StatusIconScrollEventCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconScrollEventCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconScrollEventCallback
cb
let wrapped' :: C_StatusIconScrollEventCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconScrollEventCallback)
-> C_StatusIconScrollEventCallback
wrap_StatusIconScrollEventCallback a -> StatusIconScrollEventCallback
wrapped
FunPtr C_StatusIconScrollEventCallback
wrapped'' <- C_StatusIconScrollEventCallback
-> IO (FunPtr C_StatusIconScrollEventCallback)
mk_StatusIconScrollEventCallback C_StatusIconScrollEventCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-event" FunPtr C_StatusIconScrollEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconScrollEventSignalInfo
instance SignalInfo StatusIconScrollEventSignalInfo where
type HaskellCallbackType StatusIconScrollEventSignalInfo = StatusIconScrollEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconScrollEventCallback cb
cb'' <- mk_StatusIconScrollEventCallback cb'
connectSignalFunPtr obj "scroll-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::scroll-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:scrollEvent"})
#endif
type StatusIconSizeChangedCallback =
Int32
-> IO Bool
type C_StatusIconSizeChangedCallback =
Ptr StatusIcon ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconSizeChangedCallback :: C_StatusIconSizeChangedCallback -> IO (FunPtr C_StatusIconSizeChangedCallback)
wrap_StatusIconSizeChangedCallback ::
GObject a => (a -> StatusIconSizeChangedCallback) ->
C_StatusIconSizeChangedCallback
wrap_StatusIconSizeChangedCallback :: forall a.
GObject a =>
(a -> StatusIconSizeChangedCallback)
-> C_StatusIconSizeChangedCallback
wrap_StatusIconSizeChangedCallback a -> StatusIconSizeChangedCallback
gi'cb Ptr StatusIcon
gi'selfPtr Int32
size Ptr ()
_ = do
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr StatusIcon
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \StatusIcon
gi'self -> a -> StatusIconSizeChangedCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce StatusIcon
gi'self) Int32
size
let result' :: CInt
result' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onStatusIconSizeChanged :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconSizeChangedCallback) -> m SignalHandlerId
onStatusIconSizeChanged :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconSizeChangedCallback)
-> m SignalHandlerId
onStatusIconSizeChanged a
obj (?self::a) => StatusIconSizeChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconSizeChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconSizeChangedCallback
cb
let wrapped' :: C_StatusIconSizeChangedCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconSizeChangedCallback)
-> C_StatusIconSizeChangedCallback
wrap_StatusIconSizeChangedCallback a -> StatusIconSizeChangedCallback
wrapped
FunPtr C_StatusIconSizeChangedCallback
wrapped'' <- C_StatusIconSizeChangedCallback
-> IO (FunPtr C_StatusIconSizeChangedCallback)
mk_StatusIconSizeChangedCallback C_StatusIconSizeChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"size-changed" FunPtr C_StatusIconSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterStatusIconSizeChanged :: (IsStatusIcon a, MonadIO m) => a -> ((?self :: a) => StatusIconSizeChangedCallback) -> m SignalHandlerId
afterStatusIconSizeChanged :: forall a (m :: * -> *).
(IsStatusIcon a, MonadIO m) =>
a
-> ((?self::a) => StatusIconSizeChangedCallback)
-> m SignalHandlerId
afterStatusIconSizeChanged a
obj (?self::a) => StatusIconSizeChangedCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> StatusIconSizeChangedCallback
wrapped a
self = let ?self = a
self in (?self::a) => StatusIconSizeChangedCallback
cb
let wrapped' :: C_StatusIconSizeChangedCallback
wrapped' = forall a.
GObject a =>
(a -> StatusIconSizeChangedCallback)
-> C_StatusIconSizeChangedCallback
wrap_StatusIconSizeChangedCallback a -> StatusIconSizeChangedCallback
wrapped
FunPtr C_StatusIconSizeChangedCallback
wrapped'' <- C_StatusIconSizeChangedCallback
-> IO (FunPtr C_StatusIconSizeChangedCallback)
mk_StatusIconSizeChangedCallback C_StatusIconSizeChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"size-changed" FunPtr C_StatusIconSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data StatusIconSizeChangedSignalInfo
instance SignalInfo StatusIconSizeChangedSignalInfo where
type HaskellCallbackType StatusIconSizeChangedSignalInfo = StatusIconSizeChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_StatusIconSizeChangedCallback cb
cb'' <- mk_StatusIconSizeChangedCallback cb'
connectSignalFunPtr obj "size-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon::size-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:signal:sizeChanged"})
#endif
getStatusIconEmbedded :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconEmbedded :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconEmbedded o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"embedded"
#if defined(ENABLE_OVERLOADING)
data StatusIconEmbeddedPropertyInfo
instance AttrInfo StatusIconEmbeddedPropertyInfo where
type AttrAllowedOps StatusIconEmbeddedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StatusIconEmbeddedPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconEmbeddedPropertyInfo = (~) ()
type AttrTransferTypeConstraint StatusIconEmbeddedPropertyInfo = (~) ()
type AttrTransferType StatusIconEmbeddedPropertyInfo = ()
type AttrGetType StatusIconEmbeddedPropertyInfo = Bool
type AttrLabel StatusIconEmbeddedPropertyInfo = "embedded"
type AttrOrigin StatusIconEmbeddedPropertyInfo = StatusIcon
attrGet = getStatusIconEmbedded
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.embedded"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:embedded"
})
#endif
setStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconFile :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconFile o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"file" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconFile :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconFile :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconFile Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"file" (forall a. a -> Maybe a
P.Just Text
val)
clearStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconFile :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconFile o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"file" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusIconFilePropertyInfo
instance AttrInfo StatusIconFilePropertyInfo where
type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint StatusIconFilePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconFilePropertyInfo = (~) T.Text
type AttrTransferType StatusIconFilePropertyInfo = T.Text
type AttrGetType StatusIconFilePropertyInfo = ()
type AttrLabel StatusIconFilePropertyInfo = "file"
type AttrOrigin StatusIconFilePropertyInfo = StatusIcon
attrGet = undefined
attrSet = setStatusIconFile
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconFile
attrClear = clearStatusIconFile
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.file"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:file"
})
#endif
getStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe Gio.Icon.Icon)
getStatusIconGicon :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Icon)
getStatusIconGicon o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"gicon" ManagedPtr Icon -> Icon
Gio.Icon.Icon
setStatusIconGicon :: (MonadIO m, IsStatusIcon o, Gio.Icon.IsIcon a) => o -> a -> m ()
setStatusIconGicon :: forall (m :: * -> *) o a.
(MonadIO m, IsStatusIcon o, IsIcon a) =>
o -> a -> m ()
setStatusIconGicon o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"gicon" (forall a. a -> Maybe a
Just a
val)
constructStatusIconGicon :: (IsStatusIcon o, MIO.MonadIO m, Gio.Icon.IsIcon a) => a -> m (GValueConstruct o)
constructStatusIconGicon :: forall o (m :: * -> *) a.
(IsStatusIcon o, MonadIO m, IsIcon a) =>
a -> m (GValueConstruct o)
constructStatusIconGicon a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"gicon" (forall a. a -> Maybe a
P.Just a
val)
clearStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconGicon :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconGicon o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"gicon" (forall a. Maybe a
Nothing :: Maybe Gio.Icon.Icon)
#if defined(ENABLE_OVERLOADING)
data StatusIconGiconPropertyInfo
instance AttrInfo StatusIconGiconPropertyInfo where
type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferTypeConstraint StatusIconGiconPropertyInfo = Gio.Icon.IsIcon
type AttrTransferType StatusIconGiconPropertyInfo = Gio.Icon.Icon
type AttrGetType StatusIconGiconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel StatusIconGiconPropertyInfo = "gicon"
type AttrOrigin StatusIconGiconPropertyInfo = StatusIcon
attrGet = getStatusIconGicon
attrSet = setStatusIconGicon
attrTransfer _ v = do
unsafeCastTo Gio.Icon.Icon v
attrConstruct = constructStatusIconGicon
attrClear = clearStatusIconGicon
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.gicon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:gicon"
})
#endif
getStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconHasTooltip :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconHasTooltip o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"has-tooltip"
setStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconHasTooltip :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Bool -> m ()
setStatusIconHasTooltip o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"has-tooltip" Bool
val
constructStatusIconHasTooltip :: (IsStatusIcon o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStatusIconHasTooltip :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStatusIconHasTooltip Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"has-tooltip" Bool
val
#if defined(ENABLE_OVERLOADING)
data StatusIconHasTooltipPropertyInfo
instance AttrInfo StatusIconHasTooltipPropertyInfo where
type AttrAllowedOps StatusIconHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusIconHasTooltipPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconHasTooltipPropertyInfo = (~) Bool
type AttrTransferTypeConstraint StatusIconHasTooltipPropertyInfo = (~) Bool
type AttrTransferType StatusIconHasTooltipPropertyInfo = Bool
type AttrGetType StatusIconHasTooltipPropertyInfo = Bool
type AttrLabel StatusIconHasTooltipPropertyInfo = "has-tooltip"
type AttrOrigin StatusIconHasTooltipPropertyInfo = StatusIcon
attrGet = getStatusIconHasTooltip
attrSet = setStatusIconHasTooltip
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconHasTooltip
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.hasTooltip"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:hasTooltip"
})
#endif
getStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Text)
getStatusIconIconName o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-name"
setStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconIconName :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconIconName o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconIconName :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconIconName :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconIconName Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-name" (forall a. a -> Maybe a
P.Just Text
val)
clearStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconIconName :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconIconName o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusIconIconNamePropertyInfo
instance AttrInfo StatusIconIconNamePropertyInfo where
type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text
type AttrTransferType StatusIconIconNamePropertyInfo = T.Text
type AttrGetType StatusIconIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconIconNamePropertyInfo = "icon-name"
type AttrOrigin StatusIconIconNamePropertyInfo = StatusIcon
attrGet = getStatusIconIconName
attrSet = setStatusIconIconName
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconIconName
attrClear = clearStatusIconIconName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.iconName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:iconName"
})
#endif
getStatusIconOrientation :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.Orientation
getStatusIconOrientation :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m Orientation
getStatusIconOrientation o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"orientation"
#if defined(ENABLE_OVERLOADING)
data StatusIconOrientationPropertyInfo
instance AttrInfo StatusIconOrientationPropertyInfo where
type AttrAllowedOps StatusIconOrientationPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StatusIconOrientationPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconOrientationPropertyInfo = (~) ()
type AttrTransferTypeConstraint StatusIconOrientationPropertyInfo = (~) ()
type AttrTransferType StatusIconOrientationPropertyInfo = ()
type AttrGetType StatusIconOrientationPropertyInfo = Gtk.Enums.Orientation
type AttrLabel StatusIconOrientationPropertyInfo = "orientation"
type AttrOrigin StatusIconOrientationPropertyInfo = StatusIcon
attrGet = getStatusIconOrientation
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.orientation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:orientation"
})
#endif
getStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getStatusIconPixbuf :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Pixbuf)
getStatusIconPixbuf o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"pixbuf" ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf
setStatusIconPixbuf :: (MonadIO m, IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setStatusIconPixbuf :: forall (m :: * -> *) o a.
(MonadIO m, IsStatusIcon o, IsPixbuf a) =>
o -> a -> m ()
setStatusIconPixbuf o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"pixbuf" (forall a. a -> Maybe a
Just a
val)
constructStatusIconPixbuf :: (IsStatusIcon o, MIO.MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> m (GValueConstruct o)
constructStatusIconPixbuf :: forall o (m :: * -> *) a.
(IsStatusIcon o, MonadIO m, IsPixbuf a) =>
a -> m (GValueConstruct o)
constructStatusIconPixbuf a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"pixbuf" (forall a. a -> Maybe a
P.Just a
val)
clearStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconPixbuf :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconPixbuf o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"pixbuf" (forall a. Maybe a
Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf)
#if defined(ENABLE_OVERLOADING)
data StatusIconPixbufPropertyInfo
instance AttrInfo StatusIconPixbufPropertyInfo where
type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrTransferType StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf.Pixbuf
type AttrGetType StatusIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf)
type AttrLabel StatusIconPixbufPropertyInfo = "pixbuf"
type AttrOrigin StatusIconPixbufPropertyInfo = StatusIcon
attrGet = getStatusIconPixbuf
attrSet = setStatusIconPixbuf
attrTransfer _ v = do
unsafeCastTo GdkPixbuf.Pixbuf.Pixbuf v
attrConstruct = constructStatusIconPixbuf
attrClear = clearStatusIconPixbuf
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.pixbuf"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:pixbuf"
})
#endif
getStatusIconScreen :: (MonadIO m, IsStatusIcon o) => o -> m Gdk.Screen.Screen
getStatusIconScreen :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m Screen
getStatusIconScreen o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStatusIconScreen" forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"screen" ManagedPtr Screen -> Screen
Gdk.Screen.Screen
setStatusIconScreen :: (MonadIO m, IsStatusIcon o, Gdk.Screen.IsScreen a) => o -> a -> m ()
setStatusIconScreen :: forall (m :: * -> *) o a.
(MonadIO m, IsStatusIcon o, IsScreen a) =>
o -> a -> m ()
setStatusIconScreen o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"screen" (forall a. a -> Maybe a
Just a
val)
constructStatusIconScreen :: (IsStatusIcon o, MIO.MonadIO m, Gdk.Screen.IsScreen a) => a -> m (GValueConstruct o)
constructStatusIconScreen :: forall o (m :: * -> *) a.
(IsStatusIcon o, MonadIO m, IsScreen a) =>
a -> m (GValueConstruct o)
constructStatusIconScreen a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"screen" (forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data StatusIconScreenPropertyInfo
instance AttrInfo StatusIconScreenPropertyInfo where
type AttrAllowedOps StatusIconScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusIconScreenPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferTypeConstraint StatusIconScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrTransferType StatusIconScreenPropertyInfo = Gdk.Screen.Screen
type AttrGetType StatusIconScreenPropertyInfo = Gdk.Screen.Screen
type AttrLabel StatusIconScreenPropertyInfo = "screen"
type AttrOrigin StatusIconScreenPropertyInfo = StatusIcon
attrGet = getStatusIconScreen
attrSet = setStatusIconScreen
attrTransfer _ v = do
unsafeCastTo Gdk.Screen.Screen v
attrConstruct = constructStatusIconScreen
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.screen"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:screen"
})
#endif
getStatusIconSize :: (MonadIO m, IsStatusIcon o) => o -> m Int32
getStatusIconSize :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m Int32
getStatusIconSize o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"size"
#if defined(ENABLE_OVERLOADING)
data StatusIconSizePropertyInfo
instance AttrInfo StatusIconSizePropertyInfo where
type AttrAllowedOps StatusIconSizePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StatusIconSizePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconSizePropertyInfo = (~) ()
type AttrTransferTypeConstraint StatusIconSizePropertyInfo = (~) ()
type AttrTransferType StatusIconSizePropertyInfo = ()
type AttrGetType StatusIconSizePropertyInfo = Int32
type AttrLabel StatusIconSizePropertyInfo = "size"
type AttrOrigin StatusIconSizePropertyInfo = StatusIcon
attrGet = getStatusIconSize
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:size"
})
#endif
getStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconStock :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Text)
getStatusIconStock o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"stock"
setStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconStock :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconStock o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"stock" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconStock :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconStock :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconStock Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"stock" (forall a. a -> Maybe a
P.Just Text
val)
clearStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconStock :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconStock o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"stock" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusIconStockPropertyInfo
instance AttrInfo StatusIconStockPropertyInfo where
type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusIconStockPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconStockPropertyInfo = (~) T.Text
type AttrTransferType StatusIconStockPropertyInfo = T.Text
type AttrGetType StatusIconStockPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconStockPropertyInfo = "stock"
type AttrOrigin StatusIconStockPropertyInfo = StatusIcon
attrGet = getStatusIconStock
attrSet = setStatusIconStock
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconStock
attrClear = clearStatusIconStock
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.stock"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:stock"
})
#endif
getStatusIconStorageType :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.ImageType
getStatusIconStorageType :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m ImageType
getStatusIconStorageType o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"storage-type"
#if defined(ENABLE_OVERLOADING)
data StatusIconStorageTypePropertyInfo
instance AttrInfo StatusIconStorageTypePropertyInfo where
type AttrAllowedOps StatusIconStorageTypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint StatusIconStorageTypePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconStorageTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint StatusIconStorageTypePropertyInfo = (~) ()
type AttrTransferType StatusIconStorageTypePropertyInfo = ()
type AttrGetType StatusIconStorageTypePropertyInfo = Gtk.Enums.ImageType
type AttrLabel StatusIconStorageTypePropertyInfo = "storage-type"
type AttrOrigin StatusIconStorageTypePropertyInfo = StatusIcon
attrGet = getStatusIconStorageType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.storageType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:storageType"
})
#endif
getStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> m T.Text
getStatusIconTitle :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m Text
getStatusIconTitle o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getStatusIconTitle" forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTitle :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconTitle o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconTitle :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconTitle :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconTitle Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StatusIconTitlePropertyInfo
instance AttrInfo StatusIconTitlePropertyInfo where
type AttrAllowedOps StatusIconTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusIconTitlePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconTitlePropertyInfo = (~) T.Text
type AttrTransferType StatusIconTitlePropertyInfo = T.Text
type AttrGetType StatusIconTitlePropertyInfo = T.Text
type AttrLabel StatusIconTitlePropertyInfo = "title"
type AttrOrigin StatusIconTitlePropertyInfo = StatusIcon
attrGet = getStatusIconTitle
attrSet = setStatusIconTitle
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:title"
})
#endif
getStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Text)
getStatusIconTooltipMarkup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"tooltip-markup"
setStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipMarkup :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconTooltipMarkup o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-markup" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconTooltipMarkup :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconTooltipMarkup :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconTooltipMarkup Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"tooltip-markup" (forall a. a -> Maybe a
P.Just Text
val)
clearStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconTooltipMarkup :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconTooltipMarkup o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-markup" (forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data StatusIconTooltipMarkupPropertyInfo
instance AttrInfo StatusIconTooltipMarkupPropertyInfo where
type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text
type AttrTransferType StatusIconTooltipMarkupPropertyInfo = T.Text
type AttrGetType StatusIconTooltipMarkupPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconTooltipMarkupPropertyInfo = "tooltip-markup"
type AttrOrigin StatusIconTooltipMarkupPropertyInfo = StatusIcon
attrGet = getStatusIconTooltipMarkup
attrSet = setStatusIconTooltipMarkup
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconTooltipMarkup
attrClear = clearStatusIconTooltipMarkup
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.tooltipMarkup"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:tooltipMarkup"
})
#endif
getStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipText :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> m (Maybe Text)
getStatusIconTooltipText o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"tooltip-text"
setStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipText :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Text -> m ()
setStatusIconTooltipText o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"tooltip-text" (forall a. a -> Maybe a
Just Text
val)
constructStatusIconTooltipText :: (IsStatusIcon o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructStatusIconTooltipText :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructStatusIconTooltipText Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"tooltip-text" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data StatusIconTooltipTextPropertyInfo
instance AttrInfo StatusIconTooltipTextPropertyInfo where
type AttrAllowedOps StatusIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusIconTooltipTextPropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text
type AttrTransferType StatusIconTooltipTextPropertyInfo = T.Text
type AttrGetType StatusIconTooltipTextPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconTooltipTextPropertyInfo = "tooltip-text"
type AttrOrigin StatusIconTooltipTextPropertyInfo = StatusIcon
attrGet = getStatusIconTooltipText
attrSet = setStatusIconTooltipText
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconTooltipText
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.tooltipText"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:tooltipText"
})
#endif
getStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconVisible :: forall (m :: * -> *) o. (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconVisible o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"visible"
setStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconVisible :: forall (m :: * -> *) o.
(MonadIO m, IsStatusIcon o) =>
o -> Bool -> m ()
setStatusIconVisible o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visible" Bool
val
constructStatusIconVisible :: (IsStatusIcon o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructStatusIconVisible :: forall o (m :: * -> *).
(IsStatusIcon o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructStatusIconVisible Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data StatusIconVisiblePropertyInfo
instance AttrInfo StatusIconVisiblePropertyInfo where
type AttrAllowedOps StatusIconVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint StatusIconVisiblePropertyInfo = IsStatusIcon
type AttrSetTypeConstraint StatusIconVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint StatusIconVisiblePropertyInfo = (~) Bool
type AttrTransferType StatusIconVisiblePropertyInfo = Bool
type AttrGetType StatusIconVisiblePropertyInfo = Bool
type AttrLabel StatusIconVisiblePropertyInfo = "visible"
type AttrOrigin StatusIconVisiblePropertyInfo = StatusIcon
attrGet = getStatusIconVisible
attrSet = setStatusIconVisible
attrTransfer _ v = do
return v
attrConstruct = constructStatusIconVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.visible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#g:attr:visible"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList StatusIcon
type instance O.AttributeList StatusIcon = StatusIconAttributeList
type StatusIconAttributeList = ('[ '("embedded", StatusIconEmbeddedPropertyInfo), '("file", StatusIconFilePropertyInfo), '("gicon", StatusIconGiconPropertyInfo), '("hasTooltip", StatusIconHasTooltipPropertyInfo), '("iconName", StatusIconIconNamePropertyInfo), '("orientation", StatusIconOrientationPropertyInfo), '("pixbuf", StatusIconPixbufPropertyInfo), '("screen", StatusIconScreenPropertyInfo), '("size", StatusIconSizePropertyInfo), '("stock", StatusIconStockPropertyInfo), '("storageType", StatusIconStorageTypePropertyInfo), '("title", StatusIconTitlePropertyInfo), '("tooltipMarkup", StatusIconTooltipMarkupPropertyInfo), '("tooltipText", StatusIconTooltipTextPropertyInfo), '("visible", StatusIconVisiblePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
statusIconEmbedded :: AttrLabelProxy "embedded"
statusIconEmbedded = AttrLabelProxy
statusIconFile :: AttrLabelProxy "file"
statusIconFile = AttrLabelProxy
statusIconGicon :: AttrLabelProxy "gicon"
statusIconGicon = AttrLabelProxy
statusIconHasTooltip :: AttrLabelProxy "hasTooltip"
statusIconHasTooltip = AttrLabelProxy
statusIconIconName :: AttrLabelProxy "iconName"
statusIconIconName = AttrLabelProxy
statusIconOrientation :: AttrLabelProxy "orientation"
statusIconOrientation = AttrLabelProxy
statusIconPixbuf :: AttrLabelProxy "pixbuf"
statusIconPixbuf = AttrLabelProxy
statusIconScreen :: AttrLabelProxy "screen"
statusIconScreen = AttrLabelProxy
statusIconSize :: AttrLabelProxy "size"
statusIconSize = AttrLabelProxy
statusIconStock :: AttrLabelProxy "stock"
statusIconStock = AttrLabelProxy
statusIconStorageType :: AttrLabelProxy "storageType"
statusIconStorageType = AttrLabelProxy
statusIconTitle :: AttrLabelProxy "title"
statusIconTitle = AttrLabelProxy
statusIconTooltipMarkup :: AttrLabelProxy "tooltipMarkup"
statusIconTooltipMarkup = AttrLabelProxy
statusIconTooltipText :: AttrLabelProxy "tooltipText"
statusIconTooltipText = AttrLabelProxy
statusIconVisible :: AttrLabelProxy "visible"
statusIconVisible = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList StatusIcon = StatusIconSignalList
type StatusIconSignalList = ('[ '("activate", StatusIconActivateSignalInfo), '("buttonPressEvent", StatusIconButtonPressEventSignalInfo), '("buttonReleaseEvent", StatusIconButtonReleaseEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", StatusIconPopupMenuSignalInfo), '("queryTooltip", StatusIconQueryTooltipSignalInfo), '("scrollEvent", StatusIconScrollEventSignalInfo), '("sizeChanged", StatusIconSizeChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_status_icon_new" gtk_status_icon_new ::
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNew ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m StatusIcon
statusIconNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m StatusIcon
statusIconNew = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
result <- IO (Ptr StatusIcon)
gtk_status_icon_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNew" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_new_from_file" gtk_status_icon_new_from_file ::
CString ->
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromFile ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNewFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Char]
-> m StatusIcon
statusIconNewFromFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
String -> m StatusIcon
statusIconNewFromFile String
filename = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
filename' <- String -> IO CString
stringToCString String
filename
Ptr StatusIcon
result <- CString -> IO (Ptr StatusIcon)
gtk_status_icon_new_from_file CString
filename'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNewFromFile" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall a. Ptr a -> IO ()
freeMem CString
filename'
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_new_from_gicon" gtk_status_icon_new_from_gicon ::
Ptr Gio.Icon.Icon ->
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromGicon ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNewFromGicon ::
(B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) =>
a
-> m StatusIcon
statusIconNewFromGicon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIcon a) =>
a -> m StatusIcon
statusIconNewFromGicon a
icon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Icon
icon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
icon
Ptr StatusIcon
result <- Ptr Icon -> IO (Ptr StatusIcon)
gtk_status_icon_new_from_gicon Ptr Icon
icon'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNewFromGicon" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
icon
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_new_from_icon_name" gtk_status_icon_new_from_icon_name ::
CString ->
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromIconName ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNewFromIconName ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m StatusIcon
statusIconNewFromIconName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m StatusIcon
statusIconNewFromIconName Text
iconName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
Ptr StatusIcon
result <- CString -> IO (Ptr StatusIcon)
gtk_status_icon_new_from_icon_name CString
iconName'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNewFromIconName" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall a. Ptr a -> IO ()
freeMem CString
iconName'
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_new_from_pixbuf" gtk_status_icon_new_from_pixbuf ::
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromPixbuf ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNewFromPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) =>
a
-> m StatusIcon
statusIconNewFromPixbuf :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsPixbuf a) =>
a -> m StatusIcon
statusIconNewFromPixbuf a
pixbuf = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Pixbuf
pixbuf' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
pixbuf
Ptr StatusIcon
result <- Ptr Pixbuf -> IO (Ptr StatusIcon)
gtk_status_icon_new_from_pixbuf Ptr Pixbuf
pixbuf'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNewFromPixbuf" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
pixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_new_from_stock" gtk_status_icon_new_from_stock ::
CString ->
IO (Ptr StatusIcon)
{-# DEPRECATED statusIconNewFromStock ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-}
statusIconNewFromStock ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m StatusIcon
statusIconNewFromStock :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m StatusIcon
statusIconNewFromStock Text
stockId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
CString
stockId' <- Text -> IO CString
textToCString Text
stockId
Ptr StatusIcon
result <- CString -> IO (Ptr StatusIcon)
gtk_status_icon_new_from_stock CString
stockId'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconNewFromStock" Ptr StatusIcon
result
StatusIcon
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr StatusIcon -> StatusIcon
StatusIcon) Ptr StatusIcon
result
forall a. Ptr a -> IO ()
freeMem CString
stockId'
forall (m :: * -> *) a. Monad m => a -> m a
return StatusIcon
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_status_icon_get_geometry" gtk_status_icon_get_geometry ::
Ptr StatusIcon ->
Ptr (Ptr Gdk.Screen.Screen) ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr CUInt ->
IO CInt
{-# DEPRECATED statusIconGetGeometry ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as the platform is responsible for the"," presentation of notifications"] #-}
statusIconGetGeometry ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m ((Bool, Gdk.Screen.Screen, Gdk.Rectangle.Rectangle, Gtk.Enums.Orientation))
statusIconGetGeometry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Bool, Screen, Rectangle, Orientation)
statusIconGetGeometry a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr (Ptr Screen)
screen <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Gdk.Screen.Screen))
Ptr Rectangle
area <- forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
16 :: IO (Ptr Gdk.Rectangle.Rectangle)
Ptr CUInt
orientation <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
CInt
result <- Ptr StatusIcon
-> Ptr (Ptr Screen) -> Ptr Rectangle -> Ptr CUInt -> IO CInt
gtk_status_icon_get_geometry Ptr StatusIcon
statusIcon' Ptr (Ptr Screen)
screen Ptr Rectangle
area Ptr CUInt
orientation
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Ptr Screen
screen' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr Screen)
screen
Screen
screen'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Screen -> Screen
Gdk.Screen.Screen) Ptr Screen
screen'
Rectangle
area' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle) Ptr Rectangle
area
CUInt
orientation' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
orientation
let orientation'' :: Orientation
orientation'' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
orientation'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr Screen)
screen
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
orientation
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Screen
screen'', Rectangle
area', Orientation
orientation'')
#if defined(ENABLE_OVERLOADING)
data StatusIconGetGeometryMethodInfo
instance (signature ~ (m ((Bool, Gdk.Screen.Screen, Gdk.Rectangle.Rectangle, Gtk.Enums.Orientation))), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetGeometryMethodInfo a signature where
overloadedMethod = statusIconGetGeometry
instance O.OverloadedMethodInfo StatusIconGetGeometryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetGeometry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetGeometry"
})
#endif
foreign import ccall "gtk_status_icon_get_gicon" gtk_status_icon_get_gicon ::
Ptr StatusIcon ->
IO (Ptr Gio.Icon.Icon)
{-# DEPRECATED statusIconGetGicon ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe Gio.Icon.Icon)
statusIconGetGicon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Icon)
statusIconGetGicon a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Icon
result <- Ptr StatusIcon -> IO (Ptr Icon)
gtk_status_icon_get_gicon Ptr StatusIcon
statusIcon'
Maybe Icon
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Icon
result forall a b. (a -> b) -> a -> b
$ \Ptr Icon
result' -> do
Icon
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Icon -> Icon
Gio.Icon.Icon) Ptr Icon
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Icon
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Icon
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetGiconMethodInfo a signature where
overloadedMethod = statusIconGetGicon
instance O.OverloadedMethodInfo StatusIconGetGiconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetGicon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetGicon"
})
#endif
foreign import ccall "gtk_status_icon_get_has_tooltip" gtk_status_icon_get_has_tooltip ::
Ptr StatusIcon ->
IO CInt
{-# DEPRECATED statusIconGetHasTooltip ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetHasTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Bool
statusIconGetHasTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Bool
statusIconGetHasTooltip a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CInt
result <- Ptr StatusIcon -> IO CInt
gtk_status_icon_get_has_tooltip Ptr StatusIcon
statusIcon'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetHasTooltipMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetHasTooltipMethodInfo a signature where
overloadedMethod = statusIconGetHasTooltip
instance O.OverloadedMethodInfo StatusIconGetHasTooltipMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetHasTooltip",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetHasTooltip"
})
#endif
foreign import ccall "gtk_status_icon_get_icon_name" gtk_status_icon_get_icon_name ::
Ptr StatusIcon ->
IO CString
{-# DEPRECATED statusIconGetIconName ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe T.Text)
statusIconGetIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Text)
statusIconGetIconName a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
result <- Ptr StatusIcon -> IO CString
gtk_status_icon_get_icon_name Ptr StatusIcon
statusIcon'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetIconNameMethodInfo a signature where
overloadedMethod = statusIconGetIconName
instance O.OverloadedMethodInfo StatusIconGetIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetIconName"
})
#endif
foreign import ccall "gtk_status_icon_get_pixbuf" gtk_status_icon_get_pixbuf ::
Ptr StatusIcon ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
{-# DEPRECATED statusIconGetPixbuf ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
statusIconGetPixbuf :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Pixbuf)
statusIconGetPixbuf a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Pixbuf
result <- Ptr StatusIcon -> IO (Ptr Pixbuf)
gtk_status_icon_get_pixbuf Ptr StatusIcon
statusIcon'
Maybe Pixbuf
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetPixbufMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetPixbufMethodInfo a signature where
overloadedMethod = statusIconGetPixbuf
instance O.OverloadedMethodInfo StatusIconGetPixbufMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetPixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetPixbuf"
})
#endif
foreign import ccall "gtk_status_icon_get_screen" gtk_status_icon_get_screen ::
Ptr StatusIcon ->
IO (Ptr Gdk.Screen.Screen)
{-# DEPRECATED statusIconGetScreen ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as notifications are managed by the platform"] #-}
statusIconGetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Gdk.Screen.Screen
statusIconGetScreen :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Screen
statusIconGetScreen a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Screen
result <- Ptr StatusIcon -> IO (Ptr Screen)
gtk_status_icon_get_screen Ptr StatusIcon
statusIcon'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconGetScreen" Ptr Screen
result
Screen
result' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Screen -> Screen
Gdk.Screen.Screen) Ptr Screen
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Screen
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetScreenMethodInfo a signature where
overloadedMethod = statusIconGetScreen
instance O.OverloadedMethodInfo StatusIconGetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetScreen"
})
#endif
foreign import ccall "gtk_status_icon_get_size" gtk_status_icon_get_size ::
Ptr StatusIcon ->
IO Int32
{-# DEPRECATED statusIconGetSize ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as the representation of a notification"," is left to the platform"] #-}
statusIconGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Int32
statusIconGetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Int32
statusIconGetSize a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Int32
result <- Ptr StatusIcon -> IO Int32
gtk_status_icon_get_size Ptr StatusIcon
statusIcon'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data StatusIconGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetSizeMethodInfo a signature where
overloadedMethod = statusIconGetSize
instance O.OverloadedMethodInfo StatusIconGetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetSize"
})
#endif
foreign import ccall "gtk_status_icon_get_stock" gtk_status_icon_get_stock ::
Ptr StatusIcon ->
IO CString
{-# DEPRECATED statusIconGetStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.StatusIcon.statusIconGetIconName' instead."] #-}
statusIconGetStock ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe T.Text)
statusIconGetStock :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Text)
statusIconGetStock a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
result <- Ptr StatusIcon -> IO CString
gtk_status_icon_get_stock Ptr StatusIcon
statusIcon'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetStockMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetStockMethodInfo a signature where
overloadedMethod = statusIconGetStock
instance O.OverloadedMethodInfo StatusIconGetStockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetStock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetStock"
})
#endif
foreign import ccall "gtk_status_icon_get_storage_type" gtk_status_icon_get_storage_type ::
Ptr StatusIcon ->
IO CUInt
{-# DEPRECATED statusIconGetStorageType ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, and t'GI.Gio.Objects.Notification.Notification' only supports t'GI.Gio.Interfaces.Icon.Icon'"," instances"] #-}
statusIconGetStorageType ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Gtk.Enums.ImageType
statusIconGetStorageType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m ImageType
statusIconGetStorageType a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CUInt
result <- Ptr StatusIcon -> IO CUInt
gtk_status_icon_get_storage_type Ptr StatusIcon
statusIcon'
let result' :: ImageType
result' = (forall a. Enum a => Int -> a
toEnum forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return ImageType
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetStorageTypeMethodInfo
instance (signature ~ (m Gtk.Enums.ImageType), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetStorageTypeMethodInfo a signature where
overloadedMethod = statusIconGetStorageType
instance O.OverloadedMethodInfo StatusIconGetStorageTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetStorageType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetStorageType"
})
#endif
foreign import ccall "gtk_status_icon_get_title" gtk_status_icon_get_title ::
Ptr StatusIcon ->
IO CString
{-# DEPRECATED statusIconGetTitle ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m T.Text
statusIconGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Text
statusIconGetTitle a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
result <- Ptr StatusIcon -> IO CString
gtk_status_icon_get_title Ptr StatusIcon
statusIcon'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"statusIconGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
cstringToText CString
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetTitleMethodInfo a signature where
overloadedMethod = statusIconGetTitle
instance O.OverloadedMethodInfo StatusIconGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetTitle"
})
#endif
foreign import ccall "gtk_status_icon_get_tooltip_markup" gtk_status_icon_get_tooltip_markup ::
Ptr StatusIcon ->
IO CString
{-# DEPRECATED statusIconGetTooltipMarkup ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetTooltipMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe T.Text)
statusIconGetTooltipMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Text)
statusIconGetTooltipMarkup a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
result <- Ptr StatusIcon -> IO CString
gtk_status_icon_get_tooltip_markup Ptr StatusIcon
statusIcon'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall a. Ptr a -> IO ()
freeMem CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTooltipMarkupMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetTooltipMarkupMethodInfo a signature where
overloadedMethod = statusIconGetTooltipMarkup
instance O.OverloadedMethodInfo StatusIconGetTooltipMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetTooltipMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetTooltipMarkup"
})
#endif
foreign import ccall "gtk_status_icon_get_tooltip_text" gtk_status_icon_get_tooltip_text ::
Ptr StatusIcon ->
IO CString
{-# DEPRECATED statusIconGetTooltipText ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetTooltipText ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m (Maybe T.Text)
statusIconGetTooltipText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m (Maybe Text)
statusIconGetTooltipText a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
result <- Ptr StatusIcon -> IO CString
gtk_status_icon_get_tooltip_text Ptr StatusIcon
statusIcon'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall a. Ptr a -> IO ()
freeMem CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTooltipTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetTooltipTextMethodInfo a signature where
overloadedMethod = statusIconGetTooltipText
instance O.OverloadedMethodInfo StatusIconGetTooltipTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetTooltipText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetTooltipText"
})
#endif
foreign import ccall "gtk_status_icon_get_visible" gtk_status_icon_get_visible ::
Ptr StatusIcon ->
IO CInt
{-# DEPRECATED statusIconGetVisible ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Bool
statusIconGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Bool
statusIconGetVisible a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CInt
result <- Ptr StatusIcon -> IO CInt
gtk_status_icon_get_visible Ptr StatusIcon
statusIcon'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetVisibleMethodInfo a signature where
overloadedMethod = statusIconGetVisible
instance O.OverloadedMethodInfo StatusIconGetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetVisible"
})
#endif
foreign import ccall "gtk_status_icon_get_x11_window_id" gtk_status_icon_get_x11_window_id ::
Ptr StatusIcon ->
IO Word32
{-# DEPRECATED statusIconGetX11WindowId ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconGetX11WindowId ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Word32
statusIconGetX11WindowId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Word32
statusIconGetX11WindowId a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Word32
result <- Ptr StatusIcon -> IO Word32
gtk_status_icon_get_x11_window_id Ptr StatusIcon
statusIcon'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data StatusIconGetX11WindowIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconGetX11WindowIdMethodInfo a signature where
overloadedMethod = statusIconGetX11WindowId
instance O.OverloadedMethodInfo StatusIconGetX11WindowIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconGetX11WindowId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconGetX11WindowId"
})
#endif
foreign import ccall "gtk_status_icon_is_embedded" gtk_status_icon_is_embedded ::
Ptr StatusIcon ->
IO CInt
{-# DEPRECATED statusIconIsEmbedded ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconIsEmbedded ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> m Bool
statusIconIsEmbedded :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> m Bool
statusIconIsEmbedded a
statusIcon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CInt
result <- Ptr StatusIcon -> IO CInt
gtk_status_icon_is_embedded Ptr StatusIcon
statusIcon'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data StatusIconIsEmbeddedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconIsEmbeddedMethodInfo a signature where
overloadedMethod = statusIconIsEmbedded
instance O.OverloadedMethodInfo StatusIconIsEmbeddedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconIsEmbedded",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconIsEmbedded"
})
#endif
foreign import ccall "gtk_status_icon_set_from_file" gtk_status_icon_set_from_file ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetFromFile ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a t'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-}
statusIconSetFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> [Char]
-> m ()
statusIconSetFromFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> String -> m ()
statusIconSetFromFile a
statusIcon String
filename = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
filename' <- String -> IO CString
stringToCString String
filename
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_from_file Ptr StatusIcon
statusIcon' CString
filename'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
filename'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetFromFileMethodInfo a signature where
overloadedMethod = statusIconSetFromFile
instance O.OverloadedMethodInfo StatusIconSetFromFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetFromFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetFromFile"
})
#endif
foreign import ccall "gtk_status_icon_set_from_gicon" gtk_status_icon_set_from_gicon ::
Ptr StatusIcon ->
Ptr Gio.Icon.Icon ->
IO ()
{-# DEPRECATED statusIconSetFromGicon ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a t'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-}
statusIconSetFromGicon ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, Gio.Icon.IsIcon b) =>
a
-> b
-> m ()
statusIconSetFromGicon :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStatusIcon a, IsIcon b) =>
a -> b -> m ()
statusIconSetFromGicon a
statusIcon b
icon = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Icon
icon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
icon
Ptr StatusIcon -> Ptr Icon -> IO ()
gtk_status_icon_set_from_gicon Ptr StatusIcon
statusIcon' Ptr Icon
icon'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
icon
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gio.Icon.IsIcon b) => O.OverloadedMethod StatusIconSetFromGiconMethodInfo a signature where
overloadedMethod = statusIconSetFromGicon
instance O.OverloadedMethodInfo StatusIconSetFromGiconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetFromGicon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetFromGicon"
})
#endif
foreign import ccall "gtk_status_icon_set_from_icon_name" gtk_status_icon_set_from_icon_name ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetFromIconName ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a t'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-}
statusIconSetFromIconName ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> T.Text
-> m ()
statusIconSetFromIconName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Text -> m ()
statusIconSetFromIconName a
statusIcon Text
iconName = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_from_icon_name Ptr StatusIcon
statusIcon' CString
iconName'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
iconName'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetFromIconNameMethodInfo a signature where
overloadedMethod = statusIconSetFromIconName
instance O.OverloadedMethodInfo StatusIconSetFromIconNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetFromIconName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetFromIconName"
})
#endif
foreign import ccall "gtk_status_icon_set_from_pixbuf" gtk_status_icon_set_from_pixbuf ::
Ptr StatusIcon ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
{-# DEPRECATED statusIconSetFromPixbuf ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a t'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-}
statusIconSetFromPixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, GdkPixbuf.Pixbuf.IsPixbuf b) =>
a
-> Maybe (b)
-> m ()
statusIconSetFromPixbuf :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStatusIcon a, IsPixbuf b) =>
a -> Maybe b -> m ()
statusIconSetFromPixbuf a
statusIcon Maybe b
pixbuf = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Pixbuf
maybePixbuf <- case Maybe b
pixbuf of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jPixbuf -> do
Ptr Pixbuf
jPixbuf' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPixbuf
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pixbuf
jPixbuf'
Ptr StatusIcon -> Ptr Pixbuf -> IO ()
gtk_status_icon_set_from_pixbuf Ptr StatusIcon
statusIcon' Ptr Pixbuf
maybePixbuf
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
pixbuf forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromPixbufMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStatusIcon a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.OverloadedMethod StatusIconSetFromPixbufMethodInfo a signature where
overloadedMethod = statusIconSetFromPixbuf
instance O.OverloadedMethodInfo StatusIconSetFromPixbufMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetFromPixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetFromPixbuf"
})
#endif
foreign import ccall "gtk_status_icon_set_from_stock" gtk_status_icon_set_from_stock ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetFromStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.StatusIcon.statusIconSetFromIconName' instead."] #-}
statusIconSetFromStock ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> T.Text
-> m ()
statusIconSetFromStock :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Text -> m ()
statusIconSetFromStock a
statusIcon Text
stockId = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
stockId' <- Text -> IO CString
textToCString Text
stockId
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_from_stock Ptr StatusIcon
statusIcon' CString
stockId'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
stockId'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromStockMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetFromStockMethodInfo a signature where
overloadedMethod = statusIconSetFromStock
instance O.OverloadedMethodInfo StatusIconSetFromStockMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetFromStock",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetFromStock"
})
#endif
foreign import ccall "gtk_status_icon_set_has_tooltip" gtk_status_icon_set_has_tooltip ::
Ptr StatusIcon ->
CInt ->
IO ()
{-# DEPRECATED statusIconSetHasTooltip ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, but notifications can display an arbitrary"," amount of text using 'GI.Gio.Objects.Notification.notificationSetBody'"] #-}
statusIconSetHasTooltip ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> Bool
-> m ()
statusIconSetHasTooltip :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Bool -> m ()
statusIconSetHasTooltip a
statusIcon Bool
hasTooltip = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
let hasTooltip' :: CInt
hasTooltip' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
hasTooltip
Ptr StatusIcon -> CInt -> IO ()
gtk_status_icon_set_has_tooltip Ptr StatusIcon
statusIcon' CInt
hasTooltip'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetHasTooltipMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetHasTooltipMethodInfo a signature where
overloadedMethod = statusIconSetHasTooltip
instance O.OverloadedMethodInfo StatusIconSetHasTooltipMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetHasTooltip",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetHasTooltip"
})
#endif
foreign import ccall "gtk_status_icon_set_name" gtk_status_icon_set_name ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetName ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as notifications are associated with a"," unique application identifier by t'GI.Gio.Objects.Application.Application'"] #-}
statusIconSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> T.Text
-> m ()
statusIconSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Text -> m ()
statusIconSetName a
statusIcon Text
name = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_name Ptr StatusIcon
statusIcon' CString
name'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
name'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetNameMethodInfo a signature where
overloadedMethod = statusIconSetName
instance O.OverloadedMethodInfo StatusIconSetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetName"
})
#endif
foreign import ccall "gtk_status_icon_set_screen" gtk_status_icon_set_screen ::
Ptr StatusIcon ->
Ptr Gdk.Screen.Screen ->
IO ()
{-# DEPRECATED statusIconSetScreen ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as GTK typically only has one t'GI.Gdk.Objects.Screen.Screen'"," and notifications are managed by the platform"] #-}
statusIconSetScreen ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, Gdk.Screen.IsScreen b) =>
a
-> b
-> m ()
statusIconSetScreen :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsStatusIcon a, IsScreen b) =>
a -> b -> m ()
statusIconSetScreen a
statusIcon b
screen = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
Ptr Screen
screen' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
screen
Ptr StatusIcon -> Ptr Screen -> IO ()
gtk_status_icon_set_screen Ptr StatusIcon
statusIcon' Ptr Screen
screen'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
screen
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetScreenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gdk.Screen.IsScreen b) => O.OverloadedMethod StatusIconSetScreenMethodInfo a signature where
overloadedMethod = statusIconSetScreen
instance O.OverloadedMethodInfo StatusIconSetScreenMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetScreen",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetScreen"
})
#endif
foreign import ccall "gtk_status_icon_set_title" gtk_status_icon_set_title ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetTitle ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you should use 'GI.Gio.Objects.Notification.notificationSetTitle'"," and 'GI.Gio.Objects.Notification.notificationSetBody' to present text inside your notification"] #-}
statusIconSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> T.Text
-> m ()
statusIconSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Text -> m ()
statusIconSetTitle a
statusIcon Text
title = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_title Ptr StatusIcon
statusIcon' CString
title'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
title'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetTitleMethodInfo a signature where
overloadedMethod = statusIconSetTitle
instance O.OverloadedMethodInfo StatusIconSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetTitle"
})
#endif
foreign import ccall "gtk_status_icon_set_tooltip_markup" gtk_status_icon_set_tooltip_markup ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetTooltipMarkup ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconSetTooltipMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> Maybe (T.Text)
-> m ()
statusIconSetTooltipMarkup :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Maybe Text -> m ()
statusIconSetTooltipMarkup a
statusIcon Maybe Text
markup = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
maybeMarkup <- case Maybe Text
markup of
Maybe Text
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just Text
jMarkup -> do
CString
jMarkup' <- Text -> IO CString
textToCString Text
jMarkup
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jMarkup'
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_tooltip_markup Ptr StatusIcon
statusIcon' CString
maybeMarkup
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
maybeMarkup
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTooltipMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetTooltipMarkupMethodInfo a signature where
overloadedMethod = statusIconSetTooltipMarkup
instance O.OverloadedMethodInfo StatusIconSetTooltipMarkupMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetTooltipMarkup",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetTooltipMarkup"
})
#endif
foreign import ccall "gtk_status_icon_set_tooltip_text" gtk_status_icon_set_tooltip_text ::
Ptr StatusIcon ->
CString ->
IO ()
{-# DEPRECATED statusIconSetTooltipText ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-}
statusIconSetTooltipText ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> T.Text
-> m ()
statusIconSetTooltipText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Text -> m ()
statusIconSetTooltipText a
statusIcon Text
text = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr StatusIcon -> CString -> IO ()
gtk_status_icon_set_tooltip_text Ptr StatusIcon
statusIcon' CString
text'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTooltipTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetTooltipTextMethodInfo a signature where
overloadedMethod = statusIconSetTooltipText
instance O.OverloadedMethodInfo StatusIconSetTooltipTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetTooltipText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetTooltipText"
})
#endif
foreign import ccall "gtk_status_icon_set_visible" gtk_status_icon_set_visible ::
Ptr StatusIcon ->
CInt ->
IO ()
{-# DEPRECATED statusIconSetVisible ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as notifications are managed by the platform"] #-}
statusIconSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) =>
a
-> Bool
-> m ()
statusIconSetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsStatusIcon a) =>
a -> Bool -> m ()
statusIconSetVisible a
statusIcon Bool
visible = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr StatusIcon
statusIcon' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
statusIcon
let visible' :: CInt
visible' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
visible
Ptr StatusIcon -> CInt -> IO ()
gtk_status_icon_set_visible Ptr StatusIcon
statusIcon' CInt
visible'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
statusIcon
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.OverloadedMethod StatusIconSetVisibleMethodInfo a signature where
overloadedMethod = statusIconSetVisible
instance O.OverloadedMethodInfo StatusIconSetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.StatusIcon.statusIconSetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-StatusIcon.html#v:statusIconSetVisible"
})
#endif
foreign import ccall "gtk_status_icon_position_menu" ::
Ptr Gtk.Menu.Menu ->
Ptr Int32 ->
Ptr Int32 ->
Ptr CInt ->
Ptr StatusIcon ->
IO ()
{-# DEPRECATED statusIconPositionMenu ["(Since version 3.14)","Use t'GI.Gio.Objects.Notification.Notification' and t'GI.Gtk.Objects.Application.Application' to"," provide status notifications; notifications do not have menus,"," but can have buttons, and actions associated with each button"] #-}
statusIconPositionMenu ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.Menu.IsMenu a, IsStatusIcon b) =>
a
-> Int32
-> Int32
-> b
-> m ((Int32, Int32, Bool))
a
menu Int32
x Int32
y b
userData = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Menu
menu' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
menu
Ptr Int32
x' <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
x' Int32
x
Ptr Int32
y' <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr Int32
y' Int32
y
Ptr CInt
pushIn <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr StatusIcon
userData' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
userData
Ptr Menu
-> Ptr Int32 -> Ptr Int32 -> Ptr CInt -> Ptr StatusIcon -> IO ()
gtk_status_icon_position_menu Ptr Menu
menu' Ptr Int32
x' Ptr Int32
y' Ptr CInt
pushIn Ptr StatusIcon
userData'
Int32
x'' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
x'
Int32
y'' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
y'
CInt
pushIn' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
pushIn
let pushIn'' :: Bool
pushIn'' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
pushIn'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
menu
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
userData
forall a. Ptr a -> IO ()
freeMem Ptr Int32
x'
forall a. Ptr a -> IO ()
freeMem Ptr Int32
y'
forall a. Ptr a -> IO ()
freeMem Ptr CInt
pushIn
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
x'', Int32
y'', Bool
pushIn'')
#if defined(ENABLE_OVERLOADING)
#endif