{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc) The “system tray” or notification area is normally used for transient icons that indicate some special state. For example, a system tray icon might appear to tell the user that they have new mail, or have an incoming instant message, or something along those lines. The basic idea is that creating an icon in the notification area is less annoying than popping up a dialog. A 'GI.Gtk.Objects.StatusIcon.StatusIcon' object can be used to display an icon in a “system tray”. The icon can have a tooltip, and the user can interact with it by activating it or popping up a context menu. It is very important to notice that status icons depend on the existence of a notification area being available to the user; you should not use status icons as the only way to convey critical information regarding your application, as the notification area may not exist on the user\'s environment, or may have been removed. You should always check that a status icon has been embedded into a notification area by using 'GI.Gtk.Objects.StatusIcon.statusIconIsEmbedded', and gracefully recover if the function returns 'False'. On X11, the implementation follows the . Implementations of the “tray” side of this specification can be found e.g. in the GNOME 2 and KDE panel applications. Note that a GtkStatusIcon is not a widget, but just a 'GI.GObject.Objects.Object.Object'. Making it a widget would be impractical, since the system tray on Windows doesn’t allow to embed arbitrary widgets. GtkStatusIcon has been deprecated in 3.14. You should consider using notifications or more modern platform-specific APIs instead. GLib provides the 'GI.Gio.Objects.Notification.Notification' API which works well with 'GI.Gtk.Objects.Application.Application' on multiple platforms and environments, and should be the preferred mechanism to notify the users of transient status updates. See this for code examples. -} #define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \ && !defined(__HADDOCK_VERSION__)) module GI.Gtk.Objects.StatusIcon ( -- * Exported types StatusIcon(..) , IsStatusIcon , toStatusIcon , noStatusIcon , -- * Methods -- ** getGeometry #method:getGeometry# #if ENABLE_OVERLOADING StatusIconGetGeometryMethodInfo , #endif statusIconGetGeometry , -- ** getGicon #method:getGicon# #if ENABLE_OVERLOADING StatusIconGetGiconMethodInfo , #endif statusIconGetGicon , -- ** getHasTooltip #method:getHasTooltip# #if ENABLE_OVERLOADING StatusIconGetHasTooltipMethodInfo , #endif statusIconGetHasTooltip , -- ** getIconName #method:getIconName# #if ENABLE_OVERLOADING StatusIconGetIconNameMethodInfo , #endif statusIconGetIconName , -- ** getPixbuf #method:getPixbuf# #if ENABLE_OVERLOADING StatusIconGetPixbufMethodInfo , #endif statusIconGetPixbuf , -- ** getScreen #method:getScreen# #if ENABLE_OVERLOADING StatusIconGetScreenMethodInfo , #endif statusIconGetScreen , -- ** getSize #method:getSize# #if ENABLE_OVERLOADING StatusIconGetSizeMethodInfo , #endif statusIconGetSize , -- ** getStock #method:getStock# #if ENABLE_OVERLOADING StatusIconGetStockMethodInfo , #endif statusIconGetStock , -- ** getStorageType #method:getStorageType# #if ENABLE_OVERLOADING StatusIconGetStorageTypeMethodInfo , #endif statusIconGetStorageType , -- ** getTitle #method:getTitle# #if ENABLE_OVERLOADING StatusIconGetTitleMethodInfo , #endif statusIconGetTitle , -- ** getTooltipMarkup #method:getTooltipMarkup# #if ENABLE_OVERLOADING StatusIconGetTooltipMarkupMethodInfo , #endif statusIconGetTooltipMarkup , -- ** getTooltipText #method:getTooltipText# #if ENABLE_OVERLOADING StatusIconGetTooltipTextMethodInfo , #endif statusIconGetTooltipText , -- ** getVisible #method:getVisible# #if ENABLE_OVERLOADING StatusIconGetVisibleMethodInfo , #endif statusIconGetVisible , -- ** getX11WindowId #method:getX11WindowId# #if ENABLE_OVERLOADING StatusIconGetX11WindowIdMethodInfo , #endif statusIconGetX11WindowId , -- ** isEmbedded #method:isEmbedded# #if ENABLE_OVERLOADING StatusIconIsEmbeddedMethodInfo , #endif statusIconIsEmbedded , -- ** new #method:new# statusIconNew , -- ** newFromFile #method:newFromFile# statusIconNewFromFile , -- ** newFromGicon #method:newFromGicon# statusIconNewFromGicon , -- ** newFromIconName #method:newFromIconName# statusIconNewFromIconName , -- ** newFromPixbuf #method:newFromPixbuf# statusIconNewFromPixbuf , -- ** newFromStock #method:newFromStock# statusIconNewFromStock , -- ** positionMenu #method:positionMenu# statusIconPositionMenu , -- ** setFromFile #method:setFromFile# #if ENABLE_OVERLOADING StatusIconSetFromFileMethodInfo , #endif statusIconSetFromFile , -- ** setFromGicon #method:setFromGicon# #if ENABLE_OVERLOADING StatusIconSetFromGiconMethodInfo , #endif statusIconSetFromGicon , -- ** setFromIconName #method:setFromIconName# #if ENABLE_OVERLOADING StatusIconSetFromIconNameMethodInfo , #endif statusIconSetFromIconName , -- ** setFromPixbuf #method:setFromPixbuf# #if ENABLE_OVERLOADING StatusIconSetFromPixbufMethodInfo , #endif statusIconSetFromPixbuf , -- ** setFromStock #method:setFromStock# #if ENABLE_OVERLOADING StatusIconSetFromStockMethodInfo , #endif statusIconSetFromStock , -- ** setHasTooltip #method:setHasTooltip# #if ENABLE_OVERLOADING StatusIconSetHasTooltipMethodInfo , #endif statusIconSetHasTooltip , -- ** setName #method:setName# #if ENABLE_OVERLOADING StatusIconSetNameMethodInfo , #endif statusIconSetName , -- ** setScreen #method:setScreen# #if ENABLE_OVERLOADING StatusIconSetScreenMethodInfo , #endif statusIconSetScreen , -- ** setTitle #method:setTitle# #if ENABLE_OVERLOADING StatusIconSetTitleMethodInfo , #endif statusIconSetTitle , -- ** setTooltipMarkup #method:setTooltipMarkup# #if ENABLE_OVERLOADING StatusIconSetTooltipMarkupMethodInfo , #endif statusIconSetTooltipMarkup , -- ** setTooltipText #method:setTooltipText# #if ENABLE_OVERLOADING StatusIconSetTooltipTextMethodInfo , #endif statusIconSetTooltipText , -- ** setVisible #method:setVisible# #if ENABLE_OVERLOADING StatusIconSetVisibleMethodInfo , #endif statusIconSetVisible , -- * Properties -- ** embedded #attr:embedded# {- | 'True' if the statusicon is embedded in a notification area. /Since: 2.12/ -} #if ENABLE_OVERLOADING StatusIconEmbeddedPropertyInfo , #endif getStatusIconEmbedded , #if ENABLE_OVERLOADING statusIconEmbedded , #endif -- ** file #attr:file# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconFilePropertyInfo , #endif clearStatusIconFile , constructStatusIconFile , setStatusIconFile , #if ENABLE_OVERLOADING statusIconFile , #endif -- ** gicon #attr:gicon# {- | The 'GI.Gio.Interfaces.Icon.Icon' displayed in the 'GI.Gtk.Objects.StatusIcon.StatusIcon'. For themed icons, the image will be updated automatically if the theme changes. /Since: 2.14/ -} #if ENABLE_OVERLOADING StatusIconGiconPropertyInfo , #endif clearStatusIconGicon , constructStatusIconGicon , getStatusIconGicon , setStatusIconGicon , #if ENABLE_OVERLOADING statusIconGicon , #endif -- ** hasTooltip #attr:hasTooltip# {- | Enables or disables the emission of 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ on /@statusIcon@/. A value of 'True' indicates that /@statusIcon@/ can have a tooltip, in this case the status icon will be queried using 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ to determine whether it will provide a tooltip or not. Note that setting this property to 'True' for the first time will change the event masks of the windows of this status icon to include leave-notify and motion-notify events. This will not be undone when the property is set to 'False' again. Whether this property is respected is platform dependent. For plain text tooltips, use 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/tooltip-text/@ in preference. /Since: 2.16/ -} #if ENABLE_OVERLOADING StatusIconHasTooltipPropertyInfo , #endif constructStatusIconHasTooltip , getStatusIconHasTooltip , setStatusIconHasTooltip , #if ENABLE_OVERLOADING statusIconHasTooltip , #endif -- ** iconName #attr:iconName# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconIconNamePropertyInfo , #endif clearStatusIconIconName , constructStatusIconIconName , getStatusIconIconName , setStatusIconIconName , #if ENABLE_OVERLOADING statusIconIconName , #endif -- ** orientation #attr:orientation# {- | The orientation of the tray in which the statusicon is embedded. /Since: 2.12/ -} #if ENABLE_OVERLOADING StatusIconOrientationPropertyInfo , #endif getStatusIconOrientation , #if ENABLE_OVERLOADING statusIconOrientation , #endif -- ** pixbuf #attr:pixbuf# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconPixbufPropertyInfo , #endif clearStatusIconPixbuf , constructStatusIconPixbuf , getStatusIconPixbuf , setStatusIconPixbuf , #if ENABLE_OVERLOADING statusIconPixbuf , #endif -- ** screen #attr:screen# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconScreenPropertyInfo , #endif constructStatusIconScreen , getStatusIconScreen , setStatusIconScreen , #if ENABLE_OVERLOADING statusIconScreen , #endif -- ** size #attr:size# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconSizePropertyInfo , #endif getStatusIconSize , #if ENABLE_OVERLOADING statusIconSize , #endif -- ** stock #attr:stock# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconStockPropertyInfo , #endif clearStatusIconStock , constructStatusIconStock , getStatusIconStock , setStatusIconStock , #if ENABLE_OVERLOADING statusIconStock , #endif -- ** storageType #attr:storageType# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconStorageTypePropertyInfo , #endif getStatusIconStorageType , #if ENABLE_OVERLOADING statusIconStorageType , #endif -- ** title #attr:title# {- | The title of this tray icon. This should be a short, human-readable, localized string describing the tray icon. It may be used by tools like screen readers to render the tray icon. /Since: 2.18/ -} #if ENABLE_OVERLOADING StatusIconTitlePropertyInfo , #endif constructStatusIconTitle , getStatusIconTitle , setStatusIconTitle , #if ENABLE_OVERLOADING statusIconTitle , #endif -- ** tooltipMarkup #attr:tooltipMarkup# {- | Sets the text of tooltip to be the given string, which is marked up with the [Pango text markup language][PangoMarkupFormat]. Also see 'GI.Gtk.Objects.Tooltip.tooltipSetMarkup'. This is a convenience property which will take care of getting the tooltip shown if the given string is not 'Nothing'. 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ will automatically be set to 'True' and the default handler for the 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ signal will take care of displaying the tooltip. On some platforms, embedded markup will be ignored. /Since: 2.16/ -} #if ENABLE_OVERLOADING StatusIconTooltipMarkupPropertyInfo , #endif clearStatusIconTooltipMarkup , constructStatusIconTooltipMarkup , getStatusIconTooltipMarkup , setStatusIconTooltipMarkup , #if ENABLE_OVERLOADING statusIconTooltipMarkup , #endif -- ** tooltipText #attr:tooltipText# {- | Sets the text of tooltip to be the given string. Also see 'GI.Gtk.Objects.Tooltip.tooltipSetText'. This is a convenience property which will take care of getting the tooltip shown if the given string is not 'Nothing'. 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ will automatically be set to 'True' and the default handler for the 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ signal will take care of displaying the tooltip. Note that some platforms have limitations on the length of tooltips that they allow on status icons, e.g. Windows only shows the first 64 characters. /Since: 2.16/ -} #if ENABLE_OVERLOADING StatusIconTooltipTextPropertyInfo , #endif constructStatusIconTooltipText , getStatusIconTooltipText , setStatusIconTooltipText , #if ENABLE_OVERLOADING statusIconTooltipText , #endif -- ** visible #attr:visible# {- | /No description available in the introspection data./ -} #if ENABLE_OVERLOADING StatusIconVisiblePropertyInfo , #endif constructStatusIconVisible , getStatusIconVisible , setStatusIconVisible , #if ENABLE_OVERLOADING statusIconVisible , #endif -- * Signals -- ** activate #signal:activate# C_StatusIconActivateCallback , StatusIconActivateCallback , #if ENABLE_OVERLOADING StatusIconActivateSignalInfo , #endif afterStatusIconActivate , genClosure_StatusIconActivate , mk_StatusIconActivateCallback , noStatusIconActivateCallback , onStatusIconActivate , wrap_StatusIconActivateCallback , -- ** buttonPressEvent #signal:buttonPressEvent# C_StatusIconButtonPressEventCallback , StatusIconButtonPressEventCallback , #if ENABLE_OVERLOADING StatusIconButtonPressEventSignalInfo , #endif afterStatusIconButtonPressEvent , genClosure_StatusIconButtonPressEvent , mk_StatusIconButtonPressEventCallback , noStatusIconButtonPressEventCallback , onStatusIconButtonPressEvent , wrap_StatusIconButtonPressEventCallback , -- ** buttonReleaseEvent #signal:buttonReleaseEvent# C_StatusIconButtonReleaseEventCallback , StatusIconButtonReleaseEventCallback , #if ENABLE_OVERLOADING StatusIconButtonReleaseEventSignalInfo , #endif afterStatusIconButtonReleaseEvent , genClosure_StatusIconButtonReleaseEvent , mk_StatusIconButtonReleaseEventCallback , noStatusIconButtonReleaseEventCallback , onStatusIconButtonReleaseEvent , wrap_StatusIconButtonReleaseEventCallback, -- ** popupMenu #signal:popupMenu# C_StatusIconPopupMenuCallback , StatusIconPopupMenuCallback , #if ENABLE_OVERLOADING StatusIconPopupMenuSignalInfo , #endif afterStatusIconPopupMenu , genClosure_StatusIconPopupMenu , mk_StatusIconPopupMenuCallback , noStatusIconPopupMenuCallback , onStatusIconPopupMenu , wrap_StatusIconPopupMenuCallback , -- ** queryTooltip #signal:queryTooltip# C_StatusIconQueryTooltipCallback , StatusIconQueryTooltipCallback , #if ENABLE_OVERLOADING StatusIconQueryTooltipSignalInfo , #endif afterStatusIconQueryTooltip , genClosure_StatusIconQueryTooltip , mk_StatusIconQueryTooltipCallback , noStatusIconQueryTooltipCallback , onStatusIconQueryTooltip , wrap_StatusIconQueryTooltipCallback , -- ** scrollEvent #signal:scrollEvent# C_StatusIconScrollEventCallback , StatusIconScrollEventCallback , #if ENABLE_OVERLOADING StatusIconScrollEventSignalInfo , #endif afterStatusIconScrollEvent , genClosure_StatusIconScrollEvent , mk_StatusIconScrollEventCallback , noStatusIconScrollEventCallback , onStatusIconScrollEvent , wrap_StatusIconScrollEventCallback , -- ** sizeChanged #signal:sizeChanged# C_StatusIconSizeChangedCallback , StatusIconSizeChangedCallback , #if 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.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 -- | Memory-managed wrapper type. 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 -- | Type class for types which can be safely cast to `StatusIcon`, for instance with `toStatusIcon`. 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] -- | Cast to `StatusIcon`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`. toStatusIcon :: (MonadIO m, IsStatusIcon o) => o -> m StatusIcon toStatusIcon = liftIO . unsafeCastTo StatusIcon -- | A convenience alias for `Nothing` :: `Maybe` `StatusIcon`. noStatusIcon :: Maybe StatusIcon noStatusIcon = Nothing #if 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 "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 (O.MethodProxy :: O.MethodProxy info) #else fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif #endif -- signal StatusIcon::activate {- | Gets emitted when the user activates the status icon. If and how status icons can activated is platform-dependent. Unlike most G_SIGNAL_ACTION signals, this signal is meant to be used by applications and should be wrapped by language bindings. /Since: 2.10/ -} type StatusIconActivateCallback = IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconActivateCallback`@. noStatusIconActivateCallback :: Maybe StatusIconActivateCallback noStatusIconActivateCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconActivateCallback = Ptr () -> -- object Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_StatusIconActivateCallback`. foreign import ccall "wrapper" mk_StatusIconActivateCallback :: C_StatusIconActivateCallback -> IO (FunPtr C_StatusIconActivateCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconActivateCallback` into a `C_StatusIconActivateCallback`. wrap_StatusIconActivateCallback :: StatusIconActivateCallback -> C_StatusIconActivateCallback wrap_StatusIconActivateCallback _cb _ _ = do _cb {- | Connect a signal handler for the “@activate@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #activate callback @ -} 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 {- | Connect a signal handler for the “@activate@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #activate callback @ -} 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 -- signal StatusIcon::button-press-event {- | The ::button-press-event signal will be emitted when a button (typically from a mouse) is pressed. Whether this event is emitted is platform-dependent. Use the ::activate and ::popup-menu signals in preference. /Since: 2.14/ -} type StatusIconButtonPressEventCallback = Gdk.EventButton.EventButton {- ^ /@event@/: the 'GI.Gdk.Structs.EventButton.EventButton' which triggered this signal -} -> IO Bool {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconButtonPressEventCallback`@. noStatusIconButtonPressEventCallback :: Maybe StatusIconButtonPressEventCallback noStatusIconButtonPressEventCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconButtonPressEventCallback = Ptr () -> -- object Ptr Gdk.EventButton.EventButton -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_StatusIconButtonPressEventCallback`. foreign import ccall "wrapper" mk_StatusIconButtonPressEventCallback :: C_StatusIconButtonPressEventCallback -> IO (FunPtr C_StatusIconButtonPressEventCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconButtonPressEventCallback` into a `C_StatusIconButtonPressEventCallback`. 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' {- | Connect a signal handler for the “@button-press-event@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #buttonPressEvent callback @ -} 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 {- | Connect a signal handler for the “@button-press-event@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #buttonPressEvent callback @ -} 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 -- signal StatusIcon::button-release-event {- | The ::button-release-event signal will be emitted when a button (typically from a mouse) is released. Whether this event is emitted is platform-dependent. Use the ::activate and ::popup-menu signals in preference. /Since: 2.14/ -} type StatusIconButtonReleaseEventCallback = Gdk.EventButton.EventButton {- ^ /@event@/: the 'GI.Gdk.Structs.EventButton.EventButton' which triggered this signal -} -> IO Bool {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconButtonReleaseEventCallback`@. noStatusIconButtonReleaseEventCallback :: Maybe StatusIconButtonReleaseEventCallback noStatusIconButtonReleaseEventCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconButtonReleaseEventCallback = Ptr () -> -- object Ptr Gdk.EventButton.EventButton -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_StatusIconButtonReleaseEventCallback`. foreign import ccall "wrapper" mk_StatusIconButtonReleaseEventCallback :: C_StatusIconButtonReleaseEventCallback -> IO (FunPtr C_StatusIconButtonReleaseEventCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconButtonReleaseEventCallback` into a `C_StatusIconButtonReleaseEventCallback`. 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' {- | Connect a signal handler for the “@button-release-event@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #buttonReleaseEvent callback @ -} 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 {- | Connect a signal handler for the “@button-release-event@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #buttonReleaseEvent callback @ -} 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 -- signal StatusIcon::popup-menu {- | Gets emitted when the user brings up the context menu of the status icon. Whether status icons can have context menus and how these are activated is platform-dependent. The /@button@/ and /@activateTime@/ parameters should be passed as the last to arguments to 'GI.Gtk.Objects.Menu.menuPopup'. Unlike most G_SIGNAL_ACTION signals, this signal is meant to be used by applications and should be wrapped by language bindings. /Since: 2.10/ -} type StatusIconPopupMenuCallback = Word32 {- ^ /@button@/: the button that was pressed, or 0 if the signal is not emitted in response to a button press event -} -> Word32 {- ^ /@activateTime@/: the timestamp of the event that triggered the signal emission -} -> IO () -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconPopupMenuCallback`@. noStatusIconPopupMenuCallback :: Maybe StatusIconPopupMenuCallback noStatusIconPopupMenuCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconPopupMenuCallback = Ptr () -> -- object Word32 -> Word32 -> Ptr () -> -- user_data IO () -- | Generate a function pointer callable from C code, from a `C_StatusIconPopupMenuCallback`. foreign import ccall "wrapper" mk_StatusIconPopupMenuCallback :: C_StatusIconPopupMenuCallback -> IO (FunPtr C_StatusIconPopupMenuCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconPopupMenuCallback` into a `C_StatusIconPopupMenuCallback`. wrap_StatusIconPopupMenuCallback :: StatusIconPopupMenuCallback -> C_StatusIconPopupMenuCallback wrap_StatusIconPopupMenuCallback _cb _ button activateTime _ = do _cb button activateTime {- | Connect a signal handler for the “@popup-menu@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #popupMenu callback @ -} 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 {- | Connect a signal handler for the “@popup-menu@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #popupMenu callback @ -} 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 -- signal StatusIcon::query-tooltip {- | Emitted when the hover timeout has expired with the cursor hovering above /@statusIcon@/; or emitted when /@statusIcon@/ got focus in keyboard mode. Using the given coordinates, the signal handler should determine whether a tooltip should be shown for /@statusIcon@/. If this is the case 'True' should be returned, 'False' otherwise. Note that if /@keyboardMode@/ is 'True', the values of /@x@/ and /@y@/ are undefined and should not be used. The signal handler is free to manipulate /@tooltip@/ with the therefore destined function calls. Whether this signal is emitted is platform-dependent. For plain text tooltips, use 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/tooltip-text/@ in preference. /Since: 2.16/ -} type StatusIconQueryTooltipCallback = Int32 {- ^ /@x@/: the x coordinate of the cursor position where the request has been emitted, relative to /@statusIcon@/ -} -> Int32 {- ^ /@y@/: the y coordinate of the cursor position where the request has been emitted, relative to /@statusIcon@/ -} -> Bool {- ^ /@keyboardMode@/: 'True' if the tooltip was trigged using the keyboard -} -> Gtk.Tooltip.Tooltip {- ^ /@tooltip@/: a 'GI.Gtk.Objects.Tooltip.Tooltip' -} -> IO Bool {- ^ __Returns:__ 'True' if /@tooltip@/ should be shown right now, 'False' otherwise. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconQueryTooltipCallback`@. noStatusIconQueryTooltipCallback :: Maybe StatusIconQueryTooltipCallback noStatusIconQueryTooltipCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconQueryTooltipCallback = Ptr () -> -- object Int32 -> Int32 -> CInt -> Ptr Gtk.Tooltip.Tooltip -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_StatusIconQueryTooltipCallback`. foreign import ccall "wrapper" mk_StatusIconQueryTooltipCallback :: C_StatusIconQueryTooltipCallback -> IO (FunPtr C_StatusIconQueryTooltipCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconQueryTooltipCallback` into a `C_StatusIconQueryTooltipCallback`. 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' {- | Connect a signal handler for the “@query-tooltip@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #queryTooltip callback @ -} 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 {- | Connect a signal handler for the “@query-tooltip@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #queryTooltip callback @ -} 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 -- signal StatusIcon::scroll-event {- | The ::scroll-event signal is emitted when a button in the 4 to 7 range is pressed. Wheel mice are usually configured to generate button press events for buttons 4 and 5 when the wheel is turned. Whether this event is emitted is platform-dependent. /Since: 2.16/ -} type StatusIconScrollEventCallback = Gdk.EventScroll.EventScroll {- ^ /@event@/: the 'GI.Gdk.Structs.EventScroll.EventScroll' which triggered this signal -} -> IO Bool {- ^ __Returns:__ 'True' to stop other handlers from being invoked for the event. 'False' to propagate the event further. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconScrollEventCallback`@. noStatusIconScrollEventCallback :: Maybe StatusIconScrollEventCallback noStatusIconScrollEventCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconScrollEventCallback = Ptr () -> -- object Ptr Gdk.EventScroll.EventScroll -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_StatusIconScrollEventCallback`. foreign import ccall "wrapper" mk_StatusIconScrollEventCallback :: C_StatusIconScrollEventCallback -> IO (FunPtr C_StatusIconScrollEventCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconScrollEventCallback` into a `C_StatusIconScrollEventCallback`. 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' {- | Connect a signal handler for the “@scroll-event@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #scrollEvent callback @ -} 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 {- | Connect a signal handler for the “@scroll-event@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #scrollEvent callback @ -} 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 -- signal StatusIcon::size-changed {- | Gets emitted when the size available for the image changes, e.g. because the notification area got resized. /Since: 2.10/ -} type StatusIconSizeChangedCallback = Int32 {- ^ /@size@/: the new size -} -> IO Bool {- ^ __Returns:__ 'True' if the icon was updated for the new size. Otherwise, GTK+ will scale the icon as necessary. -} -- | A convenience synonym for @`Nothing` :: `Maybe` `StatusIconSizeChangedCallback`@. noStatusIconSizeChangedCallback :: Maybe StatusIconSizeChangedCallback noStatusIconSizeChangedCallback = Nothing -- | Type for the callback on the (unwrapped) C side. type C_StatusIconSizeChangedCallback = Ptr () -> -- object Int32 -> Ptr () -> -- user_data IO CInt -- | Generate a function pointer callable from C code, from a `C_StatusIconSizeChangedCallback`. foreign import ccall "wrapper" mk_StatusIconSizeChangedCallback :: C_StatusIconSizeChangedCallback -> IO (FunPtr C_StatusIconSizeChangedCallback) -- | Wrap the callback into a `GClosure`. 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 a `StatusIconSizeChangedCallback` into a `C_StatusIconSizeChangedCallback`. wrap_StatusIconSizeChangedCallback :: StatusIconSizeChangedCallback -> C_StatusIconSizeChangedCallback wrap_StatusIconSizeChangedCallback _cb _ size _ = do result <- _cb size let result' = (fromIntegral . fromEnum) result return result' {- | Connect a signal handler for the “@size-changed@” signal, to be run before the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.on' statusIcon #sizeChanged callback @ -} 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 {- | Connect a signal handler for the “@size-changed@” signal, to be run after the default handler. When is enabled, this is equivalent to @ 'Data.GI.Base.Signals.after' statusIcon #sizeChanged callback @ -} 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 -- VVV Prop "embedded" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@embedded@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #embedded @ -} getStatusIconEmbedded :: (MonadIO m, IsStatusIcon o) => o -> m Bool getStatusIconEmbedded obj = liftIO $ B.Properties.getObjectPropertyBool obj "embedded" #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "file" -- Type: TBasicType TUTF8 -- Flags: [PropertyWritable] -- Nullable: (Nothing,Nothing) {- | Set the value of the “@file@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #file 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconFile obj val = liftIO $ B.Properties.setObjectPropertyString obj "file" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconFile :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconFile val = B.Properties.constructObjectPropertyString "file" (Just val) {- | Set the value of the “@file@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #file @ -} clearStatusIconFile :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconFile obj = liftIO $ B.Properties.setObjectPropertyString obj "file" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "gicon" -- Type: TInterface (Name {namespace = "Gio", name = "Icon"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Nothing) {- | Get the value of the “@gicon@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #gicon @ -} getStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe Gio.Icon.Icon) getStatusIconGicon obj = liftIO $ B.Properties.getObjectPropertyObject obj "gicon" Gio.Icon.Icon {- | Set the value of the “@gicon@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #gicon 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconGicon :: (MonadIO m, IsStatusIcon o, Gio.Icon.IsIcon a) => o -> a -> m () setStatusIconGicon obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@gicon@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconGicon :: (IsStatusIcon o, Gio.Icon.IsIcon a) => a -> IO (GValueConstruct o) constructStatusIconGicon val = B.Properties.constructObjectPropertyObject "gicon" (Just val) {- | Set the value of the “@gicon@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #gicon @ -} clearStatusIconGicon :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconGicon obj = liftIO $ B.Properties.setObjectPropertyObject obj "gicon" (Nothing :: Maybe Gio.Icon.Icon) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "has-tooltip" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@has-tooltip@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #hasTooltip @ -} getStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> m Bool getStatusIconHasTooltip obj = liftIO $ B.Properties.getObjectPropertyBool obj "has-tooltip" {- | Set the value of the “@has-tooltip@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #hasTooltip 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconHasTooltip :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m () setStatusIconHasTooltip obj val = liftIO $ B.Properties.setObjectPropertyBool obj "has-tooltip" val {- | Construct a `GValueConstruct` with valid value for the “@has-tooltip@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconHasTooltip :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o) constructStatusIconHasTooltip val = B.Properties.constructObjectPropertyBool "has-tooltip" val #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "icon-name" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Nothing) {- | Get the value of the “@icon-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #iconName @ -} getStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text) getStatusIconIconName obj = liftIO $ B.Properties.getObjectPropertyString obj "icon-name" {- | Set the value of the “@icon-name@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #iconName 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconIconName obj val = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@icon-name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconIconName :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconIconName val = B.Properties.constructObjectPropertyString "icon-name" (Just val) {- | Set the value of the “@icon-name@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #iconName @ -} clearStatusIconIconName :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconIconName obj = liftIO $ B.Properties.setObjectPropertyString obj "icon-name" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "orientation" -- Type: TInterface (Name {namespace = "Gtk", name = "Orientation"}) -- Flags: [PropertyReadable] -- Nullable: (Nothing,Nothing) {- | Get the value of the “@orientation@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #orientation @ -} getStatusIconOrientation :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.Orientation getStatusIconOrientation obj = liftIO $ B.Properties.getObjectPropertyEnum obj "orientation" #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "pixbuf" -- Type: TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Nothing) {- | Get the value of the “@pixbuf@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #pixbuf @ -} getStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf) getStatusIconPixbuf obj = liftIO $ B.Properties.getObjectPropertyObject obj "pixbuf" GdkPixbuf.Pixbuf.Pixbuf {- | Set the value of the “@pixbuf@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #pixbuf 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconPixbuf :: (MonadIO m, IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => o -> a -> m () setStatusIconPixbuf obj val = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@pixbuf@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconPixbuf :: (IsStatusIcon o, GdkPixbuf.Pixbuf.IsPixbuf a) => a -> IO (GValueConstruct o) constructStatusIconPixbuf val = B.Properties.constructObjectPropertyObject "pixbuf" (Just val) {- | Set the value of the “@pixbuf@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #pixbuf @ -} clearStatusIconPixbuf :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconPixbuf obj = liftIO $ B.Properties.setObjectPropertyObject obj "pixbuf" (Nothing :: Maybe GdkPixbuf.Pixbuf.Pixbuf) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "screen" -- Type: TInterface (Name {namespace = "Gdk", name = "Screen"}) -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@screen@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #screen @ -} getStatusIconScreen :: (MonadIO m, IsStatusIcon o) => o -> m Gdk.Screen.Screen getStatusIconScreen obj = liftIO $ checkUnexpectedNothing "getStatusIconScreen" $ B.Properties.getObjectPropertyObject obj "screen" Gdk.Screen.Screen {- | Set the value of the “@screen@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #screen 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconScreen :: (MonadIO m, IsStatusIcon o, Gdk.Screen.IsScreen a) => o -> a -> m () setStatusIconScreen obj val = liftIO $ B.Properties.setObjectPropertyObject obj "screen" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@screen@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconScreen :: (IsStatusIcon o, Gdk.Screen.IsScreen a) => a -> IO (GValueConstruct o) constructStatusIconScreen val = B.Properties.constructObjectPropertyObject "screen" (Just val) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "size" -- Type: TBasicType TInt -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) {- | Get the value of the “@size@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #size @ -} getStatusIconSize :: (MonadIO m, IsStatusIcon o) => o -> m Int32 getStatusIconSize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "size" #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "stock" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just True,Nothing) {- | Get the value of the “@stock@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #stock @ -} getStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text) getStatusIconStock obj = liftIO $ B.Properties.getObjectPropertyString obj "stock" {- | Set the value of the “@stock@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #stock 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconStock obj val = liftIO $ B.Properties.setObjectPropertyString obj "stock" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@stock@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconStock :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconStock val = B.Properties.constructObjectPropertyString "stock" (Just val) {- | Set the value of the “@stock@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #stock @ -} clearStatusIconStock :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconStock obj = liftIO $ B.Properties.setObjectPropertyString obj "stock" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "storage-type" -- Type: TInterface (Name {namespace = "Gtk", name = "ImageType"}) -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) {- | Get the value of the “@storage-type@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #storageType @ -} getStatusIconStorageType :: (MonadIO m, IsStatusIcon o) => o -> m Gtk.Enums.ImageType getStatusIconStorageType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "storage-type" #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@title@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #title @ -} getStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> m T.Text getStatusIconTitle obj = liftIO $ checkUnexpectedNothing "getStatusIconTitle" $ B.Properties.getObjectPropertyString obj "title" {- | Set the value of the “@title@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #title 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconTitle :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconTitle obj val = liftIO $ B.Properties.setObjectPropertyString obj "title" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@title@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconTitle :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconTitle val = B.Properties.constructObjectPropertyString "title" (Just val) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "tooltip-markup" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Just True) {- | Get the value of the “@tooltip-markup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #tooltipMarkup @ -} getStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text) getStatusIconTooltipMarkup obj = liftIO $ B.Properties.getObjectPropertyString obj "tooltip-markup" {- | Set the value of the “@tooltip-markup@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #tooltipMarkup 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconTooltipMarkup obj val = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-markup" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@tooltip-markup@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconTooltipMarkup :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconTooltipMarkup val = B.Properties.constructObjectPropertyString "tooltip-markup" (Just val) {- | Set the value of the “@tooltip-markup@” property to `Nothing`. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.clear' #tooltipMarkup @ -} clearStatusIconTooltipMarkup :: (MonadIO m, IsStatusIcon o) => o -> m () clearStatusIconTooltipMarkup obj = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-markup" (Nothing :: Maybe T.Text) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "tooltip-text" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Nothing,Just False) {- | Get the value of the “@tooltip-text@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #tooltipText @ -} getStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> m (Maybe T.Text) getStatusIconTooltipText obj = liftIO $ B.Properties.getObjectPropertyString obj "tooltip-text" {- | Set the value of the “@tooltip-text@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #tooltipText 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconTooltipText :: (MonadIO m, IsStatusIcon o) => o -> T.Text -> m () setStatusIconTooltipText obj val = liftIO $ B.Properties.setObjectPropertyString obj "tooltip-text" (Just val) {- | Construct a `GValueConstruct` with valid value for the “@tooltip-text@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconTooltipText :: (IsStatusIcon o) => T.Text -> IO (GValueConstruct o) constructStatusIconTooltipText val = B.Properties.constructObjectPropertyString "tooltip-text" (Just val) #if ENABLE_OVERLOADING 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 #endif -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) {- | Get the value of the “@visible@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.get' statusIcon #visible @ -} getStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> m Bool getStatusIconVisible obj = liftIO $ B.Properties.getObjectPropertyBool obj "visible" {- | Set the value of the “@visible@” property. When is enabled, this is equivalent to @ 'Data.GI.Base.Attributes.set' statusIcon [ #visible 'Data.GI.Base.Attributes.:=' value ] @ -} setStatusIconVisible :: (MonadIO m, IsStatusIcon o) => o -> Bool -> m () setStatusIconVisible obj val = liftIO $ B.Properties.setObjectPropertyBool obj "visible" val {- | Construct a `GValueConstruct` with valid value for the “@visible@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`. -} constructStatusIconVisible :: (IsStatusIcon o) => Bool -> IO (GValueConstruct o) constructStatusIconVisible val = B.Properties.constructObjectPropertyBool "visible" val #if ENABLE_OVERLOADING 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 #endif #if 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 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 ENABLE_OVERLOADING data StatusIconActivateSignalInfo instance SignalInfo StatusIconActivateSignalInfo where type HaskellCallbackType StatusIconActivateSignalInfo = StatusIconActivateCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconActivateCallback cb cb'' <- mk_StatusIconActivateCallback cb' connectSignalFunPtr obj "activate" cb'' connectMode data StatusIconButtonPressEventSignalInfo instance SignalInfo StatusIconButtonPressEventSignalInfo where type HaskellCallbackType StatusIconButtonPressEventSignalInfo = StatusIconButtonPressEventCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconButtonPressEventCallback cb cb'' <- mk_StatusIconButtonPressEventCallback cb' connectSignalFunPtr obj "button-press-event" cb'' connectMode data StatusIconButtonReleaseEventSignalInfo instance SignalInfo StatusIconButtonReleaseEventSignalInfo where type HaskellCallbackType StatusIconButtonReleaseEventSignalInfo = StatusIconButtonReleaseEventCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconButtonReleaseEventCallback cb cb'' <- mk_StatusIconButtonReleaseEventCallback cb' connectSignalFunPtr obj "button-release-event" cb'' connectMode data StatusIconPopupMenuSignalInfo instance SignalInfo StatusIconPopupMenuSignalInfo where type HaskellCallbackType StatusIconPopupMenuSignalInfo = StatusIconPopupMenuCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconPopupMenuCallback cb cb'' <- mk_StatusIconPopupMenuCallback cb' connectSignalFunPtr obj "popup-menu" cb'' connectMode data StatusIconQueryTooltipSignalInfo instance SignalInfo StatusIconQueryTooltipSignalInfo where type HaskellCallbackType StatusIconQueryTooltipSignalInfo = StatusIconQueryTooltipCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconQueryTooltipCallback cb cb'' <- mk_StatusIconQueryTooltipCallback cb' connectSignalFunPtr obj "query-tooltip" cb'' connectMode data StatusIconScrollEventSignalInfo instance SignalInfo StatusIconScrollEventSignalInfo where type HaskellCallbackType StatusIconScrollEventSignalInfo = StatusIconScrollEventCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconScrollEventCallback cb cb'' <- mk_StatusIconScrollEventCallback cb' connectSignalFunPtr obj "scroll-event" cb'' connectMode data StatusIconSizeChangedSignalInfo instance SignalInfo StatusIconSizeChangedSignalInfo where type HaskellCallbackType StatusIconSizeChangedSignalInfo = StatusIconSizeChangedCallback connectSignal _ obj cb connectMode = do let cb' = wrap_StatusIconSizeChangedCallback cb cb'' <- mk_StatusIconSizeChangedCallback cb' connectSignalFunPtr obj "size-changed" cb'' connectMode 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 -- method StatusIcon::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new" gtk_status_icon_new :: IO (Ptr StatusIcon) {-# DEPRECATED statusIconNew ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates an empty status icon object. /Since: 2.10/ -} statusIconNew :: (B.CallStack.HasCallStack, MonadIO m) => m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} statusIconNew = liftIO $ do result <- gtk_status_icon_new checkUnexpectedReturnNULL "statusIconNew" result result' <- (wrapObject StatusIcon) result return result' #if ENABLE_OVERLOADING #endif -- method StatusIcon::new_from_file -- method type : Constructor -- Args : [Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filename", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new_from_file" gtk_status_icon_new_from_file :: CString -> -- filename : TBasicType TFileName IO (Ptr StatusIcon) {-# DEPRECATED statusIconNewFromFile ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates a status icon displaying the file /@filename@/. The image will be scaled down to fit in the available space in the notification area, if necessary. /Since: 2.10/ -} statusIconNewFromFile :: (B.CallStack.HasCallStack, MonadIO m) => [Char] {- ^ /@filename@/: a filename -} -> m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.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 ENABLE_OVERLOADING #endif -- method StatusIcon::new_from_gicon -- method type : Constructor -- Args : [Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new_from_gicon" gtk_status_icon_new_from_gicon :: Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) IO (Ptr StatusIcon) {-# DEPRECATED statusIconNewFromGicon ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates a status icon displaying a 'GI.Gio.Interfaces.Icon.Icon'. If the icon is a themed icon, it will be updated when the theme changes. /Since: 2.14/ -} statusIconNewFromGicon :: (B.CallStack.HasCallStack, MonadIO m, Gio.Icon.IsIcon a) => a {- ^ /@icon@/: a 'GI.Gio.Interfaces.Icon.Icon' -} -> m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.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 ENABLE_OVERLOADING #endif -- method StatusIcon::new_from_icon_name -- method type : Constructor -- Args : [Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new_from_icon_name" gtk_status_icon_new_from_icon_name :: CString -> -- icon_name : TBasicType TUTF8 IO (Ptr StatusIcon) {-# DEPRECATED statusIconNewFromIconName ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates a status icon displaying an icon from the current icon theme. If the current icon theme is changed, the icon will be updated appropriately. /Since: 2.10/ -} statusIconNewFromIconName :: (B.CallStack.HasCallStack, MonadIO m) => T.Text {- ^ /@iconName@/: an icon name -} -> m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.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 ENABLE_OVERLOADING #endif -- method StatusIcon::new_from_pixbuf -- method type : Constructor -- Args : [Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new_from_pixbuf" gtk_status_icon_new_from_pixbuf :: Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) IO (Ptr StatusIcon) {-# DEPRECATED statusIconNewFromPixbuf ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates a status icon displaying /@pixbuf@/. The image will be scaled down to fit in the available space in the notification area, if necessary. /Since: 2.10/ -} statusIconNewFromPixbuf :: (B.CallStack.HasCallStack, MonadIO m, GdkPixbuf.Pixbuf.IsPixbuf a) => a {- ^ /@pixbuf@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' -} -> m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.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 ENABLE_OVERLOADING #endif -- method StatusIcon::new_from_stock -- method type : Constructor -- Args : [Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "StatusIcon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_new_from_stock" gtk_status_icon_new_from_stock :: CString -> -- stock_id : TBasicType TUTF8 IO (Ptr StatusIcon) {-# DEPRECATED statusIconNewFromStock ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications"] #-} {- | Creates a status icon displaying a stock icon. Sample stock icon names are 'GI.Gtk.Constants.STOCK_OPEN', 'GI.Gtk.Constants.STOCK_QUIT'. You can register your own stock icon names, see 'GI.Gtk.Objects.IconFactory.iconFactoryAddDefault' and 'GI.Gtk.Objects.IconFactory.iconFactoryAdd'. /Since: 2.10/ -} statusIconNewFromStock :: (B.CallStack.HasCallStack, MonadIO m) => T.Text {- ^ /@stockId@/: a stock icon id -} -> m StatusIcon {- ^ __Returns:__ a new 'GI.Gtk.Objects.StatusIcon.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 ENABLE_OVERLOADING #endif -- method StatusIcon::get_geometry -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for\n the screen, or %NULL if the information is not needed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "area", argType = TInterface (Name {namespace = "Gdk", name = "Rectangle"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the area occupied by\n the status icon, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "orientation", argType = TInterface (Name {namespace = "Gtk", name = "Orientation"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the\n orientation of the panel in which the status icon is embedded,\n or %NULL. A panel at the top or bottom of the screen is\n horizontal, a panel at the left or right is vertical.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_geometry" gtk_status_icon_get_geometry :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) Ptr (Ptr Gdk.Screen.Screen) -> -- screen : TInterface (Name {namespace = "Gdk", name = "Screen"}) Ptr Gdk.Rectangle.Rectangle -> -- area : TInterface (Name {namespace = "Gdk", name = "Rectangle"}) Ptr CUInt -> -- orientation : TInterface (Name {namespace = "Gtk", name = "Orientation"}) IO CInt {-# DEPRECATED statusIconGetGeometry ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and '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"] #-} {- | Obtains information about the location of the status icon on screen. This information can be used to e.g. position popups like notification bubbles. See 'GI.Gtk.Objects.StatusIcon.statusIconPositionMenu' for a more convenient alternative for positioning menus. Note that some platforms do not allow GTK+ to provide this information, and even on platforms that do allow it, the information is not reliable unless the status icon is embedded in a notification area, see 'GI.Gtk.Objects.StatusIcon.statusIconIsEmbedded'. /Since: 2.10/ -} statusIconGetGeometry :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m ((Bool, Gdk.Screen.Screen, Gdk.Rectangle.Rectangle, Gtk.Enums.Orientation)) {- ^ __Returns:__ 'True' if the location information has been filled in -} 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 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 -- method StatusIcon::get_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gio", name = "Icon"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_gicon" gtk_status_icon_get_gicon :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO (Ptr Gio.Icon.Icon) {-# DEPRECATED statusIconGetGicon ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Retrieves the 'GI.Gio.Interfaces.Icon.Icon' being displayed by the 'GI.Gtk.Objects.StatusIcon.StatusIcon'. The storage type of the status icon must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeGicon' (see 'GI.Gtk.Objects.StatusIcon.statusIconGetStorageType'). The caller of this function does not own a reference to the returned 'GI.Gio.Interfaces.Icon.Icon'. If this function fails, /@icon@/ is left unchanged; /Since: 2.14/ -} statusIconGetGicon :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe Gio.Icon.Icon) {- ^ __Returns:__ the displayed icon, or 'Nothing' if the image is empty -} 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 ENABLE_OVERLOADING data StatusIconGetGiconMethodInfo instance (signature ~ (m (Maybe Gio.Icon.Icon)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetGiconMethodInfo a signature where overloadedMethod _ = statusIconGetGicon #endif -- method StatusIcon::get_has_tooltip -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_has_tooltip" gtk_status_icon_get_has_tooltip :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CInt {-# DEPRECATED statusIconGetHasTooltip ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Returns the current value of the has-tooltip property. See 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ for more information. /Since: 2.16/ -} statusIconGetHasTooltip :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Bool {- ^ __Returns:__ current value of has-tooltip on /@statusIcon@/. -} statusIconGetHasTooltip statusIcon = liftIO $ do statusIcon' <- unsafeManagedPtrCastPtr statusIcon result <- gtk_status_icon_get_has_tooltip statusIcon' let result' = (/= 0) result touchManagedPtr statusIcon return result' #if ENABLE_OVERLOADING data StatusIconGetHasTooltipMethodInfo instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetHasTooltipMethodInfo a signature where overloadedMethod _ = statusIconGetHasTooltip #endif -- method StatusIcon::get_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_icon_name" gtk_status_icon_get_icon_name :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CString {-# DEPRECATED statusIconGetIconName ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Gets the name of the icon being displayed by the 'GI.Gtk.Objects.StatusIcon.StatusIcon'. The storage type of the status icon must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeIconName' (see 'GI.Gtk.Objects.StatusIcon.statusIconGetStorageType'). The returned string is owned by the 'GI.Gtk.Objects.StatusIcon.StatusIcon' and should not be freed or modified. /Since: 2.10/ -} statusIconGetIconName :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe T.Text) {- ^ __Returns:__ name of the displayed icon, or 'Nothing' if the image is empty. -} 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 ENABLE_OVERLOADING data StatusIconGetIconNameMethodInfo instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetIconNameMethodInfo a signature where overloadedMethod _ = statusIconGetIconName #endif -- method StatusIcon::get_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_pixbuf" gtk_status_icon_get_pixbuf :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO (Ptr GdkPixbuf.Pixbuf.Pixbuf) {-# DEPRECATED statusIconGetPixbuf ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Gets the 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' being displayed by the 'GI.Gtk.Objects.StatusIcon.StatusIcon'. The storage type of the status icon must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypePixbuf' (see 'GI.Gtk.Objects.StatusIcon.statusIconGetStorageType'). The caller of this function does not own a reference to the returned pixbuf. /Since: 2.10/ -} statusIconGetPixbuf :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf) {- ^ __Returns:__ the displayed pixbuf, or 'Nothing' if the image is empty. -} 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 ENABLE_OVERLOADING data StatusIconGetPixbufMethodInfo instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetPixbufMethodInfo a signature where overloadedMethod _ = statusIconGetPixbuf #endif -- method StatusIcon::get_screen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gdk", name = "Screen"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_screen" gtk_status_icon_get_screen :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO (Ptr Gdk.Screen.Screen) {-# DEPRECATED statusIconGetScreen ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as notifications are managed by the platform"] #-} {- | Returns the 'GI.Gdk.Objects.Screen.Screen' associated with /@statusIcon@/. /Since: 2.12/ -} statusIconGetScreen :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Gdk.Screen.Screen {- ^ __Returns:__ a 'GI.Gdk.Objects.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 ENABLE_OVERLOADING data StatusIconGetScreenMethodInfo instance (signature ~ (m Gdk.Screen.Screen), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetScreenMethodInfo a signature where overloadedMethod _ = statusIconGetScreen #endif -- method StatusIcon::get_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_size" gtk_status_icon_get_size :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO Int32 {-# DEPRECATED statusIconGetSize ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and '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"] #-} {- | Gets the size in pixels that is available for the image. Stock icons and named icons adapt their size automatically if the size of the notification area changes. For other storage types, the size-changed signal can be used to react to size changes. Note that the returned size is only meaningful while the status icon is embedded (see 'GI.Gtk.Objects.StatusIcon.statusIconIsEmbedded'). /Since: 2.10/ -} statusIconGetSize :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Int32 {- ^ __Returns:__ the size that is available for the image -} statusIconGetSize statusIcon = liftIO $ do statusIcon' <- unsafeManagedPtrCastPtr statusIcon result <- gtk_status_icon_get_size statusIcon' touchManagedPtr statusIcon return result #if ENABLE_OVERLOADING data StatusIconGetSizeMethodInfo instance (signature ~ (m Int32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetSizeMethodInfo a signature where overloadedMethod _ = statusIconGetSize #endif -- method StatusIcon::get_stock -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_stock" gtk_status_icon_get_stock :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CString {-# DEPRECATED statusIconGetStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.StatusIcon.statusIconGetIconName' instead."] #-} {- | Gets the id of the stock icon being displayed by the 'GI.Gtk.Objects.StatusIcon.StatusIcon'. The storage type of the status icon must be 'GI.Gtk.Enums.ImageTypeEmpty' or 'GI.Gtk.Enums.ImageTypeStock' (see 'GI.Gtk.Objects.StatusIcon.statusIconGetStorageType'). The returned string is owned by the 'GI.Gtk.Objects.StatusIcon.StatusIcon' and should not be freed or modified. /Since: 2.10/ -} statusIconGetStock :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe T.Text) {- ^ __Returns:__ stock id of the displayed stock icon, or 'Nothing' if the image is empty. -} 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 ENABLE_OVERLOADING data StatusIconGetStockMethodInfo instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStockMethodInfo a signature where overloadedMethod _ = statusIconGetStock #endif -- method StatusIcon::get_storage_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "ImageType"})) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_storage_type" gtk_status_icon_get_storage_type :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CUInt {-# DEPRECATED statusIconGetStorageType ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, and 'GI.Gio.Objects.Notification.Notification' only supports 'GI.Gio.Interfaces.Icon.Icon'"," instances"] #-} {- | Gets the type of representation being used by the 'GI.Gtk.Objects.StatusIcon.StatusIcon' to store image data. If the 'GI.Gtk.Objects.StatusIcon.StatusIcon' has no image data, the return value will be 'GI.Gtk.Enums.ImageTypeEmpty'. /Since: 2.10/ -} statusIconGetStorageType :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Gtk.Enums.ImageType {- ^ __Returns:__ the image representation being used -} 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 ENABLE_OVERLOADING data StatusIconGetStorageTypeMethodInfo instance (signature ~ (m Gtk.Enums.ImageType), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetStorageTypeMethodInfo a signature where overloadedMethod _ = statusIconGetStorageType #endif -- method StatusIcon::get_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_title" gtk_status_icon_get_title :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CString {-# DEPRECATED statusIconGetTitle ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Gets the title of this tray icon. See 'GI.Gtk.Objects.StatusIcon.statusIconSetTitle'. /Since: 2.18/ -} statusIconGetTitle :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m T.Text {- ^ __Returns:__ the title of the status icon -} 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 ENABLE_OVERLOADING data StatusIconGetTitleMethodInfo instance (signature ~ (m T.Text), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTitleMethodInfo a signature where overloadedMethod _ = statusIconGetTitle #endif -- method StatusIcon::get_tooltip_markup -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_tooltip_markup" gtk_status_icon_get_tooltip_markup :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CString {-# DEPRECATED statusIconGetTooltipMarkup ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Gets the contents of the tooltip for /@statusIcon@/. /Since: 2.16/ -} statusIconGetTooltipMarkup :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe T.Text) {- ^ __Returns:__ the tooltip text, or 'Nothing'. You should free the returned string with 'GI.GLib.Functions.free' when done. -} 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 ENABLE_OVERLOADING data StatusIconGetTooltipMarkupMethodInfo instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipMarkupMethodInfo a signature where overloadedMethod _ = statusIconGetTooltipMarkup #endif -- method StatusIcon::get_tooltip_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_tooltip_text" gtk_status_icon_get_tooltip_text :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CString {-# DEPRECATED statusIconGetTooltipText ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Gets the contents of the tooltip for /@statusIcon@/. /Since: 2.16/ -} statusIconGetTooltipText :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m (Maybe T.Text) {- ^ __Returns:__ the tooltip text, or 'Nothing'. You should free the returned string with 'GI.GLib.Functions.free' when done. -} 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 ENABLE_OVERLOADING data StatusIconGetTooltipTextMethodInfo instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetTooltipTextMethodInfo a signature where overloadedMethod _ = statusIconGetTooltipText #endif -- method StatusIcon::get_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_visible" gtk_status_icon_get_visible :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CInt {-# DEPRECATED statusIconGetVisible ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Returns whether the status icon is visible or not. Note that being visible does not guarantee that the user can actually see the icon, see also 'GI.Gtk.Objects.StatusIcon.statusIconIsEmbedded'. /Since: 2.10/ -} statusIconGetVisible :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Bool {- ^ __Returns:__ 'True' if the status icon is visible -} statusIconGetVisible statusIcon = liftIO $ do statusIcon' <- unsafeManagedPtrCastPtr statusIcon result <- gtk_status_icon_get_visible statusIcon' let result' = (/= 0) result touchManagedPtr statusIcon return result' #if ENABLE_OVERLOADING data StatusIconGetVisibleMethodInfo instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetVisibleMethodInfo a signature where overloadedMethod _ = statusIconGetVisible #endif -- method StatusIcon::get_x11_window_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_get_x11_window_id" gtk_status_icon_get_x11_window_id :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO Word32 {-# DEPRECATED statusIconGetX11WindowId ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | This function is only useful on the X11\/freedesktop.org platform. It returns a window ID for the widget in the underlying status icon implementation. This is useful for the Galago notification service, which can send a window ID in the protocol in order for the server to position notification windows pointing to a status icon reliably. This function is not intended for other use cases which are more likely to be met by one of the non-X11 specific methods, such as 'GI.Gtk.Objects.StatusIcon.statusIconPositionMenu'. /Since: 2.14/ -} statusIconGetX11WindowId :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Word32 {- ^ __Returns:__ An 32 bit unsigned integer identifier for the underlying X11 Window -} statusIconGetX11WindowId statusIcon = liftIO $ do statusIcon' <- unsafeManagedPtrCastPtr statusIcon result <- gtk_status_icon_get_x11_window_id statusIcon' touchManagedPtr statusIcon return result #if ENABLE_OVERLOADING data StatusIconGetX11WindowIdMethodInfo instance (signature ~ (m Word32), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconGetX11WindowIdMethodInfo a signature where overloadedMethod _ = statusIconGetX11WindowId #endif -- method StatusIcon::is_embedded -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_is_embedded" gtk_status_icon_is_embedded :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO CInt {-# DEPRECATED statusIconIsEmbedded ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Returns whether the status icon is embedded in a notification area. /Since: 2.10/ -} statusIconIsEmbedded :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> m Bool {- ^ __Returns:__ 'True' if the status icon is embedded in a notification area. -} statusIconIsEmbedded statusIcon = liftIO $ do statusIcon' <- unsafeManagedPtrCastPtr statusIcon result <- gtk_status_icon_is_embedded statusIcon' let result' = (/= 0) result touchManagedPtr statusIcon return result' #if ENABLE_OVERLOADING data StatusIconIsEmbeddedMethodInfo instance (signature ~ (m Bool), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconIsEmbeddedMethodInfo a signature where overloadedMethod _ = statusIconIsEmbedded #endif -- method StatusIcon::set_from_file -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TFileName, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a filename", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_from_file" gtk_status_icon_set_from_file :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- filename : TBasicType TFileName IO () {-# DEPRECATED statusIconSetFromFile ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a 'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-} {- | Makes /@statusIcon@/ display the file /@filename@/. See 'GI.Gtk.Objects.StatusIcon.statusIconNewFromFile' for details. /Since: 2.10/ -} statusIconSetFromFile :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> [Char] {- ^ /@filename@/: a filename -} -> 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 ENABLE_OVERLOADING data StatusIconSetFromFileMethodInfo instance (signature ~ ([Char] -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromFileMethodInfo a signature where overloadedMethod _ = statusIconSetFromFile #endif -- method StatusIcon::set_from_gicon -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface (Name {namespace = "Gio", name = "Icon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a GIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_from_gicon" gtk_status_icon_set_from_gicon :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) Ptr Gio.Icon.Icon -> -- icon : TInterface (Name {namespace = "Gio", name = "Icon"}) IO () {-# DEPRECATED statusIconSetFromGicon ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a 'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-} {- | Makes /@statusIcon@/ display the 'GI.Gio.Interfaces.Icon.Icon'. See 'GI.Gtk.Objects.StatusIcon.statusIconNewFromGicon' for details. /Since: 2.14/ -} statusIconSetFromGicon :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, Gio.Icon.IsIcon b) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> b {- ^ /@icon@/: a GIcon -} -> 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 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 -- method StatusIcon::set_from_icon_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an icon name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_from_icon_name" gtk_status_icon_set_from_icon_name :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- icon_name : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetFromIconName ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a 'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-} {- | Makes /@statusIcon@/ display the icon named /@iconName@/ from the current icon theme. See 'GI.Gtk.Objects.StatusIcon.statusIconNewFromIconName' for details. /Since: 2.10/ -} statusIconSetFromIconName :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> T.Text {- ^ /@iconName@/: an icon name -} -> 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 ENABLE_OVERLOADING data StatusIconSetFromIconNameMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromIconNameMethodInfo a signature where overloadedMethod _ = statusIconSetFromIconName #endif -- method StatusIcon::set_from_pixbuf -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GdkPixbuf or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_from_pixbuf" gtk_status_icon_set_from_pixbuf :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) Ptr GdkPixbuf.Pixbuf.Pixbuf -> -- pixbuf : TInterface (Name {namespace = "GdkPixbuf", name = "Pixbuf"}) IO () {-# DEPRECATED statusIconSetFromPixbuf ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; you can use 'GI.Gio.Objects.Notification.notificationSetIcon'"," to associate a 'GI.Gio.Interfaces.Icon.Icon' with a notification"] #-} {- | Makes /@statusIcon@/ display /@pixbuf@/. See 'GI.Gtk.Objects.StatusIcon.statusIconNewFromPixbuf' for details. /Since: 2.10/ -} statusIconSetFromPixbuf :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, GdkPixbuf.Pixbuf.IsPixbuf b) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> Maybe (b) {- ^ /@pixbuf@/: a 'GI.GdkPixbuf.Objects.Pixbuf.Pixbuf' or 'Nothing' -} -> 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 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 -- method StatusIcon::set_from_stock -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stock_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a stock icon id", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_from_stock" gtk_status_icon_set_from_stock :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- stock_id : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetFromStock ["(Since version 3.10)","Use 'GI.Gtk.Objects.StatusIcon.statusIconSetFromIconName' instead."] #-} {- | Makes /@statusIcon@/ display the stock icon with the id /@stockId@/. See 'GI.Gtk.Objects.StatusIcon.statusIconNewFromStock' for details. /Since: 2.10/ -} statusIconSetFromStock :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> T.Text {- ^ /@stockId@/: a stock icon id -} -> 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 ENABLE_OVERLOADING data StatusIconSetFromStockMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetFromStockMethodInfo a signature where overloadedMethod _ = statusIconSetFromStock #endif -- method StatusIcon::set_has_tooltip -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "has_tooltip", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not @status_icon has a tooltip", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_has_tooltip" gtk_status_icon_set_has_tooltip :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CInt -> -- has_tooltip : TBasicType TBoolean IO () {-# DEPRECATED statusIconSetHasTooltip ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and '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'"] #-} {- | Sets the has-tooltip property on /@statusIcon@/ to /@hasTooltip@/. See 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ for more information. /Since: 2.16/ -} statusIconSetHasTooltip :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> Bool {- ^ /@hasTooltip@/: whether or not /@statusIcon@/ has a tooltip -} -> 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 ENABLE_OVERLOADING data StatusIconSetHasTooltipMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetHasTooltipMethodInfo a signature where overloadedMethod _ = statusIconSetHasTooltip #endif -- method StatusIcon::set_name -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_name" gtk_status_icon_set_name :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- name : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetName ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and '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 'GI.Gio.Objects.Application.Application'"] #-} {- | Sets the name of this tray icon. This should be a string identifying this icon. It is may be used for sorting the icons in the tray and will not be shown to the user. /Since: 2.20/ -} statusIconSetName :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> T.Text {- ^ /@name@/: the name -} -> 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 ENABLE_OVERLOADING data StatusIconSetNameMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetNameMethodInfo a signature where overloadedMethod _ = statusIconSetName #endif -- method StatusIcon::set_screen -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface (Name {namespace = "Gdk", name = "Screen"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GdkScreen", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_screen" gtk_status_icon_set_screen :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) Ptr Gdk.Screen.Screen -> -- screen : TInterface (Name {namespace = "Gdk", name = "Screen"}) IO () {-# DEPRECATED statusIconSetScreen ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as GTK typically only has one 'GI.Gdk.Objects.Screen.Screen'"," and notifications are managed by the platform"] #-} {- | Sets the 'GI.Gdk.Objects.Screen.Screen' where /@statusIcon@/ is displayed; if the icon is already mapped, it will be unmapped, and then remapped on the new screen. /Since: 2.12/ -} statusIconSetScreen :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a, Gdk.Screen.IsScreen b) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> b {- ^ /@screen@/: a 'GI.Gdk.Objects.Screen.Screen' -} -> 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 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 -- method StatusIcon::set_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the title", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_title" gtk_status_icon_set_title :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- title : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetTitle ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and '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"] #-} {- | Sets the title of this tray icon. This should be a short, human-readable, localized string describing the tray icon. It may be used by tools like screen readers to render the tray icon. /Since: 2.18/ -} statusIconSetTitle :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> T.Text {- ^ /@title@/: the title -} -> 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 ENABLE_OVERLOADING data StatusIconSetTitleMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTitleMethodInfo a signature where overloadedMethod _ = statusIconSetTitle #endif -- method StatusIcon::set_tooltip_markup -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "markup", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the contents of the tooltip for @status_icon, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_tooltip_markup" gtk_status_icon_set_tooltip_markup :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- markup : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetTooltipMarkup ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Sets /@markup@/ as the contents of the tooltip, which is marked up with the [Pango text markup language][PangoMarkupFormat]. This function will take care of setting 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ to 'True' and of the default handler for the 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ signal. See also the 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/tooltip-markup/@ property and 'GI.Gtk.Objects.Tooltip.tooltipSetMarkup'. /Since: 2.16/ -} statusIconSetTooltipMarkup :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> Maybe (T.Text) {- ^ /@markup@/: the contents of the tooltip for /@statusIcon@/, or 'Nothing' -} -> 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 ENABLE_OVERLOADING data StatusIconSetTooltipMarkupMethodInfo instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipMarkupMethodInfo a signature where overloadedMethod _ = statusIconSetTooltipMarkup #endif -- method StatusIcon::set_tooltip_text -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the contents of the tooltip for @status_icon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_tooltip_text" gtk_status_icon_set_tooltip_text :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CString -> -- text : TBasicType TUTF8 IO () {-# DEPRECATED statusIconSetTooltipText ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function"] #-} {- | Sets /@text@/ as the contents of the tooltip. This function will take care of setting 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/has-tooltip/@ to 'True' and of the default handler for the 'GI.Gtk.Objects.StatusIcon.StatusIcon'::@/query-tooltip/@ signal. See also the 'GI.Gtk.Objects.StatusIcon.StatusIcon':@/tooltip-text/@ property and 'GI.Gtk.Objects.Tooltip.tooltipSetText'. /Since: 2.16/ -} statusIconSetTooltipText :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> T.Text {- ^ /@text@/: the contents of the tooltip for /@statusIcon@/ -} -> 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 ENABLE_OVERLOADING data StatusIconSetTooltipTextMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetTooltipTextMethodInfo a signature where overloadedMethod _ = statusIconSetTooltipText #endif -- method StatusIcon::set_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "status_icon", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkStatusIcon", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE to show the status icon, %FALSE to hide it", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_set_visible" gtk_status_icon_set_visible :: Ptr StatusIcon -> -- status_icon : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) CInt -> -- visible : TBasicType TBoolean IO () {-# DEPRECATED statusIconSetVisible ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; there is no direct replacement"," for this function, as notifications are managed by the platform"] #-} {- | Shows or hides a status icon. /Since: 2.10/ -} statusIconSetVisible :: (B.CallStack.HasCallStack, MonadIO m, IsStatusIcon a) => a {- ^ /@statusIcon@/: a 'GI.Gtk.Objects.StatusIcon.StatusIcon' -} -> Bool {- ^ /@visible@/: 'True' to show the status icon, 'False' to hide it -} -> 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 ENABLE_OVERLOADING data StatusIconSetVisibleMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, IsStatusIcon a) => O.MethodInfo StatusIconSetVisibleMethodInfo a signature where overloadedMethod _ = statusIconSetVisible #endif -- method StatusIcon::position_menu -- method type : MemberFunction -- Args : [Arg {argCName = "menu", argType = TInterface (Name {namespace = "Gtk", name = "Menu"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkMenu", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the x position", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the y position", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "push_in", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether the first menu item should be offset\n (pushed in) to be aligned with the menu popup position\n (only useful for GtkOptionMenu).", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "user_data", argType = TInterface (Name {namespace = "Gtk", name = "StatusIcon"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the status icon to position the menu on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_status_icon_position_menu" gtk_status_icon_position_menu :: Ptr Gtk.Menu.Menu -> -- menu : TInterface (Name {namespace = "Gtk", name = "Menu"}) Ptr Int32 -> -- x : TBasicType TInt Ptr Int32 -> -- y : TBasicType TInt Ptr CInt -> -- push_in : TBasicType TBoolean Ptr StatusIcon -> -- user_data : TInterface (Name {namespace = "Gtk", name = "StatusIcon"}) IO () {-# DEPRECATED statusIconPositionMenu ["(Since version 3.14)","Use 'GI.Gio.Objects.Notification.Notification' and 'GI.Gtk.Objects.Application.Application' to"," provide status notifications; notifications do not have menus,"," but can have buttons, and actions associated with each button"] #-} {- | Menu positioning function to use with 'GI.Gtk.Objects.Menu.menuPopup' to position /@menu@/ aligned to the status icon /@userData@/. /Since: 2.10/ -} statusIconPositionMenu :: (B.CallStack.HasCallStack, MonadIO m, Gtk.Menu.IsMenu a, IsStatusIcon b) => a {- ^ /@menu@/: the 'GI.Gtk.Objects.Menu.Menu' -} -> Int32 {- ^ /@x@/: return location for the x position -} -> Int32 {- ^ /@y@/: return location for the y position -} -> b {- ^ /@userData@/: the status icon to position the menu on -} -> 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 ENABLE_OVERLOADING #endif