{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.IMContext
(
IMContext(..) ,
IsIMContext ,
toIMContext ,
#if defined(ENABLE_OVERLOADING)
ResolveIMContextMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
IMContextDeleteSurroundingMethodInfo ,
#endif
iMContextDeleteSurrounding ,
#if defined(ENABLE_OVERLOADING)
IMContextFilterKeypressMethodInfo ,
#endif
iMContextFilterKeypress ,
#if defined(ENABLE_OVERLOADING)
IMContextFocusInMethodInfo ,
#endif
iMContextFocusIn ,
#if defined(ENABLE_OVERLOADING)
IMContextFocusOutMethodInfo ,
#endif
iMContextFocusOut ,
#if defined(ENABLE_OVERLOADING)
IMContextGetPreeditStringMethodInfo ,
#endif
iMContextGetPreeditString ,
#if defined(ENABLE_OVERLOADING)
IMContextGetSurroundingMethodInfo ,
#endif
iMContextGetSurrounding ,
#if defined(ENABLE_OVERLOADING)
IMContextResetMethodInfo ,
#endif
iMContextReset ,
#if defined(ENABLE_OVERLOADING)
IMContextSetClientWindowMethodInfo ,
#endif
iMContextSetClientWindow ,
#if defined(ENABLE_OVERLOADING)
IMContextSetCursorLocationMethodInfo ,
#endif
iMContextSetCursorLocation ,
#if defined(ENABLE_OVERLOADING)
IMContextSetSurroundingMethodInfo ,
#endif
iMContextSetSurrounding ,
#if defined(ENABLE_OVERLOADING)
IMContextSetUsePreeditMethodInfo ,
#endif
iMContextSetUsePreedit ,
#if defined(ENABLE_OVERLOADING)
IMContextInputHintsPropertyInfo ,
#endif
constructIMContextInputHints ,
getIMContextInputHints ,
#if defined(ENABLE_OVERLOADING)
iMContextInputHints ,
#endif
setIMContextInputHints ,
#if defined(ENABLE_OVERLOADING)
IMContextInputPurposePropertyInfo ,
#endif
constructIMContextInputPurpose ,
getIMContextInputPurpose ,
#if defined(ENABLE_OVERLOADING)
iMContextInputPurpose ,
#endif
setIMContextInputPurpose ,
IMContextCommitCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextCommitSignalInfo ,
#endif
afterIMContextCommit ,
onIMContextCommit ,
IMContextDeleteSurroundingCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextDeleteSurroundingSignalInfo ,
#endif
afterIMContextDeleteSurrounding ,
onIMContextDeleteSurrounding ,
IMContextPreeditChangedCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextPreeditChangedSignalInfo ,
#endif
afterIMContextPreeditChanged ,
onIMContextPreeditChanged ,
IMContextPreeditEndCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextPreeditEndSignalInfo ,
#endif
afterIMContextPreeditEnd ,
onIMContextPreeditEnd ,
IMContextPreeditStartCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextPreeditStartSignalInfo ,
#endif
afterIMContextPreeditStart ,
onIMContextPreeditStart ,
IMContextRetrieveSurroundingCallback ,
#if defined(ENABLE_OVERLOADING)
IMContextRetrieveSurroundingSignalInfo ,
#endif
afterIMContextRetrieveSurrounding ,
onIMContextRetrieveSurrounding ,
) 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 qualified GI.Gdk.Objects.Window as Gdk.Window
import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import qualified GI.Pango.Structs.AttrList as Pango.AttrList
newtype IMContext = IMContext (SP.ManagedPtr IMContext)
deriving (IMContext -> IMContext -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IMContext -> IMContext -> Bool
$c/= :: IMContext -> IMContext -> Bool
== :: IMContext -> IMContext -> Bool
$c== :: IMContext -> IMContext -> Bool
Eq)
instance SP.ManagedPtrNewtype IMContext where
toManagedPtr :: IMContext -> ManagedPtr IMContext
toManagedPtr (IMContext ManagedPtr IMContext
p) = ManagedPtr IMContext
p
foreign import ccall "gtk_im_context_get_type"
c_gtk_im_context_get_type :: IO B.Types.GType
instance B.Types.TypedObject IMContext where
glibType :: IO GType
glibType = IO GType
c_gtk_im_context_get_type
instance B.Types.GObject IMContext
class (SP.GObject o, O.IsDescendantOf IMContext o) => IsIMContext o
instance (SP.GObject o, O.IsDescendantOf IMContext o) => IsIMContext o
instance O.HasParentTypes IMContext
type instance O.ParentTypes IMContext = '[GObject.Object.Object]
toIMContext :: (MIO.MonadIO m, IsIMContext o) => o -> m IMContext
toIMContext :: forall (m :: * -> *) o.
(MonadIO m, IsIMContext o) =>
o -> m IMContext
toIMContext = 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 IMContext -> IMContext
IMContext
instance B.GValue.IsGValue (Maybe IMContext) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_im_context_get_type
gvalueSet_ :: Ptr GValue -> Maybe IMContext -> IO ()
gvalueSet_ Ptr GValue
gv Maybe IMContext
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 IMContext)
gvalueSet_ Ptr GValue
gv (P.Just IMContext
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IMContext
obj (forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe IMContext)
gvalueGet_ Ptr GValue
gv = do
Ptr IMContext
ptr <- forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr IMContext)
if Ptr IMContext
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 IMContext -> IMContext
IMContext Ptr IMContext
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveIMContextMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveIMContextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveIMContextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveIMContextMethod "deleteSurrounding" o = IMContextDeleteSurroundingMethodInfo
ResolveIMContextMethod "filterKeypress" o = IMContextFilterKeypressMethodInfo
ResolveIMContextMethod "focusIn" o = IMContextFocusInMethodInfo
ResolveIMContextMethod "focusOut" o = IMContextFocusOutMethodInfo
ResolveIMContextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveIMContextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveIMContextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveIMContextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveIMContextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveIMContextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveIMContextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveIMContextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveIMContextMethod "reset" o = IMContextResetMethodInfo
ResolveIMContextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveIMContextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveIMContextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveIMContextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveIMContextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveIMContextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveIMContextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveIMContextMethod "getPreeditString" o = IMContextGetPreeditStringMethodInfo
ResolveIMContextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveIMContextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveIMContextMethod "getSurrounding" o = IMContextGetSurroundingMethodInfo
ResolveIMContextMethod "setClientWindow" o = IMContextSetClientWindowMethodInfo
ResolveIMContextMethod "setCursorLocation" o = IMContextSetCursorLocationMethodInfo
ResolveIMContextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveIMContextMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveIMContextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveIMContextMethod "setSurrounding" o = IMContextSetSurroundingMethodInfo
ResolveIMContextMethod "setUsePreedit" o = IMContextSetUsePreeditMethodInfo
ResolveIMContextMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIMContextMethod t IMContext, O.OverloadedMethod info IMContext p) => OL.IsLabel t (IMContext -> 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 ~ ResolveIMContextMethod t IMContext, O.OverloadedMethod info IMContext p, R.HasField t IMContext p) => R.HasField t IMContext p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIMContextMethod t IMContext, O.OverloadedMethodInfo info IMContext) => OL.IsLabel t (O.MethodProxy info IMContext) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type IMContextCommitCallback =
T.Text
-> IO ()
type C_IMContextCommitCallback =
Ptr IMContext ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IMContextCommitCallback :: C_IMContextCommitCallback -> IO (FunPtr C_IMContextCommitCallback)
wrap_IMContextCommitCallback ::
GObject a => (a -> IMContextCommitCallback) ->
C_IMContextCommitCallback
wrap_IMContextCommitCallback :: forall a.
GObject a =>
(a -> IMContextCommitCallback) -> C_IMContextCommitCallback
wrap_IMContextCommitCallback a -> IMContextCommitCallback
gi'cb Ptr IMContext
gi'selfPtr CString
str Ptr ()
_ = do
Text
str' <- HasCallStack => CString -> IO Text
cstringToText CString
str
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IMContextCommitCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self) Text
str'
onIMContextCommit :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextCommitCallback) -> m SignalHandlerId
onIMContextCommit :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IMContextCommitCallback) -> m SignalHandlerId
onIMContextCommit a
obj (?self::a) => IMContextCommitCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IMContextCommitCallback
wrapped a
self = let ?self = a
self in (?self::a) => IMContextCommitCallback
cb
let wrapped' :: C_IMContextCommitCallback
wrapped' = forall a.
GObject a =>
(a -> IMContextCommitCallback) -> C_IMContextCommitCallback
wrap_IMContextCommitCallback a -> IMContextCommitCallback
wrapped
FunPtr C_IMContextCommitCallback
wrapped'' <- C_IMContextCommitCallback -> IO (FunPtr C_IMContextCommitCallback)
mk_IMContextCommitCallback C_IMContextCommitCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"commit" FunPtr C_IMContextCommitCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextCommit :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextCommitCallback) -> m SignalHandlerId
afterIMContextCommit :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IMContextCommitCallback) -> m SignalHandlerId
afterIMContextCommit a
obj (?self::a) => IMContextCommitCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IMContextCommitCallback
wrapped a
self = let ?self = a
self in (?self::a) => IMContextCommitCallback
cb
let wrapped' :: C_IMContextCommitCallback
wrapped' = forall a.
GObject a =>
(a -> IMContextCommitCallback) -> C_IMContextCommitCallback
wrap_IMContextCommitCallback a -> IMContextCommitCallback
wrapped
FunPtr C_IMContextCommitCallback
wrapped'' <- C_IMContextCommitCallback -> IO (FunPtr C_IMContextCommitCallback)
mk_IMContextCommitCallback C_IMContextCommitCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"commit" FunPtr C_IMContextCommitCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextCommitSignalInfo
instance SignalInfo IMContextCommitSignalInfo where
type HaskellCallbackType IMContextCommitSignalInfo = IMContextCommitCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextCommitCallback cb
cb'' <- mk_IMContextCommitCallback cb'
connectSignalFunPtr obj "commit" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::commit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:commit"})
#endif
type IMContextDeleteSurroundingCallback =
Int32
-> Int32
-> IO Bool
type C_IMContextDeleteSurroundingCallback =
Ptr IMContext ->
Int32 ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_IMContextDeleteSurroundingCallback :: C_IMContextDeleteSurroundingCallback -> IO (FunPtr C_IMContextDeleteSurroundingCallback)
wrap_IMContextDeleteSurroundingCallback ::
GObject a => (a -> IMContextDeleteSurroundingCallback) ->
C_IMContextDeleteSurroundingCallback
wrap_IMContextDeleteSurroundingCallback :: forall a.
GObject a =>
(a -> IMContextDeleteSurroundingCallback)
-> C_IMContextDeleteSurroundingCallback
wrap_IMContextDeleteSurroundingCallback a -> IMContextDeleteSurroundingCallback
gi'cb Ptr IMContext
gi'selfPtr Int32
offset Int32
nChars Ptr ()
_ = do
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IMContextDeleteSurroundingCallback
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self) Int32
offset Int32
nChars
let result' :: CInt
result' = (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
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onIMContextDeleteSurrounding :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextDeleteSurroundingCallback) -> m SignalHandlerId
onIMContextDeleteSurrounding :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a
-> ((?self::a) => IMContextDeleteSurroundingCallback)
-> m SignalHandlerId
onIMContextDeleteSurrounding a
obj (?self::a) => IMContextDeleteSurroundingCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IMContextDeleteSurroundingCallback
wrapped a
self = let ?self = a
self in (?self::a) => IMContextDeleteSurroundingCallback
cb
let wrapped' :: C_IMContextDeleteSurroundingCallback
wrapped' = forall a.
GObject a =>
(a -> IMContextDeleteSurroundingCallback)
-> C_IMContextDeleteSurroundingCallback
wrap_IMContextDeleteSurroundingCallback a -> IMContextDeleteSurroundingCallback
wrapped
FunPtr C_IMContextDeleteSurroundingCallback
wrapped'' <- C_IMContextDeleteSurroundingCallback
-> IO (FunPtr C_IMContextDeleteSurroundingCallback)
mk_IMContextDeleteSurroundingCallback C_IMContextDeleteSurroundingCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-surrounding" FunPtr C_IMContextDeleteSurroundingCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextDeleteSurrounding :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextDeleteSurroundingCallback) -> m SignalHandlerId
afterIMContextDeleteSurrounding :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a
-> ((?self::a) => IMContextDeleteSurroundingCallback)
-> m SignalHandlerId
afterIMContextDeleteSurrounding a
obj (?self::a) => IMContextDeleteSurroundingCallback
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IMContextDeleteSurroundingCallback
wrapped a
self = let ?self = a
self in (?self::a) => IMContextDeleteSurroundingCallback
cb
let wrapped' :: C_IMContextDeleteSurroundingCallback
wrapped' = forall a.
GObject a =>
(a -> IMContextDeleteSurroundingCallback)
-> C_IMContextDeleteSurroundingCallback
wrap_IMContextDeleteSurroundingCallback a -> IMContextDeleteSurroundingCallback
wrapped
FunPtr C_IMContextDeleteSurroundingCallback
wrapped'' <- C_IMContextDeleteSurroundingCallback
-> IO (FunPtr C_IMContextDeleteSurroundingCallback)
mk_IMContextDeleteSurroundingCallback C_IMContextDeleteSurroundingCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"delete-surrounding" FunPtr C_IMContextDeleteSurroundingCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextDeleteSurroundingSignalInfo
instance SignalInfo IMContextDeleteSurroundingSignalInfo where
type HaskellCallbackType IMContextDeleteSurroundingSignalInfo = IMContextDeleteSurroundingCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextDeleteSurroundingCallback cb
cb'' <- mk_IMContextDeleteSurroundingCallback cb'
connectSignalFunPtr obj "delete-surrounding" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::delete-surrounding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:deleteSurrounding"})
#endif
type IMContextPreeditChangedCallback =
IO ()
type C_IMContextPreeditChangedCallback =
Ptr IMContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IMContextPreeditChangedCallback :: C_IMContextPreeditChangedCallback -> IO (FunPtr C_IMContextPreeditChangedCallback)
wrap_IMContextPreeditChangedCallback ::
GObject a => (a -> IMContextPreeditChangedCallback) ->
C_IMContextPreeditChangedCallback
wrap_IMContextPreeditChangedCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditChangedCallback a -> IO ()
gi'cb Ptr IMContext
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self)
onIMContextPreeditChanged :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditChangedCallback) -> m SignalHandlerId
onIMContextPreeditChanged :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onIMContextPreeditChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditChangedCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditChangedCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-changed" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextPreeditChanged :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditChangedCallback) -> m SignalHandlerId
afterIMContextPreeditChanged :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterIMContextPreeditChanged a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditChangedCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditChangedCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-changed" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextPreeditChangedSignalInfo
instance SignalInfo IMContextPreeditChangedSignalInfo where
type HaskellCallbackType IMContextPreeditChangedSignalInfo = IMContextPreeditChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextPreeditChangedCallback cb
cb'' <- mk_IMContextPreeditChangedCallback cb'
connectSignalFunPtr obj "preedit-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::preedit-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:preeditChanged"})
#endif
type IMContextPreeditEndCallback =
IO ()
type C_IMContextPreeditEndCallback =
Ptr IMContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IMContextPreeditEndCallback :: C_IMContextPreeditEndCallback -> IO (FunPtr C_IMContextPreeditEndCallback)
wrap_IMContextPreeditEndCallback ::
GObject a => (a -> IMContextPreeditEndCallback) ->
C_IMContextPreeditEndCallback
wrap_IMContextPreeditEndCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditEndCallback a -> IO ()
gi'cb Ptr IMContext
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self)
onIMContextPreeditEnd :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditEndCallback) -> m SignalHandlerId
onIMContextPreeditEnd :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onIMContextPreeditEnd a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditEndCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditEndCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-end" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextPreeditEnd :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditEndCallback) -> m SignalHandlerId
afterIMContextPreeditEnd :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterIMContextPreeditEnd a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditEndCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditEndCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-end" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextPreeditEndSignalInfo
instance SignalInfo IMContextPreeditEndSignalInfo where
type HaskellCallbackType IMContextPreeditEndSignalInfo = IMContextPreeditEndCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextPreeditEndCallback cb
cb'' <- mk_IMContextPreeditEndCallback cb'
connectSignalFunPtr obj "preedit-end" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::preedit-end"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:preeditEnd"})
#endif
type IMContextPreeditStartCallback =
IO ()
type C_IMContextPreeditStartCallback =
Ptr IMContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_IMContextPreeditStartCallback :: C_IMContextPreeditStartCallback -> IO (FunPtr C_IMContextPreeditStartCallback)
wrap_IMContextPreeditStartCallback ::
GObject a => (a -> IMContextPreeditStartCallback) ->
C_IMContextPreeditStartCallback
wrap_IMContextPreeditStartCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditStartCallback a -> IO ()
gi'cb Ptr IMContext
gi'selfPtr Ptr ()
_ = do
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IO ()
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self)
onIMContextPreeditStart :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditStartCallback) -> m SignalHandlerId
onIMContextPreeditStart :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onIMContextPreeditStart a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditStartCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditStartCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-start" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextPreeditStart :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextPreeditStartCallback) -> m SignalHandlerId
afterIMContextPreeditStart :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterIMContextPreeditStart a
obj (?self::a) => IO ()
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
self in (?self::a) => IO ()
cb
let wrapped' :: C_IMContextPreeditChangedCallback
wrapped' = forall a.
GObject a =>
(a -> IO ()) -> C_IMContextPreeditChangedCallback
wrap_IMContextPreeditStartCallback a -> IO ()
wrapped
FunPtr C_IMContextPreeditChangedCallback
wrapped'' <- C_IMContextPreeditChangedCallback
-> IO (FunPtr C_IMContextPreeditChangedCallback)
mk_IMContextPreeditStartCallback C_IMContextPreeditChangedCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preedit-start" FunPtr C_IMContextPreeditChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextPreeditStartSignalInfo
instance SignalInfo IMContextPreeditStartSignalInfo where
type HaskellCallbackType IMContextPreeditStartSignalInfo = IMContextPreeditStartCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextPreeditStartCallback cb
cb'' <- mk_IMContextPreeditStartCallback cb'
connectSignalFunPtr obj "preedit-start" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::preedit-start"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:preeditStart"})
#endif
type IMContextRetrieveSurroundingCallback =
IO Bool
type C_IMContextRetrieveSurroundingCallback =
Ptr IMContext ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_IMContextRetrieveSurroundingCallback :: C_IMContextRetrieveSurroundingCallback -> IO (FunPtr C_IMContextRetrieveSurroundingCallback)
wrap_IMContextRetrieveSurroundingCallback ::
GObject a => (a -> IMContextRetrieveSurroundingCallback) ->
C_IMContextRetrieveSurroundingCallback
wrap_IMContextRetrieveSurroundingCallback :: forall a.
GObject a =>
(a -> IO Bool) -> C_IMContextRetrieveSurroundingCallback
wrap_IMContextRetrieveSurroundingCallback a -> IO Bool
gi'cb Ptr IMContext
gi'selfPtr Ptr ()
_ = do
Bool
result <- forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr IMContext
gi'selfPtr forall a b. (a -> b) -> a -> b
$ \IMContext
gi'self -> a -> IO Bool
gi'cb (coerce :: forall a b. Coercible a b => a -> b
Coerce.coerce IMContext
gi'self)
let result' :: CInt
result' = (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
result
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
result'
onIMContextRetrieveSurrounding :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextRetrieveSurroundingCallback) -> m SignalHandlerId
onIMContextRetrieveSurrounding :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
onIMContextRetrieveSurrounding a
obj (?self::a) => IO Bool
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
self in (?self::a) => IO Bool
cb
let wrapped' :: C_IMContextRetrieveSurroundingCallback
wrapped' = forall a.
GObject a =>
(a -> IO Bool) -> C_IMContextRetrieveSurroundingCallback
wrap_IMContextRetrieveSurroundingCallback a -> IO Bool
wrapped
FunPtr C_IMContextRetrieveSurroundingCallback
wrapped'' <- C_IMContextRetrieveSurroundingCallback
-> IO (FunPtr C_IMContextRetrieveSurroundingCallback)
mk_IMContextRetrieveSurroundingCallback C_IMContextRetrieveSurroundingCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"retrieve-surrounding" FunPtr C_IMContextRetrieveSurroundingCallback
wrapped'' SignalConnectMode
SignalConnectBefore forall a. Maybe a
Nothing
afterIMContextRetrieveSurrounding :: (IsIMContext a, MonadIO m) => a -> ((?self :: a) => IMContextRetrieveSurroundingCallback) -> m SignalHandlerId
afterIMContextRetrieveSurrounding :: forall a (m :: * -> *).
(IsIMContext a, MonadIO m) =>
a -> ((?self::a) => IO Bool) -> m SignalHandlerId
afterIMContextRetrieveSurrounding a
obj (?self::a) => IO Bool
cb = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO Bool
wrapped a
self = let ?self = a
self in (?self::a) => IO Bool
cb
let wrapped' :: C_IMContextRetrieveSurroundingCallback
wrapped' = forall a.
GObject a =>
(a -> IO Bool) -> C_IMContextRetrieveSurroundingCallback
wrap_IMContextRetrieveSurroundingCallback a -> IO Bool
wrapped
FunPtr C_IMContextRetrieveSurroundingCallback
wrapped'' <- C_IMContextRetrieveSurroundingCallback
-> IO (FunPtr C_IMContextRetrieveSurroundingCallback)
mk_IMContextRetrieveSurroundingCallback C_IMContextRetrieveSurroundingCallback
wrapped'
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"retrieve-surrounding" FunPtr C_IMContextRetrieveSurroundingCallback
wrapped'' SignalConnectMode
SignalConnectAfter forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data IMContextRetrieveSurroundingSignalInfo
instance SignalInfo IMContextRetrieveSurroundingSignalInfo where
type HaskellCallbackType IMContextRetrieveSurroundingSignalInfo = IMContextRetrieveSurroundingCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_IMContextRetrieveSurroundingCallback cb
cb'' <- mk_IMContextRetrieveSurroundingCallback cb'
connectSignalFunPtr obj "retrieve-surrounding" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext::retrieve-surrounding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:signal:retrieveSurrounding"})
#endif
getIMContextInputHints :: (MonadIO m, IsIMContext o) => o -> m [Gtk.Flags.InputHints]
getIMContextInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsIMContext o) =>
o -> m [InputHints]
getIMContextInputHints 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, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"input-hints"
setIMContextInputHints :: (MonadIO m, IsIMContext o) => o -> [Gtk.Flags.InputHints] -> m ()
setIMContextInputHints :: forall (m :: * -> *) o.
(MonadIO m, IsIMContext o) =>
o -> [InputHints] -> m ()
setIMContextInputHints o
obj [InputHints]
val = forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO forall a b. (a -> b) -> a -> b
$ do
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"input-hints" [InputHints]
val
constructIMContextInputHints :: (IsIMContext o, MIO.MonadIO m) => [Gtk.Flags.InputHints] -> m (GValueConstruct o)
constructIMContextInputHints :: forall o (m :: * -> *).
(IsIMContext o, MonadIO m) =>
[InputHints] -> m (GValueConstruct o)
constructIMContextInputHints [InputHints]
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.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"input-hints" [InputHints]
val
#if defined(ENABLE_OVERLOADING)
data IMContextInputHintsPropertyInfo
instance AttrInfo IMContextInputHintsPropertyInfo where
type AttrAllowedOps IMContextInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IMContextInputHintsPropertyInfo = IsIMContext
type AttrSetTypeConstraint IMContextInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferTypeConstraint IMContextInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferType IMContextInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrGetType IMContextInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrLabel IMContextInputHintsPropertyInfo = "input-hints"
type AttrOrigin IMContextInputHintsPropertyInfo = IMContext
attrGet = getIMContextInputHints
attrSet = setIMContextInputHints
attrTransfer _ v = do
return v
attrConstruct = constructIMContextInputHints
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.inputHints"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:attr:inputHints"
})
#endif
getIMContextInputPurpose :: (MonadIO m, IsIMContext o) => o -> m Gtk.Enums.InputPurpose
getIMContextInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsIMContext o) =>
o -> m InputPurpose
getIMContextInputPurpose 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, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"input-purpose"
setIMContextInputPurpose :: (MonadIO m, IsIMContext o) => o -> Gtk.Enums.InputPurpose -> m ()
setIMContextInputPurpose :: forall (m :: * -> *) o.
(MonadIO m, IsIMContext o) =>
o -> InputPurpose -> m ()
setIMContextInputPurpose o
obj InputPurpose
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, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"input-purpose" InputPurpose
val
constructIMContextInputPurpose :: (IsIMContext o, MIO.MonadIO m) => Gtk.Enums.InputPurpose -> m (GValueConstruct o)
constructIMContextInputPurpose :: forall o (m :: * -> *).
(IsIMContext o, MonadIO m) =>
InputPurpose -> m (GValueConstruct o)
constructIMContextInputPurpose InputPurpose
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.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"input-purpose" InputPurpose
val
#if defined(ENABLE_OVERLOADING)
data IMContextInputPurposePropertyInfo
instance AttrInfo IMContextInputPurposePropertyInfo where
type AttrAllowedOps IMContextInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint IMContextInputPurposePropertyInfo = IsIMContext
type AttrSetTypeConstraint IMContextInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferTypeConstraint IMContextInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferType IMContextInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrGetType IMContextInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrLabel IMContextInputPurposePropertyInfo = "input-purpose"
type AttrOrigin IMContextInputPurposePropertyInfo = IMContext
attrGet = getIMContextInputPurpose
attrSet = setIMContextInputPurpose
attrTransfer _ v = do
return v
attrConstruct = constructIMContextInputPurpose
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.inputPurpose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#g:attr:inputPurpose"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList IMContext
type instance O.AttributeList IMContext = IMContextAttributeList
type IMContextAttributeList = ('[ '("inputHints", IMContextInputHintsPropertyInfo), '("inputPurpose", IMContextInputPurposePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
iMContextInputHints :: AttrLabelProxy "inputHints"
iMContextInputHints = AttrLabelProxy
iMContextInputPurpose :: AttrLabelProxy "inputPurpose"
iMContextInputPurpose = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList IMContext = IMContextSignalList
type IMContextSignalList = ('[ '("commit", IMContextCommitSignalInfo), '("deleteSurrounding", IMContextDeleteSurroundingSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("preeditChanged", IMContextPreeditChangedSignalInfo), '("preeditEnd", IMContextPreeditEndSignalInfo), '("preeditStart", IMContextPreeditStartSignalInfo), '("retrieveSurrounding", IMContextRetrieveSurroundingSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_im_context_delete_surrounding" gtk_im_context_delete_surrounding ::
Ptr IMContext ->
Int32 ->
Int32 ->
IO CInt
iMContextDeleteSurrounding ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> Int32
-> Int32
-> m Bool
iMContextDeleteSurrounding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> Int32 -> Int32 -> m Bool
iMContextDeleteSurrounding a
context Int32
offset Int32
nChars = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CInt
result <- Ptr IMContext -> Int32 -> Int32 -> IO CInt
gtk_im_context_delete_surrounding Ptr IMContext
context' Int32
offset Int32
nChars
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IMContextDeleteSurroundingMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Bool), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextDeleteSurroundingMethodInfo a signature where
overloadedMethod = iMContextDeleteSurrounding
instance O.OverloadedMethodInfo IMContextDeleteSurroundingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextDeleteSurrounding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextDeleteSurrounding"
})
#endif
foreign import ccall "gtk_im_context_filter_keypress" gtk_im_context_filter_keypress ::
Ptr IMContext ->
Ptr Gdk.EventKey.EventKey ->
IO CInt
iMContextFilterKeypress ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> Gdk.EventKey.EventKey
-> m Bool
iMContextFilterKeypress :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> EventKey -> m Bool
iMContextFilterKeypress a
context EventKey
event = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr EventKey
event' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr EventKey
event
CInt
result <- Ptr IMContext -> Ptr EventKey -> IO CInt
gtk_im_context_filter_keypress Ptr IMContext
context' Ptr EventKey
event'
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr EventKey
event
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data IMContextFilterKeypressMethodInfo
instance (signature ~ (Gdk.EventKey.EventKey -> m Bool), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextFilterKeypressMethodInfo a signature where
overloadedMethod = iMContextFilterKeypress
instance O.OverloadedMethodInfo IMContextFilterKeypressMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextFilterKeypress",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextFilterKeypress"
})
#endif
foreign import ccall "gtk_im_context_focus_in" gtk_im_context_focus_in ::
Ptr IMContext ->
IO ()
iMContextFocusIn ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> m ()
iMContextFocusIn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> m ()
iMContextFocusIn a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr IMContext -> IO ()
gtk_im_context_focus_in Ptr IMContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextFocusInMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextFocusInMethodInfo a signature where
overloadedMethod = iMContextFocusIn
instance O.OverloadedMethodInfo IMContextFocusInMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextFocusIn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextFocusIn"
})
#endif
foreign import ccall "gtk_im_context_focus_out" gtk_im_context_focus_out ::
Ptr IMContext ->
IO ()
iMContextFocusOut ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> m ()
iMContextFocusOut :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> m ()
iMContextFocusOut a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr IMContext -> IO ()
gtk_im_context_focus_out Ptr IMContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextFocusOutMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextFocusOutMethodInfo a signature where
overloadedMethod = iMContextFocusOut
instance O.OverloadedMethodInfo IMContextFocusOutMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextFocusOut",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextFocusOut"
})
#endif
foreign import ccall "gtk_im_context_get_preedit_string" gtk_im_context_get_preedit_string ::
Ptr IMContext ->
Ptr CString ->
Ptr (Ptr Pango.AttrList.AttrList) ->
Ptr Int32 ->
IO ()
iMContextGetPreeditString ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> m ((T.Text, Pango.AttrList.AttrList, Int32))
iMContextGetPreeditString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> m (Text, AttrList, Int32)
iMContextGetPreeditString a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr CString
str <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr (Ptr AttrList)
attrs <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (Ptr Pango.AttrList.AttrList))
Ptr Int32
cursorPos <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr IMContext
-> Ptr CString -> Ptr (Ptr AttrList) -> Ptr Int32 -> IO ()
gtk_im_context_get_preedit_string Ptr IMContext
context' Ptr CString
str Ptr (Ptr AttrList)
attrs Ptr Int32
cursorPos
CString
str' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CString
str
Text
str'' <- HasCallStack => CString -> IO Text
cstringToText CString
str'
forall a. Ptr a -> IO ()
freeMem CString
str'
Ptr AttrList
attrs' <- forall a. Storable a => Ptr a -> IO a
peek Ptr (Ptr AttrList)
attrs
AttrList
attrs'' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr AttrList -> AttrList
Pango.AttrList.AttrList) Ptr AttrList
attrs'
Int32
cursorPos' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cursorPos
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem Ptr CString
str
forall a. Ptr a -> IO ()
freeMem Ptr (Ptr AttrList)
attrs
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cursorPos
forall (m :: * -> *) a. Monad m => a -> m a
return (Text
str'', AttrList
attrs'', Int32
cursorPos')
#if defined(ENABLE_OVERLOADING)
data IMContextGetPreeditStringMethodInfo
instance (signature ~ (m ((T.Text, Pango.AttrList.AttrList, Int32))), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextGetPreeditStringMethodInfo a signature where
overloadedMethod = iMContextGetPreeditString
instance O.OverloadedMethodInfo IMContextGetPreeditStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextGetPreeditString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextGetPreeditString"
})
#endif
foreign import ccall "gtk_im_context_get_surrounding" gtk_im_context_get_surrounding ::
Ptr IMContext ->
Ptr CString ->
Ptr Int32 ->
IO CInt
iMContextGetSurrounding ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> m ((Bool, T.Text, Int32))
iMContextGetSurrounding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> m (Bool, Text, Int32)
iMContextGetSurrounding a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr CString
text <- forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr CString)
Ptr Int32
cursorIndex <- forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr IMContext -> Ptr CString -> Ptr Int32 -> IO CInt
gtk_im_context_get_surrounding Ptr IMContext
context' Ptr CString
text Ptr Int32
cursorIndex
let result' :: Bool
result' = (forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CString
text' <- forall a. Storable a => Ptr a -> IO a
peek Ptr CString
text
Text
text'' <- HasCallStack => CString -> IO Text
cstringToText CString
text'
forall a. Ptr a -> IO ()
freeMem CString
text'
Int32
cursorIndex' <- forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
cursorIndex
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem Ptr CString
text
forall a. Ptr a -> IO ()
freeMem Ptr Int32
cursorIndex
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Text
text'', Int32
cursorIndex')
#if defined(ENABLE_OVERLOADING)
data IMContextGetSurroundingMethodInfo
instance (signature ~ (m ((Bool, T.Text, Int32))), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextGetSurroundingMethodInfo a signature where
overloadedMethod = iMContextGetSurrounding
instance O.OverloadedMethodInfo IMContextGetSurroundingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextGetSurrounding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextGetSurrounding"
})
#endif
foreign import ccall "gtk_im_context_reset" gtk_im_context_reset ::
Ptr IMContext ->
IO ()
iMContextReset ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> m ()
iMContextReset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> m ()
iMContextReset a
context = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr IMContext -> IO ()
gtk_im_context_reset Ptr IMContext
context'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextResetMethodInfo
instance (signature ~ (m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextResetMethodInfo a signature where
overloadedMethod = iMContextReset
instance O.OverloadedMethodInfo IMContextResetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextReset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextReset"
})
#endif
foreign import ccall "gtk_im_context_set_client_window" gtk_im_context_set_client_window ::
Ptr IMContext ->
Ptr Gdk.Window.Window ->
IO ()
iMContextSetClientWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a, Gdk.Window.IsWindow b) =>
a
-> Maybe (b)
-> m ()
iMContextSetClientWindow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsIMContext a, IsWindow b) =>
a -> Maybe b -> m ()
iMContextSetClientWindow a
context Maybe b
window = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Window
maybeWindow <- case Maybe b
window of
Maybe b
Nothing -> forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Ptr a
nullPtr
Just b
jWindow -> do
Ptr Window
jWindow' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWindow
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Window
jWindow'
Ptr IMContext -> Ptr Window -> IO ()
gtk_im_context_set_client_window Ptr IMContext
context' Ptr Window
maybeWindow
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
window forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextSetClientWindowMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsIMContext a, Gdk.Window.IsWindow b) => O.OverloadedMethod IMContextSetClientWindowMethodInfo a signature where
overloadedMethod = iMContextSetClientWindow
instance O.OverloadedMethodInfo IMContextSetClientWindowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextSetClientWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextSetClientWindow"
})
#endif
foreign import ccall "gtk_im_context_set_cursor_location" gtk_im_context_set_cursor_location ::
Ptr IMContext ->
Ptr Gdk.Rectangle.Rectangle ->
IO ()
iMContextSetCursorLocation ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> Gdk.Rectangle.Rectangle
-> m ()
iMContextSetCursorLocation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> Rectangle -> m ()
iMContextSetCursorLocation a
context Rectangle
area = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
Ptr Rectangle
area' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
area
Ptr IMContext -> Ptr Rectangle -> IO ()
gtk_im_context_set_cursor_location Ptr IMContext
context' Ptr Rectangle
area'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rectangle
area
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextSetCursorLocationMethodInfo
instance (signature ~ (Gdk.Rectangle.Rectangle -> m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextSetCursorLocationMethodInfo a signature where
overloadedMethod = iMContextSetCursorLocation
instance O.OverloadedMethodInfo IMContextSetCursorLocationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextSetCursorLocation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextSetCursorLocation"
})
#endif
foreign import ccall "gtk_im_context_set_surrounding" gtk_im_context_set_surrounding ::
Ptr IMContext ->
CString ->
Int32 ->
Int32 ->
IO ()
iMContextSetSurrounding ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> T.Text
-> Int32
-> Int32
-> m ()
iMContextSetSurrounding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> Text -> Int32 -> Int32 -> m ()
iMContextSetSurrounding a
context Text
text Int32
len Int32
cursorIndex = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr IMContext -> CString -> Int32 -> Int32 -> IO ()
gtk_im_context_set_surrounding Ptr IMContext
context' CString
text' Int32
len Int32
cursorIndex
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall a. Ptr a -> IO ()
freeMem CString
text'
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextSetSurroundingMethodInfo
instance (signature ~ (T.Text -> Int32 -> Int32 -> m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextSetSurroundingMethodInfo a signature where
overloadedMethod = iMContextSetSurrounding
instance O.OverloadedMethodInfo IMContextSetSurroundingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextSetSurrounding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextSetSurrounding"
})
#endif
foreign import ccall "gtk_im_context_set_use_preedit" gtk_im_context_set_use_preedit ::
Ptr IMContext ->
CInt ->
IO ()
iMContextSetUsePreedit ::
(B.CallStack.HasCallStack, MonadIO m, IsIMContext a) =>
a
-> Bool
-> m ()
iMContextSetUsePreedit :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsIMContext a) =>
a -> Bool -> m ()
iMContextSetUsePreedit a
context Bool
usePreedit = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr IMContext
context' <- forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
context
let usePreedit' :: CInt
usePreedit' = (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
usePreedit
Ptr IMContext -> CInt -> IO ()
gtk_im_context_set_use_preedit Ptr IMContext
context' CInt
usePreedit'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
context
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IMContextSetUsePreeditMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsIMContext a) => O.OverloadedMethod IMContextSetUsePreeditMethodInfo a signature where
overloadedMethod = iMContextSetUsePreedit
instance O.OverloadedMethodInfo IMContextSetUsePreeditMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.IMContext.iMContextSetUsePreedit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Objects-IMContext.html#v:iMContextSetUsePreedit"
})
#endif