{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.NativeDialog
(
NativeDialog(..) ,
IsNativeDialog ,
toNativeDialog ,
#if defined(ENABLE_OVERLOADING)
ResolveNativeDialogMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NativeDialogDestroyMethodInfo ,
#endif
nativeDialogDestroy ,
#if defined(ENABLE_OVERLOADING)
NativeDialogGetModalMethodInfo ,
#endif
nativeDialogGetModal ,
#if defined(ENABLE_OVERLOADING)
NativeDialogGetTitleMethodInfo ,
#endif
nativeDialogGetTitle ,
#if defined(ENABLE_OVERLOADING)
NativeDialogGetTransientForMethodInfo ,
#endif
nativeDialogGetTransientFor ,
#if defined(ENABLE_OVERLOADING)
NativeDialogGetVisibleMethodInfo ,
#endif
nativeDialogGetVisible ,
#if defined(ENABLE_OVERLOADING)
NativeDialogHideMethodInfo ,
#endif
nativeDialogHide ,
#if defined(ENABLE_OVERLOADING)
NativeDialogRunMethodInfo ,
#endif
nativeDialogRun ,
#if defined(ENABLE_OVERLOADING)
NativeDialogSetModalMethodInfo ,
#endif
nativeDialogSetModal ,
#if defined(ENABLE_OVERLOADING)
NativeDialogSetTitleMethodInfo ,
#endif
nativeDialogSetTitle ,
#if defined(ENABLE_OVERLOADING)
NativeDialogSetTransientForMethodInfo ,
#endif
nativeDialogSetTransientFor ,
#if defined(ENABLE_OVERLOADING)
NativeDialogShowMethodInfo ,
#endif
nativeDialogShow ,
#if defined(ENABLE_OVERLOADING)
NativeDialogModalPropertyInfo ,
#endif
constructNativeDialogModal ,
getNativeDialogModal ,
#if defined(ENABLE_OVERLOADING)
nativeDialogModal ,
#endif
setNativeDialogModal ,
#if defined(ENABLE_OVERLOADING)
NativeDialogTitlePropertyInfo ,
#endif
constructNativeDialogTitle ,
getNativeDialogTitle ,
#if defined(ENABLE_OVERLOADING)
nativeDialogTitle ,
#endif
setNativeDialogTitle ,
#if defined(ENABLE_OVERLOADING)
NativeDialogTransientForPropertyInfo ,
#endif
clearNativeDialogTransientFor ,
constructNativeDialogTransientFor ,
getNativeDialogTransientFor ,
#if defined(ENABLE_OVERLOADING)
nativeDialogTransientFor ,
#endif
setNativeDialogTransientFor ,
#if defined(ENABLE_OVERLOADING)
NativeDialogVisiblePropertyInfo ,
#endif
constructNativeDialogVisible ,
getNativeDialogVisible ,
#if defined(ENABLE_OVERLOADING)
nativeDialogVisible ,
#endif
setNativeDialogVisible ,
NativeDialogResponseCallback ,
#if defined(ENABLE_OVERLOADING)
NativeDialogResponseSignalInfo ,
#endif
afterNativeDialogResponse ,
onNativeDialogResponse ,
) 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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.Window as Gtk.Window
newtype NativeDialog = NativeDialog (SP.ManagedPtr NativeDialog)
deriving (NativeDialog -> NativeDialog -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NativeDialog -> NativeDialog -> Bool
$c/= :: NativeDialog -> NativeDialog -> Bool
== :: NativeDialog -> NativeDialog -> Bool
$c== :: NativeDialog -> NativeDialog -> Bool
Eq)
instance SP.ManagedPtrNewtype NativeDialog where
toManagedPtr :: NativeDialog -> ManagedPtr NativeDialog
toManagedPtr (NativeDialog ManagedPtr NativeDialog
p) = ManagedPtr NativeDialog
p
foreign import ccall "gtk_native_dialog_get_type"
c_gtk_native_dialog_get_type :: IO B.Types.GType
instance B.Types.TypedObject NativeDialog where
glibType :: IO GType
glibType = IO GType
c_gtk_native_dialog_get_type
instance B.Types.GObject NativeDialog
class (SP.GObject o, O.IsDescendantOf NativeDialog o) => IsNativeDialog o
instance (SP.GObject o, O.IsDescendantOf NativeDialog o) => IsNativeDialog o
instance O.HasParentTypes NativeDialog
type instance O.ParentTypes NativeDialog = '[GObject.Object.Object]
toNativeDialog :: (MIO.MonadIO m, IsNativeDialog o) => o -> m NativeDialog
toNativeDialog :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> m NativeDialog
toNativeDialog = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr NativeDialog -> NativeDialog
NativeDialog
instance B.GValue.IsGValue (Maybe NativeDialog) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_native_dialog_get_type
gvalueSet_ :: Ptr GValue -> Maybe NativeDialog -> IO ()
gvalueSet_ Ptr GValue
gv Maybe NativeDialog
P.Nothing = forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr NativeDialog)
gvalueSet_ Ptr GValue
gv (P.Just NativeDialog
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr NativeDialog
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe NativeDialog)
gvalueGet_ Ptr GValue
gv = do
Ptr NativeDialog
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr NativeDialog)
if Ptr NativeDialog
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr NativeDialog -> NativeDialog
NativeDialog Ptr NativeDialog
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveNativeDialogMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveNativeDialogMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNativeDialogMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNativeDialogMethod "destroy" o = NativeDialogDestroyMethodInfo
ResolveNativeDialogMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNativeDialogMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNativeDialogMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveNativeDialogMethod "hide" o = NativeDialogHideMethodInfo
ResolveNativeDialogMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNativeDialogMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNativeDialogMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNativeDialogMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNativeDialogMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNativeDialogMethod "run" o = NativeDialogRunMethodInfo
ResolveNativeDialogMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNativeDialogMethod "show" o = NativeDialogShowMethodInfo
ResolveNativeDialogMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNativeDialogMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNativeDialogMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNativeDialogMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNativeDialogMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNativeDialogMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNativeDialogMethod "getModal" o = NativeDialogGetModalMethodInfo
ResolveNativeDialogMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNativeDialogMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNativeDialogMethod "getTitle" o = NativeDialogGetTitleMethodInfo
ResolveNativeDialogMethod "getTransientFor" o = NativeDialogGetTransientForMethodInfo
ResolveNativeDialogMethod "getVisible" o = NativeDialogGetVisibleMethodInfo
ResolveNativeDialogMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNativeDialogMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveNativeDialogMethod "setModal" o = NativeDialogSetModalMethodInfo
ResolveNativeDialogMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNativeDialogMethod "setTitle" o = NativeDialogSetTitleMethodInfo
ResolveNativeDialogMethod "setTransientFor" o = NativeDialogSetTransientForMethodInfo
ResolveNativeDialogMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNativeDialogMethod t NativeDialog, O.OverloadedMethod info NativeDialog p) => OL.IsLabel t (NativeDialog -> 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 ~ ResolveNativeDialogMethod t NativeDialog, O.OverloadedMethod info NativeDialog p, R.HasField t NativeDialog p) => R.HasField t NativeDialog p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveNativeDialogMethod t NativeDialog, O.OverloadedMethodInfo info NativeDialog) => OL.IsLabel t (O.MethodProxy info NativeDialog) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type NativeDialogResponseCallback =
Int32
-> IO ()
type C_NativeDialogResponseCallback =
Ptr NativeDialog ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_NativeDialogResponseCallback :: C_NativeDialogResponseCallback -> IO (FunPtr C_NativeDialogResponseCallback)
wrap_NativeDialogResponseCallback ::
GObject a => (a -> NativeDialogResponseCallback) ->
C_NativeDialogResponseCallback
wrap_NativeDialogResponseCallback :: forall a.
GObject a =>
(a -> NativeDialogResponseCallback)
-> C_NativeDialogResponseCallback
wrap_NativeDialogResponseCallback a -> NativeDialogResponseCallback
gi'cb Ptr NativeDialog
gi'selfPtr Int32
responseId Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr NativeDialog
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \NativeDialog
gi'self -> a -> NativeDialogResponseCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce NativeDialog
gi'self) Int32
responseId
onNativeDialogResponse :: (IsNativeDialog a, MonadIO m) => a -> ((?self :: a) => NativeDialogResponseCallback) -> m SignalHandlerId
onNativeDialogResponse :: forall a (m :: * -> *).
(IsNativeDialog a, MonadIO m) =>
a
-> ((?self::a) => NativeDialogResponseCallback)
-> m SignalHandlerId
onNativeDialogResponse a
obj (?self::a) => NativeDialogResponseCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NativeDialogResponseCallback
wrapped a
self = let ?self = a
self in (?self::a) => NativeDialogResponseCallback
cb
let wrapped' :: C_NativeDialogResponseCallback
wrapped' = forall a.
GObject a =>
(a -> NativeDialogResponseCallback)
-> C_NativeDialogResponseCallback
wrap_NativeDialogResponseCallback a -> NativeDialogResponseCallback
wrapped
FunPtr C_NativeDialogResponseCallback
wrapped'' <- C_NativeDialogResponseCallback
-> IO (FunPtr C_NativeDialogResponseCallback)
mk_NativeDialogResponseCallback C_NativeDialogResponseCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"response" FunPtr C_NativeDialogResponseCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterNativeDialogResponse :: (IsNativeDialog a, MonadIO m) => a -> ((?self :: a) => NativeDialogResponseCallback) -> m SignalHandlerId
afterNativeDialogResponse :: forall a (m :: * -> *).
(IsNativeDialog a, MonadIO m) =>
a
-> ((?self::a) => NativeDialogResponseCallback)
-> m SignalHandlerId
afterNativeDialogResponse a
obj (?self::a) => NativeDialogResponseCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> NativeDialogResponseCallback
wrapped a
self = let ?self = a
self in (?self::a) => NativeDialogResponseCallback
cb
let wrapped' :: C_NativeDialogResponseCallback
wrapped' = forall a.
GObject a =>
(a -> NativeDialogResponseCallback)
-> C_NativeDialogResponseCallback
wrap_NativeDialogResponseCallback a -> NativeDialogResponseCallback
wrapped
FunPtr C_NativeDialogResponseCallback
wrapped'' <- C_NativeDialogResponseCallback
-> IO (FunPtr C_NativeDialogResponseCallback)
mk_NativeDialogResponseCallback C_NativeDialogResponseCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"response" FunPtr C_NativeDialogResponseCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data NativeDialogResponseSignalInfo
instance SignalInfo NativeDialogResponseSignalInfo where
type HaskellCallbackType NativeDialogResponseSignalInfo = NativeDialogResponseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_NativeDialogResponseCallback cb
cb'' <- mk_NativeDialogResponseCallback cb'
connectSignalFunPtr obj "response" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog::response"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#g:signal:response"})
#endif
getNativeDialogModal :: (MonadIO m, IsNativeDialog o) => o -> m Bool
getNativeDialogModal :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> m Bool
getNativeDialogModal o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"modal"
setNativeDialogModal :: (MonadIO m, IsNativeDialog o) => o -> Bool -> m ()
setNativeDialogModal :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> Bool -> m ()
setNativeDialogModal o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"modal" Bool
val
constructNativeDialogModal :: (IsNativeDialog o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNativeDialogModal :: forall o (m :: * -> *).
(IsNativeDialog o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNativeDialogModal Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"modal" Bool
val
#if defined(ENABLE_OVERLOADING)
data NativeDialogModalPropertyInfo
instance AttrInfo NativeDialogModalPropertyInfo where
type AttrAllowedOps NativeDialogModalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NativeDialogModalPropertyInfo = IsNativeDialog
type AttrSetTypeConstraint NativeDialogModalPropertyInfo = (~) Bool
type AttrTransferTypeConstraint NativeDialogModalPropertyInfo = (~) Bool
type AttrTransferType NativeDialogModalPropertyInfo = Bool
type AttrGetType NativeDialogModalPropertyInfo = Bool
type AttrLabel NativeDialogModalPropertyInfo = "modal"
type AttrOrigin NativeDialogModalPropertyInfo = NativeDialog
attrGet = getNativeDialogModal
attrSet = setNativeDialogModal
attrTransfer _ v = do
return v
attrConstruct = constructNativeDialogModal
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.modal"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#g:attr:modal"
})
#endif
getNativeDialogTitle :: (MonadIO m, IsNativeDialog o) => o -> m (Maybe T.Text)
getNativeDialogTitle :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> m (Maybe Text)
getNativeDialogTitle o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setNativeDialogTitle :: (MonadIO m, IsNativeDialog o) => o -> T.Text -> m ()
setNativeDialogTitle :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> Text -> m ()
setNativeDialogTitle o
obj Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (forall a. a -> Maybe a
Just Text
val)
constructNativeDialogTitle :: (IsNativeDialog o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructNativeDialogTitle :: forall o (m :: * -> *).
(IsNativeDialog o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructNativeDialogTitle Text
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data NativeDialogTitlePropertyInfo
instance AttrInfo NativeDialogTitlePropertyInfo where
type AttrAllowedOps NativeDialogTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NativeDialogTitlePropertyInfo = IsNativeDialog
type AttrSetTypeConstraint NativeDialogTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint NativeDialogTitlePropertyInfo = (~) T.Text
type AttrTransferType NativeDialogTitlePropertyInfo = T.Text
type AttrGetType NativeDialogTitlePropertyInfo = (Maybe T.Text)
type AttrLabel NativeDialogTitlePropertyInfo = "title"
type AttrOrigin NativeDialogTitlePropertyInfo = NativeDialog
attrGet = getNativeDialogTitle
attrSet = setNativeDialogTitle
attrTransfer _ v = do
return v
attrConstruct = constructNativeDialogTitle
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#g:attr:title"
})
#endif
getNativeDialogTransientFor :: (MonadIO m, IsNativeDialog o) => o -> m (Maybe Gtk.Window.Window)
getNativeDialogTransientFor :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> m (Maybe Window)
getNativeDialogTransientFor o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"transient-for" ManagedPtr Window -> Window
Gtk.Window.Window
setNativeDialogTransientFor :: (MonadIO m, IsNativeDialog o, Gtk.Window.IsWindow a) => o -> a -> m ()
setNativeDialogTransientFor :: forall (m :: * -> *) o a.
(MonadIO m, IsNativeDialog o, IsWindow a) =>
o -> a -> m ()
setNativeDialogTransientFor o
obj a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"transient-for" (forall a. a -> Maybe a
Just a
val)
constructNativeDialogTransientFor :: (IsNativeDialog o, MIO.MonadIO m, Gtk.Window.IsWindow a) => a -> m (GValueConstruct o)
constructNativeDialogTransientFor :: forall o (m :: * -> *) a.
(IsNativeDialog o, MonadIO m, IsWindow a) =>
a -> m (GValueConstruct o)
constructNativeDialogTransientFor a
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"transient-for" (forall a. a -> Maybe a
P.Just a
val)
clearNativeDialogTransientFor :: (MonadIO m, IsNativeDialog o) => o -> m ()
clearNativeDialogTransientFor :: forall (m :: * -> *) o. (MonadIO m, IsNativeDialog o) => o -> m ()
clearNativeDialogTransientFor o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"transient-for" (forall a. Maybe a
Nothing :: Maybe Gtk.Window.Window)
#if defined(ENABLE_OVERLOADING)
data NativeDialogTransientForPropertyInfo
instance AttrInfo NativeDialogTransientForPropertyInfo where
type AttrAllowedOps NativeDialogTransientForPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NativeDialogTransientForPropertyInfo = IsNativeDialog
type AttrSetTypeConstraint NativeDialogTransientForPropertyInfo = Gtk.Window.IsWindow
type AttrTransferTypeConstraint NativeDialogTransientForPropertyInfo = Gtk.Window.IsWindow
type AttrTransferType NativeDialogTransientForPropertyInfo = Gtk.Window.Window
type AttrGetType NativeDialogTransientForPropertyInfo = (Maybe Gtk.Window.Window)
type AttrLabel NativeDialogTransientForPropertyInfo = "transient-for"
type AttrOrigin NativeDialogTransientForPropertyInfo = NativeDialog
attrGet = getNativeDialogTransientFor
attrSet = setNativeDialogTransientFor
attrTransfer _ v = do
unsafeCastTo Gtk.Window.Window v
attrConstruct = constructNativeDialogTransientFor
attrClear = clearNativeDialogTransientFor
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.transientFor"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#g:attr:transientFor"
})
#endif
getNativeDialogVisible :: (MonadIO m, IsNativeDialog o) => o -> m Bool
getNativeDialogVisible :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> m Bool
getNativeDialogVisible o
obj = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"visible"
setNativeDialogVisible :: (MonadIO m, IsNativeDialog o) => o -> Bool -> m ()
setNativeDialogVisible :: forall (m :: * -> *) o.
(MonadIO m, IsNativeDialog o) =>
o -> Bool -> m ()
setNativeDialogVisible o
obj Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"visible" Bool
val
constructNativeDialogVisible :: (IsNativeDialog o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructNativeDialogVisible :: forall o (m :: * -> *).
(IsNativeDialog o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructNativeDialogVisible Bool
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data NativeDialogVisiblePropertyInfo
instance AttrInfo NativeDialogVisiblePropertyInfo where
type AttrAllowedOps NativeDialogVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint NativeDialogVisiblePropertyInfo = IsNativeDialog
type AttrSetTypeConstraint NativeDialogVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint NativeDialogVisiblePropertyInfo = (~) Bool
type AttrTransferType NativeDialogVisiblePropertyInfo = Bool
type AttrGetType NativeDialogVisiblePropertyInfo = Bool
type AttrLabel NativeDialogVisiblePropertyInfo = "visible"
type AttrOrigin NativeDialogVisiblePropertyInfo = NativeDialog
attrGet = getNativeDialogVisible
attrSet = setNativeDialogVisible
attrTransfer _ v = do
return v
attrConstruct = constructNativeDialogVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.visible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#g:attr:visible"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList NativeDialog
type instance O.AttributeList NativeDialog = NativeDialogAttributeList
type NativeDialogAttributeList = ('[ '("modal", NativeDialogModalPropertyInfo), '("title", NativeDialogTitlePropertyInfo), '("transientFor", NativeDialogTransientForPropertyInfo), '("visible", NativeDialogVisiblePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
nativeDialogModal :: AttrLabelProxy "modal"
nativeDialogModal = AttrLabelProxy
nativeDialogTitle :: AttrLabelProxy "title"
nativeDialogTitle = AttrLabelProxy
nativeDialogTransientFor :: AttrLabelProxy "transientFor"
nativeDialogTransientFor = AttrLabelProxy
nativeDialogVisible :: AttrLabelProxy "visible"
nativeDialogVisible = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList NativeDialog = NativeDialogSignalList
type NativeDialogSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("response", NativeDialogResponseSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_native_dialog_destroy" gtk_native_dialog_destroy ::
Ptr NativeDialog ->
IO ()
nativeDialogDestroy ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m ()
nativeDialogDestroy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m ()
nativeDialogDestroy a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NativeDialog -> IO ()
gtk_native_dialog_destroy Ptr NativeDialog
self'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogDestroyMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogDestroyMethodInfo a signature where
overloadedMethod = nativeDialogDestroy
instance O.OverloadedMethodInfo NativeDialogDestroyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogDestroy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogDestroy"
})
#endif
foreign import ccall "gtk_native_dialog_get_modal" gtk_native_dialog_get_modal ::
Ptr NativeDialog ->
IO CInt
nativeDialogGetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m Bool
nativeDialogGetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m Bool
nativeDialogGetModal a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr NativeDialog -> IO CInt
gtk_native_dialog_get_modal Ptr NativeDialog
self'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NativeDialogGetModalMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogGetModalMethodInfo a signature where
overloadedMethod = nativeDialogGetModal
instance O.OverloadedMethodInfo NativeDialogGetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogGetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogGetModal"
})
#endif
foreign import ccall "gtk_native_dialog_get_title" gtk_native_dialog_get_title ::
Ptr NativeDialog ->
IO CString
nativeDialogGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m (Maybe T.Text)
nativeDialogGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m (Maybe Text)
nativeDialogGetTitle a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr NativeDialog -> IO CString
gtk_native_dialog_get_title Ptr NativeDialog
self'
Maybe Text
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
cstringToText CString
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data NativeDialogGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogGetTitleMethodInfo a signature where
overloadedMethod = nativeDialogGetTitle
instance O.OverloadedMethodInfo NativeDialogGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogGetTitle"
})
#endif
foreign import ccall "gtk_native_dialog_get_transient_for" gtk_native_dialog_get_transient_for ::
Ptr NativeDialog ->
IO (Ptr Gtk.Window.Window)
nativeDialogGetTransientFor ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m (Maybe Gtk.Window.Window)
nativeDialogGetTransientFor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m (Maybe Window)
nativeDialogGetTransientFor a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Window
result <- Ptr NativeDialog -> IO (Ptr Window)
gtk_native_dialog_get_transient_for Ptr NativeDialog
self'
Maybe Window
maybeResult <- forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Window
result forall a b. (a -> b) -> a -> b
$ \Ptr Window
result' -> do
Window
result'' <- (forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Window -> Window
Gtk.Window.Window) Ptr Window
result'
forall (m :: * -> *) a. Monad m => a -> m a
return Window
result''
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Window
maybeResult
#if defined(ENABLE_OVERLOADING)
data NativeDialogGetTransientForMethodInfo
instance (signature ~ (m (Maybe Gtk.Window.Window)), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogGetTransientForMethodInfo a signature where
overloadedMethod = nativeDialogGetTransientFor
instance O.OverloadedMethodInfo NativeDialogGetTransientForMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogGetTransientFor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogGetTransientFor"
})
#endif
foreign import ccall "gtk_native_dialog_get_visible" gtk_native_dialog_get_visible ::
Ptr NativeDialog ->
IO CInt
nativeDialogGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m Bool
nativeDialogGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m Bool
nativeDialogGetVisible a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr NativeDialog -> IO CInt
gtk_native_dialog_get_visible Ptr NativeDialog
self'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data NativeDialogGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogGetVisibleMethodInfo a signature where
overloadedMethod = nativeDialogGetVisible
instance O.OverloadedMethodInfo NativeDialogGetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogGetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogGetVisible"
})
#endif
foreign import ccall "gtk_native_dialog_hide" gtk_native_dialog_hide ::
Ptr NativeDialog ->
IO ()
nativeDialogHide ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m ()
nativeDialogHide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m ()
nativeDialogHide a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NativeDialog -> IO ()
gtk_native_dialog_hide Ptr NativeDialog
self'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogHideMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogHideMethodInfo a signature where
overloadedMethod = nativeDialogHide
instance O.OverloadedMethodInfo NativeDialogHideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogHide",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogHide"
})
#endif
foreign import ccall "gtk_native_dialog_run" gtk_native_dialog_run ::
Ptr NativeDialog ->
IO Int32
nativeDialogRun ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m Int32
nativeDialogRun :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m Int32
nativeDialogRun a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr NativeDialog -> IO Int32
gtk_native_dialog_run Ptr NativeDialog
self'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data NativeDialogRunMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogRunMethodInfo a signature where
overloadedMethod = nativeDialogRun
instance O.OverloadedMethodInfo NativeDialogRunMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogRun",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogRun"
})
#endif
foreign import ccall "gtk_native_dialog_set_modal" gtk_native_dialog_set_modal ::
Ptr NativeDialog ->
CInt ->
IO ()
nativeDialogSetModal ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> Bool
-> m ()
nativeDialogSetModal :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> Bool -> m ()
nativeDialogSetModal a
self Bool
modal = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let modal' :: CInt
modal' = (forall a b. (Integral a, Num b) => a -> b
P.fromIntegral forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. Enum a => a -> Int
P.fromEnum) Bool
modal
Ptr NativeDialog -> CInt -> IO ()
gtk_native_dialog_set_modal Ptr NativeDialog
self' CInt
modal'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogSetModalMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogSetModalMethodInfo a signature where
overloadedMethod = nativeDialogSetModal
instance O.OverloadedMethodInfo NativeDialogSetModalMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogSetModal",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogSetModal"
})
#endif
foreign import ccall "gtk_native_dialog_set_title" gtk_native_dialog_set_title ::
Ptr NativeDialog ->
CString ->
IO ()
nativeDialogSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> T.Text
-> m ()
nativeDialogSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> Text -> m ()
nativeDialogSetTitle a
self Text
title = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr NativeDialog -> CString -> IO ()
gtk_native_dialog_set_title Ptr NativeDialog
self' CString
title'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall a. Ptr a -> IO ()
freeMem CString
title'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogSetTitleMethodInfo a signature where
overloadedMethod = nativeDialogSetTitle
instance O.OverloadedMethodInfo NativeDialogSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogSetTitle"
})
#endif
foreign import ccall "gtk_native_dialog_set_transient_for" gtk_native_dialog_set_transient_for ::
Ptr NativeDialog ->
Ptr Gtk.Window.Window ->
IO ()
nativeDialogSetTransientFor ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a, Gtk.Window.IsWindow b) =>
a
-> Maybe (b)
-> m ()
nativeDialogSetTransientFor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsNativeDialog a, IsWindow b) =>
a -> Maybe b -> m ()
nativeDialogSetTransientFor a
self Maybe b
parent = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Window
maybeParent <- case Maybe b
parent of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jParent -> do
Ptr Window
jParent' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jParent
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jParent'
Ptr NativeDialog -> Ptr Window -> IO ()
gtk_native_dialog_set_transient_for Ptr NativeDialog
self' Ptr Window
maybeParent
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
parent forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogSetTransientForMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsNativeDialog a, Gtk.Window.IsWindow b) => O.OverloadedMethod NativeDialogSetTransientForMethodInfo a signature where
overloadedMethod = nativeDialogSetTransientFor
instance O.OverloadedMethodInfo NativeDialogSetTransientForMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogSetTransientFor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogSetTransientFor"
})
#endif
foreign import ccall "gtk_native_dialog_show" gtk_native_dialog_show ::
Ptr NativeDialog ->
IO ()
nativeDialogShow ::
(B.CallStack.HasCallStack, MonadIO m, IsNativeDialog a) =>
a
-> m ()
nativeDialogShow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNativeDialog a) =>
a -> m ()
nativeDialogShow a
self = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr NativeDialog
self' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr NativeDialog -> IO ()
gtk_native_dialog_show Ptr NativeDialog
self'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data NativeDialogShowMethodInfo
instance (signature ~ (m ()), MonadIO m, IsNativeDialog a) => O.OverloadedMethod NativeDialogShowMethodInfo a signature where
overloadedMethod = nativeDialogShow
instance O.OverloadedMethodInfo NativeDialogShowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.NativeDialog.nativeDialogShow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-NativeDialog.html#v:nativeDialogShow"
})
#endif