{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Interfaces.Editable
(
Editable(..) ,
noEditable ,
IsEditable ,
toEditable ,
#if defined(ENABLE_OVERLOADING)
ResolveEditableMethod ,
#endif
editableDelegateGetProperty ,
editableDelegateSetProperty ,
#if defined(ENABLE_OVERLOADING)
EditableDeleteSelectionMethodInfo ,
#endif
editableDeleteSelection ,
#if defined(ENABLE_OVERLOADING)
EditableDeleteTextMethodInfo ,
#endif
editableDeleteText ,
#if defined(ENABLE_OVERLOADING)
EditableFinishDelegateMethodInfo ,
#endif
editableFinishDelegate ,
#if defined(ENABLE_OVERLOADING)
EditableGetAlignmentMethodInfo ,
#endif
editableGetAlignment ,
#if defined(ENABLE_OVERLOADING)
EditableGetCharsMethodInfo ,
#endif
editableGetChars ,
#if defined(ENABLE_OVERLOADING)
EditableGetEditableMethodInfo ,
#endif
editableGetEditable ,
#if defined(ENABLE_OVERLOADING)
EditableGetMaxWidthCharsMethodInfo ,
#endif
editableGetMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableGetPositionMethodInfo ,
#endif
editableGetPosition ,
#if defined(ENABLE_OVERLOADING)
EditableGetSelectionBoundsMethodInfo ,
#endif
editableGetSelectionBounds ,
#if defined(ENABLE_OVERLOADING)
EditableGetTextMethodInfo ,
#endif
editableGetText ,
#if defined(ENABLE_OVERLOADING)
EditableGetWidthCharsMethodInfo ,
#endif
editableGetWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableInitDelegateMethodInfo ,
#endif
editableInitDelegate ,
#if defined(ENABLE_OVERLOADING)
EditableInsertTextMethodInfo ,
#endif
editableInsertText ,
editableInstallProperties ,
#if defined(ENABLE_OVERLOADING)
EditableSelectRegionMethodInfo ,
#endif
editableSelectRegion ,
#if defined(ENABLE_OVERLOADING)
EditableSetAlignmentMethodInfo ,
#endif
editableSetAlignment ,
#if defined(ENABLE_OVERLOADING)
EditableSetEditableMethodInfo ,
#endif
editableSetEditable ,
#if defined(ENABLE_OVERLOADING)
EditableSetMaxWidthCharsMethodInfo ,
#endif
editableSetMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableSetPositionMethodInfo ,
#endif
editableSetPosition ,
#if defined(ENABLE_OVERLOADING)
EditableSetTextMethodInfo ,
#endif
editableSetText ,
#if defined(ENABLE_OVERLOADING)
EditableSetWidthCharsMethodInfo ,
#endif
editableSetWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableCursorPositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
editableCursorPosition ,
#endif
getEditableCursorPosition ,
#if defined(ENABLE_OVERLOADING)
EditableEditablePropertyInfo ,
#endif
constructEditableEditable ,
#if defined(ENABLE_OVERLOADING)
editableEditable ,
#endif
getEditableEditable ,
setEditableEditable ,
#if defined(ENABLE_OVERLOADING)
EditableMaxWidthCharsPropertyInfo ,
#endif
constructEditableMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
editableMaxWidthChars ,
#endif
getEditableMaxWidthChars ,
setEditableMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableSelectionBoundPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
editableSelectionBound ,
#endif
getEditableSelectionBound ,
#if defined(ENABLE_OVERLOADING)
EditableTextPropertyInfo ,
#endif
constructEditableText ,
#if defined(ENABLE_OVERLOADING)
editableText ,
#endif
getEditableText ,
setEditableText ,
#if defined(ENABLE_OVERLOADING)
EditableWidthCharsPropertyInfo ,
#endif
constructEditableWidthChars ,
#if defined(ENABLE_OVERLOADING)
editableWidthChars ,
#endif
getEditableWidthChars ,
setEditableWidthChars ,
#if defined(ENABLE_OVERLOADING)
EditableXalignPropertyInfo ,
#endif
constructEditableXalign ,
#if defined(ENABLE_OVERLOADING)
editableXalign ,
#endif
getEditableXalign ,
setEditableXalign ,
C_EditableChangedCallback ,
EditableChangedCallback ,
#if defined(ENABLE_OVERLOADING)
EditableChangedSignalInfo ,
#endif
afterEditableChanged ,
genClosure_EditableChanged ,
mk_EditableChangedCallback ,
noEditableChangedCallback ,
onEditableChanged ,
wrap_EditableChangedCallback ,
C_EditableDeleteTextCallback ,
EditableDeleteTextCallback ,
#if defined(ENABLE_OVERLOADING)
EditableDeleteTextSignalInfo ,
#endif
afterEditableDeleteText ,
genClosure_EditableDeleteText ,
mk_EditableDeleteTextCallback ,
noEditableDeleteTextCallback ,
onEditableDeleteText ,
wrap_EditableDeleteTextCallback ,
C_EditableInsertTextCallback ,
EditableInsertTextCallback ,
#if defined(ENABLE_OVERLOADING)
EditableInsertTextSignalInfo ,
#endif
afterEditableInsertText ,
genClosure_EditableInsertText ,
mk_EditableInsertTextCallback ,
noEditableInsertTextCallback ,
onEditableInsertText ,
wrap_EditableInsertTextCallback ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
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 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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.GObject.Structs.ObjectClass as GObject.ObjectClass
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
newtype Editable = Editable (ManagedPtr Editable)
deriving (Editable -> Editable -> Bool
(Editable -> Editable -> Bool)
-> (Editable -> Editable -> Bool) -> Eq Editable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Editable -> Editable -> Bool
$c/= :: Editable -> Editable -> Bool
== :: Editable -> Editable -> Bool
$c== :: Editable -> Editable -> Bool
Eq)
noEditable :: Maybe Editable
noEditable :: Maybe Editable
noEditable = Maybe Editable
forall a. Maybe a
Nothing
type EditableChangedCallback =
IO ()
noEditableChangedCallback :: Maybe EditableChangedCallback
noEditableChangedCallback :: Maybe EditableChangedCallback
noEditableChangedCallback = Maybe EditableChangedCallback
forall a. Maybe a
Nothing
type C_EditableChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EditableChangedCallback :: C_EditableChangedCallback -> IO (FunPtr C_EditableChangedCallback)
genClosure_EditableChanged :: MonadIO m => EditableChangedCallback -> m (GClosure C_EditableChangedCallback)
genClosure_EditableChanged :: EditableChangedCallback -> m (GClosure C_EditableChangedCallback)
genClosure_EditableChanged cb :: EditableChangedCallback
cb = IO (GClosure C_EditableChangedCallback)
-> m (GClosure C_EditableChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EditableChangedCallback)
-> m (GClosure C_EditableChangedCallback))
-> IO (GClosure C_EditableChangedCallback)
-> m (GClosure C_EditableChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableChangedCallback
cb' = EditableChangedCallback -> C_EditableChangedCallback
wrap_EditableChangedCallback EditableChangedCallback
cb
C_EditableChangedCallback -> IO (FunPtr C_EditableChangedCallback)
mk_EditableChangedCallback C_EditableChangedCallback
cb' IO (FunPtr C_EditableChangedCallback)
-> (FunPtr C_EditableChangedCallback
-> IO (GClosure C_EditableChangedCallback))
-> IO (GClosure C_EditableChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EditableChangedCallback
-> IO (GClosure C_EditableChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EditableChangedCallback ::
EditableChangedCallback ->
C_EditableChangedCallback
wrap_EditableChangedCallback :: EditableChangedCallback -> C_EditableChangedCallback
wrap_EditableChangedCallback _cb :: EditableChangedCallback
_cb _ _ = do
EditableChangedCallback
_cb
onEditableChanged :: (IsEditable a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId
onEditableChanged :: a -> EditableChangedCallback -> m SignalHandlerId
onEditableChanged obj :: a
obj cb :: EditableChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableChangedCallback
cb' = EditableChangedCallback -> C_EditableChangedCallback
wrap_EditableChangedCallback EditableChangedCallback
cb
FunPtr C_EditableChangedCallback
cb'' <- C_EditableChangedCallback -> IO (FunPtr C_EditableChangedCallback)
mk_EditableChangedCallback C_EditableChangedCallback
cb'
a
-> Text
-> FunPtr C_EditableChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "changed" FunPtr C_EditableChangedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEditableChanged :: (IsEditable a, MonadIO m) => a -> EditableChangedCallback -> m SignalHandlerId
afterEditableChanged :: a -> EditableChangedCallback -> m SignalHandlerId
afterEditableChanged obj :: a
obj cb :: EditableChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableChangedCallback
cb' = EditableChangedCallback -> C_EditableChangedCallback
wrap_EditableChangedCallback EditableChangedCallback
cb
FunPtr C_EditableChangedCallback
cb'' <- C_EditableChangedCallback -> IO (FunPtr C_EditableChangedCallback)
mk_EditableChangedCallback C_EditableChangedCallback
cb'
a
-> Text
-> FunPtr C_EditableChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "changed" FunPtr C_EditableChangedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EditableChangedSignalInfo
instance SignalInfo EditableChangedSignalInfo where
type HaskellCallbackType EditableChangedSignalInfo = EditableChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EditableChangedCallback cb
cb'' <- mk_EditableChangedCallback cb'
connectSignalFunPtr obj "changed" cb'' connectMode detail
#endif
type EditableDeleteTextCallback =
Int32
-> Int32
-> IO ()
noEditableDeleteTextCallback :: Maybe EditableDeleteTextCallback
noEditableDeleteTextCallback :: Maybe EditableDeleteTextCallback
noEditableDeleteTextCallback = Maybe EditableDeleteTextCallback
forall a. Maybe a
Nothing
type C_EditableDeleteTextCallback =
Ptr () ->
Int32 ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EditableDeleteTextCallback :: C_EditableDeleteTextCallback -> IO (FunPtr C_EditableDeleteTextCallback)
genClosure_EditableDeleteText :: MonadIO m => EditableDeleteTextCallback -> m (GClosure C_EditableDeleteTextCallback)
genClosure_EditableDeleteText :: EditableDeleteTextCallback
-> m (GClosure C_EditableDeleteTextCallback)
genClosure_EditableDeleteText cb :: EditableDeleteTextCallback
cb = IO (GClosure C_EditableDeleteTextCallback)
-> m (GClosure C_EditableDeleteTextCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EditableDeleteTextCallback)
-> m (GClosure C_EditableDeleteTextCallback))
-> IO (GClosure C_EditableDeleteTextCallback)
-> m (GClosure C_EditableDeleteTextCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableDeleteTextCallback
cb' = EditableDeleteTextCallback -> C_EditableDeleteTextCallback
wrap_EditableDeleteTextCallback EditableDeleteTextCallback
cb
C_EditableDeleteTextCallback
-> IO (FunPtr C_EditableDeleteTextCallback)
mk_EditableDeleteTextCallback C_EditableDeleteTextCallback
cb' IO (FunPtr C_EditableDeleteTextCallback)
-> (FunPtr C_EditableDeleteTextCallback
-> IO (GClosure C_EditableDeleteTextCallback))
-> IO (GClosure C_EditableDeleteTextCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EditableDeleteTextCallback
-> IO (GClosure C_EditableDeleteTextCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EditableDeleteTextCallback ::
EditableDeleteTextCallback ->
C_EditableDeleteTextCallback
wrap_EditableDeleteTextCallback :: EditableDeleteTextCallback -> C_EditableDeleteTextCallback
wrap_EditableDeleteTextCallback _cb :: EditableDeleteTextCallback
_cb _ startPos :: Int32
startPos endPos :: Int32
endPos _ = do
EditableDeleteTextCallback
_cb Int32
startPos Int32
endPos
onEditableDeleteText :: (IsEditable a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId
onEditableDeleteText :: a -> EditableDeleteTextCallback -> m SignalHandlerId
onEditableDeleteText obj :: a
obj cb :: EditableDeleteTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableDeleteTextCallback
cb' = EditableDeleteTextCallback -> C_EditableDeleteTextCallback
wrap_EditableDeleteTextCallback EditableDeleteTextCallback
cb
FunPtr C_EditableDeleteTextCallback
cb'' <- C_EditableDeleteTextCallback
-> IO (FunPtr C_EditableDeleteTextCallback)
mk_EditableDeleteTextCallback C_EditableDeleteTextCallback
cb'
a
-> Text
-> FunPtr C_EditableDeleteTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "delete-text" FunPtr C_EditableDeleteTextCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEditableDeleteText :: (IsEditable a, MonadIO m) => a -> EditableDeleteTextCallback -> m SignalHandlerId
afterEditableDeleteText :: a -> EditableDeleteTextCallback -> m SignalHandlerId
afterEditableDeleteText obj :: a
obj cb :: EditableDeleteTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableDeleteTextCallback
cb' = EditableDeleteTextCallback -> C_EditableDeleteTextCallback
wrap_EditableDeleteTextCallback EditableDeleteTextCallback
cb
FunPtr C_EditableDeleteTextCallback
cb'' <- C_EditableDeleteTextCallback
-> IO (FunPtr C_EditableDeleteTextCallback)
mk_EditableDeleteTextCallback C_EditableDeleteTextCallback
cb'
a
-> Text
-> FunPtr C_EditableDeleteTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "delete-text" FunPtr C_EditableDeleteTextCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EditableDeleteTextSignalInfo
instance SignalInfo EditableDeleteTextSignalInfo where
type HaskellCallbackType EditableDeleteTextSignalInfo = EditableDeleteTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EditableDeleteTextCallback cb
cb'' <- mk_EditableDeleteTextCallback cb'
connectSignalFunPtr obj "delete-text" cb'' connectMode detail
#endif
type EditableInsertTextCallback =
T.Text
-> Int32
-> Int32
-> IO (Int32)
noEditableInsertTextCallback :: Maybe EditableInsertTextCallback
noEditableInsertTextCallback :: Maybe EditableInsertTextCallback
noEditableInsertTextCallback = Maybe EditableInsertTextCallback
forall a. Maybe a
Nothing
type C_EditableInsertTextCallback =
Ptr () ->
CString ->
Int32 ->
Ptr Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EditableInsertTextCallback :: C_EditableInsertTextCallback -> IO (FunPtr C_EditableInsertTextCallback)
genClosure_EditableInsertText :: MonadIO m => EditableInsertTextCallback -> m (GClosure C_EditableInsertTextCallback)
genClosure_EditableInsertText :: EditableInsertTextCallback
-> m (GClosure C_EditableInsertTextCallback)
genClosure_EditableInsertText cb :: EditableInsertTextCallback
cb = IO (GClosure C_EditableInsertTextCallback)
-> m (GClosure C_EditableInsertTextCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EditableInsertTextCallback)
-> m (GClosure C_EditableInsertTextCallback))
-> IO (GClosure C_EditableInsertTextCallback)
-> m (GClosure C_EditableInsertTextCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableInsertTextCallback
cb' = EditableInsertTextCallback -> C_EditableInsertTextCallback
wrap_EditableInsertTextCallback EditableInsertTextCallback
cb
C_EditableInsertTextCallback
-> IO (FunPtr C_EditableInsertTextCallback)
mk_EditableInsertTextCallback C_EditableInsertTextCallback
cb' IO (FunPtr C_EditableInsertTextCallback)
-> (FunPtr C_EditableInsertTextCallback
-> IO (GClosure C_EditableInsertTextCallback))
-> IO (GClosure C_EditableInsertTextCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EditableInsertTextCallback
-> IO (GClosure C_EditableInsertTextCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EditableInsertTextCallback ::
EditableInsertTextCallback ->
C_EditableInsertTextCallback
wrap_EditableInsertTextCallback :: EditableInsertTextCallback -> C_EditableInsertTextCallback
wrap_EditableInsertTextCallback _cb :: EditableInsertTextCallback
_cb _ text :: CString
text length_ :: Int32
length_ position :: Ptr Int32
position _ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
Int32
position' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
position
Int32
outposition <- EditableInsertTextCallback
_cb Text
text' Int32
length_ Int32
position'
Ptr Int32 -> Int32 -> EditableChangedCallback
forall a. Storable a => Ptr a -> a -> EditableChangedCallback
poke Ptr Int32
position Int32
outposition
onEditableInsertText :: (IsEditable a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId
onEditableInsertText :: a -> EditableInsertTextCallback -> m SignalHandlerId
onEditableInsertText obj :: a
obj cb :: EditableInsertTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableInsertTextCallback
cb' = EditableInsertTextCallback -> C_EditableInsertTextCallback
wrap_EditableInsertTextCallback EditableInsertTextCallback
cb
FunPtr C_EditableInsertTextCallback
cb'' <- C_EditableInsertTextCallback
-> IO (FunPtr C_EditableInsertTextCallback)
mk_EditableInsertTextCallback C_EditableInsertTextCallback
cb'
a
-> Text
-> FunPtr C_EditableInsertTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-text" FunPtr C_EditableInsertTextCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEditableInsertText :: (IsEditable a, MonadIO m) => a -> EditableInsertTextCallback -> m SignalHandlerId
afterEditableInsertText :: a -> EditableInsertTextCallback -> m SignalHandlerId
afterEditableInsertText obj :: a
obj cb :: EditableInsertTextCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EditableInsertTextCallback
cb' = EditableInsertTextCallback -> C_EditableInsertTextCallback
wrap_EditableInsertTextCallback EditableInsertTextCallback
cb
FunPtr C_EditableInsertTextCallback
cb'' <- C_EditableInsertTextCallback
-> IO (FunPtr C_EditableInsertTextCallback)
mk_EditableInsertTextCallback C_EditableInsertTextCallback
cb'
a
-> Text
-> FunPtr C_EditableInsertTextCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-text" FunPtr C_EditableInsertTextCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EditableInsertTextSignalInfo
instance SignalInfo EditableInsertTextSignalInfo where
type HaskellCallbackType EditableInsertTextSignalInfo = EditableInsertTextCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EditableInsertTextCallback cb
cb'' <- mk_EditableInsertTextCallback cb'
connectSignalFunPtr obj "insert-text" cb'' connectMode detail
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Editable = EditableSignalList
type EditableSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("deleteText", EditableDeleteTextSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("insertText", EditableInsertTextSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_editable_get_type"
c_gtk_editable_get_type :: IO GType
instance GObject Editable where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_editable_get_type
instance B.GValue.IsGValue Editable where
toGValue :: Editable -> IO GValue
toGValue o :: Editable
o = do
GType
gtype <- IO GType
c_gtk_editable_get_type
Editable -> (Ptr Editable -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Editable
o (GType
-> (GValue -> Ptr Editable -> EditableChangedCallback)
-> Ptr Editable
-> IO GValue
forall a.
GType -> (GValue -> a -> EditableChangedCallback) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Editable -> EditableChangedCallback
forall a. GObject a => GValue -> Ptr a -> EditableChangedCallback
B.GValue.set_object)
fromGValue :: GValue -> IO Editable
fromGValue gv :: GValue
gv = do
Ptr Editable
ptr <- GValue -> IO (Ptr Editable)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Editable)
(ManagedPtr Editable -> Editable) -> Ptr Editable -> IO Editable
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Editable -> Editable
Editable Ptr Editable
ptr
class (GObject o, O.IsDescendantOf Editable o) => IsEditable o
instance (GObject o, O.IsDescendantOf Editable o) => IsEditable o
instance O.HasParentTypes Editable
type instance O.ParentTypes Editable = '[GObject.Object.Object, Gtk.Widget.Widget]
toEditable :: (MonadIO m, IsEditable o) => o -> m Editable
toEditable :: o -> m Editable
toEditable = IO Editable -> m Editable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Editable -> m Editable)
-> (o -> IO Editable) -> o -> m Editable
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Editable -> Editable) -> o -> IO Editable
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Editable -> Editable
Editable
getEditableCursorPosition :: (MonadIO m, IsEditable o) => o -> m Int32
getEditableCursorPosition :: o -> m Int32
getEditableCursorPosition obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "cursor-position"
#if defined(ENABLE_OVERLOADING)
data EditableCursorPositionPropertyInfo
instance AttrInfo EditableCursorPositionPropertyInfo where
type AttrAllowedOps EditableCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint EditableCursorPositionPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableCursorPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint EditableCursorPositionPropertyInfo = (~) ()
type AttrTransferType EditableCursorPositionPropertyInfo = ()
type AttrGetType EditableCursorPositionPropertyInfo = Int32
type AttrLabel EditableCursorPositionPropertyInfo = "cursor-position"
type AttrOrigin EditableCursorPositionPropertyInfo = Editable
attrGet = getEditableCursorPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getEditableEditable :: (MonadIO m, IsEditable o) => o -> m Bool
getEditableEditable :: o -> m Bool
getEditableEditable obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "editable"
setEditableEditable :: (MonadIO m, IsEditable o) => o -> Bool -> m ()
setEditableEditable :: o -> Bool -> m ()
setEditableEditable obj :: o
obj val :: Bool
val = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> EditableChangedCallback
forall a.
GObject a =>
a -> String -> Bool -> EditableChangedCallback
B.Properties.setObjectPropertyBool o
obj "editable" Bool
val
constructEditableEditable :: (IsEditable o) => Bool -> IO (GValueConstruct o)
constructEditableEditable :: Bool -> IO (GValueConstruct o)
constructEditableEditable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "editable" Bool
val
#if defined(ENABLE_OVERLOADING)
data EditableEditablePropertyInfo
instance AttrInfo EditableEditablePropertyInfo where
type AttrAllowedOps EditableEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EditableEditablePropertyInfo = IsEditable
type AttrSetTypeConstraint EditableEditablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint EditableEditablePropertyInfo = (~) Bool
type AttrTransferType EditableEditablePropertyInfo = Bool
type AttrGetType EditableEditablePropertyInfo = Bool
type AttrLabel EditableEditablePropertyInfo = "editable"
type AttrOrigin EditableEditablePropertyInfo = Editable
attrGet = getEditableEditable
attrSet = setEditableEditable
attrTransfer _ v = do
return v
attrConstruct = constructEditableEditable
attrClear = undefined
#endif
getEditableMaxWidthChars :: (MonadIO m, IsEditable o) => o -> m Int32
getEditableMaxWidthChars :: o -> m Int32
getEditableMaxWidthChars obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "max-width-chars"
setEditableMaxWidthChars :: (MonadIO m, IsEditable o) => o -> Int32 -> m ()
setEditableMaxWidthChars :: o -> Int32 -> m ()
setEditableMaxWidthChars obj :: o
obj val :: Int32
val = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> EditableChangedCallback
forall a.
GObject a =>
a -> String -> Int32 -> EditableChangedCallback
B.Properties.setObjectPropertyInt32 o
obj "max-width-chars" Int32
val
constructEditableMaxWidthChars :: (IsEditable o) => Int32 -> IO (GValueConstruct o)
constructEditableMaxWidthChars :: Int32 -> IO (GValueConstruct o)
constructEditableMaxWidthChars val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "max-width-chars" Int32
val
#if defined(ENABLE_OVERLOADING)
data EditableMaxWidthCharsPropertyInfo
instance AttrInfo EditableMaxWidthCharsPropertyInfo where
type AttrAllowedOps EditableMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EditableMaxWidthCharsPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableMaxWidthCharsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint EditableMaxWidthCharsPropertyInfo = (~) Int32
type AttrTransferType EditableMaxWidthCharsPropertyInfo = Int32
type AttrGetType EditableMaxWidthCharsPropertyInfo = Int32
type AttrLabel EditableMaxWidthCharsPropertyInfo = "max-width-chars"
type AttrOrigin EditableMaxWidthCharsPropertyInfo = Editable
attrGet = getEditableMaxWidthChars
attrSet = setEditableMaxWidthChars
attrTransfer _ v = do
return v
attrConstruct = constructEditableMaxWidthChars
attrClear = undefined
#endif
getEditableSelectionBound :: (MonadIO m, IsEditable o) => o -> m Int32
getEditableSelectionBound :: o -> m Int32
getEditableSelectionBound obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "selection-bound"
#if defined(ENABLE_OVERLOADING)
data EditableSelectionBoundPropertyInfo
instance AttrInfo EditableSelectionBoundPropertyInfo where
type AttrAllowedOps EditableSelectionBoundPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint EditableSelectionBoundPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableSelectionBoundPropertyInfo = (~) ()
type AttrTransferTypeConstraint EditableSelectionBoundPropertyInfo = (~) ()
type AttrTransferType EditableSelectionBoundPropertyInfo = ()
type AttrGetType EditableSelectionBoundPropertyInfo = Int32
type AttrLabel EditableSelectionBoundPropertyInfo = "selection-bound"
type AttrOrigin EditableSelectionBoundPropertyInfo = Editable
attrGet = getEditableSelectionBound
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getEditableText :: (MonadIO m, IsEditable o) => o -> m T.Text
getEditableText :: o -> m Text
getEditableText obj :: o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getEditableText" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "text"
setEditableText :: (MonadIO m, IsEditable o) => o -> T.Text -> m ()
setEditableText :: o -> Text -> m ()
setEditableText obj :: o
obj val :: Text
val = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> EditableChangedCallback
forall a.
GObject a =>
a -> String -> Maybe Text -> EditableChangedCallback
B.Properties.setObjectPropertyString o
obj "text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructEditableText :: (IsEditable o) => T.Text -> IO (GValueConstruct o)
constructEditableText :: Text -> IO (GValueConstruct o)
constructEditableText val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
#if defined(ENABLE_OVERLOADING)
data EditableTextPropertyInfo
instance AttrInfo EditableTextPropertyInfo where
type AttrAllowedOps EditableTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EditableTextPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EditableTextPropertyInfo = (~) T.Text
type AttrTransferType EditableTextPropertyInfo = T.Text
type AttrGetType EditableTextPropertyInfo = T.Text
type AttrLabel EditableTextPropertyInfo = "text"
type AttrOrigin EditableTextPropertyInfo = Editable
attrGet = getEditableText
attrSet = setEditableText
attrTransfer _ v = do
return v
attrConstruct = constructEditableText
attrClear = undefined
#endif
getEditableWidthChars :: (MonadIO m, IsEditable o) => o -> m Int32
getEditableWidthChars :: o -> m Int32
getEditableWidthChars obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "width-chars"
setEditableWidthChars :: (MonadIO m, IsEditable o) => o -> Int32 -> m ()
setEditableWidthChars :: o -> Int32 -> m ()
setEditableWidthChars obj :: o
obj val :: Int32
val = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> EditableChangedCallback
forall a.
GObject a =>
a -> String -> Int32 -> EditableChangedCallback
B.Properties.setObjectPropertyInt32 o
obj "width-chars" Int32
val
constructEditableWidthChars :: (IsEditable o) => Int32 -> IO (GValueConstruct o)
constructEditableWidthChars :: Int32 -> IO (GValueConstruct o)
constructEditableWidthChars val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "width-chars" Int32
val
#if defined(ENABLE_OVERLOADING)
data EditableWidthCharsPropertyInfo
instance AttrInfo EditableWidthCharsPropertyInfo where
type AttrAllowedOps EditableWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EditableWidthCharsPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableWidthCharsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint EditableWidthCharsPropertyInfo = (~) Int32
type AttrTransferType EditableWidthCharsPropertyInfo = Int32
type AttrGetType EditableWidthCharsPropertyInfo = Int32
type AttrLabel EditableWidthCharsPropertyInfo = "width-chars"
type AttrOrigin EditableWidthCharsPropertyInfo = Editable
attrGet = getEditableWidthChars
attrSet = setEditableWidthChars
attrTransfer _ v = do
return v
attrConstruct = constructEditableWidthChars
attrClear = undefined
#endif
getEditableXalign :: (MonadIO m, IsEditable o) => o -> m Float
getEditableXalign :: o -> m Float
getEditableXalign obj :: o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "xalign"
setEditableXalign :: (MonadIO m, IsEditable o) => o -> Float -> m ()
setEditableXalign :: o -> Float -> m ()
setEditableXalign obj :: o
obj val :: Float
val = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Float -> EditableChangedCallback
forall a.
GObject a =>
a -> String -> Float -> EditableChangedCallback
B.Properties.setObjectPropertyFloat o
obj "xalign" Float
val
constructEditableXalign :: (IsEditable o) => Float -> IO (GValueConstruct o)
constructEditableXalign :: Float -> IO (GValueConstruct o)
constructEditableXalign val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "xalign" Float
val
#if defined(ENABLE_OVERLOADING)
data EditableXalignPropertyInfo
instance AttrInfo EditableXalignPropertyInfo where
type AttrAllowedOps EditableXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EditableXalignPropertyInfo = IsEditable
type AttrSetTypeConstraint EditableXalignPropertyInfo = (~) Float
type AttrTransferTypeConstraint EditableXalignPropertyInfo = (~) Float
type AttrTransferType EditableXalignPropertyInfo = Float
type AttrGetType EditableXalignPropertyInfo = Float
type AttrLabel EditableXalignPropertyInfo = "xalign"
type AttrOrigin EditableXalignPropertyInfo = Editable
attrGet = getEditableXalign
attrSet = setEditableXalign
attrTransfer _ v = do
return v
attrConstruct = constructEditableXalign
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Editable
type instance O.AttributeList Editable = EditableAttributeList
type EditableAttributeList = ('[ '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("canTarget", Gtk.Widget.WidgetCanTargetPropertyInfo), '("cssName", Gtk.Widget.WidgetCssNamePropertyInfo), '("cursor", Gtk.Widget.WidgetCursorPropertyInfo), '("cursorPosition", EditableCursorPositionPropertyInfo), '("editable", EditableEditablePropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("layoutManager", Gtk.Widget.WidgetLayoutManagerPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("maxWidthChars", EditableMaxWidthCharsPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("overflow", Gtk.Widget.WidgetOverflowPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("root", Gtk.Widget.WidgetRootPropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("selectionBound", EditableSelectionBoundPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("surface", Gtk.Widget.WidgetSurfacePropertyInfo), '("text", EditableTextPropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("widthChars", EditableWidthCharsPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("xalign", EditableXalignPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
editableCursorPosition :: AttrLabelProxy "cursorPosition"
editableCursorPosition = AttrLabelProxy
editableEditable :: AttrLabelProxy "editable"
editableEditable = AttrLabelProxy
editableMaxWidthChars :: AttrLabelProxy "maxWidthChars"
editableMaxWidthChars = AttrLabelProxy
editableSelectionBound :: AttrLabelProxy "selectionBound"
editableSelectionBound = AttrLabelProxy
editableText :: AttrLabelProxy "text"
editableText = AttrLabelProxy
editableWidthChars :: AttrLabelProxy "widthChars"
editableWidthChars = AttrLabelProxy
editableXalign :: AttrLabelProxy "xalign"
editableXalign = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveEditableMethod (t :: Symbol) (o :: *) :: * where
ResolveEditableMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveEditableMethod "activateAction" o = Gtk.Widget.WidgetActivateActionMethodInfo
ResolveEditableMethod "activateDefault" o = Gtk.Widget.WidgetActivateDefaultMethodInfo
ResolveEditableMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveEditableMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveEditableMethod "addController" o = Gtk.Widget.WidgetAddControllerMethodInfo
ResolveEditableMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveEditableMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveEditableMethod "allocate" o = Gtk.Widget.WidgetAllocateMethodInfo
ResolveEditableMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEditableMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEditableMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveEditableMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveEditableMethod "computeBounds" o = Gtk.Widget.WidgetComputeBoundsMethodInfo
ResolveEditableMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveEditableMethod "computePoint" o = Gtk.Widget.WidgetComputePointMethodInfo
ResolveEditableMethod "computeTransform" o = Gtk.Widget.WidgetComputeTransformMethodInfo
ResolveEditableMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveEditableMethod "contains" o = Gtk.Widget.WidgetContainsMethodInfo
ResolveEditableMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveEditableMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveEditableMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveEditableMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveEditableMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveEditableMethod "deleteSelection" o = EditableDeleteSelectionMethodInfo
ResolveEditableMethod "deleteText" o = EditableDeleteTextMethodInfo
ResolveEditableMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveEditableMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveEditableMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveEditableMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveEditableMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveEditableMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveEditableMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveEditableMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveEditableMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveEditableMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveEditableMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveEditableMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveEditableMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveEditableMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveEditableMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveEditableMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveEditableMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveEditableMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveEditableMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveEditableMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveEditableMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveEditableMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveEditableMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveEditableMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveEditableMethod "dragSourceSetIconPaintable" o = Gtk.Widget.WidgetDragSourceSetIconPaintableMethodInfo
ResolveEditableMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveEditableMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveEditableMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveEditableMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveEditableMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveEditableMethod "finishDelegate" o = EditableFinishDelegateMethodInfo
ResolveEditableMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEditableMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEditableMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEditableMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveEditableMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveEditableMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveEditableMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveEditableMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveEditableMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveEditableMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveEditableMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveEditableMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveEditableMethod "initDelegate" o = EditableInitDelegateMethodInfo
ResolveEditableMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveEditableMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveEditableMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveEditableMethod "insertAfter" o = Gtk.Widget.WidgetInsertAfterMethodInfo
ResolveEditableMethod "insertBefore" o = Gtk.Widget.WidgetInsertBeforeMethodInfo
ResolveEditableMethod "insertText" o = EditableInsertTextMethodInfo
ResolveEditableMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveEditableMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveEditableMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEditableMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveEditableMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveEditableMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveEditableMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveEditableMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveEditableMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveEditableMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveEditableMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveEditableMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveEditableMethod "measure" o = Gtk.Widget.WidgetMeasureMethodInfo
ResolveEditableMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveEditableMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEditableMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEditableMethod "observeChildren" o = Gtk.Widget.WidgetObserveChildrenMethodInfo
ResolveEditableMethod "observeControllers" o = Gtk.Widget.WidgetObserveControllersMethodInfo
ResolveEditableMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveEditableMethod "pick" o = Gtk.Widget.WidgetPickMethodInfo
ResolveEditableMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveEditableMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveEditableMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveEditableMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveEditableMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveEditableMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveEditableMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEditableMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEditableMethod "registerSurface" o = Gtk.Widget.WidgetRegisterSurfaceMethodInfo
ResolveEditableMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveEditableMethod "removeController" o = Gtk.Widget.WidgetRemoveControllerMethodInfo
ResolveEditableMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveEditableMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveEditableMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveEditableMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEditableMethod "selectRegion" o = EditableSelectRegionMethodInfo
ResolveEditableMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveEditableMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveEditableMethod "snapshotChild" o = Gtk.Widget.WidgetSnapshotChildMethodInfo
ResolveEditableMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEditableMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEditableMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEditableMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveEditableMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveEditableMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveEditableMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveEditableMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveEditableMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEditableMethod "unregisterSurface" o = Gtk.Widget.WidgetUnregisterSurfaceMethodInfo
ResolveEditableMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveEditableMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEditableMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveEditableMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveEditableMethod "getAlignment" o = EditableGetAlignmentMethodInfo
ResolveEditableMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveEditableMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveEditableMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveEditableMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveEditableMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveEditableMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveEditableMethod "getCanTarget" o = Gtk.Widget.WidgetGetCanTargetMethodInfo
ResolveEditableMethod "getChars" o = EditableGetCharsMethodInfo
ResolveEditableMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveEditableMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveEditableMethod "getCursor" o = Gtk.Widget.WidgetGetCursorMethodInfo
ResolveEditableMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEditableMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveEditableMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveEditableMethod "getEditable" o = EditableGetEditableMethodInfo
ResolveEditableMethod "getFirstChild" o = Gtk.Widget.WidgetGetFirstChildMethodInfo
ResolveEditableMethod "getFocusChild" o = Gtk.Widget.WidgetGetFocusChildMethodInfo
ResolveEditableMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveEditableMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveEditableMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveEditableMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveEditableMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveEditableMethod "getHasSurface" o = Gtk.Widget.WidgetGetHasSurfaceMethodInfo
ResolveEditableMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveEditableMethod "getHeight" o = Gtk.Widget.WidgetGetHeightMethodInfo
ResolveEditableMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveEditableMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveEditableMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveEditableMethod "getLastChild" o = Gtk.Widget.WidgetGetLastChildMethodInfo
ResolveEditableMethod "getLayoutManager" o = Gtk.Widget.WidgetGetLayoutManagerMethodInfo
ResolveEditableMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveEditableMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveEditableMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveEditableMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveEditableMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveEditableMethod "getMaxWidthChars" o = EditableGetMaxWidthCharsMethodInfo
ResolveEditableMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveEditableMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveEditableMethod "getNextSibling" o = Gtk.Widget.WidgetGetNextSiblingMethodInfo
ResolveEditableMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveEditableMethod "getOverflow" o = Gtk.Widget.WidgetGetOverflowMethodInfo
ResolveEditableMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveEditableMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveEditableMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveEditableMethod "getPosition" o = EditableGetPositionMethodInfo
ResolveEditableMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveEditableMethod "getPrevSibling" o = Gtk.Widget.WidgetGetPrevSiblingMethodInfo
ResolveEditableMethod "getPrimaryClipboard" o = Gtk.Widget.WidgetGetPrimaryClipboardMethodInfo
ResolveEditableMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEditableMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEditableMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveEditableMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveEditableMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveEditableMethod "getRoot" o = Gtk.Widget.WidgetGetRootMethodInfo
ResolveEditableMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveEditableMethod "getSelectionBounds" o = EditableGetSelectionBoundsMethodInfo
ResolveEditableMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveEditableMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveEditableMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveEditableMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveEditableMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveEditableMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveEditableMethod "getSurface" o = Gtk.Widget.WidgetGetSurfaceMethodInfo
ResolveEditableMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveEditableMethod "getText" o = EditableGetTextMethodInfo
ResolveEditableMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveEditableMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveEditableMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveEditableMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveEditableMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveEditableMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveEditableMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveEditableMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveEditableMethod "getWidth" o = Gtk.Widget.WidgetGetWidthMethodInfo
ResolveEditableMethod "getWidthChars" o = EditableGetWidthCharsMethodInfo
ResolveEditableMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveEditableMethod "setAlignment" o = EditableSetAlignmentMethodInfo
ResolveEditableMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveEditableMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveEditableMethod "setCanTarget" o = Gtk.Widget.WidgetSetCanTargetMethodInfo
ResolveEditableMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveEditableMethod "setCursor" o = Gtk.Widget.WidgetSetCursorMethodInfo
ResolveEditableMethod "setCursorFromName" o = Gtk.Widget.WidgetSetCursorFromNameMethodInfo
ResolveEditableMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEditableMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEditableMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveEditableMethod "setEditable" o = EditableSetEditableMethodInfo
ResolveEditableMethod "setFocusChild" o = Gtk.Widget.WidgetSetFocusChildMethodInfo
ResolveEditableMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveEditableMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveEditableMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveEditableMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveEditableMethod "setHasSurface" o = Gtk.Widget.WidgetSetHasSurfaceMethodInfo
ResolveEditableMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveEditableMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveEditableMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveEditableMethod "setLayoutManager" o = Gtk.Widget.WidgetSetLayoutManagerMethodInfo
ResolveEditableMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveEditableMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveEditableMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveEditableMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveEditableMethod "setMaxWidthChars" o = EditableSetMaxWidthCharsMethodInfo
ResolveEditableMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveEditableMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveEditableMethod "setOverflow" o = Gtk.Widget.WidgetSetOverflowMethodInfo
ResolveEditableMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveEditableMethod "setPosition" o = EditableSetPositionMethodInfo
ResolveEditableMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEditableMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveEditableMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveEditableMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveEditableMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveEditableMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveEditableMethod "setSurface" o = Gtk.Widget.WidgetSetSurfaceMethodInfo
ResolveEditableMethod "setText" o = EditableSetTextMethodInfo
ResolveEditableMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveEditableMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveEditableMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveEditableMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveEditableMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveEditableMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveEditableMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveEditableMethod "setWidthChars" o = EditableSetWidthCharsMethodInfo
ResolveEditableMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEditableMethod t Editable, O.MethodInfo info Editable p) => OL.IsLabel t (Editable -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
foreign import ccall "gtk_editable_delete_selection" gtk_editable_delete_selection ::
Ptr Editable ->
IO ()
editableDeleteSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m ()
editableDeleteSelection :: a -> m ()
editableDeleteSelection editable :: a
editable = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> EditableChangedCallback
gtk_editable_delete_selection Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableDeleteSelectionMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableDeleteSelectionMethodInfo a signature where
overloadedMethod = editableDeleteSelection
#endif
foreign import ccall "gtk_editable_delete_text" gtk_editable_delete_text ::
Ptr Editable ->
Int32 ->
Int32 ->
IO ()
editableDeleteText ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> Int32
-> m ()
editableDeleteText :: a -> Int32 -> Int32 -> m ()
editableDeleteText editable :: a
editable startPos :: Int32
startPos endPos :: Int32
endPos = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> EditableDeleteTextCallback
gtk_editable_delete_text Ptr Editable
editable' Int32
startPos Int32
endPos
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableDeleteTextMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableDeleteTextMethodInfo a signature where
overloadedMethod = editableDeleteText
#endif
foreign import ccall "gtk_editable_finish_delegate" gtk_editable_finish_delegate ::
Ptr Editable ->
IO ()
editableFinishDelegate ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m ()
editableFinishDelegate :: a -> m ()
editableFinishDelegate editable :: a
editable = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> EditableChangedCallback
gtk_editable_finish_delegate Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableFinishDelegateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableFinishDelegateMethodInfo a signature where
overloadedMethod = editableFinishDelegate
#endif
foreign import ccall "gtk_editable_get_alignment" gtk_editable_get_alignment ::
Ptr Editable ->
IO CFloat
editableGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m Float
editableGetAlignment :: a -> m Float
editableGetAlignment editable :: a
editable = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CFloat
result <- Ptr Editable -> IO CFloat
gtk_editable_get_alignment Ptr Editable
editable'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data EditableGetAlignmentMethodInfo
instance (signature ~ (m Float), MonadIO m, IsEditable a) => O.MethodInfo EditableGetAlignmentMethodInfo a signature where
overloadedMethod = editableGetAlignment
#endif
foreign import ccall "gtk_editable_get_chars" gtk_editable_get_chars ::
Ptr Editable ->
Int32 ->
Int32 ->
IO CString
editableGetChars ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> Int32
-> m T.Text
editableGetChars :: a -> Int32 -> Int32 -> m Text
editableGetChars editable :: a
editable startPos :: Int32
startPos endPos :: Int32
endPos = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CString
result <- Ptr Editable -> Int32 -> Int32 -> IO CString
gtk_editable_get_chars Ptr Editable
editable' Int32
startPos Int32
endPos
Text -> CString -> EditableChangedCallback
forall a. HasCallStack => Text -> Ptr a -> EditableChangedCallback
checkUnexpectedReturnNULL "editableGetChars" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem CString
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EditableGetCharsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m T.Text), MonadIO m, IsEditable a) => O.MethodInfo EditableGetCharsMethodInfo a signature where
overloadedMethod = editableGetChars
#endif
foreign import ccall "gtk_editable_get_editable" gtk_editable_get_editable ::
Ptr Editable ->
IO CInt
editableGetEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m Bool
editableGetEditable :: a -> m Bool
editableGetEditable editable :: a
editable = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CInt
result <- Ptr Editable -> IO CInt
gtk_editable_get_editable Ptr Editable
editable'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data EditableGetEditableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEditable a) => O.MethodInfo EditableGetEditableMethodInfo a signature where
overloadedMethod = editableGetEditable
#endif
foreign import ccall "gtk_editable_get_max_width_chars" gtk_editable_get_max_width_chars ::
Ptr Editable ->
IO Int32
editableGetMaxWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m Int32
editableGetMaxWidthChars :: a -> m Int32
editableGetMaxWidthChars editable :: a
editable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Int32
result <- Ptr Editable -> IO Int32
gtk_editable_get_max_width_chars Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data EditableGetMaxWidthCharsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEditable a) => O.MethodInfo EditableGetMaxWidthCharsMethodInfo a signature where
overloadedMethod = editableGetMaxWidthChars
#endif
foreign import ccall "gtk_editable_get_position" gtk_editable_get_position ::
Ptr Editable ->
IO Int32
editableGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m Int32
editableGetPosition :: a -> m Int32
editableGetPosition editable :: a
editable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Int32
result <- Ptr Editable -> IO Int32
gtk_editable_get_position Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data EditableGetPositionMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEditable a) => O.MethodInfo EditableGetPositionMethodInfo a signature where
overloadedMethod = editableGetPosition
#endif
foreign import ccall "gtk_editable_get_selection_bounds" gtk_editable_get_selection_bounds ::
Ptr Editable ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
editableGetSelectionBounds ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m ((Bool, Int32, Int32))
editableGetSelectionBounds :: a -> m (Bool, Int32, Int32)
editableGetSelectionBounds editable :: a
editable = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Int32
startPos <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
endPos <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr Editable -> Ptr Int32 -> Ptr Int32 -> IO CInt
gtk_editable_get_selection_bounds Ptr Editable
editable' Ptr Int32
startPos Ptr Int32
endPos
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
Int32
startPos' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
startPos
Int32
endPos' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
endPos
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Ptr Int32 -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem Ptr Int32
startPos
Ptr Int32 -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem Ptr Int32
endPos
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
startPos', Int32
endPos')
#if defined(ENABLE_OVERLOADING)
data EditableGetSelectionBoundsMethodInfo
instance (signature ~ (m ((Bool, Int32, Int32))), MonadIO m, IsEditable a) => O.MethodInfo EditableGetSelectionBoundsMethodInfo a signature where
overloadedMethod = editableGetSelectionBounds
#endif
foreign import ccall "gtk_editable_get_text" gtk_editable_get_text ::
Ptr Editable ->
IO CString
editableGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m T.Text
editableGetText :: a -> m Text
editableGetText editable :: a
editable = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CString
result <- Ptr Editable -> IO CString
gtk_editable_get_text Ptr Editable
editable'
Text -> CString -> EditableChangedCallback
forall a. HasCallStack => Text -> Ptr a -> EditableChangedCallback
checkUnexpectedReturnNULL "editableGetText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data EditableGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEditable a) => O.MethodInfo EditableGetTextMethodInfo a signature where
overloadedMethod = editableGetText
#endif
foreign import ccall "gtk_editable_get_width_chars" gtk_editable_get_width_chars ::
Ptr Editable ->
IO Int32
editableGetWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m Int32
editableGetWidthChars :: a -> m Int32
editableGetWidthChars editable :: a
editable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Int32
result <- Ptr Editable -> IO Int32
gtk_editable_get_width_chars Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data EditableGetWidthCharsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEditable a) => O.MethodInfo EditableGetWidthCharsMethodInfo a signature where
overloadedMethod = editableGetWidthChars
#endif
foreign import ccall "gtk_editable_init_delegate" gtk_editable_init_delegate ::
Ptr Editable ->
IO ()
editableInitDelegate ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> m ()
editableInitDelegate :: a -> m ()
editableInitDelegate editable :: a
editable = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> EditableChangedCallback
gtk_editable_init_delegate Ptr Editable
editable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableInitDelegateMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableInitDelegateMethodInfo a signature where
overloadedMethod = editableInitDelegate
#endif
foreign import ccall "gtk_editable_insert_text" gtk_editable_insert_text ::
Ptr Editable ->
CString ->
Int32 ->
Ptr Int32 ->
IO ()
editableInsertText ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> T.Text
-> Int32
-> Int32
-> m (Int32)
editableInsertText :: a -> Text -> Int32 -> Int32 -> m Int32
editableInsertText editable :: a
editable text :: Text
text length_ :: Int32
length_ position :: Int32
position = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Int32
position' <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32 -> Int32 -> EditableChangedCallback
forall a. Storable a => Ptr a -> a -> EditableChangedCallback
poke Ptr Int32
position' Int32
position
Ptr Editable
-> CString -> Int32 -> Ptr Int32 -> EditableChangedCallback
gtk_editable_insert_text Ptr Editable
editable' CString
text' Int32
length_ Ptr Int32
position'
Int32
position'' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
position'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
CString -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem CString
text'
Ptr Int32 -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem Ptr Int32
position'
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
position''
#if defined(ENABLE_OVERLOADING)
data EditableInsertTextMethodInfo
instance (signature ~ (T.Text -> Int32 -> Int32 -> m (Int32)), MonadIO m, IsEditable a) => O.MethodInfo EditableInsertTextMethodInfo a signature where
overloadedMethod = editableInsertText
#endif
foreign import ccall "gtk_editable_select_region" gtk_editable_select_region ::
Ptr Editable ->
Int32 ->
Int32 ->
IO ()
editableSelectRegion ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> Int32
-> m ()
editableSelectRegion :: a -> Int32 -> Int32 -> m ()
editableSelectRegion editable :: a
editable startPos :: Int32
startPos endPos :: Int32
endPos = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> EditableDeleteTextCallback
gtk_editable_select_region Ptr Editable
editable' Int32
startPos Int32
endPos
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSelectRegionMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSelectRegionMethodInfo a signature where
overloadedMethod = editableSelectRegion
#endif
foreign import ccall "gtk_editable_set_alignment" gtk_editable_set_alignment ::
Ptr Editable ->
CFloat ->
IO ()
editableSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Float
-> m ()
editableSetAlignment :: a -> Float -> m ()
editableSetAlignment editable :: a
editable xalign :: Float
xalign = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
Ptr Editable -> CFloat -> EditableChangedCallback
gtk_editable_set_alignment Ptr Editable
editable' CFloat
xalign'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetAlignmentMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetAlignmentMethodInfo a signature where
overloadedMethod = editableSetAlignment
#endif
foreign import ccall "gtk_editable_set_editable" gtk_editable_set_editable ::
Ptr Editable ->
CInt ->
IO ()
editableSetEditable ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Bool
-> m ()
editableSetEditable :: a -> Bool -> m ()
editableSetEditable editable :: a
editable isEditable :: Bool
isEditable = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
let isEditable' :: CInt
isEditable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isEditable
Ptr Editable -> CInt -> EditableChangedCallback
gtk_editable_set_editable Ptr Editable
editable' CInt
isEditable'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetEditableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetEditableMethodInfo a signature where
overloadedMethod = editableSetEditable
#endif
foreign import ccall "gtk_editable_set_max_width_chars" gtk_editable_set_max_width_chars ::
Ptr Editable ->
Int32 ->
IO ()
editableSetMaxWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> m ()
editableSetMaxWidthChars :: a -> Int32 -> m ()
editableSetMaxWidthChars editable :: a
editable nChars :: Int32
nChars = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> Int32 -> EditableChangedCallback
gtk_editable_set_max_width_chars Ptr Editable
editable' Int32
nChars
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetMaxWidthCharsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetMaxWidthCharsMethodInfo a signature where
overloadedMethod = editableSetMaxWidthChars
#endif
foreign import ccall "gtk_editable_set_position" gtk_editable_set_position ::
Ptr Editable ->
Int32 ->
IO ()
editableSetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> m ()
editableSetPosition :: a -> Int32 -> m ()
editableSetPosition editable :: a
editable position :: Int32
position = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> Int32 -> EditableChangedCallback
gtk_editable_set_position Ptr Editable
editable' Int32
position
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetPositionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetPositionMethodInfo a signature where
overloadedMethod = editableSetPosition
#endif
foreign import ccall "gtk_editable_set_text" gtk_editable_set_text ::
Ptr Editable ->
CString ->
IO ()
editableSetText ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> T.Text
-> m ()
editableSetText :: a -> Text -> m ()
editableSetText editable :: a
editable text :: Text
text = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Editable -> CString -> EditableChangedCallback
gtk_editable_set_text Ptr Editable
editable' CString
text'
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
CString -> EditableChangedCallback
forall a. Ptr a -> EditableChangedCallback
freeMem CString
text'
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetTextMethodInfo a signature where
overloadedMethod = editableSetText
#endif
foreign import ccall "gtk_editable_set_width_chars" gtk_editable_set_width_chars ::
Ptr Editable ->
Int32 ->
IO ()
editableSetWidthChars ::
(B.CallStack.HasCallStack, MonadIO m, IsEditable a) =>
a
-> Int32
-> m ()
editableSetWidthChars :: a -> Int32 -> m ()
editableSetWidthChars editable :: a
editable nChars :: Int32
nChars = EditableChangedCallback -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (EditableChangedCallback -> m ())
-> EditableChangedCallback -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Editable
editable' <- a -> IO (Ptr Editable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
editable
Ptr Editable -> Int32 -> EditableChangedCallback
gtk_editable_set_width_chars Ptr Editable
editable' Int32
nChars
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
editable
() -> EditableChangedCallback
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data EditableSetWidthCharsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEditable a) => O.MethodInfo EditableSetWidthCharsMethodInfo a signature where
overloadedMethod = editableSetWidthChars
#endif
foreign import ccall "gtk_editable_delegate_get_property" gtk_editable_delegate_get_property ::
Ptr GObject.Object.Object ->
Word32 ->
Ptr GValue ->
Ptr GParamSpec ->
IO CInt
editableDelegateGetProperty ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
a
-> Word32
-> GValue
-> GParamSpec
-> m Bool
editableDelegateGetProperty :: a -> Word32 -> GValue -> GParamSpec -> m Bool
editableDelegateGetProperty object :: a
object propId :: Word32
propId value :: GValue
value pspec :: GParamSpec
pspec = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
CInt
result <- Ptr Object -> Word32 -> Ptr GValue -> Ptr GParamSpec -> IO CInt
gtk_editable_delegate_get_property Ptr Object
object' Word32
propId Ptr GValue
value' Ptr GParamSpec
pspec'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
object
GValue -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr GValue
value
GParamSpec -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr GParamSpec
pspec
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_editable_delegate_set_property" gtk_editable_delegate_set_property ::
Ptr GObject.Object.Object ->
Word32 ->
Ptr GValue ->
Ptr GParamSpec ->
IO CInt
editableDelegateSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
a
-> Word32
-> GValue
-> GParamSpec
-> m Bool
editableDelegateSetProperty :: a -> Word32 -> GValue -> GParamSpec -> m Bool
editableDelegateSetProperty object :: a
object propId :: Word32
propId value :: GValue
value pspec :: GParamSpec
pspec = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
CInt
result <- Ptr Object -> Word32 -> Ptr GValue -> Ptr GParamSpec -> IO CInt
gtk_editable_delegate_set_property Ptr Object
object' Word32
propId Ptr GValue
value' Ptr GParamSpec
pspec'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr a
object
GValue -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr GValue
value
GParamSpec -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr GParamSpec
pspec
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_editable_install_properties" gtk_editable_install_properties ::
Ptr GObject.ObjectClass.ObjectClass ->
Word32 ->
IO Word32
editableInstallProperties ::
(B.CallStack.HasCallStack, MonadIO m) =>
GObject.ObjectClass.ObjectClass
-> Word32
-> m Word32
editableInstallProperties :: ObjectClass -> Word32 -> m Word32
editableInstallProperties objectClass :: ObjectClass
objectClass firstProp :: Word32
firstProp = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr ObjectClass
objectClass' <- ObjectClass -> IO (Ptr ObjectClass)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ObjectClass
objectClass
Word32
result <- Ptr ObjectClass -> Word32 -> IO Word32
gtk_editable_install_properties Ptr ObjectClass
objectClass' Word32
firstProp
ObjectClass -> EditableChangedCallback
forall a. ManagedPtrNewtype a => a -> EditableChangedCallback
touchManagedPtr ObjectClass
objectClass
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
#endif