{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Adw.Objects.Toast
(
Toast(..) ,
IsToast ,
toToast ,
#if defined(ENABLE_OVERLOADING)
ResolveToastMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastDismissMethodInfo ,
#endif
toastDismiss ,
#if defined(ENABLE_OVERLOADING)
ToastGetActionNameMethodInfo ,
#endif
toastGetActionName ,
#if defined(ENABLE_OVERLOADING)
ToastGetActionTargetValueMethodInfo ,
#endif
toastGetActionTargetValue ,
#if defined(ENABLE_OVERLOADING)
ToastGetButtonLabelMethodInfo ,
#endif
toastGetButtonLabel ,
#if defined(ENABLE_OVERLOADING)
ToastGetCustomTitleMethodInfo ,
#endif
toastGetCustomTitle ,
#if defined(ENABLE_OVERLOADING)
ToastGetPriorityMethodInfo ,
#endif
toastGetPriority ,
#if defined(ENABLE_OVERLOADING)
ToastGetTimeoutMethodInfo ,
#endif
toastGetTimeout ,
#if defined(ENABLE_OVERLOADING)
ToastGetTitleMethodInfo ,
#endif
toastGetTitle ,
toastNew ,
#if defined(ENABLE_OVERLOADING)
ToastSetActionNameMethodInfo ,
#endif
toastSetActionName ,
#if defined(ENABLE_OVERLOADING)
ToastSetActionTargetValueMethodInfo ,
#endif
toastSetActionTargetValue ,
#if defined(ENABLE_OVERLOADING)
ToastSetButtonLabelMethodInfo ,
#endif
toastSetButtonLabel ,
#if defined(ENABLE_OVERLOADING)
ToastSetCustomTitleMethodInfo ,
#endif
toastSetCustomTitle ,
#if defined(ENABLE_OVERLOADING)
ToastSetDetailedActionNameMethodInfo ,
#endif
toastSetDetailedActionName ,
#if defined(ENABLE_OVERLOADING)
ToastSetPriorityMethodInfo ,
#endif
toastSetPriority ,
#if defined(ENABLE_OVERLOADING)
ToastSetTimeoutMethodInfo ,
#endif
toastSetTimeout ,
#if defined(ENABLE_OVERLOADING)
ToastSetTitleMethodInfo ,
#endif
toastSetTitle ,
#if defined(ENABLE_OVERLOADING)
ToastActionNamePropertyInfo ,
#endif
clearToastActionName ,
constructToastActionName ,
getToastActionName ,
setToastActionName ,
#if defined(ENABLE_OVERLOADING)
toastActionName ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastActionTargetPropertyInfo ,
#endif
clearToastActionTarget ,
constructToastActionTarget ,
getToastActionTarget ,
setToastActionTarget ,
#if defined(ENABLE_OVERLOADING)
toastActionTarget ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastButtonLabelPropertyInfo ,
#endif
clearToastButtonLabel ,
constructToastButtonLabel ,
getToastButtonLabel ,
setToastButtonLabel ,
#if defined(ENABLE_OVERLOADING)
toastButtonLabel ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastCustomTitlePropertyInfo ,
#endif
clearToastCustomTitle ,
constructToastCustomTitle ,
getToastCustomTitle ,
setToastCustomTitle ,
#if defined(ENABLE_OVERLOADING)
toastCustomTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastPriorityPropertyInfo ,
#endif
constructToastPriority ,
getToastPriority ,
setToastPriority ,
#if defined(ENABLE_OVERLOADING)
toastPriority ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastTimeoutPropertyInfo ,
#endif
constructToastTimeout ,
getToastTimeout ,
setToastTimeout ,
#if defined(ENABLE_OVERLOADING)
toastTimeout ,
#endif
#if defined(ENABLE_OVERLOADING)
ToastTitlePropertyInfo ,
#endif
constructToastTitle ,
getToastTitle ,
setToastTitle ,
#if defined(ENABLE_OVERLOADING)
toastTitle ,
#endif
ToastButtonClickedCallback ,
#if defined(ENABLE_OVERLOADING)
ToastButtonClickedSignalInfo ,
#endif
afterToastButtonClicked ,
onToastButtonClicked ,
ToastDismissedCallback ,
#if defined(ENABLE_OVERLOADING)
ToastDismissedSignalInfo ,
#endif
afterToastDismissed ,
onToastDismissed ,
) 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.Adw.Enums as Adw.Enums
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Toast = Toast (SP.ManagedPtr Toast)
deriving (Toast -> Toast -> Bool
(Toast -> Toast -> Bool) -> (Toast -> Toast -> Bool) -> Eq Toast
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Toast -> Toast -> Bool
== :: Toast -> Toast -> Bool
$c/= :: Toast -> Toast -> Bool
/= :: Toast -> Toast -> Bool
Eq)
instance SP.ManagedPtrNewtype Toast where
toManagedPtr :: Toast -> ManagedPtr Toast
toManagedPtr (Toast ManagedPtr Toast
p) = ManagedPtr Toast
p
foreign import ccall "adw_toast_get_type"
c_adw_toast_get_type :: IO B.Types.GType
instance B.Types.TypedObject Toast where
glibType :: IO GType
glibType = IO GType
c_adw_toast_get_type
instance B.Types.GObject Toast
class (SP.GObject o, O.IsDescendantOf Toast o) => IsToast o
instance (SP.GObject o, O.IsDescendantOf Toast o) => IsToast o
instance O.HasParentTypes Toast
type instance O.ParentTypes Toast = '[GObject.Object.Object]
toToast :: (MIO.MonadIO m, IsToast o) => o -> m Toast
toToast :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m Toast
toToast = IO Toast -> m Toast
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Toast -> m Toast) -> (o -> IO Toast) -> o -> m Toast
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Toast -> Toast) -> o -> IO Toast
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Toast -> Toast
Toast
instance B.GValue.IsGValue (Maybe Toast) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_adw_toast_get_type
gvalueSet_ :: Ptr GValue -> Maybe Toast -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Toast
P.Nothing = Ptr GValue -> Ptr Toast -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Toast
forall a. Ptr a
FP.nullPtr :: FP.Ptr Toast)
gvalueSet_ Ptr GValue
gv (P.Just Toast
obj) = Toast -> (Ptr Toast -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Toast
obj (Ptr GValue -> Ptr Toast -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Toast)
gvalueGet_ Ptr GValue
gv = do
Ptr Toast
ptr <- Ptr GValue -> IO (Ptr Toast)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Toast)
if Ptr Toast
ptr Ptr Toast -> Ptr Toast -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Toast
forall a. Ptr a
FP.nullPtr
then Toast -> Maybe Toast
forall a. a -> Maybe a
P.Just (Toast -> Maybe Toast) -> IO Toast -> IO (Maybe Toast)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Toast -> Toast) -> Ptr Toast -> IO Toast
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Toast -> Toast
Toast Ptr Toast
ptr
else Maybe Toast -> IO (Maybe Toast)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Toast
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveToastMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveToastMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveToastMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveToastMethod "dismiss" o = ToastDismissMethodInfo
ResolveToastMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveToastMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveToastMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveToastMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveToastMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveToastMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveToastMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveToastMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveToastMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveToastMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveToastMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveToastMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveToastMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveToastMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveToastMethod "getActionName" o = ToastGetActionNameMethodInfo
ResolveToastMethod "getActionTargetValue" o = ToastGetActionTargetValueMethodInfo
ResolveToastMethod "getButtonLabel" o = ToastGetButtonLabelMethodInfo
ResolveToastMethod "getCustomTitle" o = ToastGetCustomTitleMethodInfo
ResolveToastMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveToastMethod "getPriority" o = ToastGetPriorityMethodInfo
ResolveToastMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveToastMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveToastMethod "getTimeout" o = ToastGetTimeoutMethodInfo
ResolveToastMethod "getTitle" o = ToastGetTitleMethodInfo
ResolveToastMethod "setActionName" o = ToastSetActionNameMethodInfo
ResolveToastMethod "setActionTargetValue" o = ToastSetActionTargetValueMethodInfo
ResolveToastMethod "setButtonLabel" o = ToastSetButtonLabelMethodInfo
ResolveToastMethod "setCustomTitle" o = ToastSetCustomTitleMethodInfo
ResolveToastMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveToastMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveToastMethod "setDetailedActionName" o = ToastSetDetailedActionNameMethodInfo
ResolveToastMethod "setPriority" o = ToastSetPriorityMethodInfo
ResolveToastMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveToastMethod "setTimeout" o = ToastSetTimeoutMethodInfo
ResolveToastMethod "setTitle" o = ToastSetTitleMethodInfo
ResolveToastMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveToastMethod t Toast, O.OverloadedMethod info Toast p) => OL.IsLabel t (Toast -> 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 ~ ResolveToastMethod t Toast, O.OverloadedMethod info Toast p, R.HasField t Toast p) => R.HasField t Toast p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveToastMethod t Toast, O.OverloadedMethodInfo info Toast) => OL.IsLabel t (O.MethodProxy info Toast) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ToastButtonClickedCallback =
IO ()
type C_ToastButtonClickedCallback =
Ptr Toast ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ToastButtonClickedCallback :: C_ToastButtonClickedCallback -> IO (FunPtr C_ToastButtonClickedCallback)
wrap_ToastButtonClickedCallback ::
GObject a => (a -> ToastButtonClickedCallback) ->
C_ToastButtonClickedCallback
wrap_ToastButtonClickedCallback :: forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastButtonClickedCallback a -> IO ()
gi'cb Ptr Toast
gi'selfPtr Ptr ()
_ = do
Ptr Toast -> (Toast -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Toast
gi'selfPtr ((Toast -> IO ()) -> IO ()) -> (Toast -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Toast
gi'self -> a -> IO ()
gi'cb (Toast -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Toast
gi'self)
onToastButtonClicked :: (IsToast a, MonadIO m) => a -> ((?self :: a) => ToastButtonClickedCallback) -> m SignalHandlerId
onToastButtonClicked :: forall a (m :: * -> *).
(IsToast a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onToastButtonClicked 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_ToastButtonClickedCallback
wrapped' = (a -> IO ()) -> C_ToastButtonClickedCallback
forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastButtonClickedCallback a -> IO ()
wrapped
FunPtr C_ToastButtonClickedCallback
wrapped'' <- C_ToastButtonClickedCallback
-> IO (FunPtr C_ToastButtonClickedCallback)
mk_ToastButtonClickedCallback C_ToastButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_ToastButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-clicked" FunPtr C_ToastButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterToastButtonClicked :: (IsToast a, MonadIO m) => a -> ((?self :: a) => ToastButtonClickedCallback) -> m SignalHandlerId
afterToastButtonClicked :: forall a (m :: * -> *).
(IsToast a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterToastButtonClicked 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_ToastButtonClickedCallback
wrapped' = (a -> IO ()) -> C_ToastButtonClickedCallback
forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastButtonClickedCallback a -> IO ()
wrapped
FunPtr C_ToastButtonClickedCallback
wrapped'' <- C_ToastButtonClickedCallback
-> IO (FunPtr C_ToastButtonClickedCallback)
mk_ToastButtonClickedCallback C_ToastButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_ToastButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"button-clicked" FunPtr C_ToastButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ToastButtonClickedSignalInfo
instance SignalInfo ToastButtonClickedSignalInfo where
type HaskellCallbackType ToastButtonClickedSignalInfo = ToastButtonClickedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ToastButtonClickedCallback cb
cb'' <- mk_ToastButtonClickedCallback cb'
connectSignalFunPtr obj "button-clicked" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast::button-clicked"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:signal:buttonClicked"})
#endif
type ToastDismissedCallback =
IO ()
type C_ToastDismissedCallback =
Ptr Toast ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ToastDismissedCallback :: C_ToastDismissedCallback -> IO (FunPtr C_ToastDismissedCallback)
wrap_ToastDismissedCallback ::
GObject a => (a -> ToastDismissedCallback) ->
C_ToastDismissedCallback
wrap_ToastDismissedCallback :: forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastDismissedCallback a -> IO ()
gi'cb Ptr Toast
gi'selfPtr Ptr ()
_ = do
Ptr Toast -> (Toast -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Toast
gi'selfPtr ((Toast -> IO ()) -> IO ()) -> (Toast -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Toast
gi'self -> a -> IO ()
gi'cb (Toast -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Toast
gi'self)
onToastDismissed :: (IsToast a, MonadIO m) => a -> ((?self :: a) => ToastDismissedCallback) -> m SignalHandlerId
onToastDismissed :: forall a (m :: * -> *).
(IsToast a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onToastDismissed 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_ToastButtonClickedCallback
wrapped' = (a -> IO ()) -> C_ToastButtonClickedCallback
forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastDismissedCallback a -> IO ()
wrapped
FunPtr C_ToastButtonClickedCallback
wrapped'' <- C_ToastButtonClickedCallback
-> IO (FunPtr C_ToastButtonClickedCallback)
mk_ToastDismissedCallback C_ToastButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_ToastButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"dismissed" FunPtr C_ToastButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterToastDismissed :: (IsToast a, MonadIO m) => a -> ((?self :: a) => ToastDismissedCallback) -> m SignalHandlerId
afterToastDismissed :: forall a (m :: * -> *).
(IsToast a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterToastDismissed 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_ToastButtonClickedCallback
wrapped' = (a -> IO ()) -> C_ToastButtonClickedCallback
forall a. GObject a => (a -> IO ()) -> C_ToastButtonClickedCallback
wrap_ToastDismissedCallback a -> IO ()
wrapped
FunPtr C_ToastButtonClickedCallback
wrapped'' <- C_ToastButtonClickedCallback
-> IO (FunPtr C_ToastButtonClickedCallback)
mk_ToastDismissedCallback C_ToastButtonClickedCallback
wrapped'
a
-> Text
-> FunPtr C_ToastButtonClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"dismissed" FunPtr C_ToastButtonClickedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ToastDismissedSignalInfo
instance SignalInfo ToastDismissedSignalInfo where
type HaskellCallbackType ToastDismissedSignalInfo = ToastDismissedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ToastDismissedCallback cb
cb'' <- mk_ToastDismissedCallback cb'
connectSignalFunPtr obj "dismissed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast::dismissed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:signal:dismissed"})
#endif
getToastActionName :: (MonadIO m, IsToast o) => o -> m (Maybe T.Text)
getToastActionName :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m (Maybe Text)
getToastActionName 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
"action-name"
setToastActionName :: (MonadIO m, IsToast o) => o -> T.Text -> m ()
setToastActionName :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> Text -> m ()
setToastActionName 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
"action-name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructToastActionName :: (IsToast o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructToastActionName :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructToastActionName 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
"action-name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearToastActionName :: (MonadIO m, IsToast o) => o -> m ()
clearToastActionName :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m ()
clearToastActionName 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
"action-name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ToastActionNamePropertyInfo
instance AttrInfo ToastActionNamePropertyInfo where
type AttrAllowedOps ToastActionNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ToastActionNamePropertyInfo = IsToast
type AttrSetTypeConstraint ToastActionNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ToastActionNamePropertyInfo = (~) T.Text
type AttrTransferType ToastActionNamePropertyInfo = T.Text
type AttrGetType ToastActionNamePropertyInfo = (Maybe T.Text)
type AttrLabel ToastActionNamePropertyInfo = "action-name"
type AttrOrigin ToastActionNamePropertyInfo = Toast
attrGet = getToastActionName
attrSet = setToastActionName
attrTransfer _ v = do
return v
attrConstruct = constructToastActionName
attrClear = clearToastActionName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.actionName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:actionName"
})
#endif
getToastActionTarget :: (MonadIO m, IsToast o) => o -> m (Maybe GVariant)
getToastActionTarget :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m (Maybe GVariant)
getToastActionTarget o
obj = IO (Maybe GVariant) -> m (Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe GVariant)
forall a. GObject a => a -> String -> IO (Maybe GVariant)
B.Properties.getObjectPropertyVariant o
obj String
"action-target"
setToastActionTarget :: (MonadIO m, IsToast o) => o -> GVariant -> m ()
setToastActionTarget :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> GVariant -> m ()
setToastActionTarget o
obj GVariant
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 GVariant -> IO ()
forall a. GObject a => a -> String -> Maybe GVariant -> IO ()
B.Properties.setObjectPropertyVariant o
obj String
"action-target" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
Just GVariant
val)
constructToastActionTarget :: (IsToast o, MIO.MonadIO m) => GVariant -> m (GValueConstruct o)
constructToastActionTarget :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
GVariant -> m (GValueConstruct o)
constructToastActionTarget GVariant
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 GVariant -> IO (GValueConstruct o)
forall o. String -> Maybe GVariant -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyVariant String
"action-target" (GVariant -> Maybe GVariant
forall a. a -> Maybe a
P.Just GVariant
val)
clearToastActionTarget :: (MonadIO m, IsToast o) => o -> m ()
clearToastActionTarget :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m ()
clearToastActionTarget 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 GVariant -> IO ()
forall a. GObject a => a -> String -> Maybe GVariant -> IO ()
B.Properties.setObjectPropertyVariant o
obj String
"action-target" (Maybe GVariant
forall a. Maybe a
Nothing :: Maybe GVariant)
#if defined(ENABLE_OVERLOADING)
data ToastActionTargetPropertyInfo
instance AttrInfo ToastActionTargetPropertyInfo where
type AttrAllowedOps ToastActionTargetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ToastActionTargetPropertyInfo = IsToast
type AttrSetTypeConstraint ToastActionTargetPropertyInfo = (~) GVariant
type AttrTransferTypeConstraint ToastActionTargetPropertyInfo = (~) GVariant
type AttrTransferType ToastActionTargetPropertyInfo = GVariant
type AttrGetType ToastActionTargetPropertyInfo = (Maybe GVariant)
type AttrLabel ToastActionTargetPropertyInfo = "action-target"
type AttrOrigin ToastActionTargetPropertyInfo = Toast
attrGet = getToastActionTarget
attrSet = setToastActionTarget
attrTransfer _ v = do
return v
attrConstruct = constructToastActionTarget
attrClear = clearToastActionTarget
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.actionTarget"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:actionTarget"
})
#endif
getToastButtonLabel :: (MonadIO m, IsToast o) => o -> m (Maybe T.Text)
getToastButtonLabel :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m (Maybe Text)
getToastButtonLabel 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
"button-label"
setToastButtonLabel :: (MonadIO m, IsToast o) => o -> T.Text -> m ()
setToastButtonLabel :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> Text -> m ()
setToastButtonLabel 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
"button-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructToastButtonLabel :: (IsToast o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructToastButtonLabel :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructToastButtonLabel 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
"button-label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearToastButtonLabel :: (MonadIO m, IsToast o) => o -> m ()
clearToastButtonLabel :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m ()
clearToastButtonLabel 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
"button-label" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ToastButtonLabelPropertyInfo
instance AttrInfo ToastButtonLabelPropertyInfo where
type AttrAllowedOps ToastButtonLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ToastButtonLabelPropertyInfo = IsToast
type AttrSetTypeConstraint ToastButtonLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ToastButtonLabelPropertyInfo = (~) T.Text
type AttrTransferType ToastButtonLabelPropertyInfo = T.Text
type AttrGetType ToastButtonLabelPropertyInfo = (Maybe T.Text)
type AttrLabel ToastButtonLabelPropertyInfo = "button-label"
type AttrOrigin ToastButtonLabelPropertyInfo = Toast
attrGet = getToastButtonLabel
attrSet = setToastButtonLabel
attrTransfer _ v = do
return v
attrConstruct = constructToastButtonLabel
attrClear = clearToastButtonLabel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.buttonLabel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:buttonLabel"
})
#endif
getToastCustomTitle :: (MonadIO m, IsToast o) => o -> m (Maybe Gtk.Widget.Widget)
getToastCustomTitle :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m (Maybe Widget)
getToastCustomTitle o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"custom-title" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setToastCustomTitle :: (MonadIO m, IsToast o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setToastCustomTitle :: forall (m :: * -> *) o a.
(MonadIO m, IsToast o, IsWidget a) =>
o -> a -> m ()
setToastCustomTitle o
obj a
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 a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"custom-title" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructToastCustomTitle :: (IsToast o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructToastCustomTitle :: forall o (m :: * -> *) a.
(IsToast o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructToastCustomTitle a
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 a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"custom-title" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearToastCustomTitle :: (MonadIO m, IsToast o) => o -> m ()
clearToastCustomTitle :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m ()
clearToastCustomTitle 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 Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"custom-title" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data ToastCustomTitlePropertyInfo
instance AttrInfo ToastCustomTitlePropertyInfo where
type AttrAllowedOps ToastCustomTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ToastCustomTitlePropertyInfo = IsToast
type AttrSetTypeConstraint ToastCustomTitlePropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint ToastCustomTitlePropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType ToastCustomTitlePropertyInfo = Gtk.Widget.Widget
type AttrGetType ToastCustomTitlePropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel ToastCustomTitlePropertyInfo = "custom-title"
type AttrOrigin ToastCustomTitlePropertyInfo = Toast
attrGet = getToastCustomTitle
attrSet = setToastCustomTitle
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructToastCustomTitle
attrClear = clearToastCustomTitle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.customTitle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:customTitle"
})
#endif
getToastPriority :: (MonadIO m, IsToast o) => o -> m Adw.Enums.ToastPriority
getToastPriority :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m ToastPriority
getToastPriority o
obj = IO ToastPriority -> m ToastPriority
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ToastPriority -> m ToastPriority)
-> IO ToastPriority -> m ToastPriority
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ToastPriority
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"priority"
setToastPriority :: (MonadIO m, IsToast o) => o -> Adw.Enums.ToastPriority -> m ()
setToastPriority :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> ToastPriority -> m ()
setToastPriority o
obj ToastPriority
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 -> ToastPriority -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"priority" ToastPriority
val
constructToastPriority :: (IsToast o, MIO.MonadIO m) => Adw.Enums.ToastPriority -> m (GValueConstruct o)
constructToastPriority :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
ToastPriority -> m (GValueConstruct o)
constructToastPriority ToastPriority
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 -> ToastPriority -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"priority" ToastPriority
val
#if defined(ENABLE_OVERLOADING)
data ToastPriorityPropertyInfo
instance AttrInfo ToastPriorityPropertyInfo where
type AttrAllowedOps ToastPriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToastPriorityPropertyInfo = IsToast
type AttrSetTypeConstraint ToastPriorityPropertyInfo = (~) Adw.Enums.ToastPriority
type AttrTransferTypeConstraint ToastPriorityPropertyInfo = (~) Adw.Enums.ToastPriority
type AttrTransferType ToastPriorityPropertyInfo = Adw.Enums.ToastPriority
type AttrGetType ToastPriorityPropertyInfo = Adw.Enums.ToastPriority
type AttrLabel ToastPriorityPropertyInfo = "priority"
type AttrOrigin ToastPriorityPropertyInfo = Toast
attrGet = getToastPriority
attrSet = setToastPriority
attrTransfer _ v = do
return v
attrConstruct = constructToastPriority
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.priority"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:priority"
})
#endif
getToastTimeout :: (MonadIO m, IsToast o) => o -> m Word32
getToastTimeout :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> m Word32
getToastTimeout 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
"timeout"
setToastTimeout :: (MonadIO m, IsToast o) => o -> Word32 -> m ()
setToastTimeout :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> Word32 -> m ()
setToastTimeout 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
"timeout" Word32
val
constructToastTimeout :: (IsToast o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructToastTimeout :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructToastTimeout 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
"timeout" Word32
val
#if defined(ENABLE_OVERLOADING)
data ToastTimeoutPropertyInfo
instance AttrInfo ToastTimeoutPropertyInfo where
type AttrAllowedOps ToastTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToastTimeoutPropertyInfo = IsToast
type AttrSetTypeConstraint ToastTimeoutPropertyInfo = (~) Word32
type AttrTransferTypeConstraint ToastTimeoutPropertyInfo = (~) Word32
type AttrTransferType ToastTimeoutPropertyInfo = Word32
type AttrGetType ToastTimeoutPropertyInfo = Word32
type AttrLabel ToastTimeoutPropertyInfo = "timeout"
type AttrOrigin ToastTimeoutPropertyInfo = Toast
attrGet = getToastTimeout
attrSet = setToastTimeout
attrTransfer _ v = do
return v
attrConstruct = constructToastTimeout
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.timeout"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:timeout"
})
#endif
getToastTitle :: (MonadIO m, IsToast o) => o -> m (Maybe T.Text)
getToastTitle :: forall (m :: * -> *) o.
(MonadIO m, IsToast o) =>
o -> m (Maybe Text)
getToastTitle 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
"title"
setToastTitle :: (MonadIO m, IsToast o) => o -> T.Text -> m ()
setToastTitle :: forall (m :: * -> *) o. (MonadIO m, IsToast o) => o -> Text -> m ()
setToastTitle 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)
constructToastTitle :: (IsToast o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructToastTitle :: forall o (m :: * -> *).
(IsToast o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructToastTitle 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)
#if defined(ENABLE_OVERLOADING)
data ToastTitlePropertyInfo
instance AttrInfo ToastTitlePropertyInfo where
type AttrAllowedOps ToastTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ToastTitlePropertyInfo = IsToast
type AttrSetTypeConstraint ToastTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ToastTitlePropertyInfo = (~) T.Text
type AttrTransferType ToastTitlePropertyInfo = T.Text
type AttrGetType ToastTitlePropertyInfo = (Maybe T.Text)
type AttrLabel ToastTitlePropertyInfo = "title"
type AttrOrigin ToastTitlePropertyInfo = Toast
attrGet = getToastTitle
attrSet = setToastTitle
attrTransfer _ v = do
return v
attrConstruct = constructToastTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#g:attr:title"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Toast
type instance O.AttributeList Toast = ToastAttributeList
type ToastAttributeList = ('[ '("actionName", ToastActionNamePropertyInfo), '("actionTarget", ToastActionTargetPropertyInfo), '("buttonLabel", ToastButtonLabelPropertyInfo), '("customTitle", ToastCustomTitlePropertyInfo), '("priority", ToastPriorityPropertyInfo), '("timeout", ToastTimeoutPropertyInfo), '("title", ToastTitlePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
toastActionName :: AttrLabelProxy "actionName"
toastActionName = AttrLabelProxy
toastActionTarget :: AttrLabelProxy "actionTarget"
toastActionTarget = AttrLabelProxy
toastButtonLabel :: AttrLabelProxy "buttonLabel"
toastButtonLabel = AttrLabelProxy
toastCustomTitle :: AttrLabelProxy "customTitle"
toastCustomTitle = AttrLabelProxy
toastPriority :: AttrLabelProxy "priority"
toastPriority = AttrLabelProxy
toastTimeout :: AttrLabelProxy "timeout"
toastTimeout = AttrLabelProxy
toastTitle :: AttrLabelProxy "title"
toastTitle = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Toast = ToastSignalList
type ToastSignalList = ('[ '("buttonClicked", ToastButtonClickedSignalInfo), '("dismissed", ToastDismissedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "adw_toast_new" adw_toast_new ::
CString ->
IO (Ptr Toast)
toastNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m Toast
toastNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => Text -> m Toast
toastNew Text
title = IO Toast -> m Toast
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Toast -> m Toast) -> IO Toast -> m Toast
forall a b. (a -> b) -> a -> b
$ do
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Toast
result <- CString -> IO (Ptr Toast)
adw_toast_new CString
title'
Text -> Ptr Toast -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"toastNew" Ptr Toast
result
Toast
result' <- ((ManagedPtr Toast -> Toast) -> Ptr Toast -> IO Toast
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Toast -> Toast
Toast) Ptr Toast
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
Toast -> IO Toast
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Toast
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "adw_toast_dismiss" adw_toast_dismiss ::
Ptr Toast ->
IO ()
toastDismiss ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m ()
toastDismiss :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m ()
toastDismiss a
self = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Toast -> IO ()
adw_toast_dismiss Ptr Toast
self'
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 ToastDismissMethodInfo
instance (signature ~ (m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastDismissMethodInfo a signature where
overloadedMethod = toastDismiss
instance O.OverloadedMethodInfo ToastDismissMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastDismiss",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastDismiss"
})
#endif
foreign import ccall "adw_toast_get_action_name" adw_toast_get_action_name ::
Ptr Toast ->
IO CString
toastGetActionName ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m (Maybe T.Text)
toastGetActionName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m (Maybe Text)
toastGetActionName a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Toast -> IO CString
adw_toast_get_action_name Ptr Toast
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToastGetActionNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetActionNameMethodInfo a signature where
overloadedMethod = toastGetActionName
instance O.OverloadedMethodInfo ToastGetActionNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetActionName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetActionName"
})
#endif
foreign import ccall "adw_toast_get_action_target_value" adw_toast_get_action_target_value ::
Ptr Toast ->
IO (Ptr GVariant)
toastGetActionTargetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m (Maybe GVariant)
toastGetActionTargetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m (Maybe GVariant)
toastGetActionTargetValue a
self = IO (Maybe GVariant) -> m (Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr GVariant
result <- Ptr Toast -> IO (Ptr GVariant)
adw_toast_get_action_target_value Ptr Toast
self'
Maybe GVariant
maybeResult <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.newGVariantFromPtr Ptr GVariant
result'
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe GVariant -> IO (Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToastGetActionTargetValueMethodInfo
instance (signature ~ (m (Maybe GVariant)), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetActionTargetValueMethodInfo a signature where
overloadedMethod = toastGetActionTargetValue
instance O.OverloadedMethodInfo ToastGetActionTargetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetActionTargetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetActionTargetValue"
})
#endif
foreign import ccall "adw_toast_get_button_label" adw_toast_get_button_label ::
Ptr Toast ->
IO CString
toastGetButtonLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m (Maybe T.Text)
toastGetButtonLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m (Maybe Text)
toastGetButtonLabel a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Toast -> IO CString
adw_toast_get_button_label Ptr Toast
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToastGetButtonLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetButtonLabelMethodInfo a signature where
overloadedMethod = toastGetButtonLabel
instance O.OverloadedMethodInfo ToastGetButtonLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetButtonLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetButtonLabel"
})
#endif
foreign import ccall "adw_toast_get_custom_title" adw_toast_get_custom_title ::
Ptr Toast ->
IO (Ptr Gtk.Widget.Widget)
toastGetCustomTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m (Maybe Gtk.Widget.Widget)
toastGetCustomTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m (Maybe Widget)
toastGetCustomTitle a
self = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
result <- Ptr Toast -> IO (Ptr Widget)
adw_toast_get_custom_title Ptr Toast
self'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
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'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToastGetCustomTitleMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetCustomTitleMethodInfo a signature where
overloadedMethod = toastGetCustomTitle
instance O.OverloadedMethodInfo ToastGetCustomTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetCustomTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetCustomTitle"
})
#endif
foreign import ccall "adw_toast_get_priority" adw_toast_get_priority ::
Ptr Toast ->
IO CUInt
toastGetPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m Adw.Enums.ToastPriority
toastGetPriority :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m ToastPriority
toastGetPriority a
self = IO ToastPriority -> m ToastPriority
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ToastPriority -> m ToastPriority)
-> IO ToastPriority -> m ToastPriority
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Toast -> IO CUInt
adw_toast_get_priority Ptr Toast
self'
let result' :: ToastPriority
result' = (Int -> ToastPriority
forall a. Enum a => Int -> a
toEnum (Int -> ToastPriority) -> (CUInt -> Int) -> CUInt -> ToastPriority
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
ToastPriority -> IO ToastPriority
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ToastPriority
result'
#if defined(ENABLE_OVERLOADING)
data ToastGetPriorityMethodInfo
instance (signature ~ (m Adw.Enums.ToastPriority), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetPriorityMethodInfo a signature where
overloadedMethod = toastGetPriority
instance O.OverloadedMethodInfo ToastGetPriorityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetPriority",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetPriority"
})
#endif
foreign import ccall "adw_toast_get_timeout" adw_toast_get_timeout ::
Ptr Toast ->
IO Word32
toastGetTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m Word32
toastGetTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m Word32
toastGetTimeout 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word32
result <- Ptr Toast -> IO Word32
adw_toast_get_timeout Ptr Toast
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 ToastGetTimeoutMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetTimeoutMethodInfo a signature where
overloadedMethod = toastGetTimeout
instance O.OverloadedMethodInfo ToastGetTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetTimeout"
})
#endif
foreign import ccall "adw_toast_get_title" adw_toast_get_title ::
Ptr Toast ->
IO CString
toastGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> m (Maybe T.Text)
toastGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> m (Maybe Text)
toastGetTitle a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Toast -> IO CString
adw_toast_get_title Ptr Toast
self'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ToastGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsToast a) => O.OverloadedMethod ToastGetTitleMethodInfo a signature where
overloadedMethod = toastGetTitle
instance O.OverloadedMethodInfo ToastGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastGetTitle"
})
#endif
foreign import ccall "adw_toast_set_action_name" adw_toast_set_action_name ::
Ptr Toast ->
CString ->
IO ()
toastSetActionName ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Maybe (T.Text)
-> m ()
toastSetActionName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Maybe Text -> m ()
toastSetActionName a
self Maybe Text
actionName = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeActionName <- case Maybe Text
actionName 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
jActionName -> do
CString
jActionName' <- Text -> IO CString
textToCString Text
jActionName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jActionName'
Ptr Toast -> CString -> IO ()
adw_toast_set_action_name Ptr Toast
self' CString
maybeActionName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeActionName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToastSetActionNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetActionNameMethodInfo a signature where
overloadedMethod = toastSetActionName
instance O.OverloadedMethodInfo ToastSetActionNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetActionName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetActionName"
})
#endif
foreign import ccall "adw_toast_set_action_target_value" adw_toast_set_action_target_value ::
Ptr Toast ->
Ptr GVariant ->
IO ()
toastSetActionTargetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Maybe (GVariant)
-> m ()
toastSetActionTargetValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Maybe GVariant -> m ()
toastSetActionTargetValue a
self Maybe GVariant
actionTarget = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr GVariant
maybeActionTarget <- case Maybe GVariant
actionTarget of
Maybe GVariant
Nothing -> Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
forall a. Ptr a
nullPtr
Just GVariant
jActionTarget -> do
Ptr GVariant
jActionTarget' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
jActionTarget
Ptr GVariant -> IO (Ptr GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr GVariant
jActionTarget'
Ptr Toast -> Ptr GVariant -> IO ()
adw_toast_set_action_target_value Ptr Toast
self' Ptr GVariant
maybeActionTarget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe GVariant -> (GVariant -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe GVariant
actionTarget GVariant -> 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 ToastSetActionTargetValueMethodInfo
instance (signature ~ (Maybe (GVariant) -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetActionTargetValueMethodInfo a signature where
overloadedMethod = toastSetActionTargetValue
instance O.OverloadedMethodInfo ToastSetActionTargetValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetActionTargetValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetActionTargetValue"
})
#endif
foreign import ccall "adw_toast_set_button_label" adw_toast_set_button_label ::
Ptr Toast ->
CString ->
IO ()
toastSetButtonLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Maybe (T.Text)
-> m ()
toastSetButtonLabel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Maybe Text -> m ()
toastSetButtonLabel a
self Maybe Text
buttonLabel = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeButtonLabel <- case Maybe Text
buttonLabel 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
jButtonLabel -> do
CString
jButtonLabel' <- Text -> IO CString
textToCString Text
jButtonLabel
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jButtonLabel'
Ptr Toast -> CString -> IO ()
adw_toast_set_button_label Ptr Toast
self' CString
maybeButtonLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeButtonLabel
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToastSetButtonLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetButtonLabelMethodInfo a signature where
overloadedMethod = toastSetButtonLabel
instance O.OverloadedMethodInfo ToastSetButtonLabelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetButtonLabel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetButtonLabel"
})
#endif
foreign import ccall "adw_toast_set_custom_title" adw_toast_set_custom_title ::
Ptr Toast ->
Ptr Gtk.Widget.Widget ->
IO ()
toastSetCustomTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
toastSetCustomTitle :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsToast a, IsWidget b) =>
a -> Maybe b -> m ()
toastSetCustomTitle a
self Maybe b
widget = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Widget
maybeWidget <- case Maybe b
widget 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
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr Toast -> Ptr Widget -> IO ()
adw_toast_set_custom_title Ptr Toast
self' Ptr Widget
maybeWidget
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
widget 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 ToastSetCustomTitleMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsToast a, Gtk.Widget.IsWidget b) => O.OverloadedMethod ToastSetCustomTitleMethodInfo a signature where
overloadedMethod = toastSetCustomTitle
instance O.OverloadedMethodInfo ToastSetCustomTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetCustomTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetCustomTitle"
})
#endif
foreign import ccall "adw_toast_set_detailed_action_name" adw_toast_set_detailed_action_name ::
Ptr Toast ->
CString ->
IO ()
toastSetDetailedActionName ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Maybe (T.Text)
-> m ()
toastSetDetailedActionName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Maybe Text -> m ()
toastSetDetailedActionName a
self Maybe Text
detailedActionName = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
maybeDetailedActionName <- case Maybe Text
detailedActionName 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
jDetailedActionName -> do
CString
jDetailedActionName' <- Text -> IO CString
textToCString Text
jDetailedActionName
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDetailedActionName'
Ptr Toast -> CString -> IO ()
adw_toast_set_detailed_action_name Ptr Toast
self' CString
maybeDetailedActionName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDetailedActionName
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToastSetDetailedActionNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetDetailedActionNameMethodInfo a signature where
overloadedMethod = toastSetDetailedActionName
instance O.OverloadedMethodInfo ToastSetDetailedActionNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetDetailedActionName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetDetailedActionName"
})
#endif
foreign import ccall "adw_toast_set_priority" adw_toast_set_priority ::
Ptr Toast ->
CUInt ->
IO ()
toastSetPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Adw.Enums.ToastPriority
-> m ()
toastSetPriority :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> ToastPriority -> m ()
toastSetPriority a
self ToastPriority
priority = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let priority' :: CUInt
priority' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (ToastPriority -> Int) -> ToastPriority -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ToastPriority -> Int
forall a. Enum a => a -> Int
fromEnum) ToastPriority
priority
Ptr Toast -> CUInt -> IO ()
adw_toast_set_priority Ptr Toast
self' CUInt
priority'
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 ToastSetPriorityMethodInfo
instance (signature ~ (Adw.Enums.ToastPriority -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetPriorityMethodInfo a signature where
overloadedMethod = toastSetPriority
instance O.OverloadedMethodInfo ToastSetPriorityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetPriority",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetPriority"
})
#endif
foreign import ccall "adw_toast_set_timeout" adw_toast_set_timeout ::
Ptr Toast ->
Word32 ->
IO ()
toastSetTimeout ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> Word32
-> m ()
toastSetTimeout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Word32 -> m ()
toastSetTimeout a
self Word32
timeout = 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Toast -> Word32 -> IO ()
adw_toast_set_timeout Ptr Toast
self' Word32
timeout
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 ToastSetTimeoutMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetTimeoutMethodInfo a signature where
overloadedMethod = toastSetTimeout
instance O.OverloadedMethodInfo ToastSetTimeoutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetTimeout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetTimeout"
})
#endif
foreign import ccall "adw_toast_set_title" adw_toast_set_title ::
Ptr Toast ->
CString ->
IO ()
toastSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsToast a) =>
a
-> T.Text
-> m ()
toastSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsToast a) =>
a -> Text -> m ()
toastSetTitle a
self 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 Toast
self' <- a -> IO (Ptr Toast)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr Toast -> CString -> IO ()
adw_toast_set_title Ptr Toast
self' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ToastSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsToast a) => O.OverloadedMethod ToastSetTitleMethodInfo a signature where
overloadedMethod = toastSetTitle
instance O.OverloadedMethodInfo ToastSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Adw.Objects.Toast.toastSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-adwaita-1.0.5/docs/GI-Adw-Objects-Toast.html#v:toastSetTitle"
})
#endif