{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.AyatanaAppIndicator3.Objects.Indicator
(
Indicator(..) ,
IsIndicator ,
toIndicator ,
#if defined(ENABLE_OVERLOADING)
ResolveIndicatorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
IndicatorBuildMenuFromDesktopMethodInfo ,
#endif
indicatorBuildMenuFromDesktop ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetAttentionIconMethodInfo ,
#endif
indicatorGetAttentionIcon ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetAttentionIconDescMethodInfo ,
#endif
indicatorGetAttentionIconDesc ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetCategoryMethodInfo ,
#endif
indicatorGetCategory ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetIconMethodInfo ,
#endif
indicatorGetIcon ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetIconDescMethodInfo ,
#endif
indicatorGetIconDesc ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetIconThemePathMethodInfo ,
#endif
indicatorGetIconThemePath ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetIdMethodInfo ,
#endif
indicatorGetId ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetLabelMethodInfo ,
#endif
indicatorGetLabel ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetLabelGuideMethodInfo ,
#endif
indicatorGetLabelGuide ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetMenuMethodInfo ,
#endif
indicatorGetMenu ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetOrderingIndexMethodInfo ,
#endif
indicatorGetOrderingIndex ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetSecondaryActivateTargetMethodInfo,
#endif
indicatorGetSecondaryActivateTarget ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetStatusMethodInfo ,
#endif
indicatorGetStatus ,
#if defined(ENABLE_OVERLOADING)
IndicatorGetTitleMethodInfo ,
#endif
indicatorGetTitle ,
indicatorNew ,
indicatorNewWithPath ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetAttentionIconMethodInfo ,
#endif
indicatorSetAttentionIcon ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetAttentionIconFullMethodInfo ,
#endif
indicatorSetAttentionIconFull ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetIconMethodInfo ,
#endif
indicatorSetIcon ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetIconFullMethodInfo ,
#endif
indicatorSetIconFull ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetIconThemePathMethodInfo ,
#endif
indicatorSetIconThemePath ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetLabelMethodInfo ,
#endif
indicatorSetLabel ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetMenuMethodInfo ,
#endif
indicatorSetMenu ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetOrderingIndexMethodInfo ,
#endif
indicatorSetOrderingIndex ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetSecondaryActivateTargetMethodInfo,
#endif
indicatorSetSecondaryActivateTarget ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetStatusMethodInfo ,
#endif
indicatorSetStatus ,
#if defined(ENABLE_OVERLOADING)
IndicatorSetTitleMethodInfo ,
#endif
indicatorSetTitle ,
#if defined(ENABLE_OVERLOADING)
IndicatorAttentionIconDescPropertyInfo ,
#endif
clearIndicatorAttentionIconDesc ,
constructIndicatorAttentionIconDesc ,
getIndicatorAttentionIconDesc ,
#if defined(ENABLE_OVERLOADING)
indicatorAttentionIconDesc ,
#endif
setIndicatorAttentionIconDesc ,
#if defined(ENABLE_OVERLOADING)
IndicatorAttentionIconNamePropertyInfo ,
#endif
clearIndicatorAttentionIconName ,
constructIndicatorAttentionIconName ,
getIndicatorAttentionIconName ,
#if defined(ENABLE_OVERLOADING)
indicatorAttentionIconName ,
#endif
setIndicatorAttentionIconName ,
#if defined(ENABLE_OVERLOADING)
IndicatorCategoryPropertyInfo ,
#endif
constructIndicatorCategory ,
getIndicatorCategory ,
#if defined(ENABLE_OVERLOADING)
indicatorCategory ,
#endif
#if defined(ENABLE_OVERLOADING)
IndicatorConnectedPropertyInfo ,
#endif
getIndicatorConnected ,
#if defined(ENABLE_OVERLOADING)
indicatorConnected ,
#endif
#if defined(ENABLE_OVERLOADING)
IndicatorIconDescPropertyInfo ,
#endif
clearIndicatorIconDesc ,
constructIndicatorIconDesc ,
getIndicatorIconDesc ,
#if defined(ENABLE_OVERLOADING)
indicatorIconDesc ,
#endif
setIndicatorIconDesc ,
#if defined(ENABLE_OVERLOADING)
IndicatorIconNamePropertyInfo ,
#endif
clearIndicatorIconName ,
constructIndicatorIconName ,
getIndicatorIconName ,
#if defined(ENABLE_OVERLOADING)
indicatorIconName ,
#endif
setIndicatorIconName ,
#if defined(ENABLE_OVERLOADING)
IndicatorIconThemePathPropertyInfo ,
#endif
constructIndicatorIconThemePath ,
getIndicatorIconThemePath ,
#if defined(ENABLE_OVERLOADING)
indicatorIconThemePath ,
#endif
setIndicatorIconThemePath ,
#if defined(ENABLE_OVERLOADING)
IndicatorIdPropertyInfo ,
#endif
constructIndicatorId ,
getIndicatorId ,
#if defined(ENABLE_OVERLOADING)
indicatorId ,
#endif
#if defined(ENABLE_OVERLOADING)
IndicatorLabelPropertyInfo ,
#endif
clearIndicatorLabel ,
constructIndicatorLabel ,
getIndicatorLabel ,
#if defined(ENABLE_OVERLOADING)
indicatorLabel ,
#endif
setIndicatorLabel ,
#if defined(ENABLE_OVERLOADING)
IndicatorLabelGuidePropertyInfo ,
#endif
clearIndicatorLabelGuide ,
constructIndicatorLabelGuide ,
getIndicatorLabelGuide ,
#if defined(ENABLE_OVERLOADING)
indicatorLabelGuide ,
#endif
setIndicatorLabelGuide ,
#if defined(ENABLE_OVERLOADING)
IndicatorOrderingIndexPropertyInfo ,
#endif
constructIndicatorOrderingIndex ,
getIndicatorOrderingIndex ,
#if defined(ENABLE_OVERLOADING)
indicatorOrderingIndex ,
#endif
setIndicatorOrderingIndex ,
#if defined(ENABLE_OVERLOADING)
IndicatorStatusPropertyInfo ,
#endif
clearIndicatorStatus ,
constructIndicatorStatus ,
getIndicatorStatus ,
#if defined(ENABLE_OVERLOADING)
indicatorStatus ,
#endif
setIndicatorStatus ,
#if defined(ENABLE_OVERLOADING)
IndicatorTitlePropertyInfo ,
#endif
clearIndicatorTitle ,
constructIndicatorTitle ,
getIndicatorTitle ,
#if defined(ENABLE_OVERLOADING)
indicatorTitle ,
#endif
setIndicatorTitle ,
IndicatorConnectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorConnectionChangedSignalInfo ,
#endif
afterIndicatorConnectionChanged ,
onIndicatorConnectionChanged ,
IndicatorNewAttentionIconCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorNewAttentionIconSignalInfo ,
#endif
afterIndicatorNewAttentionIcon ,
onIndicatorNewAttentionIcon ,
IndicatorNewIconCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorNewIconSignalInfo ,
#endif
afterIndicatorNewIcon ,
onIndicatorNewIcon ,
IndicatorNewIconThemePathCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorNewIconThemePathSignalInfo ,
#endif
afterIndicatorNewIconThemePath ,
onIndicatorNewIconThemePath ,
IndicatorNewLabelCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorNewLabelSignalInfo ,
#endif
afterIndicatorNewLabel ,
onIndicatorNewLabel ,
IndicatorNewStatusCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorNewStatusSignalInfo ,
#endif
afterIndicatorNewStatus ,
onIndicatorNewStatus ,
IndicatorScrollEventCallback ,
#if defined(ENABLE_OVERLOADING)
IndicatorScrollEventSignalInfo ,
#endif
afterIndicatorScrollEvent ,
onIndicatorScrollEvent ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.AyatanaAppIndicator3.Enums as AyatanaAppIndicator3.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gtk.Objects.Menu as Gtk.Menu
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Indicator = Indicator (SP.ManagedPtr Indicator)
deriving (Indicator -> Indicator -> Bool
(Indicator -> Indicator -> Bool)
-> (Indicator -> Indicator -> Bool) -> Eq Indicator
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Indicator -> Indicator -> Bool
== :: Indicator -> Indicator -> Bool
$c/= :: Indicator -> Indicator -> Bool
/= :: Indicator -> Indicator -> Bool
Eq)
instance SP.ManagedPtrNewtype Indicator where
toManagedPtr :: Indicator -> ManagedPtr Indicator
toManagedPtr (Indicator ManagedPtr Indicator
p) = ManagedPtr Indicator
p
foreign import ccall "app_indicator_get_type"
c_app_indicator_get_type :: IO B.Types.GType
instance B.Types.TypedObject Indicator where
glibType :: IO GType
glibType = IO GType
c_app_indicator_get_type
instance B.Types.GObject Indicator
class (SP.GObject o, O.IsDescendantOf Indicator o) => IsIndicator o
instance (SP.GObject o, O.IsDescendantOf Indicator o) => IsIndicator o
instance O.HasParentTypes Indicator
type instance O.ParentTypes Indicator = '[GObject.Object.Object]
toIndicator :: (MIO.MonadIO m, IsIndicator o) => o -> m Indicator
toIndicator :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> m Indicator
toIndicator = IO Indicator -> m Indicator
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Indicator -> m Indicator)
-> (o -> IO Indicator) -> o -> m Indicator
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Indicator -> Indicator) -> o -> IO Indicator
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Indicator -> Indicator
Indicator
instance B.GValue.IsGValue (Maybe Indicator) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_app_indicator_get_type
gvalueSet_ :: Ptr GValue -> Maybe Indicator -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Indicator
P.Nothing = Ptr GValue -> Ptr Indicator -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Indicator
forall a. Ptr a
FP.nullPtr :: FP.Ptr Indicator)
gvalueSet_ Ptr GValue
gv (P.Just Indicator
obj) = Indicator -> (Ptr Indicator -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Indicator
obj (Ptr GValue -> Ptr Indicator -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Indicator)
gvalueGet_ Ptr GValue
gv = do
Ptr Indicator
ptr <- Ptr GValue -> IO (Ptr Indicator)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Indicator)
if Ptr Indicator
ptr Ptr Indicator -> Ptr Indicator -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Indicator
forall a. Ptr a
FP.nullPtr
then Indicator -> Maybe Indicator
forall a. a -> Maybe a
P.Just (Indicator -> Maybe Indicator)
-> IO Indicator -> IO (Maybe Indicator)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Indicator -> Indicator)
-> Ptr Indicator -> IO Indicator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Indicator -> Indicator
Indicator Ptr Indicator
ptr
else Maybe Indicator -> IO (Maybe Indicator)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Indicator
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveIndicatorMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveIndicatorMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveIndicatorMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveIndicatorMethod "buildMenuFromDesktop" o = IndicatorBuildMenuFromDesktopMethodInfo
ResolveIndicatorMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveIndicatorMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveIndicatorMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveIndicatorMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveIndicatorMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveIndicatorMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveIndicatorMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveIndicatorMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveIndicatorMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveIndicatorMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveIndicatorMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveIndicatorMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveIndicatorMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveIndicatorMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveIndicatorMethod "getAttentionIcon" o = IndicatorGetAttentionIconMethodInfo
ResolveIndicatorMethod "getAttentionIconDesc" o = IndicatorGetAttentionIconDescMethodInfo
ResolveIndicatorMethod "getCategory" o = IndicatorGetCategoryMethodInfo
ResolveIndicatorMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveIndicatorMethod "getIcon" o = IndicatorGetIconMethodInfo
ResolveIndicatorMethod "getIconDesc" o = IndicatorGetIconDescMethodInfo
ResolveIndicatorMethod "getIconThemePath" o = IndicatorGetIconThemePathMethodInfo
ResolveIndicatorMethod "getId" o = IndicatorGetIdMethodInfo
ResolveIndicatorMethod "getLabel" o = IndicatorGetLabelMethodInfo
ResolveIndicatorMethod "getLabelGuide" o = IndicatorGetLabelGuideMethodInfo
ResolveIndicatorMethod "getMenu" o = IndicatorGetMenuMethodInfo
ResolveIndicatorMethod "getOrderingIndex" o = IndicatorGetOrderingIndexMethodInfo
ResolveIndicatorMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveIndicatorMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveIndicatorMethod "getSecondaryActivateTarget" o = IndicatorGetSecondaryActivateTargetMethodInfo
ResolveIndicatorMethod "getStatus" o = IndicatorGetStatusMethodInfo
ResolveIndicatorMethod "getTitle" o = IndicatorGetTitleMethodInfo
ResolveIndicatorMethod "setAttentionIcon" o = IndicatorSetAttentionIconMethodInfo
ResolveIndicatorMethod "setAttentionIconFull" o = IndicatorSetAttentionIconFullMethodInfo
ResolveIndicatorMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveIndicatorMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveIndicatorMethod "setIcon" o = IndicatorSetIconMethodInfo
ResolveIndicatorMethod "setIconFull" o = IndicatorSetIconFullMethodInfo
ResolveIndicatorMethod "setIconThemePath" o = IndicatorSetIconThemePathMethodInfo
ResolveIndicatorMethod "setLabel" o = IndicatorSetLabelMethodInfo
ResolveIndicatorMethod "setMenu" o = IndicatorSetMenuMethodInfo
ResolveIndicatorMethod "setOrderingIndex" o = IndicatorSetOrderingIndexMethodInfo
ResolveIndicatorMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveIndicatorMethod "setSecondaryActivateTarget" o = IndicatorSetSecondaryActivateTargetMethodInfo
ResolveIndicatorMethod "setStatus" o = IndicatorSetStatusMethodInfo
ResolveIndicatorMethod "setTitle" o = IndicatorSetTitleMethodInfo
ResolveIndicatorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIndicatorMethod t Indicator, O.OverloadedMethod info Indicator p) => OL.IsLabel t (Indicator -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveIndicatorMethod t Indicator, O.OverloadedMethod info Indicator p, R.HasField t Indicator p) => R.HasField t Indicator p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIndicatorMethod t Indicator, O.OverloadedMethodInfo info Indicator) => OL.IsLabel t (O.MethodProxy info Indicator) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type IndicatorConnectionChangedCallback =
Bool
-> IO ()
type C_IndicatorConnectionChangedCallback =
Ptr Indicator ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorConnectionChangedCallback :: C_IndicatorConnectionChangedCallback -> IO (FunPtr C_IndicatorConnectionChangedCallback)
wrap_IndicatorConnectionChangedCallback ::
GObject a => (a -> IndicatorConnectionChangedCallback) ->
C_IndicatorConnectionChangedCallback
wrap_IndicatorConnectionChangedCallback :: forall a.
GObject a =>
(a -> IndicatorConnectionChangedCallback)
-> C_IndicatorConnectionChangedCallback
wrap_IndicatorConnectionChangedCallback a -> IndicatorConnectionChangedCallback
gi'cb Ptr Indicator
gi'selfPtr CInt
arg1 Ptr ()
_ = do
let arg1' :: Bool
arg1' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
arg1
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IndicatorConnectionChangedCallback
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self) Bool
arg1'
onIndicatorConnectionChanged :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorConnectionChangedCallback) -> m SignalHandlerId
onIndicatorConnectionChanged :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorConnectionChangedCallback)
-> m SignalHandlerId
onIndicatorConnectionChanged a
obj (?self::a) => IndicatorConnectionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorConnectionChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorConnectionChangedCallback
IndicatorConnectionChangedCallback
cb
let wrapped' :: C_IndicatorConnectionChangedCallback
wrapped' = (a -> IndicatorConnectionChangedCallback)
-> C_IndicatorConnectionChangedCallback
forall a.
GObject a =>
(a -> IndicatorConnectionChangedCallback)
-> C_IndicatorConnectionChangedCallback
wrap_IndicatorConnectionChangedCallback a -> IndicatorConnectionChangedCallback
wrapped
FunPtr C_IndicatorConnectionChangedCallback
wrapped'' <- C_IndicatorConnectionChangedCallback
-> IO (FunPtr C_IndicatorConnectionChangedCallback)
mk_IndicatorConnectionChangedCallback C_IndicatorConnectionChangedCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorConnectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-changed" FunPtr C_IndicatorConnectionChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorConnectionChanged :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorConnectionChangedCallback) -> m SignalHandlerId
afterIndicatorConnectionChanged :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorConnectionChangedCallback)
-> m SignalHandlerId
afterIndicatorConnectionChanged a
obj (?self::a) => IndicatorConnectionChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorConnectionChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorConnectionChangedCallback
IndicatorConnectionChangedCallback
cb
let wrapped' :: C_IndicatorConnectionChangedCallback
wrapped' = (a -> IndicatorConnectionChangedCallback)
-> C_IndicatorConnectionChangedCallback
forall a.
GObject a =>
(a -> IndicatorConnectionChangedCallback)
-> C_IndicatorConnectionChangedCallback
wrap_IndicatorConnectionChangedCallback a -> IndicatorConnectionChangedCallback
wrapped
FunPtr C_IndicatorConnectionChangedCallback
wrapped'' <- C_IndicatorConnectionChangedCallback
-> IO (FunPtr C_IndicatorConnectionChangedCallback)
mk_IndicatorConnectionChangedCallback C_IndicatorConnectionChangedCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorConnectionChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"connection-changed" FunPtr C_IndicatorConnectionChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorConnectionChangedSignalInfo
instance SignalInfo IndicatorConnectionChangedSignalInfo where
type HaskellCallbackType IndicatorConnectionChangedSignalInfo = IndicatorConnectionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorConnectionChangedCallback cb
cb'' <- mk_IndicatorConnectionChangedCallback cb'
connectSignalFunPtr obj "connection-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::connection-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:connectionChanged"})
#endif
type IndicatorNewAttentionIconCallback =
IO ()
type C_IndicatorNewAttentionIconCallback =
Ptr Indicator ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorNewAttentionIconCallback :: C_IndicatorNewAttentionIconCallback -> IO (FunPtr C_IndicatorNewAttentionIconCallback)
wrap_IndicatorNewAttentionIconCallback ::
GObject a => (a -> IndicatorNewAttentionIconCallback) ->
C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewAttentionIconCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewAttentionIconCallback a -> IO ()
gi'cb Ptr Indicator
gi'selfPtr Ptr ()
_ = do
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IO ()
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self)
onIndicatorNewAttentionIcon :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewAttentionIconCallback) -> m SignalHandlerId
onIndicatorNewAttentionIcon :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onIndicatorNewAttentionIcon a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_IndicatorNewAttentionIconCallback
wrapped' = (a -> IO ()) -> C_IndicatorNewAttentionIconCallback
forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewAttentionIconCallback a -> IO ()
wrapped
FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' <- C_IndicatorNewAttentionIconCallback
-> IO (FunPtr C_IndicatorNewAttentionIconCallback)
mk_IndicatorNewAttentionIconCallback C_IndicatorNewAttentionIconCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewAttentionIconCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-attention-icon" FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorNewAttentionIcon :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewAttentionIconCallback) -> m SignalHandlerId
afterIndicatorNewAttentionIcon :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterIndicatorNewAttentionIcon a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_IndicatorNewAttentionIconCallback
wrapped' = (a -> IO ()) -> C_IndicatorNewAttentionIconCallback
forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewAttentionIconCallback a -> IO ()
wrapped
FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' <- C_IndicatorNewAttentionIconCallback
-> IO (FunPtr C_IndicatorNewAttentionIconCallback)
mk_IndicatorNewAttentionIconCallback C_IndicatorNewAttentionIconCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewAttentionIconCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-attention-icon" FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorNewAttentionIconSignalInfo
instance SignalInfo IndicatorNewAttentionIconSignalInfo where
type HaskellCallbackType IndicatorNewAttentionIconSignalInfo = IndicatorNewAttentionIconCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorNewAttentionIconCallback cb
cb'' <- mk_IndicatorNewAttentionIconCallback cb'
connectSignalFunPtr obj "new-attention-icon" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::new-attention-icon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:newAttentionIcon"})
#endif
type IndicatorNewIconCallback =
IO ()
type C_IndicatorNewIconCallback =
Ptr Indicator ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorNewIconCallback :: C_IndicatorNewIconCallback -> IO (FunPtr C_IndicatorNewIconCallback)
wrap_IndicatorNewIconCallback ::
GObject a => (a -> IndicatorNewIconCallback) ->
C_IndicatorNewIconCallback
wrap_IndicatorNewIconCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewIconCallback a -> IO ()
gi'cb Ptr Indicator
gi'selfPtr Ptr ()
_ = do
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IO ()
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self)
onIndicatorNewIcon :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewIconCallback) -> m SignalHandlerId
onIndicatorNewIcon :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onIndicatorNewIcon a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_IndicatorNewAttentionIconCallback
wrapped' = (a -> IO ()) -> C_IndicatorNewAttentionIconCallback
forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewIconCallback a -> IO ()
wrapped
FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' <- C_IndicatorNewAttentionIconCallback
-> IO (FunPtr C_IndicatorNewAttentionIconCallback)
mk_IndicatorNewIconCallback C_IndicatorNewAttentionIconCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewAttentionIconCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-icon" FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorNewIcon :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewIconCallback) -> m SignalHandlerId
afterIndicatorNewIcon :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterIndicatorNewIcon a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_IndicatorNewAttentionIconCallback
wrapped' = (a -> IO ()) -> C_IndicatorNewAttentionIconCallback
forall a.
GObject a =>
(a -> IO ()) -> C_IndicatorNewAttentionIconCallback
wrap_IndicatorNewIconCallback a -> IO ()
wrapped
FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' <- C_IndicatorNewAttentionIconCallback
-> IO (FunPtr C_IndicatorNewAttentionIconCallback)
mk_IndicatorNewIconCallback C_IndicatorNewAttentionIconCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewAttentionIconCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-icon" FunPtr C_IndicatorNewAttentionIconCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorNewIconSignalInfo
instance SignalInfo IndicatorNewIconSignalInfo where
type HaskellCallbackType IndicatorNewIconSignalInfo = IndicatorNewIconCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorNewIconCallback cb
cb'' <- mk_IndicatorNewIconCallback cb'
connectSignalFunPtr obj "new-icon" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::new-icon"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:newIcon"})
#endif
type IndicatorNewIconThemePathCallback =
T.Text
-> IO ()
type C_IndicatorNewIconThemePathCallback =
Ptr Indicator ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorNewIconThemePathCallback :: C_IndicatorNewIconThemePathCallback -> IO (FunPtr C_IndicatorNewIconThemePathCallback)
wrap_IndicatorNewIconThemePathCallback ::
GObject a => (a -> IndicatorNewIconThemePathCallback) ->
C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewIconThemePathCallback :: forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewIconThemePathCallback a -> IndicatorNewIconThemePathCallback
gi'cb Ptr Indicator
gi'selfPtr CString
arg1 Ptr ()
_ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IndicatorNewIconThemePathCallback
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self) Text
arg1'
onIndicatorNewIconThemePath :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewIconThemePathCallback) -> m SignalHandlerId
onIndicatorNewIconThemePath :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorNewIconThemePathCallback)
-> m SignalHandlerId
onIndicatorNewIconThemePath a
obj (?self::a) => IndicatorNewIconThemePathCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewIconThemePathCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewIconThemePathCallback
IndicatorNewIconThemePathCallback
cb
let wrapped' :: C_IndicatorNewIconThemePathCallback
wrapped' = (a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewIconThemePathCallback a -> IndicatorNewIconThemePathCallback
wrapped
FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' <- C_IndicatorNewIconThemePathCallback
-> IO (FunPtr C_IndicatorNewIconThemePathCallback)
mk_IndicatorNewIconThemePathCallback C_IndicatorNewIconThemePathCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewIconThemePathCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-icon-theme-path" FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorNewIconThemePath :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewIconThemePathCallback) -> m SignalHandlerId
afterIndicatorNewIconThemePath :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorNewIconThemePathCallback)
-> m SignalHandlerId
afterIndicatorNewIconThemePath a
obj (?self::a) => IndicatorNewIconThemePathCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewIconThemePathCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewIconThemePathCallback
IndicatorNewIconThemePathCallback
cb
let wrapped' :: C_IndicatorNewIconThemePathCallback
wrapped' = (a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewIconThemePathCallback a -> IndicatorNewIconThemePathCallback
wrapped
FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' <- C_IndicatorNewIconThemePathCallback
-> IO (FunPtr C_IndicatorNewIconThemePathCallback)
mk_IndicatorNewIconThemePathCallback C_IndicatorNewIconThemePathCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewIconThemePathCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-icon-theme-path" FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorNewIconThemePathSignalInfo
instance SignalInfo IndicatorNewIconThemePathSignalInfo where
type HaskellCallbackType IndicatorNewIconThemePathSignalInfo = IndicatorNewIconThemePathCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorNewIconThemePathCallback cb
cb'' <- mk_IndicatorNewIconThemePathCallback cb'
connectSignalFunPtr obj "new-icon-theme-path" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::new-icon-theme-path"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:newIconThemePath"})
#endif
type IndicatorNewLabelCallback =
T.Text
-> T.Text
-> IO ()
type C_IndicatorNewLabelCallback =
Ptr Indicator ->
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorNewLabelCallback :: C_IndicatorNewLabelCallback -> IO (FunPtr C_IndicatorNewLabelCallback)
wrap_IndicatorNewLabelCallback ::
GObject a => (a -> IndicatorNewLabelCallback) ->
C_IndicatorNewLabelCallback
wrap_IndicatorNewLabelCallback :: forall a.
GObject a =>
(a -> IndicatorNewLabelCallback) -> C_IndicatorNewLabelCallback
wrap_IndicatorNewLabelCallback a -> IndicatorNewLabelCallback
gi'cb Ptr Indicator
gi'selfPtr CString
arg1 CString
arg2 Ptr ()
_ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
Text
arg2' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg2
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IndicatorNewLabelCallback
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self) Text
arg1' Text
arg2'
onIndicatorNewLabel :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewLabelCallback) -> m SignalHandlerId
onIndicatorNewLabel :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IndicatorNewLabelCallback) -> m SignalHandlerId
onIndicatorNewLabel a
obj (?self::a) => IndicatorNewLabelCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewLabelCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewLabelCallback
IndicatorNewLabelCallback
cb
let wrapped' :: C_IndicatorNewLabelCallback
wrapped' = (a -> IndicatorNewLabelCallback) -> C_IndicatorNewLabelCallback
forall a.
GObject a =>
(a -> IndicatorNewLabelCallback) -> C_IndicatorNewLabelCallback
wrap_IndicatorNewLabelCallback a -> IndicatorNewLabelCallback
wrapped
FunPtr C_IndicatorNewLabelCallback
wrapped'' <- C_IndicatorNewLabelCallback
-> IO (FunPtr C_IndicatorNewLabelCallback)
mk_IndicatorNewLabelCallback C_IndicatorNewLabelCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewLabelCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-label" FunPtr C_IndicatorNewLabelCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorNewLabel :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewLabelCallback) -> m SignalHandlerId
afterIndicatorNewLabel :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a -> ((?self::a) => IndicatorNewLabelCallback) -> m SignalHandlerId
afterIndicatorNewLabel a
obj (?self::a) => IndicatorNewLabelCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewLabelCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewLabelCallback
IndicatorNewLabelCallback
cb
let wrapped' :: C_IndicatorNewLabelCallback
wrapped' = (a -> IndicatorNewLabelCallback) -> C_IndicatorNewLabelCallback
forall a.
GObject a =>
(a -> IndicatorNewLabelCallback) -> C_IndicatorNewLabelCallback
wrap_IndicatorNewLabelCallback a -> IndicatorNewLabelCallback
wrapped
FunPtr C_IndicatorNewLabelCallback
wrapped'' <- C_IndicatorNewLabelCallback
-> IO (FunPtr C_IndicatorNewLabelCallback)
mk_IndicatorNewLabelCallback C_IndicatorNewLabelCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewLabelCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-label" FunPtr C_IndicatorNewLabelCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorNewLabelSignalInfo
instance SignalInfo IndicatorNewLabelSignalInfo where
type HaskellCallbackType IndicatorNewLabelSignalInfo = IndicatorNewLabelCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorNewLabelCallback cb
cb'' <- mk_IndicatorNewLabelCallback cb'
connectSignalFunPtr obj "new-label" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::new-label"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:newLabel"})
#endif
type IndicatorNewStatusCallback =
T.Text
-> IO ()
type C_IndicatorNewStatusCallback =
Ptr Indicator ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorNewStatusCallback :: C_IndicatorNewStatusCallback -> IO (FunPtr C_IndicatorNewStatusCallback)
wrap_IndicatorNewStatusCallback ::
GObject a => (a -> IndicatorNewStatusCallback) ->
C_IndicatorNewStatusCallback
wrap_IndicatorNewStatusCallback :: forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewStatusCallback a -> IndicatorNewIconThemePathCallback
gi'cb Ptr Indicator
gi'selfPtr CString
arg1 Ptr ()
_ = do
Text
arg1' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
arg1
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IndicatorNewIconThemePathCallback
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self) Text
arg1'
onIndicatorNewStatus :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewStatusCallback) -> m SignalHandlerId
onIndicatorNewStatus :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorNewIconThemePathCallback)
-> m SignalHandlerId
onIndicatorNewStatus a
obj (?self::a) => IndicatorNewIconThemePathCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewIconThemePathCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewIconThemePathCallback
IndicatorNewIconThemePathCallback
cb
let wrapped' :: C_IndicatorNewIconThemePathCallback
wrapped' = (a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewStatusCallback a -> IndicatorNewIconThemePathCallback
wrapped
FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' <- C_IndicatorNewIconThemePathCallback
-> IO (FunPtr C_IndicatorNewIconThemePathCallback)
mk_IndicatorNewStatusCallback C_IndicatorNewIconThemePathCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewIconThemePathCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-status" FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorNewStatus :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorNewStatusCallback) -> m SignalHandlerId
afterIndicatorNewStatus :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorNewIconThemePathCallback)
-> m SignalHandlerId
afterIndicatorNewStatus a
obj (?self::a) => IndicatorNewIconThemePathCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorNewIconThemePathCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorNewIconThemePathCallback
IndicatorNewIconThemePathCallback
cb
let wrapped' :: C_IndicatorNewIconThemePathCallback
wrapped' = (a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
forall a.
GObject a =>
(a -> IndicatorNewIconThemePathCallback)
-> C_IndicatorNewIconThemePathCallback
wrap_IndicatorNewStatusCallback a -> IndicatorNewIconThemePathCallback
wrapped
FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' <- C_IndicatorNewIconThemePathCallback
-> IO (FunPtr C_IndicatorNewIconThemePathCallback)
mk_IndicatorNewStatusCallback C_IndicatorNewIconThemePathCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorNewIconThemePathCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"new-status" FunPtr C_IndicatorNewIconThemePathCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorNewStatusSignalInfo
instance SignalInfo IndicatorNewStatusSignalInfo where
type HaskellCallbackType IndicatorNewStatusSignalInfo = IndicatorNewStatusCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorNewStatusCallback cb
cb'' <- mk_IndicatorNewStatusCallback cb'
connectSignalFunPtr obj "new-status" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::new-status"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:newStatus"})
#endif
type IndicatorScrollEventCallback =
Int32
-> Gdk.Enums.ScrollDirection
-> IO ()
type C_IndicatorScrollEventCallback =
Ptr Indicator ->
Int32 ->
CUInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IndicatorScrollEventCallback :: C_IndicatorScrollEventCallback -> IO (FunPtr C_IndicatorScrollEventCallback)
wrap_IndicatorScrollEventCallback ::
GObject a => (a -> IndicatorScrollEventCallback) ->
C_IndicatorScrollEventCallback
wrap_IndicatorScrollEventCallback :: forall a.
GObject a =>
(a -> IndicatorScrollEventCallback)
-> C_IndicatorScrollEventCallback
wrap_IndicatorScrollEventCallback a -> IndicatorScrollEventCallback
gi'cb Ptr Indicator
gi'selfPtr Int32
arg1 CUInt
arg2 Ptr ()
_ = do
let arg2' :: ScrollDirection
arg2' = (Int -> ScrollDirection
forall a. Enum a => Int -> a
toEnum (Int -> ScrollDirection)
-> (CUInt -> Int) -> CUInt -> ScrollDirection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
arg2
Ptr Indicator -> (Indicator -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Indicator
gi'selfPtr ((Indicator -> IO ()) -> IO ()) -> (Indicator -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Indicator
gi'self -> a -> IndicatorScrollEventCallback
gi'cb (Indicator -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Indicator
gi'self) Int32
arg1 ScrollDirection
arg2'
onIndicatorScrollEvent :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorScrollEventCallback) -> m SignalHandlerId
onIndicatorScrollEvent :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorScrollEventCallback)
-> m SignalHandlerId
onIndicatorScrollEvent a
obj (?self::a) => IndicatorScrollEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorScrollEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorScrollEventCallback
IndicatorScrollEventCallback
cb
let wrapped' :: C_IndicatorScrollEventCallback
wrapped' = (a -> IndicatorScrollEventCallback)
-> C_IndicatorScrollEventCallback
forall a.
GObject a =>
(a -> IndicatorScrollEventCallback)
-> C_IndicatorScrollEventCallback
wrap_IndicatorScrollEventCallback a -> IndicatorScrollEventCallback
wrapped
FunPtr C_IndicatorScrollEventCallback
wrapped'' <- C_IndicatorScrollEventCallback
-> IO (FunPtr C_IndicatorScrollEventCallback)
mk_IndicatorScrollEventCallback C_IndicatorScrollEventCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorScrollEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-event" FunPtr C_IndicatorScrollEventCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterIndicatorScrollEvent :: (IsIndicator a, MonadIO m) => a -> ((?self :: a) => IndicatorScrollEventCallback) -> m SignalHandlerId
afterIndicatorScrollEvent :: forall a (m :: * -> *).
(IsIndicator a, MonadIO m) =>
a
-> ((?self::a) => IndicatorScrollEventCallback)
-> m SignalHandlerId
afterIndicatorScrollEvent a
obj (?self::a) => IndicatorScrollEventCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IndicatorScrollEventCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => IndicatorScrollEventCallback
IndicatorScrollEventCallback
cb
let wrapped' :: C_IndicatorScrollEventCallback
wrapped' = (a -> IndicatorScrollEventCallback)
-> C_IndicatorScrollEventCallback
forall a.
GObject a =>
(a -> IndicatorScrollEventCallback)
-> C_IndicatorScrollEventCallback
wrap_IndicatorScrollEventCallback a -> IndicatorScrollEventCallback
wrapped
FunPtr C_IndicatorScrollEventCallback
wrapped'' <- C_IndicatorScrollEventCallback
-> IO (FunPtr C_IndicatorScrollEventCallback)
mk_IndicatorScrollEventCallback C_IndicatorScrollEventCallback
wrapped'
a
-> Text
-> FunPtr C_IndicatorScrollEventCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"scroll-event" FunPtr C_IndicatorScrollEventCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IndicatorScrollEventSignalInfo
instance SignalInfo IndicatorScrollEventSignalInfo where
type HaskellCallbackType IndicatorScrollEventSignalInfo = IndicatorScrollEventCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IndicatorScrollEventCallback cb
cb'' <- mk_IndicatorScrollEventCallback cb'
connectSignalFunPtr obj "scroll-event" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator::scroll-event"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:signal:scrollEvent"})
#endif
getIndicatorAttentionIconDesc :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorAttentionIconDesc :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorAttentionIconDesc o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorAttentionIconDesc" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"attention-icon-desc"
setIndicatorAttentionIconDesc :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorAttentionIconDesc :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorAttentionIconDesc o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"attention-icon-desc" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorAttentionIconDesc :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorAttentionIconDesc :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorAttentionIconDesc Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"attention-icon-desc" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorAttentionIconDesc :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorAttentionIconDesc :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorAttentionIconDesc o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"attention-icon-desc" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorAttentionIconDescPropertyInfo
instance AttrInfo IndicatorAttentionIconDescPropertyInfo where
type AttrAllowedOps IndicatorAttentionIconDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorAttentionIconDescPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorAttentionIconDescPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorAttentionIconDescPropertyInfo = (~) T.Text
type AttrTransferType IndicatorAttentionIconDescPropertyInfo = T.Text
type AttrGetType IndicatorAttentionIconDescPropertyInfo = T.Text
type AttrLabel IndicatorAttentionIconDescPropertyInfo = "attention-icon-desc"
type AttrOrigin IndicatorAttentionIconDescPropertyInfo = Indicator
attrGet = getIndicatorAttentionIconDesc
attrSet = setIndicatorAttentionIconDesc
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorAttentionIconDesc
attrClear = clearIndicatorAttentionIconDesc
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.attentionIconDesc"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:attentionIconDesc"
})
#endif
getIndicatorAttentionIconName :: (MonadIO m, IsIndicator o) => o -> m (Maybe T.Text)
getIndicatorAttentionIconName :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> m (Maybe Text)
getIndicatorAttentionIconName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"attention-icon-name"
setIndicatorAttentionIconName :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorAttentionIconName :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorAttentionIconName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"attention-icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorAttentionIconName :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorAttentionIconName :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorAttentionIconName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"attention-icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorAttentionIconName :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorAttentionIconName :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorAttentionIconName o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"attention-icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorAttentionIconNamePropertyInfo
instance AttrInfo IndicatorAttentionIconNamePropertyInfo where
type AttrAllowedOps IndicatorAttentionIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorAttentionIconNamePropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorAttentionIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorAttentionIconNamePropertyInfo = (~) T.Text
type AttrTransferType IndicatorAttentionIconNamePropertyInfo = T.Text
type AttrGetType IndicatorAttentionIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel IndicatorAttentionIconNamePropertyInfo = "attention-icon-name"
type AttrOrigin IndicatorAttentionIconNamePropertyInfo = Indicator
attrGet = getIndicatorAttentionIconName
attrSet = setIndicatorAttentionIconName
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorAttentionIconName
attrClear = clearIndicatorAttentionIconName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.attentionIconName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:attentionIconName"
})
#endif
getIndicatorCategory :: (MonadIO m, IsIndicator o) => o -> m (Maybe T.Text)
getIndicatorCategory :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> m (Maybe Text)
getIndicatorCategory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"category"
constructIndicatorCategory :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorCategory :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorCategory Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"category" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data IndicatorCategoryPropertyInfo
instance AttrInfo IndicatorCategoryPropertyInfo where
type AttrAllowedOps IndicatorCategoryPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorCategoryPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorCategoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorCategoryPropertyInfo = (~) T.Text
type AttrTransferType IndicatorCategoryPropertyInfo = T.Text
type AttrGetType IndicatorCategoryPropertyInfo = (Maybe T.Text)
type AttrLabel IndicatorCategoryPropertyInfo = "category"
type AttrOrigin IndicatorCategoryPropertyInfo = Indicator
attrGet = getIndicatorCategory
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorCategory
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.category"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:category"
})
#endif
getIndicatorConnected :: (MonadIO m, IsIndicator o) => o -> m Bool
getIndicatorConnected :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Bool
getIndicatorConnected o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"connected"
#if defined(ENABLE_OVERLOADING)
data IndicatorConnectedPropertyInfo
instance AttrInfo IndicatorConnectedPropertyInfo where
type AttrAllowedOps IndicatorConnectedPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint IndicatorConnectedPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorConnectedPropertyInfo = (~) ()
type AttrTransferTypeConstraint IndicatorConnectedPropertyInfo = (~) ()
type AttrTransferType IndicatorConnectedPropertyInfo = ()
type AttrGetType IndicatorConnectedPropertyInfo = Bool
type AttrLabel IndicatorConnectedPropertyInfo = "connected"
type AttrOrigin IndicatorConnectedPropertyInfo = Indicator
attrGet = getIndicatorConnected
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.connected"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:connected"
})
#endif
getIndicatorIconDesc :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorIconDesc :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorIconDesc o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorIconDesc" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-desc"
setIndicatorIconDesc :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorIconDesc :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorIconDesc o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-desc" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorIconDesc :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorIconDesc :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorIconDesc Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-desc" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorIconDesc :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorIconDesc :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorIconDesc o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-desc" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorIconDescPropertyInfo
instance AttrInfo IndicatorIconDescPropertyInfo where
type AttrAllowedOps IndicatorIconDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorIconDescPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorIconDescPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorIconDescPropertyInfo = (~) T.Text
type AttrTransferType IndicatorIconDescPropertyInfo = T.Text
type AttrGetType IndicatorIconDescPropertyInfo = T.Text
type AttrLabel IndicatorIconDescPropertyInfo = "icon-desc"
type AttrOrigin IndicatorIconDescPropertyInfo = Indicator
attrGet = getIndicatorIconDesc
attrSet = setIndicatorIconDesc
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorIconDesc
attrClear = clearIndicatorIconDesc
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.iconDesc"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:iconDesc"
})
#endif
getIndicatorIconName :: (MonadIO m, IsIndicator o) => o -> m (Maybe T.Text)
getIndicatorIconName :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> m (Maybe Text)
getIndicatorIconName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-name"
setIndicatorIconName :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorIconName :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorIconName o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorIconName :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorIconName :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorIconName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorIconName :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorIconName :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorIconName o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorIconNamePropertyInfo
instance AttrInfo IndicatorIconNamePropertyInfo where
type AttrAllowedOps IndicatorIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorIconNamePropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorIconNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorIconNamePropertyInfo = (~) T.Text
type AttrTransferType IndicatorIconNamePropertyInfo = T.Text
type AttrGetType IndicatorIconNamePropertyInfo = (Maybe T.Text)
type AttrLabel IndicatorIconNamePropertyInfo = "icon-name"
type AttrOrigin IndicatorIconNamePropertyInfo = Indicator
attrGet = getIndicatorIconName
attrSet = setIndicatorIconName
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorIconName
attrClear = clearIndicatorIconName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.iconName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:iconName"
})
#endif
getIndicatorIconThemePath :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorIconThemePath :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorIconThemePath o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorIconThemePath" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"icon-theme-path"
setIndicatorIconThemePath :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorIconThemePath :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorIconThemePath o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"icon-theme-path" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorIconThemePath :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorIconThemePath :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorIconThemePath Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"icon-theme-path" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data IndicatorIconThemePathPropertyInfo
instance AttrInfo IndicatorIconThemePathPropertyInfo where
type AttrAllowedOps IndicatorIconThemePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IndicatorIconThemePathPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorIconThemePathPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorIconThemePathPropertyInfo = (~) T.Text
type AttrTransferType IndicatorIconThemePathPropertyInfo = T.Text
type AttrGetType IndicatorIconThemePathPropertyInfo = T.Text
type AttrLabel IndicatorIconThemePathPropertyInfo = "icon-theme-path"
type AttrOrigin IndicatorIconThemePathPropertyInfo = Indicator
attrGet = getIndicatorIconThemePath
attrSet = setIndicatorIconThemePath
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorIconThemePath
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.iconThemePath"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:iconThemePath"
})
#endif
getIndicatorId :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorId :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorId o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorId" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"id"
constructIndicatorId :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorId :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorId Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data IndicatorIdPropertyInfo
instance AttrInfo IndicatorIdPropertyInfo where
type AttrAllowedOps IndicatorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorIdPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorIdPropertyInfo = (~) T.Text
type AttrTransferType IndicatorIdPropertyInfo = T.Text
type AttrGetType IndicatorIdPropertyInfo = T.Text
type AttrLabel IndicatorIdPropertyInfo = "id"
type AttrOrigin IndicatorIdPropertyInfo = Indicator
attrGet = getIndicatorId
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorId
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.id"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:id"
})
#endif
getIndicatorLabel :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorLabel :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorLabel o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorLabel" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"label"
setIndicatorLabel :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorLabel :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorLabel o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorLabel :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorLabel :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorLabel :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorLabel :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorLabel o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorLabelPropertyInfo
instance AttrInfo IndicatorLabelPropertyInfo where
type AttrAllowedOps IndicatorLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorLabelPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorLabelPropertyInfo = (~) T.Text
type AttrTransferType IndicatorLabelPropertyInfo = T.Text
type AttrGetType IndicatorLabelPropertyInfo = T.Text
type AttrLabel IndicatorLabelPropertyInfo = "label"
type AttrOrigin IndicatorLabelPropertyInfo = Indicator
attrGet = getIndicatorLabel
attrSet = setIndicatorLabel
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorLabel
attrClear = clearIndicatorLabel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.label"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:label"
})
#endif
getIndicatorLabelGuide :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorLabelGuide :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorLabelGuide o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorLabelGuide" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"label-guide"
setIndicatorLabelGuide :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorLabelGuide :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorLabelGuide o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label-guide" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorLabelGuide :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorLabelGuide :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorLabelGuide Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"label-guide" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorLabelGuide :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorLabelGuide :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorLabelGuide o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"label-guide" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorLabelGuidePropertyInfo
instance AttrInfo IndicatorLabelGuidePropertyInfo where
type AttrAllowedOps IndicatorLabelGuidePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorLabelGuidePropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorLabelGuidePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorLabelGuidePropertyInfo = (~) T.Text
type AttrTransferType IndicatorLabelGuidePropertyInfo = T.Text
type AttrGetType IndicatorLabelGuidePropertyInfo = T.Text
type AttrLabel IndicatorLabelGuidePropertyInfo = "label-guide"
type AttrOrigin IndicatorLabelGuidePropertyInfo = Indicator
attrGet = getIndicatorLabelGuide
attrSet = setIndicatorLabelGuide
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorLabelGuide
attrClear = clearIndicatorLabelGuide
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.labelGuide"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:labelGuide"
})
#endif
getIndicatorOrderingIndex :: (MonadIO m, IsIndicator o) => o -> m Word32
getIndicatorOrderingIndex :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Word32
getIndicatorOrderingIndex o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"ordering-index"
setIndicatorOrderingIndex :: (MonadIO m, IsIndicator o) => o -> Word32 -> m ()
setIndicatorOrderingIndex :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Word32 -> m ()
setIndicatorOrderingIndex o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"ordering-index" Word32
val
constructIndicatorOrderingIndex :: (IsIndicator o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructIndicatorOrderingIndex :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructIndicatorOrderingIndex Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"ordering-index" Word32
val
#if defined(ENABLE_OVERLOADING)
data IndicatorOrderingIndexPropertyInfo
instance AttrInfo IndicatorOrderingIndexPropertyInfo where
type AttrAllowedOps IndicatorOrderingIndexPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IndicatorOrderingIndexPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorOrderingIndexPropertyInfo = (~) Word32
type AttrTransferTypeConstraint IndicatorOrderingIndexPropertyInfo = (~) Word32
type AttrTransferType IndicatorOrderingIndexPropertyInfo = Word32
type AttrGetType IndicatorOrderingIndexPropertyInfo = Word32
type AttrLabel IndicatorOrderingIndexPropertyInfo = "ordering-index"
type AttrOrigin IndicatorOrderingIndexPropertyInfo = Indicator
attrGet = getIndicatorOrderingIndex
attrSet = setIndicatorOrderingIndex
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorOrderingIndex
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.orderingIndex"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:orderingIndex"
})
#endif
getIndicatorStatus :: (MonadIO m, IsIndicator o) => o -> m (Maybe T.Text)
getIndicatorStatus :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> m (Maybe Text)
getIndicatorStatus o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"status"
setIndicatorStatus :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorStatus :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorStatus o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"status" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorStatus :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorStatus :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorStatus Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"status" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorStatus :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorStatus :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorStatus o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"status" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorStatusPropertyInfo
instance AttrInfo IndicatorStatusPropertyInfo where
type AttrAllowedOps IndicatorStatusPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorStatusPropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorStatusPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorStatusPropertyInfo = (~) T.Text
type AttrTransferType IndicatorStatusPropertyInfo = T.Text
type AttrGetType IndicatorStatusPropertyInfo = (Maybe T.Text)
type AttrLabel IndicatorStatusPropertyInfo = "status"
type AttrOrigin IndicatorStatusPropertyInfo = Indicator
attrGet = getIndicatorStatus
attrSet = setIndicatorStatus
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorStatus
attrClear = clearIndicatorStatus
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.status"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:status"
})
#endif
getIndicatorTitle :: (MonadIO m, IsIndicator o) => o -> m T.Text
getIndicatorTitle :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m Text
getIndicatorTitle o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getIndicatorTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setIndicatorTitle :: (MonadIO m, IsIndicator o) => o -> T.Text -> m ()
setIndicatorTitle :: forall (m :: * -> *) o.
(MonadIO m, IsIndicator o) =>
o -> Text -> m ()
setIndicatorTitle o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructIndicatorTitle :: (IsIndicator o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructIndicatorTitle :: forall o (m :: * -> *).
(IsIndicator o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructIndicatorTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearIndicatorTitle :: (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorTitle :: forall (m :: * -> *) o. (MonadIO m, IsIndicator o) => o -> m ()
clearIndicatorTitle o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data IndicatorTitlePropertyInfo
instance AttrInfo IndicatorTitlePropertyInfo where
type AttrAllowedOps IndicatorTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint IndicatorTitlePropertyInfo = IsIndicator
type AttrSetTypeConstraint IndicatorTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint IndicatorTitlePropertyInfo = (~) T.Text
type AttrTransferType IndicatorTitlePropertyInfo = T.Text
type AttrGetType IndicatorTitlePropertyInfo = T.Text
type AttrLabel IndicatorTitlePropertyInfo = "title"
type AttrOrigin IndicatorTitlePropertyInfo = Indicator
attrGet = getIndicatorTitle
attrSet = setIndicatorTitle
attrTransfer _ v = do
return v
attrConstruct = constructIndicatorTitle
attrClear = clearIndicatorTitle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#g:attr:title"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Indicator
type instance O.AttributeList Indicator = IndicatorAttributeList
type IndicatorAttributeList = ('[ '("attentionIconDesc", IndicatorAttentionIconDescPropertyInfo), '("attentionIconName", IndicatorAttentionIconNamePropertyInfo), '("category", IndicatorCategoryPropertyInfo), '("connected", IndicatorConnectedPropertyInfo), '("iconDesc", IndicatorIconDescPropertyInfo), '("iconName", IndicatorIconNamePropertyInfo), '("iconThemePath", IndicatorIconThemePathPropertyInfo), '("id", IndicatorIdPropertyInfo), '("label", IndicatorLabelPropertyInfo), '("labelGuide", IndicatorLabelGuidePropertyInfo), '("orderingIndex", IndicatorOrderingIndexPropertyInfo), '("status", IndicatorStatusPropertyInfo), '("title", IndicatorTitlePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
indicatorAttentionIconDesc :: AttrLabelProxy "attentionIconDesc"
indicatorAttentionIconDesc = AttrLabelProxy
indicatorAttentionIconName :: AttrLabelProxy "attentionIconName"
indicatorAttentionIconName = AttrLabelProxy
indicatorCategory :: AttrLabelProxy "category"
indicatorCategory = AttrLabelProxy
indicatorConnected :: AttrLabelProxy "connected"
indicatorConnected = AttrLabelProxy
indicatorIconDesc :: AttrLabelProxy "iconDesc"
indicatorIconDesc = AttrLabelProxy
indicatorIconName :: AttrLabelProxy "iconName"
indicatorIconName = AttrLabelProxy
indicatorIconThemePath :: AttrLabelProxy "iconThemePath"
indicatorIconThemePath = AttrLabelProxy
indicatorId :: AttrLabelProxy "id"
indicatorId = AttrLabelProxy
indicatorLabel :: AttrLabelProxy "label"
indicatorLabel = AttrLabelProxy
indicatorLabelGuide :: AttrLabelProxy "labelGuide"
indicatorLabelGuide = AttrLabelProxy
indicatorOrderingIndex :: AttrLabelProxy "orderingIndex"
indicatorOrderingIndex = AttrLabelProxy
indicatorStatus :: AttrLabelProxy "status"
indicatorStatus = AttrLabelProxy
indicatorTitle :: AttrLabelProxy "title"
indicatorTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Indicator = IndicatorSignalList
type IndicatorSignalList = ('[ '("connectionChanged", IndicatorConnectionChangedSignalInfo), '("newAttentionIcon", IndicatorNewAttentionIconSignalInfo), '("newIcon", IndicatorNewIconSignalInfo), '("newIconThemePath", IndicatorNewIconThemePathSignalInfo), '("newLabel", IndicatorNewLabelSignalInfo), '("newStatus", IndicatorNewStatusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("scrollEvent", IndicatorScrollEventSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "app_indicator_new" app_indicator_new ::
CString ->
CString ->
CUInt ->
IO (Ptr Indicator)
indicatorNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> AyatanaAppIndicator3.Enums.IndicatorCategory
-> m Indicator
indicatorNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Text -> IndicatorCategory -> m Indicator
indicatorNew Text
id Text
iconName IndicatorCategory
category = IO Indicator -> m Indicator
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Indicator -> m Indicator) -> IO Indicator -> m Indicator
forall a b. (a -> b) -> a -> b
$ do
CString
id' <- Text -> IO CString
textToCString Text
id
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
let category' :: CUInt
category' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (IndicatorCategory -> Int) -> IndicatorCategory -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. IndicatorCategory -> Int
forall a. Enum a => a -> Int
fromEnum) IndicatorCategory
category
Ptr Indicator
result <- CString -> CString -> CUInt -> IO (Ptr Indicator)
app_indicator_new CString
id' CString
iconName' CUInt
category'
Text -> Ptr Indicator -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorNew" Ptr Indicator
result
Indicator
result' <- ((ManagedPtr Indicator -> Indicator)
-> Ptr Indicator -> IO Indicator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Indicator -> Indicator
Indicator) Ptr Indicator
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
id'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
Indicator -> IO Indicator
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Indicator
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "app_indicator_new_with_path" app_indicator_new_with_path ::
CString ->
CString ->
CUInt ->
CString ->
IO (Ptr Indicator)
indicatorNewWithPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> AyatanaAppIndicator3.Enums.IndicatorCategory
-> T.Text
-> m Indicator
indicatorNewWithPath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Text -> IndicatorCategory -> Text -> m Indicator
indicatorNewWithPath Text
id Text
iconName IndicatorCategory
category Text
iconThemePath = IO Indicator -> m Indicator
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Indicator -> m Indicator) -> IO Indicator -> m Indicator
forall a b. (a -> b) -> a -> b
$ do
CString
id' <- Text -> IO CString
textToCString Text
id
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
let category' :: CUInt
category' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (IndicatorCategory -> Int) -> IndicatorCategory -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. IndicatorCategory -> Int
forall a. Enum a => a -> Int
fromEnum) IndicatorCategory
category
CString
iconThemePath' <- Text -> IO CString
textToCString Text
iconThemePath
Ptr Indicator
result <- CString -> CString -> CUInt -> CString -> IO (Ptr Indicator)
app_indicator_new_with_path CString
id' CString
iconName' CUInt
category' CString
iconThemePath'
Text -> Ptr Indicator -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorNewWithPath" Ptr Indicator
result
Indicator
result' <- ((ManagedPtr Indicator -> Indicator)
-> Ptr Indicator -> IO Indicator
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Indicator -> Indicator
Indicator) Ptr Indicator
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
id'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconThemePath'
Indicator -> IO Indicator
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Indicator
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "app_indicator_build_menu_from_desktop" ::
Ptr Indicator ->
CString ->
CString ->
IO ()
indicatorBuildMenuFromDesktop ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> T.Text
-> m ()
a
self Text
desktopFile Text
desktopProfile = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
desktopFile' <- Text -> IO CString
textToCString Text
desktopFile
CString
desktopProfile' <- Text -> IO CString
textToCString Text
desktopProfile
Ptr Indicator -> CString -> CString -> IO ()
app_indicator_build_menu_from_desktop Ptr Indicator
self' CString
desktopFile' CString
desktopProfile'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
desktopFile'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
desktopProfile'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorBuildMenuFromDesktopMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorBuildMenuFromDesktopMethodInfo a signature where
overloadedMethod = indicatorBuildMenuFromDesktop
instance O.OverloadedMethodInfo IndicatorBuildMenuFromDesktopMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorBuildMenuFromDesktop",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorBuildMenuFromDesktop"
})
#endif
foreign import ccall "app_indicator_get_attention_icon" app_indicator_get_attention_icon ::
Ptr Indicator ->
IO CString
indicatorGetAttentionIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetAttentionIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetAttentionIcon a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_attention_icon Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetAttentionIcon" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetAttentionIconMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetAttentionIconMethodInfo a signature where
overloadedMethod = indicatorGetAttentionIcon
instance O.OverloadedMethodInfo IndicatorGetAttentionIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetAttentionIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetAttentionIcon"
})
#endif
foreign import ccall "app_indicator_get_attention_icon_desc" app_indicator_get_attention_icon_desc ::
Ptr Indicator ->
IO CString
indicatorGetAttentionIconDesc ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetAttentionIconDesc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetAttentionIconDesc a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_attention_icon_desc Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetAttentionIconDesc" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetAttentionIconDescMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetAttentionIconDescMethodInfo a signature where
overloadedMethod = indicatorGetAttentionIconDesc
instance O.OverloadedMethodInfo IndicatorGetAttentionIconDescMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetAttentionIconDesc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetAttentionIconDesc"
})
#endif
foreign import ccall "app_indicator_get_category" app_indicator_get_category ::
Ptr Indicator ->
IO CUInt
indicatorGetCategory ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m AyatanaAppIndicator3.Enums.IndicatorCategory
indicatorGetCategory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m IndicatorCategory
indicatorGetCategory a
self = IO IndicatorCategory -> m IndicatorCategory
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IndicatorCategory -> m IndicatorCategory)
-> IO IndicatorCategory -> m IndicatorCategory
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Indicator -> IO CUInt
app_indicator_get_category Ptr Indicator
self'
let result' :: IndicatorCategory
result' = (Int -> IndicatorCategory
forall a. Enum a => Int -> a
toEnum (Int -> IndicatorCategory)
-> (CUInt -> Int) -> CUInt -> IndicatorCategory
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
IndicatorCategory -> IO IndicatorCategory
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return IndicatorCategory
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetCategoryMethodInfo
instance (signature ~ (m AyatanaAppIndicator3.Enums.IndicatorCategory), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetCategoryMethodInfo a signature where
overloadedMethod = indicatorGetCategory
instance O.OverloadedMethodInfo IndicatorGetCategoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetCategory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetCategory"
})
#endif
foreign import ccall "app_indicator_get_icon" app_indicator_get_icon ::
Ptr Indicator ->
IO CString
indicatorGetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetIcon a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_icon Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetIcon" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetIconMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetIconMethodInfo a signature where
overloadedMethod = indicatorGetIcon
instance O.OverloadedMethodInfo IndicatorGetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetIcon"
})
#endif
foreign import ccall "app_indicator_get_icon_desc" app_indicator_get_icon_desc ::
Ptr Indicator ->
IO CString
indicatorGetIconDesc ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetIconDesc :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetIconDesc a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_icon_desc Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetIconDesc" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetIconDescMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetIconDescMethodInfo a signature where
overloadedMethod = indicatorGetIconDesc
instance O.OverloadedMethodInfo IndicatorGetIconDescMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetIconDesc",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetIconDesc"
})
#endif
foreign import ccall "app_indicator_get_icon_theme_path" app_indicator_get_icon_theme_path ::
Ptr Indicator ->
IO CString
indicatorGetIconThemePath ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetIconThemePath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetIconThemePath a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_icon_theme_path Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetIconThemePath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetIconThemePathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetIconThemePathMethodInfo a signature where
overloadedMethod = indicatorGetIconThemePath
instance O.OverloadedMethodInfo IndicatorGetIconThemePathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetIconThemePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetIconThemePath"
})
#endif
foreign import ccall "app_indicator_get_id" app_indicator_get_id ::
Ptr Indicator ->
IO CString
indicatorGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetId a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_id Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetId" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetIdMethodInfo a signature where
overloadedMethod = indicatorGetId
instance O.OverloadedMethodInfo IndicatorGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetId"
})
#endif
foreign import ccall "app_indicator_get_label" app_indicator_get_label ::
Ptr Indicator ->
IO CString
indicatorGetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetLabel a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_label Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetLabel" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetLabelMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetLabelMethodInfo a signature where
overloadedMethod = indicatorGetLabel
instance O.OverloadedMethodInfo IndicatorGetLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetLabel"
})
#endif
foreign import ccall "app_indicator_get_label_guide" app_indicator_get_label_guide ::
Ptr Indicator ->
IO CString
indicatorGetLabelGuide ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetLabelGuide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetLabelGuide a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_label_guide Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetLabelGuide" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetLabelGuideMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetLabelGuideMethodInfo a signature where
overloadedMethod = indicatorGetLabelGuide
instance O.OverloadedMethodInfo IndicatorGetLabelGuideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetLabelGuide",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetLabelGuide"
})
#endif
foreign import ccall "app_indicator_get_menu" ::
Ptr Indicator ->
IO (Ptr Gtk.Menu.Menu)
indicatorGetMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m Gtk.Menu.Menu
a
self = IO Menu -> m Menu
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Menu -> m Menu) -> IO Menu -> m Menu
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Menu
result <- Ptr Indicator -> IO (Ptr Menu)
app_indicator_get_menu Ptr Indicator
self'
Text -> Ptr Menu -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetMenu" Ptr Menu
result
Menu
result' <- ((ManagedPtr Menu -> Menu) -> Ptr Menu -> IO Menu
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Menu -> Menu
Gtk.Menu.Menu) Ptr Menu
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Menu -> IO Menu
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Menu
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetMenuMethodInfo
instance (signature ~ (m Gtk.Menu.Menu), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetMenuMethodInfo a signature where
overloadedMethod = indicatorGetMenu
instance O.OverloadedMethodInfo IndicatorGetMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetMenu"
})
#endif
foreign import ccall "app_indicator_get_ordering_index" app_indicator_get_ordering_index ::
Ptr Indicator ->
IO Word32
indicatorGetOrderingIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m Word32
indicatorGetOrderingIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Word32
indicatorGetOrderingIndex a
self = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Indicator -> IO Word32
app_indicator_get_ordering_index Ptr Indicator
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data IndicatorGetOrderingIndexMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetOrderingIndexMethodInfo a signature where
overloadedMethod = indicatorGetOrderingIndex
instance O.OverloadedMethodInfo IndicatorGetOrderingIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetOrderingIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetOrderingIndex"
})
#endif
foreign import ccall "app_indicator_get_secondary_activate_target" app_indicator_get_secondary_activate_target ::
Ptr Indicator ->
IO (Ptr Gtk.Widget.Widget)
indicatorGetSecondaryActivateTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m Gtk.Widget.Widget
indicatorGetSecondaryActivateTarget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Widget
indicatorGetSecondaryActivateTarget a
self = IO Widget -> m Widget
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Indicator -> IO (Ptr Widget)
app_indicator_get_secondary_activate_target Ptr Indicator
self'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetSecondaryActivateTarget" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetSecondaryActivateTargetMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetSecondaryActivateTargetMethodInfo a signature where
overloadedMethod = indicatorGetSecondaryActivateTarget
instance O.OverloadedMethodInfo IndicatorGetSecondaryActivateTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetSecondaryActivateTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetSecondaryActivateTarget"
})
#endif
foreign import ccall "app_indicator_get_status" app_indicator_get_status ::
Ptr Indicator ->
IO CUInt
indicatorGetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m AyatanaAppIndicator3.Enums.IndicatorStatus
indicatorGetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m IndicatorStatus
indicatorGetStatus a
self = IO IndicatorStatus -> m IndicatorStatus
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO IndicatorStatus -> m IndicatorStatus)
-> IO IndicatorStatus -> m IndicatorStatus
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Indicator -> IO CUInt
app_indicator_get_status Ptr Indicator
self'
let result' :: IndicatorStatus
result' = (Int -> IndicatorStatus
forall a. Enum a => Int -> a
toEnum (Int -> IndicatorStatus)
-> (CUInt -> Int) -> CUInt -> IndicatorStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
IndicatorStatus -> IO IndicatorStatus
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return IndicatorStatus
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetStatusMethodInfo
instance (signature ~ (m AyatanaAppIndicator3.Enums.IndicatorStatus), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetStatusMethodInfo a signature where
overloadedMethod = indicatorGetStatus
instance O.OverloadedMethodInfo IndicatorGetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetStatus"
})
#endif
foreign import ccall "app_indicator_get_title" app_indicator_get_title ::
Ptr Indicator ->
IO CString
indicatorGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> m T.Text
indicatorGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> m Text
indicatorGetTitle a
self = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Indicator -> IO CString
app_indicator_get_title Ptr Indicator
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"indicatorGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data IndicatorGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorGetTitleMethodInfo a signature where
overloadedMethod = indicatorGetTitle
instance O.OverloadedMethodInfo IndicatorGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorGetTitle"
})
#endif
foreign import ccall "app_indicator_set_attention_icon" app_indicator_set_attention_icon ::
Ptr Indicator ->
CString ->
IO ()
{-# DEPRECATED indicatorSetAttentionIcon ["Use 'GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetAttentionIconFull' instead."] #-}
indicatorSetAttentionIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> m ()
indicatorSetAttentionIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> m ()
indicatorSetAttentionIcon a
self Text
iconName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
Ptr Indicator -> CString -> IO ()
app_indicator_set_attention_icon Ptr Indicator
self' CString
iconName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetAttentionIconMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetAttentionIconMethodInfo a signature where
overloadedMethod = indicatorSetAttentionIcon
instance O.OverloadedMethodInfo IndicatorSetAttentionIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetAttentionIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetAttentionIcon"
})
#endif
foreign import ccall "app_indicator_set_attention_icon_full" app_indicator_set_attention_icon_full ::
Ptr Indicator ->
CString ->
CString ->
IO ()
indicatorSetAttentionIconFull ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> Maybe (T.Text)
-> m ()
indicatorSetAttentionIconFull :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> Maybe Text -> m ()
indicatorSetAttentionIconFull a
self Text
iconName Maybe Text
iconDesc = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
CString
maybeIconDesc <- case Maybe Text
iconDesc of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jIconDesc -> do
CString
jIconDesc' <- Text -> IO CString
textToCString Text
jIconDesc
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jIconDesc'
Ptr Indicator -> CString -> CString -> IO ()
app_indicator_set_attention_icon_full Ptr Indicator
self' CString
iconName' CString
maybeIconDesc
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeIconDesc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetAttentionIconFullMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetAttentionIconFullMethodInfo a signature where
overloadedMethod = indicatorSetAttentionIconFull
instance O.OverloadedMethodInfo IndicatorSetAttentionIconFullMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetAttentionIconFull",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetAttentionIconFull"
})
#endif
foreign import ccall "app_indicator_set_icon" app_indicator_set_icon ::
Ptr Indicator ->
CString ->
IO ()
{-# DEPRECATED indicatorSetIcon ["Use 'GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetIconFull'"] #-}
indicatorSetIcon ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> m ()
indicatorSetIcon :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> m ()
indicatorSetIcon a
self Text
iconName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
Ptr Indicator -> CString -> IO ()
app_indicator_set_icon Ptr Indicator
self' CString
iconName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetIconMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetIconMethodInfo a signature where
overloadedMethod = indicatorSetIcon
instance O.OverloadedMethodInfo IndicatorSetIconMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetIcon",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetIcon"
})
#endif
foreign import ccall "app_indicator_set_icon_full" app_indicator_set_icon_full ::
Ptr Indicator ->
CString ->
CString ->
IO ()
indicatorSetIconFull ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> Maybe (T.Text)
-> m ()
indicatorSetIconFull :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> Maybe Text -> m ()
indicatorSetIconFull a
self Text
iconName Maybe Text
iconDesc = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
iconName' <- Text -> IO CString
textToCString Text
iconName
CString
maybeIconDesc <- case Maybe Text
iconDesc of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jIconDesc -> do
CString
jIconDesc' <- Text -> IO CString
textToCString Text
jIconDesc
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jIconDesc'
Ptr Indicator -> CString -> CString -> IO ()
app_indicator_set_icon_full Ptr Indicator
self' CString
iconName' CString
maybeIconDesc
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconName'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeIconDesc
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetIconFullMethodInfo
instance (signature ~ (T.Text -> Maybe (T.Text) -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetIconFullMethodInfo a signature where
overloadedMethod = indicatorSetIconFull
instance O.OverloadedMethodInfo IndicatorSetIconFullMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetIconFull",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetIconFull"
})
#endif
foreign import ccall "app_indicator_set_icon_theme_path" app_indicator_set_icon_theme_path ::
Ptr Indicator ->
CString ->
IO ()
indicatorSetIconThemePath ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> m ()
indicatorSetIconThemePath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> m ()
indicatorSetIconThemePath a
self Text
iconThemePath = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
iconThemePath' <- Text -> IO CString
textToCString Text
iconThemePath
Ptr Indicator -> CString -> IO ()
app_indicator_set_icon_theme_path Ptr Indicator
self' CString
iconThemePath'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
iconThemePath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetIconThemePathMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetIconThemePathMethodInfo a signature where
overloadedMethod = indicatorSetIconThemePath
instance O.OverloadedMethodInfo IndicatorSetIconThemePathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetIconThemePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetIconThemePath"
})
#endif
foreign import ccall "app_indicator_set_label" app_indicator_set_label ::
Ptr Indicator ->
CString ->
CString ->
IO ()
indicatorSetLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> T.Text
-> T.Text
-> m ()
indicatorSetLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Text -> Text -> m ()
indicatorSetLabel a
self Text
label Text
guide = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
label' <- Text -> IO CString
textToCString Text
label
CString
guide' <- Text -> IO CString
textToCString Text
guide
Ptr Indicator -> CString -> CString -> IO ()
app_indicator_set_label Ptr Indicator
self' CString
label' CString
guide'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
label'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
guide'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetLabelMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetLabelMethodInfo a signature where
overloadedMethod = indicatorSetLabel
instance O.OverloadedMethodInfo IndicatorSetLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetLabel"
})
#endif
foreign import ccall "app_indicator_set_menu" ::
Ptr Indicator ->
Ptr Gtk.Menu.Menu ->
IO ()
indicatorSetMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a, Gtk.Menu.IsMenu b) =>
a
-> Maybe (b)
-> m ()
a
self Maybe b
menu = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Menu
maybeMenu <- case Maybe b
menu of
Maybe b
Nothing -> Ptr Menu -> IO (Ptr Menu)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Menu
forall a. Ptr a
nullPtr
Just b
jMenu -> do
Ptr Menu
jMenu' <- b -> IO (Ptr Menu)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenu
Ptr Menu -> IO (Ptr Menu)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Menu
jMenu'
Ptr Indicator -> Ptr Menu -> IO ()
app_indicator_set_menu Ptr Indicator
self' Ptr Menu
maybeMenu
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menu b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsIndicator a, Gtk.Menu.IsMenu b) => O.OverloadedMethod IndicatorSetMenuMethodInfo a signature where
overloadedMethod = indicatorSetMenu
instance O.OverloadedMethodInfo IndicatorSetMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetMenu"
})
#endif
foreign import ccall "app_indicator_set_ordering_index" app_indicator_set_ordering_index ::
Ptr Indicator ->
Word32 ->
IO ()
indicatorSetOrderingIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> Word32
-> m ()
indicatorSetOrderingIndex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Word32 -> m ()
indicatorSetOrderingIndex a
self Word32
orderingIndex = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Indicator -> Word32 -> IO ()
app_indicator_set_ordering_index Ptr Indicator
self' Word32
orderingIndex
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetOrderingIndexMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetOrderingIndexMethodInfo a signature where
overloadedMethod = indicatorSetOrderingIndex
instance O.OverloadedMethodInfo IndicatorSetOrderingIndexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetOrderingIndex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetOrderingIndex"
})
#endif
foreign import ccall "app_indicator_set_secondary_activate_target" app_indicator_set_secondary_activate_target ::
Ptr Indicator ->
Ptr Gtk.Widget.Widget ->
IO ()
indicatorSetSecondaryActivateTarget ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
indicatorSetSecondaryActivateTarget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIndicator a, IsWidget b) =>
a -> Maybe b -> m ()
indicatorSetSecondaryActivateTarget a
self Maybe b
menuitem = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeMenuitem <- case Maybe b
menuitem of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jMenuitem -> do
Ptr Widget
jMenuitem' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenuitem
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenuitem'
Ptr Indicator -> Ptr Widget -> IO ()
app_indicator_set_secondary_activate_target Ptr Indicator
self' Ptr Widget
maybeMenuitem
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menuitem b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetSecondaryActivateTargetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsIndicator a, Gtk.Widget.IsWidget b) => O.OverloadedMethod IndicatorSetSecondaryActivateTargetMethodInfo a signature where
overloadedMethod = indicatorSetSecondaryActivateTarget
instance O.OverloadedMethodInfo IndicatorSetSecondaryActivateTargetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetSecondaryActivateTarget",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetSecondaryActivateTarget"
})
#endif
foreign import ccall "app_indicator_set_status" app_indicator_set_status ::
Ptr Indicator ->
CUInt ->
IO ()
indicatorSetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> AyatanaAppIndicator3.Enums.IndicatorStatus
-> m ()
indicatorSetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> IndicatorStatus -> m ()
indicatorSetStatus a
self IndicatorStatus
status = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let status' :: CUInt
status' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (IndicatorStatus -> Int) -> IndicatorStatus -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. IndicatorStatus -> Int
forall a. Enum a => a -> Int
fromEnum) IndicatorStatus
status
Ptr Indicator -> CUInt -> IO ()
app_indicator_set_status Ptr Indicator
self' CUInt
status'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetStatusMethodInfo
instance (signature ~ (AyatanaAppIndicator3.Enums.IndicatorStatus -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetStatusMethodInfo a signature where
overloadedMethod = indicatorSetStatus
instance O.OverloadedMethodInfo IndicatorSetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetStatus"
})
#endif
foreign import ccall "app_indicator_set_title" app_indicator_set_title ::
Ptr Indicator ->
CString ->
IO ()
indicatorSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsIndicator a) =>
a
-> Maybe (T.Text)
-> m ()
indicatorSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIndicator a) =>
a -> Maybe Text -> m ()
indicatorSetTitle a
self Maybe Text
title = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Indicator
self' <- a -> IO (Ptr Indicator)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeTitle <- case Maybe Text
title of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jTitle -> do
CString
jTitle' <- Text -> IO CString
textToCString Text
jTitle
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jTitle'
Ptr Indicator -> CString -> IO ()
app_indicator_set_title Ptr Indicator
self' CString
maybeTitle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeTitle
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndicatorSetTitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsIndicator a) => O.OverloadedMethod IndicatorSetTitleMethodInfo a signature where
overloadedMethod = indicatorSetTitle
instance O.OverloadedMethodInfo IndicatorSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.AyatanaAppIndicator3.Objects.Indicator.indicatorSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ayatana-appindicator3-0.1.0/docs/GI-AyatanaAppIndicator3-Objects-Indicator.html#v:indicatorSetTitle"
})
#endif