module GI.Gtk.Objects.StatusIcon
(
StatusIcon(..) ,
IsStatusIcon ,
toStatusIcon ,
noStatusIcon ,
StatusIconGetGeometryMethodInfo ,
statusIconGetGeometry ,
StatusIconGetGiconMethodInfo ,
statusIconGetGicon ,
StatusIconGetHasTooltipMethodInfo ,
statusIconGetHasTooltip ,
StatusIconGetIconNameMethodInfo ,
statusIconGetIconName ,
StatusIconGetPixbufMethodInfo ,
statusIconGetPixbuf ,
StatusIconGetScreenMethodInfo ,
statusIconGetScreen ,
StatusIconGetSizeMethodInfo ,
statusIconGetSize ,
StatusIconGetStockMethodInfo ,
statusIconGetStock ,
StatusIconGetStorageTypeMethodInfo ,
statusIconGetStorageType ,
StatusIconGetTitleMethodInfo ,
statusIconGetTitle ,
StatusIconGetTooltipMarkupMethodInfo ,
statusIconGetTooltipMarkup ,
StatusIconGetTooltipTextMethodInfo ,
statusIconGetTooltipText ,
StatusIconGetVisibleMethodInfo ,
statusIconGetVisible ,
StatusIconGetX11WindowIdMethodInfo ,
statusIconGetX11WindowId ,
StatusIconIsEmbeddedMethodInfo ,
statusIconIsEmbedded ,
statusIconNew ,
statusIconNewFromFile ,
statusIconNewFromGicon ,
statusIconNewFromIconName ,
statusIconNewFromPixbuf ,
statusIconNewFromStock ,
statusIconPositionMenu ,
StatusIconSetFromFileMethodInfo ,
statusIconSetFromFile ,
StatusIconSetFromGiconMethodInfo ,
statusIconSetFromGicon ,
StatusIconSetFromIconNameMethodInfo ,
statusIconSetFromIconName ,
StatusIconSetFromPixbufMethodInfo ,
statusIconSetFromPixbuf ,
StatusIconSetFromStockMethodInfo ,
statusIconSetFromStock ,
StatusIconSetHasTooltipMethodInfo ,
statusIconSetHasTooltip ,
StatusIconSetNameMethodInfo ,
statusIconSetName ,
StatusIconSetScreenMethodInfo ,
statusIconSetScreen ,
StatusIconSetTitleMethodInfo ,
statusIconSetTitle ,
StatusIconSetTooltipMarkupMethodInfo ,
statusIconSetTooltipMarkup ,
StatusIconSetTooltipTextMethodInfo ,
statusIconSetTooltipText ,
StatusIconSetVisibleMethodInfo ,
statusIconSetVisible ,
StatusIconEmbeddedPropertyInfo ,
getStatusIconEmbedded ,
statusIconEmbedded ,
StatusIconFilePropertyInfo ,
clearStatusIconFile ,
constructStatusIconFile ,
setStatusIconFile ,
statusIconFile ,
StatusIconGiconPropertyInfo ,
clearStatusIconGicon ,
constructStatusIconGicon ,
getStatusIconGicon ,
setStatusIconGicon ,
statusIconGicon ,
StatusIconHasTooltipPropertyInfo ,
constructStatusIconHasTooltip ,
getStatusIconHasTooltip ,
setStatusIconHasTooltip ,
statusIconHasTooltip ,
StatusIconIconNamePropertyInfo ,
clearStatusIconIconName ,
constructStatusIconIconName ,
getStatusIconIconName ,
setStatusIconIconName ,
statusIconIconName ,
StatusIconOrientationPropertyInfo ,
getStatusIconOrientation ,
statusIconOrientation ,
StatusIconPixbufPropertyInfo ,
clearStatusIconPixbuf ,
constructStatusIconPixbuf ,
getStatusIconPixbuf ,
setStatusIconPixbuf ,
statusIconPixbuf ,
StatusIconScreenPropertyInfo ,
constructStatusIconScreen ,
getStatusIconScreen ,
setStatusIconScreen ,
statusIconScreen ,
StatusIconSizePropertyInfo ,
getStatusIconSize ,
statusIconSize ,
StatusIconStockPropertyInfo ,
clearStatusIconStock ,
constructStatusIconStock ,
getStatusIconStock ,
setStatusIconStock ,
statusIconStock ,
StatusIconStorageTypePropertyInfo ,
getStatusIconStorageType ,
statusIconStorageType ,
StatusIconTitlePropertyInfo ,
constructStatusIconTitle ,
getStatusIconTitle ,
setStatusIconTitle ,
statusIconTitle ,
StatusIconTooltipMarkupPropertyInfo ,
clearStatusIconTooltipMarkup ,
constructStatusIconTooltipMarkup ,
getStatusIconTooltipMarkup ,
setStatusIconTooltipMarkup ,
statusIconTooltipMarkup ,
StatusIconTooltipTextPropertyInfo ,
constructStatusIconTooltipText ,
getStatusIconTooltipText ,
setStatusIconTooltipText ,
statusIconTooltipText ,
StatusIconVisiblePropertyInfo ,
constructStatusIconVisible ,
getStatusIconVisible ,
setStatusIconVisible ,
statusIconVisible ,
C_StatusIconActivateCallback ,
StatusIconActivateCallback ,
StatusIconActivateSignalInfo ,
afterStatusIconActivate ,
genClosure_StatusIconActivate ,
mk_StatusIconActivateCallback ,
noStatusIconActivateCallback ,
onStatusIconActivate ,
wrap_StatusIconActivateCallback ,
C_StatusIconButtonPressEventCallback ,
StatusIconButtonPressEventCallback ,
StatusIconButtonPressEventSignalInfo ,
afterStatusIconButtonPressEvent ,
genClosure_StatusIconButtonPressEvent ,
mk_StatusIconButtonPressEventCallback ,
noStatusIconButtonPressEventCallback ,
onStatusIconButtonPressEvent ,
wrap_StatusIconButtonPressEventCallback ,
C_StatusIconButtonReleaseEventCallback ,
StatusIconButtonReleaseEventCallback ,
StatusIconButtonReleaseEventSignalInfo ,
afterStatusIconButtonReleaseEvent ,
genClosure_StatusIconButtonReleaseEvent ,
mk_StatusIconButtonReleaseEventCallback ,
noStatusIconButtonReleaseEventCallback ,
onStatusIconButtonReleaseEvent ,
wrap_StatusIconButtonReleaseEventCallback,
C_StatusIconPopupMenuCallback ,
StatusIconPopupMenuCallback ,
StatusIconPopupMenuSignalInfo ,
afterStatusIconPopupMenu ,
genClosure_StatusIconPopupMenu ,
mk_StatusIconPopupMenuCallback ,
noStatusIconPopupMenuCallback ,
onStatusIconPopupMenu ,
wrap_StatusIconPopupMenuCallback ,
C_StatusIconQueryTooltipCallback ,
StatusIconQueryTooltipCallback ,
StatusIconQueryTooltipSignalInfo ,
afterStatusIconQueryTooltip ,
genClosure_StatusIconQueryTooltip ,
mk_StatusIconQueryTooltipCallback ,
noStatusIconQueryTooltipCallback ,
onStatusIconQueryTooltip ,
wrap_StatusIconQueryTooltipCallback ,
C_StatusIconScrollEventCallback ,
StatusIconScrollEventCallback ,
StatusIconScrollEventSignalInfo ,
afterStatusIconScrollEvent ,
genClosure_StatusIconScrollEvent ,
mk_StatusIconScrollEventCallback ,
noStatusIconScrollEventCallback ,
onStatusIconScrollEvent ,
wrap_StatusIconScrollEventCallback ,
C_StatusIconSizeChangedCallback ,
StatusIconSizeChangedCallback ,
StatusIconSizeChangedSignalInfo ,
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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 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 qualified GI.Gtk.Enums as Gtk.Enums
import qualified GI.Gtk.Objects.Menu as Gtk.Menu
import qualified GI.Gtk.Objects.Tooltip as Gtk.Tooltip
newtype StatusIcon = StatusIcon (ManagedPtr StatusIcon)
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
class GObject o => IsStatusIcon o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError StatusIcon a) =>
IsStatusIcon a
#endif
instance IsStatusIcon StatusIcon
instance GObject.Object.IsObject StatusIcon
toStatusIcon :: IsStatusIcon o => o -> IO StatusIcon
toStatusIcon = unsafeCastTo StatusIcon
noStatusIcon :: Maybe StatusIcon
noStatusIcon = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveStatusIconMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "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) => O.IsLabelProxy t (StatusIcon -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveStatusIconMethod t StatusIcon, O.MethodInfo info StatusIcon p) => O.IsLabel t (StatusIcon -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#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 :: StatusIconActivateCallback -> IO Closure
genClosure_StatusIconActivate cb = do
let cb' = wrap_StatusIconActivateCallback cb
mk_StatusIconActivateCallback cb' >>= newCClosure
wrap_StatusIconActivateCallback ::
StatusIconActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_StatusIconActivateCallback _cb _ _ = do
_cb
onStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
onStatusIconActivate obj cb = liftIO $ connectStatusIconActivate obj cb SignalConnectBefore
afterStatusIconActivate :: (GObject a, MonadIO m) => a -> StatusIconActivateCallback -> m SignalHandlerId
afterStatusIconActivate obj cb = connectStatusIconActivate obj cb SignalConnectAfter
connectStatusIconActivate :: (GObject a, MonadIO m) =>
a -> StatusIconActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconActivate obj cb after = liftIO $ do
let cb' = wrap_StatusIconActivateCallback cb
cb'' <- mk_StatusIconActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' after
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 :: StatusIconButtonPressEventCallback -> IO Closure
genClosure_StatusIconButtonPressEvent cb = do
let cb' = wrap_StatusIconButtonPressEventCallback cb
mk_StatusIconButtonPressEventCallback cb' >>= newCClosure
wrap_StatusIconButtonPressEventCallback ::
StatusIconButtonPressEventCallback ->
Ptr () ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
wrap_StatusIconButtonPressEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventButton.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
onStatusIconButtonPressEvent obj cb = liftIO $ connectStatusIconButtonPressEvent obj cb SignalConnectBefore
afterStatusIconButtonPressEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonPressEventCallback -> m SignalHandlerId
afterStatusIconButtonPressEvent obj cb = connectStatusIconButtonPressEvent obj cb SignalConnectAfter
connectStatusIconButtonPressEvent :: (GObject a, MonadIO m) =>
a -> StatusIconButtonPressEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconButtonPressEvent obj cb after = liftIO $ do
let cb' = wrap_StatusIconButtonPressEventCallback cb
cb'' <- mk_StatusIconButtonPressEventCallback cb'
connectSignalFunPtr obj "button-press-event" cb'' after
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 :: StatusIconButtonReleaseEventCallback -> IO Closure
genClosure_StatusIconButtonReleaseEvent cb = do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
mk_StatusIconButtonReleaseEventCallback cb' >>= newCClosure
wrap_StatusIconButtonReleaseEventCallback ::
StatusIconButtonReleaseEventCallback ->
Ptr () ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO CInt
wrap_StatusIconButtonReleaseEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventButton.EventButton) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
onStatusIconButtonReleaseEvent obj cb = liftIO $ connectStatusIconButtonReleaseEvent obj cb SignalConnectBefore
afterStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) => a -> StatusIconButtonReleaseEventCallback -> m SignalHandlerId
afterStatusIconButtonReleaseEvent obj cb = connectStatusIconButtonReleaseEvent obj cb SignalConnectAfter
connectStatusIconButtonReleaseEvent :: (GObject a, MonadIO m) =>
a -> StatusIconButtonReleaseEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconButtonReleaseEvent obj cb after = liftIO $ do
let cb' = wrap_StatusIconButtonReleaseEventCallback cb
cb'' <- mk_StatusIconButtonReleaseEventCallback cb'
connectSignalFunPtr obj "button-release-event" cb'' after
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 :: StatusIconPopupMenuCallback -> IO Closure
genClosure_StatusIconPopupMenu cb = do
let cb' = wrap_StatusIconPopupMenuCallback cb
mk_StatusIconPopupMenuCallback cb' >>= newCClosure
wrap_StatusIconPopupMenuCallback ::
StatusIconPopupMenuCallback ->
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
wrap_StatusIconPopupMenuCallback _cb _ button activateTime _ = do
_cb button activateTime
onStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
onStatusIconPopupMenu obj cb = liftIO $ connectStatusIconPopupMenu obj cb SignalConnectBefore
afterStatusIconPopupMenu :: (GObject a, MonadIO m) => a -> StatusIconPopupMenuCallback -> m SignalHandlerId
afterStatusIconPopupMenu obj cb = connectStatusIconPopupMenu obj cb SignalConnectAfter
connectStatusIconPopupMenu :: (GObject a, MonadIO m) =>
a -> StatusIconPopupMenuCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconPopupMenu obj cb after = liftIO $ do
let cb' = wrap_StatusIconPopupMenuCallback cb
cb'' <- mk_StatusIconPopupMenuCallback cb'
connectSignalFunPtr obj "popup-menu" cb'' after
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 :: StatusIconQueryTooltipCallback -> IO Closure
genClosure_StatusIconQueryTooltip cb = do
let cb' = wrap_StatusIconQueryTooltipCallback cb
mk_StatusIconQueryTooltipCallback cb' >>= newCClosure
wrap_StatusIconQueryTooltipCallback ::
StatusIconQueryTooltipCallback ->
Ptr () ->
Int32 ->
Int32 ->
CInt ->
Ptr Gtk.Tooltip.Tooltip ->
Ptr () ->
IO CInt
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 :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
onStatusIconQueryTooltip obj cb = liftIO $ connectStatusIconQueryTooltip obj cb SignalConnectBefore
afterStatusIconQueryTooltip :: (GObject a, MonadIO m) => a -> StatusIconQueryTooltipCallback -> m SignalHandlerId
afterStatusIconQueryTooltip obj cb = connectStatusIconQueryTooltip obj cb SignalConnectAfter
connectStatusIconQueryTooltip :: (GObject a, MonadIO m) =>
a -> StatusIconQueryTooltipCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconQueryTooltip obj cb after = liftIO $ do
let cb' = wrap_StatusIconQueryTooltipCallback cb
cb'' <- mk_StatusIconQueryTooltipCallback cb'
connectSignalFunPtr obj "query-tooltip" cb'' after
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 :: StatusIconScrollEventCallback -> IO Closure
genClosure_StatusIconScrollEvent cb = do
let cb' = wrap_StatusIconScrollEventCallback cb
mk_StatusIconScrollEventCallback cb' >>= newCClosure
wrap_StatusIconScrollEventCallback ::
StatusIconScrollEventCallback ->
Ptr () ->
Ptr Gdk.EventScroll.EventScroll ->
Ptr () ->
IO CInt
wrap_StatusIconScrollEventCallback _cb _ event _ = do
event' <- (newPtr Gdk.EventScroll.EventScroll) event
result <- _cb event'
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
onStatusIconScrollEvent obj cb = liftIO $ connectStatusIconScrollEvent obj cb SignalConnectBefore
afterStatusIconScrollEvent :: (GObject a, MonadIO m) => a -> StatusIconScrollEventCallback -> m SignalHandlerId
afterStatusIconScrollEvent obj cb = connectStatusIconScrollEvent obj cb SignalConnectAfter
connectStatusIconScrollEvent :: (GObject a, MonadIO m) =>
a -> StatusIconScrollEventCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconScrollEvent obj cb after = liftIO $ do
let cb' = wrap_StatusIconScrollEventCallback cb
cb'' <- mk_StatusIconScrollEventCallback cb'
connectSignalFunPtr obj "scroll-event" cb'' after
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 :: StatusIconSizeChangedCallback -> IO Closure
genClosure_StatusIconSizeChanged cb = do
let cb' = wrap_StatusIconSizeChangedCallback cb
mk_StatusIconSizeChangedCallback cb' >>= newCClosure
wrap_StatusIconSizeChangedCallback ::
StatusIconSizeChangedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO CInt
wrap_StatusIconSizeChangedCallback _cb _ size _ = do
result <- _cb size
let result' = (fromIntegral . fromEnum) result
return result'
onStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
onStatusIconSizeChanged obj cb = liftIO $ connectStatusIconSizeChanged obj cb SignalConnectBefore
afterStatusIconSizeChanged :: (GObject a, MonadIO m) => a -> StatusIconSizeChangedCallback -> m SignalHandlerId
afterStatusIconSizeChanged obj cb = connectStatusIconSizeChanged obj cb SignalConnectAfter
connectStatusIconSizeChanged :: (GObject a, MonadIO m) =>
a -> StatusIconSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectStatusIconSizeChanged obj cb after = liftIO $ do
let cb' = wrap_StatusIconSizeChangedCallback cb
cb'' <- mk_StatusIconSizeChangedCallback cb'
connectSignalFunPtr obj "size-changed" cb'' after
getStatusIconEmbedded :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconEmbedded obj = liftIO $ getObjectPropertyBool obj "embedded"
data StatusIconEmbeddedPropertyInfo
instance AttrInfo StatusIconEmbeddedPropertyInfo where
type AttrAllowedOps StatusIconEmbeddedPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint StatusIconEmbeddedPropertyInfo = (~) ()
type AttrBaseTypeConstraint StatusIconEmbeddedPropertyInfo = IsStatusIcon
type AttrGetType StatusIconEmbeddedPropertyInfo = Bool
type AttrLabel StatusIconEmbeddedPropertyInfo = "embedded"
type AttrOrigin StatusIconEmbeddedPropertyInfo = StatusIcon
attrGet _ = getStatusIconEmbedded
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
setStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconFile obj val = liftIO $ setObjectPropertyString obj "file" (Just val)
constructStatusIconFile :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconFile val = constructObjectPropertyString "file" (Just val)
clearStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconFile obj = liftIO $ setObjectPropertyString obj "file" (Nothing :: Maybe T.Text)
data StatusIconFilePropertyInfo
instance AttrInfo StatusIconFilePropertyInfo where
type AttrAllowedOps StatusIconFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]
type AttrSetTypeConstraint StatusIconFilePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconFilePropertyInfo = IsStatusIcon
type AttrGetType StatusIconFilePropertyInfo = ()
type AttrLabel StatusIconFilePropertyInfo = "file"
type AttrOrigin StatusIconFilePropertyInfo = StatusIcon
attrGet _ = undefined
attrSet _ = setStatusIconFile
attrConstruct _ = constructStatusIconFile
attrClear _ = clearStatusIconFile
getStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe Gio.Icon.Icon)
getStatusIconGicon obj = liftIO $ getObjectPropertyObject obj "gicon" Gio.Icon.Icon
setStatusIconGicon :: (MonadIO m, IsStatusIcon o, Gio.Icon.IsIcon a) => o -> a -> m ()
setStatusIconGicon obj val = liftIO $ setObjectPropertyObject obj "gicon" (Just val)
constructStatusIconGicon :: (IsStatusIcon o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o)
constructStatusIconGicon val = constructObjectPropertyObject "gicon" (Just val)
clearStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconGicon obj = liftIO $ setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon.Icon)
data StatusIconGiconPropertyInfo
instance AttrInfo StatusIconGiconPropertyInfo where
type AttrAllowedOps StatusIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StatusIconGiconPropertyInfo = Gio.Icon.IsIcon
type AttrBaseTypeConstraint StatusIconGiconPropertyInfo = IsStatusIcon
type AttrGetType StatusIconGiconPropertyInfo = (Maybe Gio.Icon.Icon)
type AttrLabel StatusIconGiconPropertyInfo = "gicon"
type AttrOrigin StatusIconGiconPropertyInfo = StatusIcon
attrGet _ = getStatusIconGicon
attrSet _ = setStatusIconGicon
attrConstruct _ = constructStatusIconGicon
attrClear _ = clearStatusIconGicon
getStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconHasTooltip obj = liftIO $ getObjectPropertyBool obj "has-tooltip"
setStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconHasTooltip obj val = liftIO $ setObjectPropertyBool obj "has-tooltip" val
constructStatusIconHasTooltip :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o)
constructStatusIconHasTooltip val = constructObjectPropertyBool "has-tooltip" val
data StatusIconHasTooltipPropertyInfo
instance AttrInfo StatusIconHasTooltipPropertyInfo where
type AttrAllowedOps StatusIconHasTooltipPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint StatusIconHasTooltipPropertyInfo = (~) Bool
type AttrBaseTypeConstraint StatusIconHasTooltipPropertyInfo = IsStatusIcon
type AttrGetType StatusIconHasTooltipPropertyInfo = Bool
type AttrLabel StatusIconHasTooltipPropertyInfo = "has-tooltip"
type AttrOrigin StatusIconHasTooltipPropertyInfo = StatusIcon
attrGet _ = getStatusIconHasTooltip
attrSet _ = setStatusIconHasTooltip
attrConstruct _ = constructStatusIconHasTooltip
attrClear _ = undefined
getStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconIconName obj = liftIO $ getObjectPropertyString obj "icon-name"
setStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconIconName obj val = liftIO $ setObjectPropertyString obj "icon-name" (Just val)
constructStatusIconIconName :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconIconName val = constructObjectPropertyString "icon-name" (Just val)
clearStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconIconName obj = liftIO $ setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text)
data StatusIconIconNamePropertyInfo
instance AttrInfo StatusIconIconNamePropertyInfo where
type AttrAllowedOps StatusIconIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StatusIconIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconIconNamePropertyInfo = IsStatusIcon
type AttrGetType StatusIconIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconIconNamePropertyInfo = "icon-name"
type AttrOrigin StatusIconIconNamePropertyInfo = StatusIcon
attrGet _ = getStatusIconIconName
attrSet _ = setStatusIconIconName
attrConstruct _ = constructStatusIconIconName
attrClear _ = clearStatusIconIconName
getStatusIconOrientation :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.Orientation
getStatusIconOrientation obj = liftIO $ getObjectPropertyEnum obj "orientation"
data StatusIconOrientationPropertyInfo
instance AttrInfo StatusIconOrientationPropertyInfo where
type AttrAllowedOps StatusIconOrientationPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint StatusIconOrientationPropertyInfo = (~) ()
type AttrBaseTypeConstraint StatusIconOrientationPropertyInfo = IsStatusIcon
type AttrGetType StatusIconOrientationPropertyInfo = Gtk.Enums.Orientation
type AttrLabel StatusIconOrientationPropertyInfo = "orientation"
type AttrOrigin StatusIconOrientationPropertyInfo = StatusIcon
attrGet _ = getStatusIconOrientation
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
getStatusIconPixbuf obj = liftIO $ getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf.Pixbuf
setStatusIconPixbuf :: (MonadIO m, IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m ()
setStatusIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "pixbuf" (Just val)
constructStatusIconPixbuf :: (IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o)
constructStatusIconPixbuf val = constructObjectPropertyObject "pixbuf" (Just val)
clearStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconPixbuf obj = liftIO $ setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf)
data StatusIconPixbufPropertyInfo
instance AttrInfo StatusIconPixbufPropertyInfo where
type AttrAllowedOps StatusIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StatusIconPixbufPropertyInfo = GdkPixbuf.Pixbuf.IsPixbuf
type AttrBaseTypeConstraint StatusIconPixbufPropertyInfo = IsStatusIcon
type AttrGetType StatusIconPixbufPropertyInfo = (Maybe GdkPixbuf.Pixbuf.Pixbuf)
type AttrLabel StatusIconPixbufPropertyInfo = "pixbuf"
type AttrOrigin StatusIconPixbufPropertyInfo = StatusIcon
attrGet _ = getStatusIconPixbuf
attrSet _ = setStatusIconPixbuf
attrConstruct _ = constructStatusIconPixbuf
attrClear _ = clearStatusIconPixbuf
getStatusIconScreen :: (MonadIO m, IsStatusIcon o) => o -> m Gdk.Screen.Screen
getStatusIconScreen obj = liftIO $ checkUnexpectedNothing "getStatusIconScreen" $ getObjectPropertyObject obj "screen" Gdk.Screen.Screen
setStatusIconScreen :: (MonadIO m, IsStatusIcon o, Gdk.Screen.IsScreen a) => o -> a -> m ()
setStatusIconScreen obj val = liftIO $ setObjectPropertyObject obj "screen" (Just val)
constructStatusIconScreen :: (IsStatusIcon o, Gdk.Screen.IsScreen a) => a -> IO (GValueConstruct o)
constructStatusIconScreen val = constructObjectPropertyObject "screen" (Just val)
data StatusIconScreenPropertyInfo
instance AttrInfo StatusIconScreenPropertyInfo where
type AttrAllowedOps StatusIconScreenPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint StatusIconScreenPropertyInfo = Gdk.Screen.IsScreen
type AttrBaseTypeConstraint StatusIconScreenPropertyInfo = IsStatusIcon
type AttrGetType StatusIconScreenPropertyInfo = Gdk.Screen.Screen
type AttrLabel StatusIconScreenPropertyInfo = "screen"
type AttrOrigin StatusIconScreenPropertyInfo = StatusIcon
attrGet _ = getStatusIconScreen
attrSet _ = setStatusIconScreen
attrConstruct _ = constructStatusIconScreen
attrClear _ = undefined
getStatusIconSize :: (MonadIO m, IsStatusIcon o) => o -> m Int32
getStatusIconSize obj = liftIO $ getObjectPropertyInt32 obj "size"
data StatusIconSizePropertyInfo
instance AttrInfo StatusIconSizePropertyInfo where
type AttrAllowedOps StatusIconSizePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint StatusIconSizePropertyInfo = (~) ()
type AttrBaseTypeConstraint StatusIconSizePropertyInfo = IsStatusIcon
type AttrGetType StatusIconSizePropertyInfo = Int32
type AttrLabel StatusIconSizePropertyInfo = "size"
type AttrOrigin StatusIconSizePropertyInfo = StatusIcon
attrGet _ = getStatusIconSize
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconStock obj = liftIO $ getObjectPropertyString obj "stock"
setStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconStock obj val = liftIO $ setObjectPropertyString obj "stock" (Just val)
constructStatusIconStock :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconStock val = constructObjectPropertyString "stock" (Just val)
clearStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconStock obj = liftIO $ setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text)
data StatusIconStockPropertyInfo
instance AttrInfo StatusIconStockPropertyInfo where
type AttrAllowedOps StatusIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StatusIconStockPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconStockPropertyInfo = IsStatusIcon
type AttrGetType StatusIconStockPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconStockPropertyInfo = "stock"
type AttrOrigin StatusIconStockPropertyInfo = StatusIcon
attrGet _ = getStatusIconStock
attrSet _ = setStatusIconStock
attrConstruct _ = constructStatusIconStock
attrClear _ = clearStatusIconStock
getStatusIconStorageType :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.ImageType
getStatusIconStorageType obj = liftIO $ getObjectPropertyEnum obj "storage-type"
data StatusIconStorageTypePropertyInfo
instance AttrInfo StatusIconStorageTypePropertyInfo where
type AttrAllowedOps StatusIconStorageTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint StatusIconStorageTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint StatusIconStorageTypePropertyInfo = IsStatusIcon
type AttrGetType StatusIconStorageTypePropertyInfo = Gtk.Enums.ImageType
type AttrLabel StatusIconStorageTypePropertyInfo = "storage-type"
type AttrOrigin StatusIconStorageTypePropertyInfo = StatusIcon
attrGet _ = getStatusIconStorageType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> m T.Text
getStatusIconTitle obj = liftIO $ checkUnexpectedNothing "getStatusIconTitle" $ getObjectPropertyString obj "title"
setStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val)
constructStatusIconTitle :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTitle val = constructObjectPropertyString "title" (Just val)
data StatusIconTitlePropertyInfo
instance AttrInfo StatusIconTitlePropertyInfo where
type AttrAllowedOps StatusIconTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint StatusIconTitlePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconTitlePropertyInfo = IsStatusIcon
type AttrGetType StatusIconTitlePropertyInfo = T.Text
type AttrLabel StatusIconTitlePropertyInfo = "title"
type AttrOrigin StatusIconTitlePropertyInfo = StatusIcon
attrGet _ = getStatusIconTitle
attrSet _ = setStatusIconTitle
attrConstruct _ = constructStatusIconTitle
attrClear _ = undefined
getStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "tooltip-markup"
setStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "tooltip-markup" (Just val)
constructStatusIconTooltipMarkup :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTooltipMarkup val = constructObjectPropertyString "tooltip-markup" (Just val)
clearStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m ()
clearStatusIconTooltipMarkup obj = liftIO $ setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text)
data StatusIconTooltipMarkupPropertyInfo
instance AttrInfo StatusIconTooltipMarkupPropertyInfo where
type AttrAllowedOps StatusIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint StatusIconTooltipMarkupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconTooltipMarkupPropertyInfo = IsStatusIcon
type AttrGetType StatusIconTooltipMarkupPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconTooltipMarkupPropertyInfo = "tooltip-markup"
type AttrOrigin StatusIconTooltipMarkupPropertyInfo = StatusIcon
attrGet _ = getStatusIconTooltipMarkup
attrSet _ = setStatusIconTooltipMarkup
attrConstruct _ = constructStatusIconTooltipMarkup
attrClear _ = clearStatusIconTooltipMarkup
getStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text)
getStatusIconTooltipText obj = liftIO $ getObjectPropertyString obj "tooltip-text"
setStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m ()
setStatusIconTooltipText obj val = liftIO $ setObjectPropertyString obj "tooltip-text" (Just val)
constructStatusIconTooltipText :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o)
constructStatusIconTooltipText val = constructObjectPropertyString "tooltip-text" (Just val)
data StatusIconTooltipTextPropertyInfo
instance AttrInfo StatusIconTooltipTextPropertyInfo where
type AttrAllowedOps StatusIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint StatusIconTooltipTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint StatusIconTooltipTextPropertyInfo = IsStatusIcon
type AttrGetType StatusIconTooltipTextPropertyInfo = (Maybe T.Text)
type AttrLabel StatusIconTooltipTextPropertyInfo = "tooltip-text"
type AttrOrigin StatusIconTooltipTextPropertyInfo = StatusIcon
attrGet _ = getStatusIconTooltipText
attrSet _ = setStatusIconTooltipText
attrConstruct _ = constructStatusIconTooltipText
attrClear _ = undefined
getStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> m Bool
getStatusIconVisible obj = liftIO $ getObjectPropertyBool obj "visible"
setStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m ()
setStatusIconVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val
constructStatusIconVisible :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o)
constructStatusIconVisible val = constructObjectPropertyBool "visible" val
data StatusIconVisiblePropertyInfo
instance AttrInfo StatusIconVisiblePropertyInfo where
type AttrAllowedOps StatusIconVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint StatusIconVisiblePropertyInfo = (~) Bool
type AttrBaseTypeConstraint StatusIconVisiblePropertyInfo = IsStatusIcon
type AttrGetType StatusIconVisiblePropertyInfo = Bool
type AttrLabel StatusIconVisiblePropertyInfo = "visible"
type AttrOrigin StatusIconVisiblePropertyInfo = StatusIcon
attrGet _ = getStatusIconVisible
attrSet _ = setStatusIconVisible
attrConstruct _ = constructStatusIconVisible
attrClear _ = undefined
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, *)])
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
data StatusIconActivateSignalInfo
instance SignalInfo StatusIconActivateSignalInfo where
type HaskellCallbackType StatusIconActivateSignalInfo = StatusIconActivateCallback
connectSignal _ = connectStatusIconActivate
data StatusIconButtonPressEventSignalInfo
instance SignalInfo StatusIconButtonPressEventSignalInfo where
type HaskellCallbackType StatusIconButtonPressEventSignalInfo = StatusIconButtonPressEventCallback
connectSignal _ = connectStatusIconButtonPressEvent
data StatusIconButtonReleaseEventSignalInfo
instance SignalInfo StatusIconButtonReleaseEventSignalInfo where
type HaskellCallbackType StatusIconButtonReleaseEventSignalInfo = StatusIconButtonReleaseEventCallback
connectSignal _ = connectStatusIconButtonReleaseEvent
data StatusIconPopupMenuSignalInfo
instance SignalInfo StatusIconPopupMenuSignalInfo where
type HaskellCallbackType StatusIconPopupMenuSignalInfo = StatusIconPopupMenuCallback
connectSignal _ = connectStatusIconPopupMenu
data StatusIconQueryTooltipSignalInfo
instance SignalInfo StatusIconQueryTooltipSignalInfo where
type HaskellCallbackType StatusIconQueryTooltipSignalInfo = StatusIconQueryTooltipCallback
connectSignal _ = connectStatusIconQueryTooltip
data StatusIconScrollEventSignalInfo
instance SignalInfo StatusIconScrollEventSignalInfo where
type HaskellCallbackType StatusIconScrollEventSignalInfo = StatusIconScrollEventCallback
connectSignal _ = connectStatusIconScrollEvent
data StatusIconSizeChangedSignalInfo
instance SignalInfo StatusIconSizeChangedSignalInfo where
type HaskellCallbackType StatusIconSizeChangedSignalInfo = StatusIconSizeChangedCallback
connectSignal _ = connectStatusIconSizeChanged
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, *)])
foreign import ccall "gtk_status_icon_new" gtk_status_icon_new ::
IO (Ptr StatusIcon)
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'
foreign import ccall "gtk_status_icon_new_from_file" gtk_status_icon_new_from_file ::
CString ->
IO (Ptr StatusIcon)
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'
foreign import ccall "gtk_status_icon_new_from_gicon" gtk_status_icon_new_from_gicon ::
Ptr Gio.Icon.Icon ->
IO (Ptr StatusIcon)
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'
foreign import ccall "gtk_status_icon_new_from_icon_name" gtk_status_icon_new_from_icon_name ::
CString ->
IO (Ptr StatusIcon)
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'
foreign import ccall "gtk_status_icon_new_from_pixbuf" gtk_status_icon_new_from_pixbuf ::
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO (Ptr StatusIcon)
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'
foreign import ccall "gtk_status_icon_new_from_stock" gtk_status_icon_new_from_stock ::
CString ->
IO (Ptr StatusIcon)
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'
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
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'')
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
foreign import ccall "gtk_status_icon_get_gicon" gtk_status_icon_get_gicon ::
Ptr StatusIcon ->
IO (Ptr Gio.Icon.Icon)
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
data StatusIconGetGiconMethodInfo
instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetGiconMethodInfo a signature where
overloadedMethod _ = statusIconGetGicon
foreign import ccall "gtk_status_icon_get_has_tooltip" gtk_status_icon_get_has_tooltip ::
Ptr StatusIcon ->
IO CInt
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'
data StatusIconGetHasTooltipMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetHasTooltipMethodInfo a signature where
overloadedMethod _ = statusIconGetHasTooltip
foreign import ccall "gtk_status_icon_get_icon_name" gtk_status_icon_get_icon_name ::
Ptr StatusIcon ->
IO CString
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
data StatusIconGetIconNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetIconNameMethodInfo a signature where
overloadedMethod _ = statusIconGetIconName
foreign import ccall "gtk_status_icon_get_pixbuf" gtk_status_icon_get_pixbuf ::
Ptr StatusIcon ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
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
data StatusIconGetPixbufMethodInfo
instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetPixbufMethodInfo a signature where
overloadedMethod _ = statusIconGetPixbuf
foreign import ccall "gtk_status_icon_get_screen" gtk_status_icon_get_screen ::
Ptr StatusIcon ->
IO (Ptr Gdk.Screen.Screen)
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'
data StatusIconGetScreenMethodInfo
instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetScreenMethodInfo a signature where
overloadedMethod _ = statusIconGetScreen
foreign import ccall "gtk_status_icon_get_size" gtk_status_icon_get_size ::
Ptr StatusIcon ->
IO Int32
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
data StatusIconGetSizeMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetSizeMethodInfo a signature where
overloadedMethod _ = statusIconGetSize
foreign import ccall "gtk_status_icon_get_stock" gtk_status_icon_get_stock ::
Ptr StatusIcon ->
IO CString
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
data StatusIconGetStockMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStockMethodInfo a signature where
overloadedMethod _ = statusIconGetStock
foreign import ccall "gtk_status_icon_get_storage_type" gtk_status_icon_get_storage_type ::
Ptr StatusIcon ->
IO CUInt
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'
data StatusIconGetStorageTypeMethodInfo
instance (signature ~ (m Gtk.Enums.ImageType), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStorageTypeMethodInfo a signature where
overloadedMethod _ = statusIconGetStorageType
foreign import ccall "gtk_status_icon_get_title" gtk_status_icon_get_title ::
Ptr StatusIcon ->
IO CString
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'
data StatusIconGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTitleMethodInfo a signature where
overloadedMethod _ = statusIconGetTitle
foreign import ccall "gtk_status_icon_get_tooltip_markup" gtk_status_icon_get_tooltip_markup ::
Ptr StatusIcon ->
IO CString
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
data StatusIconGetTooltipMarkupMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipMarkupMethodInfo a signature where
overloadedMethod _ = statusIconGetTooltipMarkup
foreign import ccall "gtk_status_icon_get_tooltip_text" gtk_status_icon_get_tooltip_text ::
Ptr StatusIcon ->
IO CString
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
data StatusIconGetTooltipTextMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipTextMethodInfo a signature where
overloadedMethod _ = statusIconGetTooltipText
foreign import ccall "gtk_status_icon_get_visible" gtk_status_icon_get_visible ::
Ptr StatusIcon ->
IO CInt
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'
data StatusIconGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetVisibleMethodInfo a signature where
overloadedMethod _ = statusIconGetVisible
foreign import ccall "gtk_status_icon_get_x11_window_id" gtk_status_icon_get_x11_window_id ::
Ptr StatusIcon ->
IO Word32
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
data StatusIconGetX11WindowIdMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetX11WindowIdMethodInfo a signature where
overloadedMethod _ = statusIconGetX11WindowId
foreign import ccall "gtk_status_icon_is_embedded" gtk_status_icon_is_embedded ::
Ptr StatusIcon ->
IO CInt
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'
data StatusIconIsEmbeddedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconIsEmbeddedMethodInfo a signature where
overloadedMethod _ = statusIconIsEmbedded
foreign import ccall "gtk_status_icon_set_from_file" gtk_status_icon_set_from_file ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetFromFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromFileMethodInfo a signature where
overloadedMethod _ = statusIconSetFromFile
foreign import ccall "gtk_status_icon_set_from_gicon" gtk_status_icon_set_from_gicon ::
Ptr StatusIcon ->
Ptr Gio.Icon.Icon ->
IO ()
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 ()
data StatusIconSetFromGiconMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gio.Icon.IsIcon b) => O.MethodInfo StatusIconSetFromGiconMethodInfo a signature where
overloadedMethod _ = statusIconSetFromGicon
foreign import ccall "gtk_status_icon_set_from_icon_name" gtk_status_icon_set_from_icon_name ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetFromIconNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromIconNameMethodInfo a signature where
overloadedMethod _ = statusIconSetFromIconName
foreign import ccall "gtk_status_icon_set_from_pixbuf" gtk_status_icon_set_from_pixbuf ::
Ptr StatusIcon ->
Ptr GdkPixbuf.Pixbuf.Pixbuf ->
IO ()
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 ()
data StatusIconSetFromPixbufMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsStatusIcon a, GdkPixbuf.Pixbuf.IsPixbuf b) => O.MethodInfo StatusIconSetFromPixbufMethodInfo a signature where
overloadedMethod _ = statusIconSetFromPixbuf
foreign import ccall "gtk_status_icon_set_from_stock" gtk_status_icon_set_from_stock ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetFromStockMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromStockMethodInfo a signature where
overloadedMethod _ = statusIconSetFromStock
foreign import ccall "gtk_status_icon_set_has_tooltip" gtk_status_icon_set_has_tooltip ::
Ptr StatusIcon ->
CInt ->
IO ()
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 ()
data StatusIconSetHasTooltipMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetHasTooltipMethodInfo a signature where
overloadedMethod _ = statusIconSetHasTooltip
foreign import ccall "gtk_status_icon_set_name" gtk_status_icon_set_name ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetNameMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetNameMethodInfo a signature where
overloadedMethod _ = statusIconSetName
foreign import ccall "gtk_status_icon_set_screen" gtk_status_icon_set_screen ::
Ptr StatusIcon ->
Ptr Gdk.Screen.Screen ->
IO ()
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 ()
data StatusIconSetScreenMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsStatusIcon a, Gdk.Screen.IsScreen b) => O.MethodInfo StatusIconSetScreenMethodInfo a signature where
overloadedMethod _ = statusIconSetScreen
foreign import ccall "gtk_status_icon_set_title" gtk_status_icon_set_title ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTitleMethodInfo a signature where
overloadedMethod _ = statusIconSetTitle
foreign import ccall "gtk_status_icon_set_tooltip_markup" gtk_status_icon_set_tooltip_markup ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetTooltipMarkupMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipMarkupMethodInfo a signature where
overloadedMethod _ = statusIconSetTooltipMarkup
foreign import ccall "gtk_status_icon_set_tooltip_text" gtk_status_icon_set_tooltip_text ::
Ptr StatusIcon ->
CString ->
IO ()
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 ()
data StatusIconSetTooltipTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipTextMethodInfo a signature where
overloadedMethod _ = statusIconSetTooltipText
foreign import ccall "gtk_status_icon_set_visible" gtk_status_icon_set_visible ::
Ptr StatusIcon ->
CInt ->
IO ()
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 ()
data StatusIconSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetVisibleMethodInfo a signature where
overloadedMethod _ = statusIconSetVisible
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 ()
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'')