{-# LANGUAGE 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 ,
noStatusIcon ,
#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
C_StatusIconActivateCallback ,
StatusIconActivateCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconActivateSignalInfo ,
#endif
afterStatusIconActivate ,
genClosure_StatusIconActivate ,
mk_StatusIconActivateCallback ,
noStatusIconActivateCallback ,
onStatusIconActivate ,
wrap_StatusIconActivateCallback ,
C_StatusIconButtonPressEventCallback ,
StatusIconButtonPressEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconButtonPressEventSignalInfo ,
#endif
afterStatusIconButtonPressEvent ,
genClosure_StatusIconButtonPressEvent ,
mk_StatusIconButtonPressEventCallback ,
noStatusIconButtonPressEventCallback ,
onStatusIconButtonPressEvent ,
wrap_StatusIconButtonPressEventCallback ,
C_StatusIconButtonReleaseEventCallback ,
StatusIconButtonReleaseEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconButtonReleaseEventSignalInfo ,
#endif
afterStatusIconButtonReleaseEvent ,
genClosure_StatusIconButtonReleaseEvent ,
mk_StatusIconButtonReleaseEventCallback ,
noStatusIconButtonReleaseEventCallback ,
onStatusIconButtonReleaseEvent ,
wrap_StatusIconButtonReleaseEventCallback,
C_StatusIconPopupMenuCallback ,
StatusIconPopupMenuCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconPopupMenuSignalInfo ,
#endif
afterStatusIconPopupMenu ,
genClosure_StatusIconPopupMenu ,
mk_StatusIconPopupMenuCallback ,
noStatusIconPopupMenuCallback ,
onStatusIconPopupMenu ,
wrap_StatusIconPopupMenuCallback ,
C_StatusIconQueryTooltipCallback ,
StatusIconQueryTooltipCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconQueryTooltipSignalInfo ,
#endif
afterStatusIconQueryTooltip ,
genClosure_StatusIconQueryTooltip ,
mk_StatusIconQueryTooltipCallback ,
noStatusIconQueryTooltipCallback ,
onStatusIconQueryTooltip ,
wrap_StatusIconQueryTooltipCallback ,
C_StatusIconScrollEventCallback ,
StatusIconScrollEventCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconScrollEventSignalInfo ,
#endif
afterStatusIconScrollEvent ,
genClosure_StatusIconScrollEvent ,
mk_StatusIconScrollEventCallback ,
noStatusIconScrollEventCallback ,
onStatusIconScrollEvent ,
wrap_StatusIconScrollEventCallback ,
C_StatusIconSizeChangedCallback ,
StatusIconSizeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
StatusIconSizeChangedSignalInfo ,
#endif
afterStatusIconSizeChanged ,
genClosure_StatusIconSizeChanged ,
mk_StatusIconSizeChangedCallback ,
noStatusIconSizeChangedCallback ,
onStatusIconSizeChanged ,
wrap_StatusIconSizeChangedCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.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 (ManagedPtr StatusIcon)
deriving (Eq)
foreign import ccall "gtk_status_icon_get_type"
c_gtk_status_icon_get_type :: IO GType
instance GObject StatusIcon where
gobjectType = c_gtk_status_icon_get_type
instance B.GValue.IsGValue StatusIcon where
toGValue o = do
gtype <- c_gtk_status_icon_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr StatusIcon)
B.ManagedPtr.newObject StatusIcon ptr
class (GObject o, O.IsDescendantOf StatusIcon o) => IsStatusIcon o
instance (GObject o, O.IsDescendantOf StatusIcon o) => IsStatusIcon o
instance O.HasParentTypes StatusIcon
type instance O.ParentTypes StatusIcon = '[GObject.Object.Object]
toStatusIcon :: (MonadIO m, IsStatusIcon o) => o -> m StatusIcon
toStatusIcon = liftIO . unsafeCastTo StatusIcon
noStatusIcon :: Maybe StatusIcon
noStatusIcon = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveStatusIconMethod (t :: Symbol) (o :: *) :: * 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.MethodInfo 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
#endif
type StatusIconActivateCallback =
IO ()
noStatusIconActivateCallback :: Maybe StatusIconActivateCallback
noStatusIconActivateCallback = Nothing
type C_StatusIconActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusIconActivateCallback :: C_StatusIconActivateCallback -> IO (FunPtr C_StatusIconActivateCallback)
genClosure_StatusIconActivate :: MonadIO m => StatusIconActivateCallback -> m (GClosure C_StatusIconActivateCallback)
genClosure_StatusIconActivate cb = liftIO $ do
let cb' = wrap_StatusIconActivateCallback cb
mk_StatusIconActivateCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconActivateCallback ::
StatusIconActivateCallback ->
C_StatusIconActivateCallback
wrap_StatusIconActivateCallback _cb _ _ = do
_cb
onStatusIconActivate :: (IsStatusIcon a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
onStatusIconActivate obj cb = liftIO $ do
let cb' = wrap_StatusIconActivateCallback cb
cb'' <- mk_StatusIconActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectBefore Nothing
afterStatusIconActivate :: (IsStatusIcon a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
afterStatusIconActivate obj cb = liftIO $ do
let cb' = wrap_StatusIconActivateCallback cb
cb'' <- mk_StatusIconActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' SignalConnectAfter 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
#endif
type StatusIconButtonPressEventCallback =
Gdk.EventButton.EventButton
-> IO Bool
noStatusIconButtonPressEventCallback :: Maybe StatusIconButtonPressEventCallback
noStatusIconButtonPressEventCallback = Nothing
type C_StatusIconButtonPressEventCallback =
Ptr () ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconButtonPressEventCallback :: C_StatusIconButtonPressEventCallback -> IO (FunPtr C_StatusIconButtonPressEventCallback)
genClosure_StatusIconButtonPressEvent :: MonadIO m => StatusIconButtonPressEventCallback -> m (GClosure C_StatusIconButtonPressEventCallback)
genClosure_StatusIconButtonPressEvent cb = liftIO $ do
let cb' = wrap_StatusIconButtonPressEventCallback cb
mk_StatusIconButtonPressEventCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconButtonPressEventCallback ::
StatusIconButtonPressEventCallback ->
C_StatusIconButtonPressEventCallback
wrap_StatusIconButtonPressEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventButton.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonPressEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
onStatusIconButtonPressEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconButtonPressEventCallback cb
cb'' <- mk_StatusIconButtonPressEventCallback cb'
connectSignalFunPtr obj "button-press-event" cb'' SignalConnectBefore Nothing
afterStatusIconButtonPressEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
afterStatusIconButtonPressEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconButtonPressEventCallback cb
cb'' <- mk_StatusIconButtonPressEventCallback cb'
connectSignalFunPtr obj "button-press-event" cb'' SignalConnectAfter 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
#endif
type StatusIconButtonReleaseEventCallback =
Gdk.EventButton.EventButton
-> IO Bool
noStatusIconButtonReleaseEventCallback :: Maybe StatusIconButtonReleaseEventCallback
noStatusIconButtonReleaseEventCallback = Nothing
type C_StatusIconButtonReleaseEventCallback =
Ptr () ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconButtonReleaseEventCallback :: C_StatusIconButtonReleaseEventCallback -> IO (FunPtr C_StatusIconButtonReleaseEventCallback)
genClosure_StatusIconButtonReleaseEvent :: MonadIO m => StatusIconButtonReleaseEventCallback -> m (GClosure C_StatusIconButtonReleaseEventCallback)
genClosure_StatusIconButtonReleaseEvent cb = liftIO $ do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
mk_StatusIconButtonReleaseEventCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconButtonReleaseEventCallback ::
StatusIconButtonReleaseEventCallback ->
C_StatusIconButtonReleaseEventCallback
wrap_StatusIconButtonReleaseEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventButton.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonReleaseEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
onStatusIconButtonReleaseEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
cb'' <- mk_StatusIconButtonReleaseEventCallback cb'
connectSignalFunPtr obj "button-release-event" cb'' SignalConnectBefore Nothing
afterStatusIconButtonReleaseEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
afterStatusIconButtonReleaseEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
cb'' <- mk_StatusIconButtonReleaseEventCallback cb'
connectSignalFunPtr obj "button-release-event" cb'' SignalConnectAfter 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
#endif
type StatusIconPopupMenuCallback =
Word32
-> Word32
-> IO ()
noStatusIconPopupMenuCallback :: Maybe StatusIconPopupMenuCallback
noStatusIconPopupMenuCallback = Nothing
type C_StatusIconPopupMenuCallback =
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_StatusIconPopupMenuCallback :: C_StatusIconPopupMenuCallback -> IO (FunPtr C_StatusIconPopupMenuCallback)
genClosure_StatusIconPopupMenu :: MonadIO m => StatusIconPopupMenuCallback -> m (GClosure C_StatusIconPopupMenuCallback)
genClosure_StatusIconPopupMenu cb = liftIO $ do
let cb' = wrap_StatusIconPopupMenuCallback cb
mk_StatusIconPopupMenuCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconPopupMenuCallback ::
StatusIconPopupMenuCallback ->
C_StatusIconPopupMenuCallback
wrap_StatusIconPopupMenuCallback _cb _ button activateTime _ = do
_cb button activateTime
onStatusIconPopupMenu :: (IsStatusIcon a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
onStatusIconPopupMenu obj cb = liftIO $ do
let cb' = wrap_StatusIconPopupMenuCallback cb
cb'' <- mk_StatusIconPopupMenuCallback cb'
connectSignalFunPtr obj "popup-menu" cb'' SignalConnectBefore Nothing
afterStatusIconPopupMenu :: (IsStatusIcon a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
afterStatusIconPopupMenu obj cb = liftIO $ do
let cb' = wrap_StatusIconPopupMenuCallback cb
cb'' <- mk_StatusIconPopupMenuCallback cb'
connectSignalFunPtr obj "popup-menu" cb'' SignalConnectAfter 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
#endif
type StatusIconQueryTooltipCallback =
Int32
-> Int32
-> Bool
-> Gtk.Tooltip.Tooltip
-> IO Bool
noStatusIconQueryTooltipCallback :: Maybe StatusIconQueryTooltipCallback
noStatusIconQueryTooltipCallback = Nothing
type C_StatusIconQueryTooltipCallback =
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconQueryTooltipCallback :: C_StatusIconQueryTooltipCallback -> IO (FunPtr C_StatusIconQueryTooltipCallback)
genClosure_StatusIconQueryTooltip :: MonadIO m => StatusIconQueryTooltipCallback -> m (GClosure C_StatusIconQueryTooltipCallback)
genClosure_StatusIconQueryTooltip cb = liftIO $ do
let cb' = wrap_StatusIconQueryTooltipCallback cb
mk_StatusIconQueryTooltipCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconQueryTooltipCallback ::
StatusIconQueryTooltipCallback ->
C_StatusIconQueryTooltipCallback
wrap_StatusIconQueryTooltipCallback _cb _ x y keyboardMode tooltip _ = do
let keyboardMode' = (/= 0) keyboardMode
tooltip' <- (newObject Gtk.Tooltip.Tooltip) tooltip
result <- _cb x y keyboardMode' tooltip'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconQueryTooltip :: (IsStatusIcon a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
onStatusIconQueryTooltip obj cb = liftIO $ do
let cb' = wrap_StatusIconQueryTooltipCallback cb
cb'' <- mk_StatusIconQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' SignalConnectBefore Nothing
afterStatusIconQueryTooltip :: (IsStatusIcon a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
afterStatusIconQueryTooltip obj cb = liftIO $ do
let cb' = wrap_StatusIconQueryTooltipCallback cb
cb'' <- mk_StatusIconQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' SignalConnectAfter 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
#endif
type StatusIconScrollEventCallback =
Gdk.EventScroll.EventScroll
-> IO Bool
noStatusIconScrollEventCallback :: Maybe StatusIconScrollEventCallback
noStatusIconScrollEventCallback = Nothing
type C_StatusIconScrollEventCallback =
Ptr () ->
Ptr Gdk.EventScroll.EventScroll ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconScrollEventCallback :: C_StatusIconScrollEventCallback -> IO (FunPtr C_StatusIconScrollEventCallback)
genClosure_StatusIconScrollEvent :: MonadIO m => StatusIconScrollEventCallback -> m (GClosure C_StatusIconScrollEventCallback)
genClosure_StatusIconScrollEvent cb = liftIO $ do
let cb' = wrap_StatusIconScrollEventCallback cb
mk_StatusIconScrollEventCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconScrollEventCallback ::
StatusIconScrollEventCallback ->
C_StatusIconScrollEventCallback
wrap_StatusIconScrollEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventScroll.EventScroll) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconScrollEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
onStatusIconScrollEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconScrollEventCallback cb
cb'' <- mk_StatusIconScrollEventCallback cb'
connectSignalFunPtr obj "scroll-event" cb'' SignalConnectBefore Nothing
afterStatusIconScrollEvent :: (IsStatusIcon a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
afterStatusIconScrollEvent obj cb = liftIO $ do
let cb' = wrap_StatusIconScrollEventCallback cb
cb'' <- mk_StatusIconScrollEventCallback cb'
connectSignalFunPtr obj "scroll-event" cb'' SignalConnectAfter 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
#endif
type StatusIconSizeChangedCallback =
Int32
-> IO Bool
noStatusIconSizeChangedCallback :: Maybe StatusIconSizeChangedCallback
noStatusIconSizeChangedCallback = Nothing
type C_StatusIconSizeChangedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_StatusIconSizeChangedCallback :: C_StatusIconSizeChangedCallback -> IO (FunPtr C_StatusIconSizeChangedCallback)
genClosure_StatusIconSizeChanged :: MonadIO m => StatusIconSizeChangedCallback -> m (GClosure C_StatusIconSizeChangedCallback)
genClosure_StatusIconSizeChanged cb = liftIO $ do
let cb' = wrap_StatusIconSizeChangedCallback cb
mk_StatusIconSizeChangedCallback cb' >>= B.GClosure.newGClosure
wrap_StatusIconSizeChangedCallback ::
StatusIconSizeChangedCallback ->
C_StatusIconSizeChangedCallback
wrap_StatusIconSizeChangedCallback _cb _ size _ = do
result <- _cb size
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconSizeChanged :: (IsStatusIcon a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
onStatusIconSizeChanged obj cb = liftIO $ do
let cb' = wrap_StatusIconSizeChangedCallback cb
cb'' <- mk_StatusIconSizeChangedCallback cb'
connectSignalFunPtr obj "size-changed" cb'' SignalConnectBefore Nothing
afterStatusIconSizeChanged :: (IsStatusIcon a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
afterStatusIconSizeChanged obj cb = liftIO $ do
let cb' = wrap_StatusIconSizeChangedCallback cb
cb'' <- mk_StatusIconSizeChangedCallback cb'
connectSignalFunPtr obj "size-changed" cb'' SignalConnectAfter 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
#endif
getStatusIconEmbedded :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconEmbedded obj = liftIO $ B.Properties.getObjectPropertyBool obj "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
#endif
setStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconFile obj val = liftIO $ B.Properties.setObjectPropertyString obj "file" (Just val)
constructStatusIconFile :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconFile val = B.Properties.constructObjectPropertyString "file" (Just val)
clearStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconFile obj = liftIO $ B.Properties.setObjectPropertyString obj "file" (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
#endif
getStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe Gio.Icon.Icon)
getStatusIconGicon obj = liftIO $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon
setStatusIconGicon :: (MonadIO m, IsStatusIcon o, Gio.Icon.IsIcon a) => o -> a -> m ()
setStatusIconGicon obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Just val)
constructStatusIconGicon :: (IsStatusIcon o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)
constructStatusIconGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val)
clearStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconGicon obj = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (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
#endif
getStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconHasTooltip obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-tooltip"
setStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconHasTooltip obj val = liftIO $ B.Properties.setObjectPropertyBool obj "has-tooltip" val
constructStatusIconHasTooltip :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o)
constructStatusIconHasTooltip val = B.Properties.constructObjectPropertyBool "has-tooltip" 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
#endif
getStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconIconName obj = liftIO $ B.Properties.getObjectPropertyString obj "icon-name"
setStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val)
constructStatusIconIconName :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val)
clearStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconIconName obj = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (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
#endif
getStatusIconOrientation :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.Orientation
getStatusIconOrientation obj = liftIO $ B.Properties.getObjectPropertyEnum obj "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
#endif
getStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getStatusIconPixbuf obj = liftIO $ B.Properties.getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf.Pixbuf
setStatusIconPixbuf :: (MonadIO m, IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setStatusIconPixbuf obj val = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Just val)
constructStatusIconPixbuf :: (IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o)
constructStatusIconPixbuf val = B.Properties.constructObjectPropertyObject "pixbuf" (Just val)
clearStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconPixbuf obj = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (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
#endif
getStatusIconScreen :: (MonadIO m, IsStatusIcon o) => o -> m Gdk.Screen.Screen
getStatusIconScreen obj = liftIO $ checkUnexpectedNothing "getStatusIconScreen" $ B.Properties.getObjectPropertyObject obj "screen" Gdk.Screen.Screen
setStatusIconScreen :: (MonadIO m, IsStatusIcon o, Gdk.Screen.IsScreen a) => o -> a -> m ()
setStatusIconScreen obj val = liftIO $ B.Properties.setObjectPropertyObject obj "screen" (Just val)
constructStatusIconScreen :: (IsStatusIcon o, Gdk.Screen.IsScreen a) => a -> IO (GValueConstruct o)
constructStatusIconScreen val = B.Properties.constructObjectPropertyObject "screen" (Just 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
#endif
getStatusIconSize :: (MonadIO m, IsStatusIcon o) => o -> m Int32
getStatusIconSize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "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
#endif
getStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconStock obj = liftIO $ B.Properties.getObjectPropertyString obj "stock"
setStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconStock obj val = liftIO $ B.Properties.setObjectPropertyString obj "stock" (Just val)
constructStatusIconStock :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconStock val = B.Properties.constructObjectPropertyString "stock" (Just val)
clearStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconStock obj = liftIO $ B.Properties.setObjectPropertyString obj "stock" (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
#endif
getStatusIconStorageType :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.ImageType
getStatusIconStorageType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "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
#endif
getStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> m T.Text
getStatusIconTitle obj = liftIO $ checkUnexpectedNothing "getStatusIconTitle" $ B.Properties.getObjectPropertyString obj "title"
setStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTitle obj val = liftIO $ B.Properties.setObjectPropertyString obj "title" (Just val)
constructStatusIconTitle :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTitle val = B.Properties.constructObjectPropertyString "title" (Just 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
#endif
getStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipMarkup obj = liftIO $ B.Properties.getObjectPropertyString obj "tooltip-markup"
setStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipMarkup obj val = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-markup" (Just val)
constructStatusIconTooltipMarkup :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTooltipMarkup val = B.Properties.constructObjectPropertyString "tooltip-markup" (Just val)
clearStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconTooltipMarkup obj = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-markup" (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
#endif
getStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipText obj = liftIO $ B.Properties.getObjectPropertyString obj "tooltip-text"
setStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipText obj val = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-text" (Just val)
constructStatusIconTooltipText :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTooltipText val = B.Properties.constructObjectPropertyString "tooltip-text" (Just 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
#endif
getStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible"
setStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconVisible obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible" val
constructStatusIconVisible :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o)
constructStatusIconVisible val = B.Properties.constructObjectPropertyBool "visible" 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
#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, *)])
#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, *)])
#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 = liftIO $ do
result <- gtk_status_icon_new
checkUnexpectedReturnNULL "statusIconNew" result
result' <- (wrapObject StatusIcon) result
return 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 filename = liftIO $ do
filename' <- stringToCString filename
result <- gtk_status_icon_new_from_file filename'
checkUnexpectedReturnNULL "statusIconNewFromFile" result
result' <- (wrapObject StatusIcon) result
freeMem filename'
return 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 icon = liftIO $ do
icon' <- unsafeManagedPtrCastPtr icon
result <- gtk_status_icon_new_from_gicon icon'
checkUnexpectedReturnNULL "statusIconNewFromGicon" result
result' <- (wrapObject StatusIcon) result
touchManagedPtr icon
return 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 iconName = liftIO $ do
iconName' <- textToCString iconName
result <- gtk_status_icon_new_from_icon_name iconName'
checkUnexpectedReturnNULL "statusIconNewFromIconName" result
result' <- (wrapObject StatusIcon) result
freeMem iconName'
return 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 pixbuf = liftIO $ do
pixbuf' <- unsafeManagedPtrCastPtr pixbuf
result <- gtk_status_icon_new_from_pixbuf pixbuf'
checkUnexpectedReturnNULL "statusIconNewFromPixbuf" result
result' <- (wrapObject StatusIcon) result
touchManagedPtr pixbuf
return 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 stockId = liftIO $ do
stockId' <- textToCString stockId
result <- gtk_status_icon_new_from_stock stockId'
checkUnexpectedReturnNULL "statusIconNewFromStock" result
result' <- (wrapObject StatusIcon) result
freeMem stockId'
return 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
screen <- allocMem :: IO (Ptr (Ptr Gdk.Screen.Screen))
area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle.Rectangle)
orientation <- allocMem :: IO (Ptr CUInt)
result <- gtk_status_icon_get_geometry statusIcon' screen area orientation
let result' = (/= 0) result
screen' <- peek screen
screen'' <- (newObject Gdk.Screen.Screen) screen'
area' <- (wrapBoxed Gdk.Rectangle.Rectangle) area
orientation' <- peek orientation
let orientation'' = (toEnum . fromIntegral) orientation'
touchManagedPtr statusIcon
freeMem screen
freeMem orientation
return (result', screen'', area', 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.MethodInfo StatusIconGetGeometryMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_gicon statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gio.Icon.Icon) result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetGiconMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_has_tooltip statusIcon'
let result' = (/= 0) result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetHasTooltipMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetHasTooltipMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_icon_name statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetIconNameMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_pixbuf statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GdkPixbuf.Pixbuf.Pixbuf) result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetPixbufMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetPixbufMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_screen statusIcon'
checkUnexpectedReturnNULL "statusIconGetScreen" result
result' <- (newObject Gdk.Screen.Screen) result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetScreenMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_size statusIcon'
touchManagedPtr statusIcon
return result
#if defined(ENABLE_OVERLOADING)
data StatusIconGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetSizeMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_stock statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetStockMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStockMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_storage_type statusIcon'
let result' = (toEnum . fromIntegral) result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetStorageTypeMethodInfo
instance (signature ~ (m Gtk.Enums.ImageType), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStorageTypeMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_title statusIcon'
checkUnexpectedReturnNULL "statusIconGetTitle" result
result' <- cstringToText result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTitleMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_tooltip_markup statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTooltipMarkupMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipMarkupMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_tooltip_text statusIcon'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr statusIcon
return maybeResult
#if defined(ENABLE_OVERLOADING)
data StatusIconGetTooltipTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipTextMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_visible statusIcon'
let result' = (/= 0) result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetVisibleMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_get_x11_window_id statusIcon'
touchManagedPtr statusIcon
return result
#if defined(ENABLE_OVERLOADING)
data StatusIconGetX11WindowIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetX11WindowIdMethodInfo a signature where
overloadedMethod = 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 statusIcon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
result <- gtk_status_icon_is_embedded statusIcon'
let result' = (/= 0) result
touchManagedPtr statusIcon
return result'
#if defined(ENABLE_OVERLOADING)
data StatusIconIsEmbeddedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconIsEmbeddedMethodInfo a signature where
overloadedMethod = 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 statusIcon filename = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
filename' <- stringToCString filename
gtk_status_icon_set_from_file statusIcon' filename'
touchManagedPtr statusIcon
freeMem filename'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromFileMethodInfo a signature where
overloadedMethod = 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 statusIcon icon = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
icon' <- unsafeManagedPtrCastPtr icon
gtk_status_icon_set_from_gicon statusIcon' icon'
touchManagedPtr statusIcon
touchManagedPtr icon
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gio.Icon.IsIcon b) => O.MethodInfo StatusIconSetFromGiconMethodInfo a signature where
overloadedMethod = 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 statusIcon iconName = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
iconName' <- textToCString iconName
gtk_status_icon_set_from_icon_name statusIcon' iconName'
touchManagedPtr statusIcon
freeMem iconName'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromIconNameMethodInfo a signature where
overloadedMethod = 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 statusIcon pixbuf = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
jPixbuf' <- unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_status_icon_set_from_pixbuf statusIcon' maybePixbuf
touchManagedPtr statusIcon
whenJust pixbuf touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromPixbufMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStatusIcon a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo StatusIconSetFromPixbufMethodInfo a signature where
overloadedMethod = 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 statusIcon stockId = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
stockId' <- textToCString stockId
gtk_status_icon_set_from_stock statusIcon' stockId'
touchManagedPtr statusIcon
freeMem stockId'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetFromStockMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromStockMethodInfo a signature where
overloadedMethod = 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 statusIcon hasTooltip = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
let hasTooltip' = (fromIntegral . fromEnum) hasTooltip
gtk_status_icon_set_has_tooltip statusIcon' hasTooltip'
touchManagedPtr statusIcon
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetHasTooltipMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetHasTooltipMethodInfo a signature where
overloadedMethod = 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 statusIcon name = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
name' <- textToCString name
gtk_status_icon_set_name statusIcon' name'
touchManagedPtr statusIcon
freeMem name'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetNameMethodInfo a signature where
overloadedMethod = 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 statusIcon screen = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
screen' <- unsafeManagedPtrCastPtr screen
gtk_status_icon_set_screen statusIcon' screen'
touchManagedPtr statusIcon
touchManagedPtr screen
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetScreenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gdk.Screen.IsScreen b) => O.MethodInfo StatusIconSetScreenMethodInfo a signature where
overloadedMethod = 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 statusIcon title = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
title' <- textToCString title
gtk_status_icon_set_title statusIcon' title'
touchManagedPtr statusIcon
freeMem title'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTitleMethodInfo a signature where
overloadedMethod = 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 statusIcon markup = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
maybeMarkup <- case markup of
Nothing -> return nullPtr
Just jMarkup -> do
jMarkup' <- textToCString jMarkup
return jMarkup'
gtk_status_icon_set_tooltip_markup statusIcon' maybeMarkup
touchManagedPtr statusIcon
freeMem maybeMarkup
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTooltipMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipMarkupMethodInfo a signature where
overloadedMethod = 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 statusIcon text = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
text' <- textToCString text
gtk_status_icon_set_tooltip_text statusIcon' text'
touchManagedPtr statusIcon
freeMem text'
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetTooltipTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipTextMethodInfo a signature where
overloadedMethod = 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 statusIcon visible = liftIO $ do
statusIcon' <- unsafeManagedPtrCastPtr statusIcon
let visible' = (fromIntegral . fromEnum) visible
gtk_status_icon_set_visible statusIcon' visible'
touchManagedPtr statusIcon
return ()
#if defined(ENABLE_OVERLOADING)
data StatusIconSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetVisibleMethodInfo a signature where
overloadedMethod = statusIconSetVisible
#endif
foreign import ccall "gtk_status_icon_position_menu" 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))
statusIconPositionMenu menu x y userData = liftIO $ do
menu' <- unsafeManagedPtrCastPtr menu
x' <- allocMem :: IO (Ptr Int32)
poke x' x
y' <- allocMem :: IO (Ptr Int32)
poke y' y
pushIn <- allocMem :: IO (Ptr CInt)
userData' <- unsafeManagedPtrCastPtr userData
gtk_status_icon_position_menu menu' x' y' pushIn userData'
x'' <- peek x'
y'' <- peek y'
pushIn' <- peek pushIn
let pushIn'' = (/= 0) pushIn'
touchManagedPtr menu
touchManagedPtr userData
freeMem x'
freeMem y'
freeMem pushIn
return (x'', y'', pushIn'')
#if defined(ENABLE_OVERLOADING)
#endif