{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Builder
(
Builder(..) ,
IsBuilder ,
toBuilder ,
#if defined(ENABLE_OVERLOADING)
ResolveBuilderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BuilderAddFromFileMethodInfo ,
#endif
builderAddFromFile ,
#if defined(ENABLE_OVERLOADING)
BuilderAddFromResourceMethodInfo ,
#endif
builderAddFromResource ,
#if defined(ENABLE_OVERLOADING)
BuilderAddFromStringMethodInfo ,
#endif
builderAddFromString ,
#if defined(ENABLE_OVERLOADING)
BuilderAddObjectsFromFileMethodInfo ,
#endif
builderAddObjectsFromFile ,
#if defined(ENABLE_OVERLOADING)
BuilderAddObjectsFromResourceMethodInfo ,
#endif
builderAddObjectsFromResource ,
#if defined(ENABLE_OVERLOADING)
BuilderAddObjectsFromStringMethodInfo ,
#endif
builderAddObjectsFromString ,
#if defined(ENABLE_OVERLOADING)
BuilderCreateClosureMethodInfo ,
#endif
builderCreateClosure ,
#if defined(ENABLE_OVERLOADING)
BuilderExposeObjectMethodInfo ,
#endif
builderExposeObject ,
#if defined(ENABLE_OVERLOADING)
BuilderExtendWithTemplateMethodInfo ,
#endif
builderExtendWithTemplate ,
#if defined(ENABLE_OVERLOADING)
BuilderGetCurrentObjectMethodInfo ,
#endif
builderGetCurrentObject ,
#if defined(ENABLE_OVERLOADING)
BuilderGetObjectMethodInfo ,
#endif
builderGetObject ,
#if defined(ENABLE_OVERLOADING)
BuilderGetObjectsMethodInfo ,
#endif
builderGetObjects ,
#if defined(ENABLE_OVERLOADING)
BuilderGetScopeMethodInfo ,
#endif
builderGetScope ,
#if defined(ENABLE_OVERLOADING)
BuilderGetTranslationDomainMethodInfo ,
#endif
builderGetTranslationDomain ,
#if defined(ENABLE_OVERLOADING)
BuilderGetTypeFromNameMethodInfo ,
#endif
builderGetTypeFromName ,
builderNew ,
builderNewFromFile ,
builderNewFromResource ,
builderNewFromString ,
#if defined(ENABLE_OVERLOADING)
BuilderSetCurrentObjectMethodInfo ,
#endif
builderSetCurrentObject ,
#if defined(ENABLE_OVERLOADING)
BuilderSetScopeMethodInfo ,
#endif
builderSetScope ,
#if defined(ENABLE_OVERLOADING)
BuilderSetTranslationDomainMethodInfo ,
#endif
builderSetTranslationDomain ,
#if defined(ENABLE_OVERLOADING)
BuilderValueFromStringMethodInfo ,
#endif
builderValueFromString ,
#if defined(ENABLE_OVERLOADING)
BuilderValueFromStringTypeMethodInfo ,
#endif
builderValueFromStringType ,
#if defined(ENABLE_OVERLOADING)
BuilderCurrentObjectPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
builderCurrentObject ,
#endif
clearBuilderCurrentObject ,
constructBuilderCurrentObject ,
getBuilderCurrentObject ,
setBuilderCurrentObject ,
#if defined(ENABLE_OVERLOADING)
BuilderScopePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
builderScope ,
#endif
clearBuilderScope ,
constructBuilderScope ,
getBuilderScope ,
setBuilderScope ,
#if defined(ENABLE_OVERLOADING)
BuilderTranslationDomainPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
builderTranslationDomain ,
#endif
clearBuilderTranslationDomain ,
constructBuilderTranslationDomain ,
getBuilderTranslationDomain ,
setBuilderTranslationDomain ,
) 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.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.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.BuilderScope as Gtk.BuilderScope
newtype Builder = Builder (SP.ManagedPtr Builder)
deriving (Builder -> Builder -> Bool
(Builder -> Builder -> Bool)
-> (Builder -> Builder -> Bool) -> Eq Builder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Builder -> Builder -> Bool
== :: Builder -> Builder -> Bool
$c/= :: Builder -> Builder -> Bool
/= :: Builder -> Builder -> Bool
Eq)
instance SP.ManagedPtrNewtype Builder where
toManagedPtr :: Builder -> ManagedPtr Builder
toManagedPtr (Builder ManagedPtr Builder
p) = ManagedPtr Builder
p
foreign import ccall "gtk_builder_get_type"
c_gtk_builder_get_type :: IO B.Types.GType
instance B.Types.TypedObject Builder where
glibType :: IO GType
glibType = IO GType
c_gtk_builder_get_type
instance B.Types.GObject Builder
class (SP.GObject o, O.IsDescendantOf Builder o) => IsBuilder o
instance (SP.GObject o, O.IsDescendantOf Builder o) => IsBuilder o
instance O.HasParentTypes Builder
type instance O.ParentTypes Builder = '[GObject.Object.Object]
toBuilder :: (MIO.MonadIO m, IsBuilder o) => o -> m Builder
toBuilder :: forall (m :: * -> *) o. (MonadIO m, IsBuilder o) => o -> m Builder
toBuilder = IO Builder -> m Builder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Builder -> m Builder) -> (o -> IO Builder) -> o -> m Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Builder -> Builder) -> o -> IO Builder
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Builder -> Builder
Builder
instance B.GValue.IsGValue (Maybe Builder) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_builder_get_type
gvalueSet_ :: Ptr GValue -> Maybe Builder -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Builder
P.Nothing = Ptr GValue -> Ptr Builder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Builder
forall a. Ptr a
FP.nullPtr :: FP.Ptr Builder)
gvalueSet_ Ptr GValue
gv (P.Just Builder
obj) = Builder -> (Ptr Builder -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Builder
obj (Ptr GValue -> Ptr Builder -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Builder)
gvalueGet_ Ptr GValue
gv = do
Ptr Builder
ptr <- Ptr GValue -> IO (Ptr Builder)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Builder)
if Ptr Builder
ptr Ptr Builder -> Ptr Builder -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Builder
forall a. Ptr a
FP.nullPtr
then Builder -> Maybe Builder
forall a. a -> Maybe a
P.Just (Builder -> Maybe Builder) -> IO Builder -> IO (Maybe Builder)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Builder -> Builder
Builder Ptr Builder
ptr
else Maybe Builder -> IO (Maybe Builder)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Builder
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBuilderMethod (t :: Symbol) (o :: *) :: * where
ResolveBuilderMethod "addFromFile" o = BuilderAddFromFileMethodInfo
ResolveBuilderMethod "addFromResource" o = BuilderAddFromResourceMethodInfo
ResolveBuilderMethod "addFromString" o = BuilderAddFromStringMethodInfo
ResolveBuilderMethod "addObjectsFromFile" o = BuilderAddObjectsFromFileMethodInfo
ResolveBuilderMethod "addObjectsFromResource" o = BuilderAddObjectsFromResourceMethodInfo
ResolveBuilderMethod "addObjectsFromString" o = BuilderAddObjectsFromStringMethodInfo
ResolveBuilderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBuilderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBuilderMethod "createClosure" o = BuilderCreateClosureMethodInfo
ResolveBuilderMethod "exposeObject" o = BuilderExposeObjectMethodInfo
ResolveBuilderMethod "extendWithTemplate" o = BuilderExtendWithTemplateMethodInfo
ResolveBuilderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBuilderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBuilderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBuilderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBuilderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBuilderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBuilderMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBuilderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBuilderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBuilderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBuilderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBuilderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBuilderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBuilderMethod "valueFromString" o = BuilderValueFromStringMethodInfo
ResolveBuilderMethod "valueFromStringType" o = BuilderValueFromStringTypeMethodInfo
ResolveBuilderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBuilderMethod "getCurrentObject" o = BuilderGetCurrentObjectMethodInfo
ResolveBuilderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBuilderMethod "getObject" o = BuilderGetObjectMethodInfo
ResolveBuilderMethod "getObjects" o = BuilderGetObjectsMethodInfo
ResolveBuilderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBuilderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBuilderMethod "getScope" o = BuilderGetScopeMethodInfo
ResolveBuilderMethod "getTranslationDomain" o = BuilderGetTranslationDomainMethodInfo
ResolveBuilderMethod "getTypeFromName" o = BuilderGetTypeFromNameMethodInfo
ResolveBuilderMethod "setCurrentObject" o = BuilderSetCurrentObjectMethodInfo
ResolveBuilderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBuilderMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBuilderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBuilderMethod "setScope" o = BuilderSetScopeMethodInfo
ResolveBuilderMethod "setTranslationDomain" o = BuilderSetTranslationDomainMethodInfo
ResolveBuilderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBuilderMethod t Builder, O.OverloadedMethod info Builder p) => OL.IsLabel t (Builder -> 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 ~ ResolveBuilderMethod t Builder, O.OverloadedMethod info Builder p, R.HasField t Builder p) => R.HasField t Builder p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBuilderMethod t Builder, O.OverloadedMethodInfo info Builder) => OL.IsLabel t (O.MethodProxy info Builder) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBuilderCurrentObject :: (MonadIO m, IsBuilder o) => o -> m (Maybe GObject.Object.Object)
getBuilderCurrentObject :: forall (m :: * -> *) o.
(MonadIO m, IsBuilder o) =>
o -> m (Maybe Object)
getBuilderCurrentObject o
obj = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Object -> Object) -> IO (Maybe Object)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"current-object" ManagedPtr Object -> Object
GObject.Object.Object
setBuilderCurrentObject :: (MonadIO m, IsBuilder o, GObject.Object.IsObject a) => o -> a -> m ()
setBuilderCurrentObject :: forall (m :: * -> *) o a.
(MonadIO m, IsBuilder o, IsObject a) =>
o -> a -> m ()
setBuilderCurrentObject 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
"current-object" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructBuilderCurrentObject :: (IsBuilder o, MIO.MonadIO m, GObject.Object.IsObject a) => a -> m (GValueConstruct o)
constructBuilderCurrentObject :: forall o (m :: * -> *) a.
(IsBuilder o, MonadIO m, IsObject a) =>
a -> m (GValueConstruct o)
constructBuilderCurrentObject 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
"current-object" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearBuilderCurrentObject :: (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderCurrentObject :: forall (m :: * -> *) o. (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderCurrentObject 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 Object -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"current-object" (Maybe Object
forall a. Maybe a
Nothing :: Maybe GObject.Object.Object)
#if defined(ENABLE_OVERLOADING)
data BuilderCurrentObjectPropertyInfo
instance AttrInfo BuilderCurrentObjectPropertyInfo where
type AttrAllowedOps BuilderCurrentObjectPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BuilderCurrentObjectPropertyInfo = IsBuilder
type AttrSetTypeConstraint BuilderCurrentObjectPropertyInfo = GObject.Object.IsObject
type AttrTransferTypeConstraint BuilderCurrentObjectPropertyInfo = GObject.Object.IsObject
type AttrTransferType BuilderCurrentObjectPropertyInfo = GObject.Object.Object
type AttrGetType BuilderCurrentObjectPropertyInfo = (Maybe GObject.Object.Object)
type AttrLabel BuilderCurrentObjectPropertyInfo = "current-object"
type AttrOrigin BuilderCurrentObjectPropertyInfo = Builder
attrGet = getBuilderCurrentObject
attrSet = setBuilderCurrentObject
attrTransfer _ v = do
unsafeCastTo GObject.Object.Object v
attrConstruct = constructBuilderCurrentObject
attrClear = clearBuilderCurrentObject
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.currentObject"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#g:attr:currentObject"
})
#endif
getBuilderScope :: (MonadIO m, IsBuilder o) => o -> m Gtk.BuilderScope.BuilderScope
getBuilderScope :: forall (m :: * -> *) o.
(MonadIO m, IsBuilder o) =>
o -> m BuilderScope
getBuilderScope o
obj = IO BuilderScope -> m BuilderScope
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BuilderScope -> m BuilderScope)
-> IO BuilderScope -> m BuilderScope
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe BuilderScope) -> IO BuilderScope
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getBuilderScope" (IO (Maybe BuilderScope) -> IO BuilderScope)
-> IO (Maybe BuilderScope) -> IO BuilderScope
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr BuilderScope -> BuilderScope)
-> IO (Maybe BuilderScope)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"scope" ManagedPtr BuilderScope -> BuilderScope
Gtk.BuilderScope.BuilderScope
setBuilderScope :: (MonadIO m, IsBuilder o, Gtk.BuilderScope.IsBuilderScope a) => o -> a -> m ()
setBuilderScope :: forall (m :: * -> *) o a.
(MonadIO m, IsBuilder o, IsBuilderScope a) =>
o -> a -> m ()
setBuilderScope 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
"scope" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructBuilderScope :: (IsBuilder o, MIO.MonadIO m, Gtk.BuilderScope.IsBuilderScope a) => a -> m (GValueConstruct o)
constructBuilderScope :: forall o (m :: * -> *) a.
(IsBuilder o, MonadIO m, IsBuilderScope a) =>
a -> m (GValueConstruct o)
constructBuilderScope 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
"scope" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearBuilderScope :: (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderScope :: forall (m :: * -> *) o. (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderScope 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 BuilderScope -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"scope" (Maybe BuilderScope
forall a. Maybe a
Nothing :: Maybe Gtk.BuilderScope.BuilderScope)
#if defined(ENABLE_OVERLOADING)
data BuilderScopePropertyInfo
instance AttrInfo BuilderScopePropertyInfo where
type AttrAllowedOps BuilderScopePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BuilderScopePropertyInfo = IsBuilder
type AttrSetTypeConstraint BuilderScopePropertyInfo = Gtk.BuilderScope.IsBuilderScope
type AttrTransferTypeConstraint BuilderScopePropertyInfo = Gtk.BuilderScope.IsBuilderScope
type AttrTransferType BuilderScopePropertyInfo = Gtk.BuilderScope.BuilderScope
type AttrGetType BuilderScopePropertyInfo = Gtk.BuilderScope.BuilderScope
type AttrLabel BuilderScopePropertyInfo = "scope"
type AttrOrigin BuilderScopePropertyInfo = Builder
attrGet = getBuilderScope
attrSet = setBuilderScope
attrTransfer _ v = do
unsafeCastTo Gtk.BuilderScope.BuilderScope v
attrConstruct = constructBuilderScope
attrClear = clearBuilderScope
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.scope"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#g:attr:scope"
})
#endif
getBuilderTranslationDomain :: (MonadIO m, IsBuilder o) => o -> m (Maybe T.Text)
getBuilderTranslationDomain :: forall (m :: * -> *) o.
(MonadIO m, IsBuilder o) =>
o -> m (Maybe Text)
getBuilderTranslationDomain 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
"translation-domain"
setBuilderTranslationDomain :: (MonadIO m, IsBuilder o) => o -> T.Text -> m ()
setBuilderTranslationDomain :: forall (m :: * -> *) o.
(MonadIO m, IsBuilder o) =>
o -> Text -> m ()
setBuilderTranslationDomain 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
"translation-domain" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructBuilderTranslationDomain :: (IsBuilder o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructBuilderTranslationDomain :: forall o (m :: * -> *).
(IsBuilder o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructBuilderTranslationDomain 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
"translation-domain" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearBuilderTranslationDomain :: (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderTranslationDomain :: forall (m :: * -> *) o. (MonadIO m, IsBuilder o) => o -> m ()
clearBuilderTranslationDomain 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
"translation-domain" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data BuilderTranslationDomainPropertyInfo
instance AttrInfo BuilderTranslationDomainPropertyInfo where
type AttrAllowedOps BuilderTranslationDomainPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint BuilderTranslationDomainPropertyInfo = IsBuilder
type AttrSetTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint BuilderTranslationDomainPropertyInfo = (~) T.Text
type AttrTransferType BuilderTranslationDomainPropertyInfo = T.Text
type AttrGetType BuilderTranslationDomainPropertyInfo = (Maybe T.Text)
type AttrLabel BuilderTranslationDomainPropertyInfo = "translation-domain"
type AttrOrigin BuilderTranslationDomainPropertyInfo = Builder
attrGet = getBuilderTranslationDomain
attrSet = setBuilderTranslationDomain
attrTransfer _ v = do
return v
attrConstruct = constructBuilderTranslationDomain
attrClear = clearBuilderTranslationDomain
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.translationDomain"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#g:attr:translationDomain"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Builder
type instance O.AttributeList Builder = BuilderAttributeList
type BuilderAttributeList = ('[ '("currentObject", BuilderCurrentObjectPropertyInfo), '("scope", BuilderScopePropertyInfo), '("translationDomain", BuilderTranslationDomainPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
builderCurrentObject :: AttrLabelProxy "currentObject"
builderCurrentObject = AttrLabelProxy
builderScope :: AttrLabelProxy "scope"
builderScope = AttrLabelProxy
builderTranslationDomain :: AttrLabelProxy "translationDomain"
builderTranslationDomain = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Builder = BuilderSignalList
type BuilderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_builder_new" gtk_builder_new ::
IO (Ptr Builder)
builderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Builder
builderNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Builder
builderNew = IO Builder -> m Builder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Builder -> m Builder) -> IO Builder -> m Builder
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
result <- IO (Ptr Builder)
gtk_builder_new
Text -> Ptr Builder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"builderNew" Ptr Builder
result
Builder
result' <- ((ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Builder -> Builder
Builder) Ptr Builder
result
Builder -> IO Builder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Builder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_builder_new_from_file" gtk_builder_new_from_file ::
CString ->
IO (Ptr Builder)
builderNewFromFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
[Char]
-> m Builder
builderNewFromFile :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
String -> m Builder
builderNewFromFile String
filename = IO Builder -> m Builder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Builder -> m Builder) -> IO Builder -> m Builder
forall a b. (a -> b) -> a -> b
$ do
CString
filename' <- String -> IO CString
stringToCString String
filename
Ptr Builder
result <- CString -> IO (Ptr Builder)
gtk_builder_new_from_file CString
filename'
Text -> Ptr Builder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"builderNewFromFile" Ptr Builder
result
Builder
result' <- ((ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Builder -> Builder
Builder) Ptr Builder
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
Builder -> IO Builder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Builder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_builder_new_from_resource" gtk_builder_new_from_resource ::
CString ->
IO (Ptr Builder)
builderNewFromResource ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m Builder
builderNewFromResource :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m Builder
builderNewFromResource Text
resourcePath = IO Builder -> m Builder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Builder -> m Builder) -> IO Builder -> m Builder
forall a b. (a -> b) -> a -> b
$ do
CString
resourcePath' <- Text -> IO CString
textToCString Text
resourcePath
Ptr Builder
result <- CString -> IO (Ptr Builder)
gtk_builder_new_from_resource CString
resourcePath'
Text -> Ptr Builder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"builderNewFromResource" Ptr Builder
result
Builder
result' <- ((ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Builder -> Builder
Builder) Ptr Builder
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
Builder -> IO Builder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Builder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_builder_new_from_string" gtk_builder_new_from_string ::
CString ->
Int64 ->
IO (Ptr Builder)
builderNewFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Int64
-> m Builder
builderNewFromString :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Int64 -> m Builder
builderNewFromString Text
string Int64
length_ = IO Builder -> m Builder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Builder -> m Builder) -> IO Builder -> m Builder
forall a b. (a -> b) -> a -> b
$ do
CString
string' <- Text -> IO CString
textToCString Text
string
Ptr Builder
result <- CString -> Int64 -> IO (Ptr Builder)
gtk_builder_new_from_string CString
string' Int64
length_
Text -> Ptr Builder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"builderNewFromString" Ptr Builder
result
Builder
result' <- ((ManagedPtr Builder -> Builder) -> Ptr Builder -> IO Builder
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Builder -> Builder
Builder) Ptr Builder
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Builder -> IO Builder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Builder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_builder_add_from_file" gtk_builder_add_from_file ::
Ptr Builder ->
CString ->
Ptr (Ptr GError) ->
IO CInt
builderAddFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> [Char]
-> m ()
builderAddFromFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> String -> m ()
builderAddFromFile a
builder String
filename = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
filename' <- String -> IO CString
stringToCString String
filename
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_from_file Ptr Builder
builder' CString
filename'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddFromFileMethodInfo
instance (signature ~ ([Char] -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddFromFileMethodInfo a signature where
overloadedMethod = builderAddFromFile
instance O.OverloadedMethodInfo BuilderAddFromFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddFromFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddFromFile"
})
#endif
foreign import ccall "gtk_builder_add_from_resource" gtk_builder_add_from_resource ::
Ptr Builder ->
CString ->
Ptr (Ptr GError) ->
IO CInt
builderAddFromResource ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> m ()
builderAddFromResource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> m ()
builderAddFromResource a
builder Text
resourcePath = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
resourcePath' <- Text -> IO CString
textToCString Text
resourcePath
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder -> CString -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_from_resource Ptr Builder
builder' CString
resourcePath'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddFromResourceMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddFromResourceMethodInfo a signature where
overloadedMethod = builderAddFromResource
instance O.OverloadedMethodInfo BuilderAddFromResourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddFromResource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddFromResource"
})
#endif
foreign import ccall "gtk_builder_add_from_string" gtk_builder_add_from_string ::
Ptr Builder ->
CString ->
Int64 ->
Ptr (Ptr GError) ->
IO CInt
builderAddFromString ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> Int64
-> m ()
builderAddFromString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> Int64 -> m ()
builderAddFromString a
builder Text
buffer Int64
length_ = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
buffer' <- Text -> IO CString
textToCString Text
buffer
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder -> CString -> Int64 -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_from_string Ptr Builder
builder' CString
buffer' Int64
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddFromStringMethodInfo
instance (signature ~ (T.Text -> Int64 -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddFromStringMethodInfo a signature where
overloadedMethod = builderAddFromString
instance O.OverloadedMethodInfo BuilderAddFromStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddFromString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddFromString"
})
#endif
foreign import ccall "gtk_builder_add_objects_from_file" gtk_builder_add_objects_from_file ::
Ptr Builder ->
CString ->
Ptr CString ->
Ptr (Ptr GError) ->
IO CInt
builderAddObjectsFromFile ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> [Char]
-> [T.Text]
-> m ()
builderAddObjectsFromFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> String -> [Text] -> m ()
builderAddObjectsFromFile a
builder String
filename [Text]
objectIds = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
filename' <- String -> IO CString
stringToCString String
filename
Ptr CString
objectIds' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
objectIds
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> CString -> Ptr CString -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_objects_from_file Ptr Builder
builder' CString
filename' Ptr CString
objectIds'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
filename'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddObjectsFromFileMethodInfo
instance (signature ~ ([Char] -> [T.Text] -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddObjectsFromFileMethodInfo a signature where
overloadedMethod = builderAddObjectsFromFile
instance O.OverloadedMethodInfo BuilderAddObjectsFromFileMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddObjectsFromFile",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddObjectsFromFile"
})
#endif
foreign import ccall "gtk_builder_add_objects_from_resource" gtk_builder_add_objects_from_resource ::
Ptr Builder ->
CString ->
Ptr CString ->
Ptr (Ptr GError) ->
IO CInt
builderAddObjectsFromResource ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> [T.Text]
-> m ()
builderAddObjectsFromResource :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> [Text] -> m ()
builderAddObjectsFromResource a
builder Text
resourcePath [Text]
objectIds = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
resourcePath' <- Text -> IO CString
textToCString Text
resourcePath
Ptr CString
objectIds' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
objectIds
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> CString -> Ptr CString -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_objects_from_resource Ptr Builder
builder' CString
resourcePath' Ptr CString
objectIds'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
resourcePath'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddObjectsFromResourceMethodInfo
instance (signature ~ (T.Text -> [T.Text] -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddObjectsFromResourceMethodInfo a signature where
overloadedMethod = builderAddObjectsFromResource
instance O.OverloadedMethodInfo BuilderAddObjectsFromResourceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddObjectsFromResource",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddObjectsFromResource"
})
#endif
foreign import ccall "gtk_builder_add_objects_from_string" gtk_builder_add_objects_from_string ::
Ptr Builder ->
CString ->
Int64 ->
Ptr CString ->
Ptr (Ptr GError) ->
IO CInt
builderAddObjectsFromString ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> Int64
-> [T.Text]
-> m ()
builderAddObjectsFromString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> Int64 -> [Text] -> m ()
builderAddObjectsFromString a
builder Text
buffer Int64
length_ [Text]
objectIds = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
buffer' <- Text -> IO CString
textToCString Text
buffer
Ptr CString
objectIds' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
objectIds
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> CString -> Int64 -> Ptr CString -> Ptr (Ptr GError) -> IO CInt
gtk_builder_add_objects_from_string Ptr Builder
builder' CString
buffer' Int64
length_ Ptr CString
objectIds'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
objectIds'
)
#if defined(ENABLE_OVERLOADING)
data BuilderAddObjectsFromStringMethodInfo
instance (signature ~ (T.Text -> Int64 -> [T.Text] -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderAddObjectsFromStringMethodInfo a signature where
overloadedMethod = builderAddObjectsFromString
instance O.OverloadedMethodInfo BuilderAddObjectsFromStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderAddObjectsFromString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderAddObjectsFromString"
})
#endif
foreign import ccall "gtk_builder_create_closure" gtk_builder_create_closure ::
Ptr Builder ->
CString ->
CUInt ->
Ptr GObject.Object.Object ->
Ptr (Ptr GError) ->
IO (Ptr (GClosure ()))
builderCreateClosure ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a, GObject.Object.IsObject b) =>
a
-> T.Text
-> [Gtk.Flags.BuilderClosureFlags]
-> Maybe (b)
-> m (Maybe (GClosure c))
builderCreateClosure :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsBuilder a, IsObject b) =>
a
-> Text
-> [BuilderClosureFlags]
-> Maybe b
-> m (Maybe (GClosure c))
builderCreateClosure a
builder Text
functionName [BuilderClosureFlags]
flags Maybe b
object = IO (Maybe (GClosure c)) -> m (Maybe (GClosure c))
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe (GClosure c)) -> m (Maybe (GClosure c)))
-> IO (Maybe (GClosure c)) -> m (Maybe (GClosure c))
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
functionName' <- Text -> IO CString
textToCString Text
functionName
let flags' :: CUInt
flags' = [BuilderClosureFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [BuilderClosureFlags]
flags
Ptr Object
maybeObject <- case Maybe b
object of
Maybe b
Nothing -> Ptr Object -> IO (Ptr Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
forall a. Ptr a
nullPtr
Just b
jObject -> do
Ptr Object
jObject' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jObject
Ptr Object -> IO (Ptr Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
jObject'
IO (Maybe (GClosure c)) -> IO () -> IO (Maybe (GClosure c))
forall a b. IO a -> IO b -> IO a
onException (do
Ptr (GClosure ())
result <- (Ptr (Ptr GError) -> IO (Ptr (GClosure ())))
-> IO (Ptr (GClosure ()))
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr (GClosure ())))
-> IO (Ptr (GClosure ())))
-> (Ptr (Ptr GError) -> IO (Ptr (GClosure ())))
-> IO (Ptr (GClosure ()))
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> CString
-> CUInt
-> Ptr Object
-> Ptr (Ptr GError)
-> IO (Ptr (GClosure ()))
gtk_builder_create_closure Ptr Builder
builder' CString
functionName' CUInt
flags' Ptr Object
maybeObject
Maybe (GClosure c)
maybeResult <- Ptr (GClosure ())
-> (Ptr (GClosure ()) -> IO (GClosure c))
-> IO (Maybe (GClosure c))
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr (GClosure ())
result ((Ptr (GClosure ()) -> IO (GClosure c)) -> IO (Maybe (GClosure c)))
-> (Ptr (GClosure ()) -> IO (GClosure c))
-> IO (Maybe (GClosure c))
forall a b. (a -> b) -> a -> b
$ \Ptr (GClosure ())
result' -> do
GClosure c
result'' <- (Ptr (GClosure c) -> IO (GClosure c)
forall a. Ptr (GClosure a) -> IO (GClosure a)
B.GClosure.wrapGClosurePtr (Ptr (GClosure c) -> IO (GClosure c))
-> (Ptr (GClosure ()) -> Ptr (GClosure c))
-> Ptr (GClosure ())
-> IO (GClosure c)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Ptr (GClosure ()) -> Ptr (GClosure c)
forall a b. Ptr a -> Ptr b
FP.castPtr) Ptr (GClosure ())
result'
GClosure c -> IO (GClosure c)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GClosure c
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
object b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
functionName'
Maybe (GClosure c) -> IO (Maybe (GClosure c))
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe (GClosure c)
maybeResult
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
functionName'
)
#if defined(ENABLE_OVERLOADING)
data BuilderCreateClosureMethodInfo
instance (signature ~ (T.Text -> [Gtk.Flags.BuilderClosureFlags] -> Maybe (b) -> m (Maybe (GClosure c))), MonadIO m, IsBuilder a, GObject.Object.IsObject b) => O.OverloadedMethod BuilderCreateClosureMethodInfo a signature where
overloadedMethod = builderCreateClosure
instance O.OverloadedMethodInfo BuilderCreateClosureMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderCreateClosure",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderCreateClosure"
})
#endif
foreign import ccall "gtk_builder_expose_object" gtk_builder_expose_object ::
Ptr Builder ->
CString ->
Ptr GObject.Object.Object ->
IO ()
builderExposeObject ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a, GObject.Object.IsObject b) =>
a
-> T.Text
-> b
-> m ()
builderExposeObject :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBuilder a, IsObject b) =>
a -> Text -> b -> m ()
builderExposeObject a
builder Text
name b
object = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Object
object' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
Ptr Builder -> CString -> Ptr Object -> IO ()
gtk_builder_expose_object Ptr Builder
builder' CString
name' Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BuilderExposeObjectMethodInfo
instance (signature ~ (T.Text -> b -> m ()), MonadIO m, IsBuilder a, GObject.Object.IsObject b) => O.OverloadedMethod BuilderExposeObjectMethodInfo a signature where
overloadedMethod = builderExposeObject
instance O.OverloadedMethodInfo BuilderExposeObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderExposeObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderExposeObject"
})
#endif
foreign import ccall "gtk_builder_extend_with_template" gtk_builder_extend_with_template ::
Ptr Builder ->
Ptr GObject.Object.Object ->
CGType ->
CString ->
Int64 ->
Ptr (Ptr GError) ->
IO CInt
builderExtendWithTemplate ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a, GObject.Object.IsObject b) =>
a
-> b
-> GType
-> T.Text
-> Int64
-> m ()
builderExtendWithTemplate :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBuilder a, IsObject b) =>
a -> b -> GType -> Text -> Int64 -> m ()
builderExtendWithTemplate a
builder b
object GType
templateType Text
buffer Int64
length_ = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr Object
object' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
object
let templateType' :: CGType
templateType' = GType -> CGType
gtypeToCGType GType
templateType
CString
buffer' <- Text -> IO CString
textToCString Text
buffer
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> Ptr Object
-> CGType
-> CString
-> Int64
-> Ptr (Ptr GError)
-> IO CInt
gtk_builder_extend_with_template Ptr Builder
builder' Ptr Object
object' CGType
templateType' CString
buffer' Int64
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
buffer'
)
#if defined(ENABLE_OVERLOADING)
data BuilderExtendWithTemplateMethodInfo
instance (signature ~ (b -> GType -> T.Text -> Int64 -> m ()), MonadIO m, IsBuilder a, GObject.Object.IsObject b) => O.OverloadedMethod BuilderExtendWithTemplateMethodInfo a signature where
overloadedMethod = builderExtendWithTemplate
instance O.OverloadedMethodInfo BuilderExtendWithTemplateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderExtendWithTemplate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderExtendWithTemplate"
})
#endif
foreign import ccall "gtk_builder_get_current_object" gtk_builder_get_current_object ::
Ptr Builder ->
IO (Ptr GObject.Object.Object)
builderGetCurrentObject ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> m (Maybe GObject.Object.Object)
builderGetCurrentObject :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> m (Maybe Object)
builderGetCurrentObject a
builder = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr Object
result <- Ptr Builder -> IO (Ptr Object)
gtk_builder_get_current_object Ptr Builder
builder'
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
Maybe Object -> IO (Maybe Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if defined(ENABLE_OVERLOADING)
data BuilderGetCurrentObjectMethodInfo
instance (signature ~ (m (Maybe GObject.Object.Object)), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetCurrentObjectMethodInfo a signature where
overloadedMethod = builderGetCurrentObject
instance O.OverloadedMethodInfo BuilderGetCurrentObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetCurrentObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetCurrentObject"
})
#endif
foreign import ccall "gtk_builder_get_object" gtk_builder_get_object ::
Ptr Builder ->
CString ->
IO (Ptr GObject.Object.Object)
builderGetObject ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> m (Maybe GObject.Object.Object)
builderGetObject :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> m (Maybe Object)
builderGetObject a
builder Text
name = IO (Maybe Object) -> m (Maybe Object)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Object) -> m (Maybe Object))
-> IO (Maybe Object) -> m (Maybe Object)
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr Object
result <- Ptr Builder -> CString -> IO (Ptr Object)
gtk_builder_get_object Ptr Builder
builder' CString
name'
Maybe Object
maybeResult <- Ptr Object -> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Object
result ((Ptr Object -> IO Object) -> IO (Maybe Object))
-> (Ptr Object -> IO Object) -> IO (Maybe Object)
forall a b. (a -> b) -> a -> b
$ \Ptr Object
result' -> do
Object
result'' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) Ptr Object
result'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Maybe Object -> IO (Maybe Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
maybeResult
#if defined(ENABLE_OVERLOADING)
data BuilderGetObjectMethodInfo
instance (signature ~ (T.Text -> m (Maybe GObject.Object.Object)), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetObjectMethodInfo a signature where
overloadedMethod = builderGetObject
instance O.OverloadedMethodInfo BuilderGetObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetObject"
})
#endif
foreign import ccall "gtk_builder_get_objects" gtk_builder_get_objects ::
Ptr Builder ->
IO (Ptr (GSList (Ptr GObject.Object.Object)))
builderGetObjects ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> m [GObject.Object.Object]
builderGetObjects :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> m [Object]
builderGetObjects a
builder = IO [Object] -> m [Object]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [Object] -> m [Object]) -> IO [Object] -> m [Object]
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr (GSList (Ptr Object))
result <- Ptr Builder -> IO (Ptr (GSList (Ptr Object)))
gtk_builder_get_objects Ptr Builder
builder'
[Ptr Object]
result' <- Ptr (GSList (Ptr Object)) -> IO [Ptr Object]
forall a. Ptr (GSList (Ptr a)) -> IO [Ptr a]
unpackGSList Ptr (GSList (Ptr Object))
result
[Object]
result'' <- (Ptr Object -> IO Object) -> [Ptr Object] -> IO [Object]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Object -> Object
GObject.Object.Object) [Ptr Object]
result'
Ptr (GSList (Ptr Object)) -> IO ()
forall a. Ptr (GSList a) -> IO ()
g_slist_free Ptr (GSList (Ptr Object))
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
[Object] -> IO [Object]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [Object]
result''
#if defined(ENABLE_OVERLOADING)
data BuilderGetObjectsMethodInfo
instance (signature ~ (m [GObject.Object.Object]), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetObjectsMethodInfo a signature where
overloadedMethod = builderGetObjects
instance O.OverloadedMethodInfo BuilderGetObjectsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetObjects",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetObjects"
})
#endif
foreign import ccall "gtk_builder_get_scope" gtk_builder_get_scope ::
Ptr Builder ->
IO (Ptr Gtk.BuilderScope.BuilderScope)
builderGetScope ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> m Gtk.BuilderScope.BuilderScope
builderGetScope :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> m BuilderScope
builderGetScope a
builder = IO BuilderScope -> m BuilderScope
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BuilderScope -> m BuilderScope)
-> IO BuilderScope -> m BuilderScope
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr BuilderScope
result <- Ptr Builder -> IO (Ptr BuilderScope)
gtk_builder_get_scope Ptr Builder
builder'
Text -> Ptr BuilderScope -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"builderGetScope" Ptr BuilderScope
result
BuilderScope
result' <- ((ManagedPtr BuilderScope -> BuilderScope)
-> Ptr BuilderScope -> IO BuilderScope
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr BuilderScope -> BuilderScope
Gtk.BuilderScope.BuilderScope) Ptr BuilderScope
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
BuilderScope -> IO BuilderScope
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BuilderScope
result'
#if defined(ENABLE_OVERLOADING)
data BuilderGetScopeMethodInfo
instance (signature ~ (m Gtk.BuilderScope.BuilderScope), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetScopeMethodInfo a signature where
overloadedMethod = builderGetScope
instance O.OverloadedMethodInfo BuilderGetScopeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetScope",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetScope"
})
#endif
foreign import ccall "gtk_builder_get_translation_domain" gtk_builder_get_translation_domain ::
Ptr Builder ->
IO CString
builderGetTranslationDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> m (Maybe T.Text)
builderGetTranslationDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> m (Maybe Text)
builderGetTranslationDomain a
builder = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
result <- Ptr Builder -> IO CString
gtk_builder_get_translation_domain Ptr Builder
builder'
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
builder
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 BuilderGetTranslationDomainMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetTranslationDomainMethodInfo a signature where
overloadedMethod = builderGetTranslationDomain
instance O.OverloadedMethodInfo BuilderGetTranslationDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetTranslationDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetTranslationDomain"
})
#endif
foreign import ccall "gtk_builder_get_type_from_name" gtk_builder_get_type_from_name ::
Ptr Builder ->
CString ->
IO CGType
builderGetTypeFromName ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> T.Text
-> m GType
builderGetTypeFromName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Text -> m GType
builderGetTypeFromName a
builder Text
typeName = IO GType -> m GType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GType -> m GType) -> IO GType -> m GType
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
typeName' <- Text -> IO CString
textToCString Text
typeName
CGType
result <- Ptr Builder -> CString -> IO CGType
gtk_builder_get_type_from_name Ptr Builder
builder' CString
typeName'
let result' :: GType
result' = CGType -> GType
GType CGType
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
typeName'
GType -> IO GType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GType
result'
#if defined(ENABLE_OVERLOADING)
data BuilderGetTypeFromNameMethodInfo
instance (signature ~ (T.Text -> m GType), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderGetTypeFromNameMethodInfo a signature where
overloadedMethod = builderGetTypeFromName
instance O.OverloadedMethodInfo BuilderGetTypeFromNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderGetTypeFromName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderGetTypeFromName"
})
#endif
foreign import ccall "gtk_builder_set_current_object" gtk_builder_set_current_object ::
Ptr Builder ->
Ptr GObject.Object.Object ->
IO ()
builderSetCurrentObject ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a, GObject.Object.IsObject b) =>
a
-> Maybe (b)
-> m ()
builderSetCurrentObject :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBuilder a, IsObject b) =>
a -> Maybe b -> m ()
builderSetCurrentObject a
builder Maybe b
currentObject = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr Object
maybeCurrentObject <- case Maybe b
currentObject of
Maybe b
Nothing -> Ptr Object -> IO (Ptr Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
forall a. Ptr a
nullPtr
Just b
jCurrentObject -> do
Ptr Object
jCurrentObject' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCurrentObject
Ptr Object -> IO (Ptr Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Object
jCurrentObject'
Ptr Builder -> Ptr Object -> IO ()
gtk_builder_set_current_object Ptr Builder
builder' Ptr Object
maybeCurrentObject
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
currentObject 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 BuilderSetCurrentObjectMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBuilder a, GObject.Object.IsObject b) => O.OverloadedMethod BuilderSetCurrentObjectMethodInfo a signature where
overloadedMethod = builderSetCurrentObject
instance O.OverloadedMethodInfo BuilderSetCurrentObjectMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderSetCurrentObject",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderSetCurrentObject"
})
#endif
foreign import ccall "gtk_builder_set_scope" gtk_builder_set_scope ::
Ptr Builder ->
Ptr Gtk.BuilderScope.BuilderScope ->
IO ()
builderSetScope ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a, Gtk.BuilderScope.IsBuilderScope b) =>
a
-> Maybe (b)
-> m ()
builderSetScope :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsBuilder a, IsBuilderScope b) =>
a -> Maybe b -> m ()
builderSetScope a
builder Maybe b
scope = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr BuilderScope
maybeScope <- case Maybe b
scope of
Maybe b
Nothing -> Ptr BuilderScope -> IO (Ptr BuilderScope)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr BuilderScope
forall a. Ptr a
nullPtr
Just b
jScope -> do
Ptr BuilderScope
jScope' <- b -> IO (Ptr BuilderScope)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jScope
Ptr BuilderScope -> IO (Ptr BuilderScope)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr BuilderScope
jScope'
Ptr Builder -> Ptr BuilderScope -> IO ()
gtk_builder_set_scope Ptr Builder
builder' Ptr BuilderScope
maybeScope
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
scope 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 BuilderSetScopeMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsBuilder a, Gtk.BuilderScope.IsBuilderScope b) => O.OverloadedMethod BuilderSetScopeMethodInfo a signature where
overloadedMethod = builderSetScope
instance O.OverloadedMethodInfo BuilderSetScopeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderSetScope",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderSetScope"
})
#endif
foreign import ccall "gtk_builder_set_translation_domain" gtk_builder_set_translation_domain ::
Ptr Builder ->
CString ->
IO ()
builderSetTranslationDomain ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> Maybe (T.Text)
-> m ()
builderSetTranslationDomain :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> Maybe Text -> m ()
builderSetTranslationDomain a
builder Maybe Text
domain = 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 Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
CString
maybeDomain <- case Maybe Text
domain 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
jDomain -> do
CString
jDomain' <- Text -> IO CString
textToCString Text
jDomain
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDomain'
Ptr Builder -> CString -> IO ()
gtk_builder_set_translation_domain Ptr Builder
builder' CString
maybeDomain
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDomain
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BuilderSetTranslationDomainMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderSetTranslationDomainMethodInfo a signature where
overloadedMethod = builderSetTranslationDomain
instance O.OverloadedMethodInfo BuilderSetTranslationDomainMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderSetTranslationDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderSetTranslationDomain"
})
#endif
foreign import ccall "gtk_builder_value_from_string" gtk_builder_value_from_string ::
Ptr Builder ->
Ptr GParamSpec ->
CString ->
Ptr GValue ->
Ptr (Ptr GError) ->
IO CInt
builderValueFromString ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> GParamSpec
-> T.Text
-> m (GValue)
builderValueFromString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> GParamSpec -> Text -> m GValue
builderValueFromString a
builder GParamSpec
pspec Text
string = IO GValue -> m GValue
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GValue -> m GValue) -> IO GValue -> m GValue
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
CString
string' <- Text -> IO CString
textToCString Text
string
Ptr GValue
value <- Int -> IO (Ptr GValue)
forall a. Int -> IO (Ptr a)
SP.callocBytes Int
24 :: IO (Ptr GValue)
IO GValue -> IO () -> IO GValue
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> Ptr GParamSpec
-> CString
-> Ptr GValue
-> Ptr (Ptr GError)
-> IO CInt
gtk_builder_value_from_string Ptr Builder
builder' Ptr GParamSpec
pspec' CString
string' Ptr GValue
value
GValue
value' <- Ptr GValue -> IO GValue
B.GValue.wrapGValuePtr Ptr GValue
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
GValue -> IO GValue
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GValue
value'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Ptr GValue -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr GValue
value
)
#if defined(ENABLE_OVERLOADING)
data BuilderValueFromStringMethodInfo
instance (signature ~ (GParamSpec -> T.Text -> m (GValue)), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderValueFromStringMethodInfo a signature where
overloadedMethod = builderValueFromString
instance O.OverloadedMethodInfo BuilderValueFromStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderValueFromString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderValueFromString"
})
#endif
foreign import ccall "gtk_builder_value_from_string_type" gtk_builder_value_from_string_type ::
Ptr Builder ->
CGType ->
CString ->
Ptr GValue ->
Ptr (Ptr GError) ->
IO CInt
builderValueFromStringType ::
(B.CallStack.HasCallStack, MonadIO m, IsBuilder a) =>
a
-> GType
-> T.Text
-> m (GValue)
builderValueFromStringType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBuilder a) =>
a -> GType -> Text -> m GValue
builderValueFromStringType a
builder GType
type_ Text
string = IO GValue -> m GValue
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GValue -> m GValue) -> IO GValue -> m GValue
forall a b. (a -> b) -> a -> b
$ do
Ptr Builder
builder' <- a -> IO (Ptr Builder)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
builder
let type_' :: CGType
type_' = GType -> CGType
gtypeToCGType GType
type_
CString
string' <- Text -> IO CString
textToCString Text
string
Ptr GValue
value <- Int -> IO (Ptr GValue)
forall a. Int -> IO (Ptr a)
SP.callocBytes Int
24 :: IO (Ptr GValue)
IO GValue -> IO () -> IO GValue
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Builder
-> CGType -> CString -> Ptr GValue -> Ptr (Ptr GError) -> IO CInt
gtk_builder_value_from_string_type Ptr Builder
builder' CGType
type_' CString
string' Ptr GValue
value
GValue
value' <- Ptr GValue -> IO GValue
B.GValue.wrapGValuePtr Ptr GValue
value
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
builder
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
GValue -> IO GValue
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GValue
value'
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Ptr GValue -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr GValue
value
)
#if defined(ENABLE_OVERLOADING)
data BuilderValueFromStringTypeMethodInfo
instance (signature ~ (GType -> T.Text -> m (GValue)), MonadIO m, IsBuilder a) => O.OverloadedMethod BuilderValueFromStringTypeMethodInfo a signature where
overloadedMethod = builderValueFromStringType
instance O.OverloadedMethodInfo BuilderValueFromStringTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.Builder.builderValueFromStringType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-Builder.html#v:builderValueFromStringType"
})
#endif