#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Gtk.Objects.EntryCompletion
(
EntryCompletion(..) ,
IsEntryCompletion ,
toEntryCompletion ,
noEntryCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionCompleteMethodInfo ,
#endif
entryCompletionComplete ,
#if ENABLE_OVERLOADING
EntryCompletionComputePrefixMethodInfo ,
#endif
entryCompletionComputePrefix ,
#if ENABLE_OVERLOADING
EntryCompletionDeleteActionMethodInfo ,
#endif
entryCompletionDeleteAction ,
#if ENABLE_OVERLOADING
EntryCompletionGetCompletionPrefixMethodInfo,
#endif
entryCompletionGetCompletionPrefix ,
#if ENABLE_OVERLOADING
EntryCompletionGetEntryMethodInfo ,
#endif
entryCompletionGetEntry ,
#if ENABLE_OVERLOADING
EntryCompletionGetInlineCompletionMethodInfo,
#endif
entryCompletionGetInlineCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionGetInlineSelectionMethodInfo,
#endif
entryCompletionGetInlineSelection ,
#if ENABLE_OVERLOADING
EntryCompletionGetMinimumKeyLengthMethodInfo,
#endif
entryCompletionGetMinimumKeyLength ,
#if ENABLE_OVERLOADING
EntryCompletionGetModelMethodInfo ,
#endif
entryCompletionGetModel ,
#if ENABLE_OVERLOADING
EntryCompletionGetPopupCompletionMethodInfo,
#endif
entryCompletionGetPopupCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionGetPopupSetWidthMethodInfo,
#endif
entryCompletionGetPopupSetWidth ,
#if ENABLE_OVERLOADING
EntryCompletionGetPopupSingleMatchMethodInfo,
#endif
entryCompletionGetPopupSingleMatch ,
#if ENABLE_OVERLOADING
EntryCompletionGetTextColumnMethodInfo ,
#endif
entryCompletionGetTextColumn ,
#if ENABLE_OVERLOADING
EntryCompletionInsertActionMarkupMethodInfo,
#endif
entryCompletionInsertActionMarkup ,
#if ENABLE_OVERLOADING
EntryCompletionInsertActionTextMethodInfo,
#endif
entryCompletionInsertActionText ,
#if ENABLE_OVERLOADING
EntryCompletionInsertPrefixMethodInfo ,
#endif
entryCompletionInsertPrefix ,
entryCompletionNew ,
entryCompletionNewWithArea ,
#if ENABLE_OVERLOADING
EntryCompletionSetInlineCompletionMethodInfo,
#endif
entryCompletionSetInlineCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionSetInlineSelectionMethodInfo,
#endif
entryCompletionSetInlineSelection ,
#if ENABLE_OVERLOADING
EntryCompletionSetMatchFuncMethodInfo ,
#endif
entryCompletionSetMatchFunc ,
#if ENABLE_OVERLOADING
EntryCompletionSetMinimumKeyLengthMethodInfo,
#endif
entryCompletionSetMinimumKeyLength ,
#if ENABLE_OVERLOADING
EntryCompletionSetModelMethodInfo ,
#endif
entryCompletionSetModel ,
#if ENABLE_OVERLOADING
EntryCompletionSetPopupCompletionMethodInfo,
#endif
entryCompletionSetPopupCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionSetPopupSetWidthMethodInfo,
#endif
entryCompletionSetPopupSetWidth ,
#if ENABLE_OVERLOADING
EntryCompletionSetPopupSingleMatchMethodInfo,
#endif
entryCompletionSetPopupSingleMatch ,
#if ENABLE_OVERLOADING
EntryCompletionSetTextColumnMethodInfo ,
#endif
entryCompletionSetTextColumn ,
#if ENABLE_OVERLOADING
EntryCompletionCellAreaPropertyInfo ,
#endif
constructEntryCompletionCellArea ,
#if ENABLE_OVERLOADING
entryCompletionCellArea ,
#endif
getEntryCompletionCellArea ,
#if ENABLE_OVERLOADING
EntryCompletionInlineCompletionPropertyInfo,
#endif
constructEntryCompletionInlineCompletion,
#if ENABLE_OVERLOADING
entryCompletionInlineCompletion ,
#endif
getEntryCompletionInlineCompletion ,
setEntryCompletionInlineCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionInlineSelectionPropertyInfo,
#endif
constructEntryCompletionInlineSelection ,
#if ENABLE_OVERLOADING
entryCompletionInlineSelection ,
#endif
getEntryCompletionInlineSelection ,
setEntryCompletionInlineSelection ,
#if ENABLE_OVERLOADING
EntryCompletionMinimumKeyLengthPropertyInfo,
#endif
constructEntryCompletionMinimumKeyLength,
#if ENABLE_OVERLOADING
entryCompletionMinimumKeyLength ,
#endif
getEntryCompletionMinimumKeyLength ,
setEntryCompletionMinimumKeyLength ,
#if ENABLE_OVERLOADING
EntryCompletionModelPropertyInfo ,
#endif
clearEntryCompletionModel ,
constructEntryCompletionModel ,
#if ENABLE_OVERLOADING
entryCompletionModel ,
#endif
getEntryCompletionModel ,
setEntryCompletionModel ,
#if ENABLE_OVERLOADING
EntryCompletionPopupCompletionPropertyInfo,
#endif
constructEntryCompletionPopupCompletion ,
#if ENABLE_OVERLOADING
entryCompletionPopupCompletion ,
#endif
getEntryCompletionPopupCompletion ,
setEntryCompletionPopupCompletion ,
#if ENABLE_OVERLOADING
EntryCompletionPopupSetWidthPropertyInfo,
#endif
constructEntryCompletionPopupSetWidth ,
#if ENABLE_OVERLOADING
entryCompletionPopupSetWidth ,
#endif
getEntryCompletionPopupSetWidth ,
setEntryCompletionPopupSetWidth ,
#if ENABLE_OVERLOADING
EntryCompletionPopupSingleMatchPropertyInfo,
#endif
constructEntryCompletionPopupSingleMatch,
#if ENABLE_OVERLOADING
entryCompletionPopupSingleMatch ,
#endif
getEntryCompletionPopupSingleMatch ,
setEntryCompletionPopupSingleMatch ,
#if ENABLE_OVERLOADING
EntryCompletionTextColumnPropertyInfo ,
#endif
constructEntryCompletionTextColumn ,
#if ENABLE_OVERLOADING
entryCompletionTextColumn ,
#endif
getEntryCompletionTextColumn ,
setEntryCompletionTextColumn ,
C_EntryCompletionActionActivatedCallback,
EntryCompletionActionActivatedCallback ,
#if ENABLE_OVERLOADING
EntryCompletionActionActivatedSignalInfo,
#endif
afterEntryCompletionActionActivated ,
genClosure_EntryCompletionActionActivated,
mk_EntryCompletionActionActivatedCallback,
noEntryCompletionActionActivatedCallback,
onEntryCompletionActionActivated ,
wrap_EntryCompletionActionActivatedCallback,
C_EntryCompletionCursorOnMatchCallback ,
EntryCompletionCursorOnMatchCallback ,
#if ENABLE_OVERLOADING
EntryCompletionCursorOnMatchSignalInfo ,
#endif
afterEntryCompletionCursorOnMatch ,
genClosure_EntryCompletionCursorOnMatch ,
mk_EntryCompletionCursorOnMatchCallback ,
noEntryCompletionCursorOnMatchCallback ,
onEntryCompletionCursorOnMatch ,
wrap_EntryCompletionCursorOnMatchCallback,
C_EntryCompletionInsertPrefixCallback ,
EntryCompletionInsertPrefixCallback ,
#if ENABLE_OVERLOADING
EntryCompletionInsertPrefixSignalInfo ,
#endif
afterEntryCompletionInsertPrefix ,
genClosure_EntryCompletionInsertPrefix ,
mk_EntryCompletionInsertPrefixCallback ,
noEntryCompletionInsertPrefixCallback ,
onEntryCompletionInsertPrefix ,
wrap_EntryCompletionInsertPrefixCallback,
C_EntryCompletionMatchSelectedCallback ,
EntryCompletionMatchSelectedCallback ,
#if ENABLE_OVERLOADING
EntryCompletionMatchSelectedSignalInfo ,
#endif
afterEntryCompletionMatchSelected ,
genClosure_EntryCompletionMatchSelected ,
mk_EntryCompletionMatchSelectedCallback ,
noEntryCompletionMatchSelectedCallback ,
onEntryCompletionMatchSelected ,
wrap_EntryCompletionMatchSelectedCallback,
C_EntryCompletionNoMatchesCallback ,
EntryCompletionNoMatchesCallback ,
#if ENABLE_OVERLOADING
EntryCompletionNoMatchesSignalInfo ,
#endif
afterEntryCompletionNoMatches ,
genClosure_EntryCompletionNoMatches ,
mk_EntryCompletionNoMatchesCallback ,
noEntryCompletionNoMatchesCallback ,
onEntryCompletionNoMatches ,
wrap_EntryCompletionNoMatchesCallback ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype EntryCompletion = EntryCompletion (ManagedPtr EntryCompletion)
foreign import ccall "gtk_entry_completion_get_type"
c_gtk_entry_completion_get_type :: IO GType
instance GObject EntryCompletion where
gobjectType _ = c_gtk_entry_completion_get_type
class GObject o => IsEntryCompletion o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError EntryCompletion a) =>
IsEntryCompletion a
#endif
instance IsEntryCompletion EntryCompletion
instance GObject.Object.IsObject EntryCompletion
instance Gtk.Buildable.IsBuildable EntryCompletion
instance Gtk.CellLayout.IsCellLayout EntryCompletion
toEntryCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m EntryCompletion
toEntryCompletion = liftIO . unsafeCastTo EntryCompletion
noEntryCompletion :: Maybe EntryCompletion
noEntryCompletion = Nothing
#if ENABLE_OVERLOADING
type family ResolveEntryCompletionMethod (t :: Symbol) (o :: *) :: * where
ResolveEntryCompletionMethod "addAttribute" o = Gtk.CellLayout.CellLayoutAddAttributeMethodInfo
ResolveEntryCompletionMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveEntryCompletionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEntryCompletionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEntryCompletionMethod "clear" o = Gtk.CellLayout.CellLayoutClearMethodInfo
ResolveEntryCompletionMethod "clearAttributes" o = Gtk.CellLayout.CellLayoutClearAttributesMethodInfo
ResolveEntryCompletionMethod "complete" o = EntryCompletionCompleteMethodInfo
ResolveEntryCompletionMethod "computePrefix" o = EntryCompletionComputePrefixMethodInfo
ResolveEntryCompletionMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveEntryCompletionMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveEntryCompletionMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveEntryCompletionMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveEntryCompletionMethod "deleteAction" o = EntryCompletionDeleteActionMethodInfo
ResolveEntryCompletionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEntryCompletionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEntryCompletionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEntryCompletionMethod "insertActionMarkup" o = EntryCompletionInsertActionMarkupMethodInfo
ResolveEntryCompletionMethod "insertActionText" o = EntryCompletionInsertActionTextMethodInfo
ResolveEntryCompletionMethod "insertPrefix" o = EntryCompletionInsertPrefixMethodInfo
ResolveEntryCompletionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEntryCompletionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEntryCompletionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEntryCompletionMethod "packEnd" o = Gtk.CellLayout.CellLayoutPackEndMethodInfo
ResolveEntryCompletionMethod "packStart" o = Gtk.CellLayout.CellLayoutPackStartMethodInfo
ResolveEntryCompletionMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveEntryCompletionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEntryCompletionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEntryCompletionMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveEntryCompletionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEntryCompletionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEntryCompletionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEntryCompletionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEntryCompletionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEntryCompletionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEntryCompletionMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveEntryCompletionMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveEntryCompletionMethod "getCompletionPrefix" o = EntryCompletionGetCompletionPrefixMethodInfo
ResolveEntryCompletionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEntryCompletionMethod "getEntry" o = EntryCompletionGetEntryMethodInfo
ResolveEntryCompletionMethod "getInlineCompletion" o = EntryCompletionGetInlineCompletionMethodInfo
ResolveEntryCompletionMethod "getInlineSelection" o = EntryCompletionGetInlineSelectionMethodInfo
ResolveEntryCompletionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveEntryCompletionMethod "getMinimumKeyLength" o = EntryCompletionGetMinimumKeyLengthMethodInfo
ResolveEntryCompletionMethod "getModel" o = EntryCompletionGetModelMethodInfo
ResolveEntryCompletionMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveEntryCompletionMethod "getPopupCompletion" o = EntryCompletionGetPopupCompletionMethodInfo
ResolveEntryCompletionMethod "getPopupSetWidth" o = EntryCompletionGetPopupSetWidthMethodInfo
ResolveEntryCompletionMethod "getPopupSingleMatch" o = EntryCompletionGetPopupSingleMatchMethodInfo
ResolveEntryCompletionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEntryCompletionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEntryCompletionMethod "getTextColumn" o = EntryCompletionGetTextColumnMethodInfo
ResolveEntryCompletionMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveEntryCompletionMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveEntryCompletionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEntryCompletionMethod "setInlineCompletion" o = EntryCompletionSetInlineCompletionMethodInfo
ResolveEntryCompletionMethod "setInlineSelection" o = EntryCompletionSetInlineSelectionMethodInfo
ResolveEntryCompletionMethod "setMatchFunc" o = EntryCompletionSetMatchFuncMethodInfo
ResolveEntryCompletionMethod "setMinimumKeyLength" o = EntryCompletionSetMinimumKeyLengthMethodInfo
ResolveEntryCompletionMethod "setModel" o = EntryCompletionSetModelMethodInfo
ResolveEntryCompletionMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveEntryCompletionMethod "setPopupCompletion" o = EntryCompletionSetPopupCompletionMethodInfo
ResolveEntryCompletionMethod "setPopupSetWidth" o = EntryCompletionSetPopupSetWidthMethodInfo
ResolveEntryCompletionMethod "setPopupSingleMatch" o = EntryCompletionSetPopupSingleMatchMethodInfo
ResolveEntryCompletionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEntryCompletionMethod "setTextColumn" o = EntryCompletionSetTextColumnMethodInfo
ResolveEntryCompletionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, O.MethodInfo info EntryCompletion p) => O.IsLabelProxy t (EntryCompletion -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, O.MethodInfo info EntryCompletion p) => O.IsLabel t (EntryCompletion -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif
type EntryCompletionActionActivatedCallback =
Int32
-> IO ()
noEntryCompletionActionActivatedCallback :: Maybe EntryCompletionActionActivatedCallback
noEntryCompletionActionActivatedCallback = Nothing
type C_EntryCompletionActionActivatedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCompletionActionActivatedCallback :: C_EntryCompletionActionActivatedCallback -> IO (FunPtr C_EntryCompletionActionActivatedCallback)
genClosure_EntryCompletionActionActivated :: EntryCompletionActionActivatedCallback -> IO Closure
genClosure_EntryCompletionActionActivated cb = do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
mk_EntryCompletionActionActivatedCallback cb' >>= newCClosure
wrap_EntryCompletionActionActivatedCallback ::
EntryCompletionActionActivatedCallback ->
C_EntryCompletionActionActivatedCallback
wrap_EntryCompletionActionActivatedCallback _cb _ index _ = do
_cb index
onEntryCompletionActionActivated :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
onEntryCompletionActionActivated obj cb = liftIO $ do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
cb'' <- mk_EntryCompletionActionActivatedCallback cb'
connectSignalFunPtr obj "action-activated" cb'' SignalConnectBefore
afterEntryCompletionActionActivated :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
afterEntryCompletionActionActivated obj cb = liftIO $ do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
cb'' <- mk_EntryCompletionActionActivatedCallback cb'
connectSignalFunPtr obj "action-activated" cb'' SignalConnectAfter
type EntryCompletionCursorOnMatchCallback =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO Bool
noEntryCompletionCursorOnMatchCallback :: Maybe EntryCompletionCursorOnMatchCallback
noEntryCompletionCursorOnMatchCallback = Nothing
type C_EntryCompletionCursorOnMatchCallback =
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionCursorOnMatchCallback :: C_EntryCompletionCursorOnMatchCallback -> IO (FunPtr C_EntryCompletionCursorOnMatchCallback)
genClosure_EntryCompletionCursorOnMatch :: EntryCompletionCursorOnMatchCallback -> IO Closure
genClosure_EntryCompletionCursorOnMatch cb = do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
mk_EntryCompletionCursorOnMatchCallback cb' >>= newCClosure
wrap_EntryCompletionCursorOnMatchCallback ::
EntryCompletionCursorOnMatchCallback ->
C_EntryCompletionCursorOnMatchCallback
wrap_EntryCompletionCursorOnMatchCallback _cb _ model iter _ = do
model' <- (newObject Gtk.TreeModel.TreeModel) model
B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionCursorOnMatch :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
onEntryCompletionCursorOnMatch obj cb = liftIO $ do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
cb'' <- mk_EntryCompletionCursorOnMatchCallback cb'
connectSignalFunPtr obj "cursor-on-match" cb'' SignalConnectBefore
afterEntryCompletionCursorOnMatch :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
afterEntryCompletionCursorOnMatch obj cb = liftIO $ do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
cb'' <- mk_EntryCompletionCursorOnMatchCallback cb'
connectSignalFunPtr obj "cursor-on-match" cb'' SignalConnectAfter
type EntryCompletionInsertPrefixCallback =
T.Text
-> IO Bool
noEntryCompletionInsertPrefixCallback :: Maybe EntryCompletionInsertPrefixCallback
noEntryCompletionInsertPrefixCallback = Nothing
type C_EntryCompletionInsertPrefixCallback =
Ptr () ->
CString ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionInsertPrefixCallback :: C_EntryCompletionInsertPrefixCallback -> IO (FunPtr C_EntryCompletionInsertPrefixCallback)
genClosure_EntryCompletionInsertPrefix :: EntryCompletionInsertPrefixCallback -> IO Closure
genClosure_EntryCompletionInsertPrefix cb = do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
mk_EntryCompletionInsertPrefixCallback cb' >>= newCClosure
wrap_EntryCompletionInsertPrefixCallback ::
EntryCompletionInsertPrefixCallback ->
C_EntryCompletionInsertPrefixCallback
wrap_EntryCompletionInsertPrefixCallback _cb _ prefix _ = do
prefix' <- cstringToText prefix
result <- _cb prefix'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionInsertPrefix :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
onEntryCompletionInsertPrefix obj cb = liftIO $ do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
cb'' <- mk_EntryCompletionInsertPrefixCallback cb'
connectSignalFunPtr obj "insert-prefix" cb'' SignalConnectBefore
afterEntryCompletionInsertPrefix :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
afterEntryCompletionInsertPrefix obj cb = liftIO $ do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
cb'' <- mk_EntryCompletionInsertPrefixCallback cb'
connectSignalFunPtr obj "insert-prefix" cb'' SignalConnectAfter
type EntryCompletionMatchSelectedCallback =
Gtk.TreeModel.TreeModel
-> Gtk.TreeIter.TreeIter
-> IO Bool
noEntryCompletionMatchSelectedCallback :: Maybe EntryCompletionMatchSelectedCallback
noEntryCompletionMatchSelectedCallback = Nothing
type C_EntryCompletionMatchSelectedCallback =
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionMatchSelectedCallback :: C_EntryCompletionMatchSelectedCallback -> IO (FunPtr C_EntryCompletionMatchSelectedCallback)
genClosure_EntryCompletionMatchSelected :: EntryCompletionMatchSelectedCallback -> IO Closure
genClosure_EntryCompletionMatchSelected cb = do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
mk_EntryCompletionMatchSelectedCallback cb' >>= newCClosure
wrap_EntryCompletionMatchSelectedCallback ::
EntryCompletionMatchSelectedCallback ->
C_EntryCompletionMatchSelectedCallback
wrap_EntryCompletionMatchSelectedCallback _cb _ model iter _ = do
model' <- (newObject Gtk.TreeModel.TreeModel) model
B.ManagedPtr.withTransient Gtk.TreeIter.TreeIter iter $ \iter' -> do
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionMatchSelected :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
onEntryCompletionMatchSelected obj cb = liftIO $ do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
cb'' <- mk_EntryCompletionMatchSelectedCallback cb'
connectSignalFunPtr obj "match-selected" cb'' SignalConnectBefore
afterEntryCompletionMatchSelected :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
afterEntryCompletionMatchSelected obj cb = liftIO $ do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
cb'' <- mk_EntryCompletionMatchSelectedCallback cb'
connectSignalFunPtr obj "match-selected" cb'' SignalConnectAfter
type EntryCompletionNoMatchesCallback =
IO ()
noEntryCompletionNoMatchesCallback :: Maybe EntryCompletionNoMatchesCallback
noEntryCompletionNoMatchesCallback = Nothing
type C_EntryCompletionNoMatchesCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCompletionNoMatchesCallback :: C_EntryCompletionNoMatchesCallback -> IO (FunPtr C_EntryCompletionNoMatchesCallback)
genClosure_EntryCompletionNoMatches :: EntryCompletionNoMatchesCallback -> IO Closure
genClosure_EntryCompletionNoMatches cb = do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
mk_EntryCompletionNoMatchesCallback cb' >>= newCClosure
wrap_EntryCompletionNoMatchesCallback ::
EntryCompletionNoMatchesCallback ->
C_EntryCompletionNoMatchesCallback
wrap_EntryCompletionNoMatchesCallback _cb _ _ = do
_cb
onEntryCompletionNoMatches :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
onEntryCompletionNoMatches obj cb = liftIO $ do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
cb'' <- mk_EntryCompletionNoMatchesCallback cb'
connectSignalFunPtr obj "no-matches" cb'' SignalConnectBefore
afterEntryCompletionNoMatches :: (IsEntryCompletion a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
afterEntryCompletionNoMatches obj cb = liftIO $ do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
cb'' <- mk_EntryCompletionNoMatchesCallback cb'
connectSignalFunPtr obj "no-matches" cb'' SignalConnectAfter
getEntryCompletionCellArea :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.CellArea.CellArea)
getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" Gtk.CellArea.CellArea
constructEntryCompletionCellArea :: (IsEntryCompletion o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" (Just val)
#if ENABLE_OVERLOADING
data EntryCompletionCellAreaPropertyInfo
instance AttrInfo EntryCompletionCellAreaPropertyInfo where
type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area"
type AttrOrigin EntryCompletionCellAreaPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionCellArea
attrSet _ = undefined
attrConstruct _ = constructEntryCompletionCellArea
attrClear _ = undefined
#endif
getEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineCompletion obj = liftIO $ getObjectPropertyBool obj "inline-completion"
setEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineCompletion obj val = liftIO $ setObjectPropertyBool obj "inline-completion" val
constructEntryCompletionInlineCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineCompletion val = constructObjectPropertyBool "inline-completion" val
#if ENABLE_OVERLOADING
data EntryCompletionInlineCompletionPropertyInfo
instance AttrInfo EntryCompletionInlineCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionInlineCompletionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionInlineCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "inline-completion"
type AttrOrigin EntryCompletionInlineCompletionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionInlineCompletion
attrSet _ = setEntryCompletionInlineCompletion
attrConstruct _ = constructEntryCompletionInlineCompletion
attrClear _ = undefined
#endif
getEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineSelection obj = liftIO $ getObjectPropertyBool obj "inline-selection"
setEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineSelection obj val = liftIO $ setObjectPropertyBool obj "inline-selection" val
constructEntryCompletionInlineSelection :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineSelection val = constructObjectPropertyBool "inline-selection" val
#if ENABLE_OVERLOADING
data EntryCompletionInlineSelectionPropertyInfo
instance AttrInfo EntryCompletionInlineSelectionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionInlineSelectionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionInlineSelectionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "inline-selection"
type AttrOrigin EntryCompletionInlineSelectionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionInlineSelection
attrSet _ = setEntryCompletionInlineSelection
attrConstruct _ = constructEntryCompletionInlineSelection
attrClear _ = undefined
#endif
getEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyInt32 obj "minimum-key-length"
setEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyInt32 obj "minimum-key-length" val
constructEntryCompletionMinimumKeyLength :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionMinimumKeyLength val = constructObjectPropertyInt32 "minimum-key-length" val
#if ENABLE_OVERLOADING
data EntryCompletionMinimumKeyLengthPropertyInfo
instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where
type AttrAllowedOps EntryCompletionMinimumKeyLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionMinimumKeyLengthPropertyInfo = Int32
type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "minimum-key-length"
type AttrOrigin EntryCompletionMinimumKeyLengthPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionMinimumKeyLength
attrSet _ = setEntryCompletionMinimumKeyLength
attrConstruct _ = constructEntryCompletionMinimumKeyLength
attrClear _ = undefined
#endif
getEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" Gtk.TreeModel.TreeModel
setEntryCompletionModel :: (MonadIO m, IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val)
constructEntryCompletionModel :: (IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructEntryCompletionModel val = constructObjectPropertyObject "model" (Just val)
clearEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m ()
clearEntryCompletionModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if ENABLE_OVERLOADING
data EntryCompletionModelPropertyInfo
instance AttrInfo EntryCompletionModelPropertyInfo where
type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel EntryCompletionModelPropertyInfo = "model"
type AttrOrigin EntryCompletionModelPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionModel
attrSet _ = setEntryCompletionModel
attrConstruct _ = constructEntryCompletionModel
attrClear _ = clearEntryCompletionModel
#endif
getEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupCompletion obj = liftIO $ getObjectPropertyBool obj "popup-completion"
setEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupCompletion obj val = liftIO $ setObjectPropertyBool obj "popup-completion" val
constructEntryCompletionPopupCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupCompletion val = constructObjectPropertyBool "popup-completion" val
#if ENABLE_OVERLOADING
data EntryCompletionPopupCompletionPropertyInfo
instance AttrInfo EntryCompletionPopupCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionPopupCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupCompletionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "popup-completion"
type AttrOrigin EntryCompletionPopupCompletionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupCompletion
attrSet _ = setEntryCompletionPopupCompletion
attrConstruct _ = constructEntryCompletionPopupCompletion
attrClear _ = undefined
#endif
getEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSetWidth obj = liftIO $ getObjectPropertyBool obj "popup-set-width"
setEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSetWidth obj val = liftIO $ setObjectPropertyBool obj "popup-set-width" val
constructEntryCompletionPopupSetWidth :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSetWidth val = constructObjectPropertyBool "popup-set-width" val
#if ENABLE_OVERLOADING
data EntryCompletionPopupSetWidthPropertyInfo
instance AttrInfo EntryCompletionPopupSetWidthPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSetWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupSetWidthPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "popup-set-width"
type AttrOrigin EntryCompletionPopupSetWidthPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupSetWidth
attrSet _ = setEntryCompletionPopupSetWidth
attrConstruct _ = constructEntryCompletionPopupSetWidth
attrClear _ = undefined
#endif
getEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSingleMatch obj = liftIO $ getObjectPropertyBool obj "popup-single-match"
setEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSingleMatch obj val = liftIO $ setObjectPropertyBool obj "popup-single-match" val
constructEntryCompletionPopupSingleMatch :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSingleMatch val = constructObjectPropertyBool "popup-single-match" val
#if ENABLE_OVERLOADING
data EntryCompletionPopupSingleMatchPropertyInfo
instance AttrInfo EntryCompletionPopupSingleMatchPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSingleMatchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupSingleMatchPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "popup-single-match"
type AttrOrigin EntryCompletionPopupSingleMatchPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupSingleMatch
attrSet _ = setEntryCompletionPopupSingleMatch
attrConstruct _ = constructEntryCompletionPopupSingleMatch
attrClear _ = undefined
#endif
getEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column"
setEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val
constructEntryCompletionTextColumn :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionTextColumn val = constructObjectPropertyInt32 "text-column" val
#if ENABLE_OVERLOADING
data EntryCompletionTextColumnPropertyInfo
instance AttrInfo EntryCompletionTextColumnPropertyInfo where
type AttrAllowedOps EntryCompletionTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryCompletionTextColumnPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionTextColumnPropertyInfo = Int32
type AttrLabel EntryCompletionTextColumnPropertyInfo = "text-column"
type AttrOrigin EntryCompletionTextColumnPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionTextColumn
attrSet _ = setEntryCompletionTextColumn
attrConstruct _ = constructEntryCompletionTextColumn
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList EntryCompletion
type instance O.AttributeList EntryCompletion = EntryCompletionAttributeList
type EntryCompletionAttributeList = ('[ '("cellArea", EntryCompletionCellAreaPropertyInfo), '("inlineCompletion", EntryCompletionInlineCompletionPropertyInfo), '("inlineSelection", EntryCompletionInlineSelectionPropertyInfo), '("minimumKeyLength", EntryCompletionMinimumKeyLengthPropertyInfo), '("model", EntryCompletionModelPropertyInfo), '("popupCompletion", EntryCompletionPopupCompletionPropertyInfo), '("popupSetWidth", EntryCompletionPopupSetWidthPropertyInfo), '("popupSingleMatch", EntryCompletionPopupSingleMatchPropertyInfo), '("textColumn", EntryCompletionTextColumnPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
entryCompletionCellArea :: AttrLabelProxy "cellArea"
entryCompletionCellArea = AttrLabelProxy
entryCompletionInlineCompletion :: AttrLabelProxy "inlineCompletion"
entryCompletionInlineCompletion = AttrLabelProxy
entryCompletionInlineSelection :: AttrLabelProxy "inlineSelection"
entryCompletionInlineSelection = AttrLabelProxy
entryCompletionMinimumKeyLength :: AttrLabelProxy "minimumKeyLength"
entryCompletionMinimumKeyLength = AttrLabelProxy
entryCompletionModel :: AttrLabelProxy "model"
entryCompletionModel = AttrLabelProxy
entryCompletionPopupCompletion :: AttrLabelProxy "popupCompletion"
entryCompletionPopupCompletion = AttrLabelProxy
entryCompletionPopupSetWidth :: AttrLabelProxy "popupSetWidth"
entryCompletionPopupSetWidth = AttrLabelProxy
entryCompletionPopupSingleMatch :: AttrLabelProxy "popupSingleMatch"
entryCompletionPopupSingleMatch = AttrLabelProxy
entryCompletionTextColumn :: AttrLabelProxy "textColumn"
entryCompletionTextColumn = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
data EntryCompletionActionActivatedSignalInfo
instance SignalInfo EntryCompletionActionActivatedSignalInfo where
type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
cb'' <- mk_EntryCompletionActionActivatedCallback cb'
connectSignalFunPtr obj "action-activated" cb'' connectMode
data EntryCompletionCursorOnMatchSignalInfo
instance SignalInfo EntryCompletionCursorOnMatchSignalInfo where
type HaskellCallbackType EntryCompletionCursorOnMatchSignalInfo = EntryCompletionCursorOnMatchCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
cb'' <- mk_EntryCompletionCursorOnMatchCallback cb'
connectSignalFunPtr obj "cursor-on-match" cb'' connectMode
data EntryCompletionInsertPrefixSignalInfo
instance SignalInfo EntryCompletionInsertPrefixSignalInfo where
type HaskellCallbackType EntryCompletionInsertPrefixSignalInfo = EntryCompletionInsertPrefixCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
cb'' <- mk_EntryCompletionInsertPrefixCallback cb'
connectSignalFunPtr obj "insert-prefix" cb'' connectMode
data EntryCompletionMatchSelectedSignalInfo
instance SignalInfo EntryCompletionMatchSelectedSignalInfo where
type HaskellCallbackType EntryCompletionMatchSelectedSignalInfo = EntryCompletionMatchSelectedCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
cb'' <- mk_EntryCompletionMatchSelectedCallback cb'
connectSignalFunPtr obj "match-selected" cb'' connectMode
data EntryCompletionNoMatchesSignalInfo
instance SignalInfo EntryCompletionNoMatchesSignalInfo where
type HaskellCallbackType EntryCompletionNoMatchesSignalInfo = EntryCompletionNoMatchesCallback
connectSignal _ obj cb connectMode = do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
cb'' <- mk_EntryCompletionNoMatchesCallback cb'
connectSignalFunPtr obj "no-matches" cb'' connectMode
type instance O.SignalList EntryCompletion = EntryCompletionSignalList
type EntryCompletionSignalList = ('[ '("actionActivated", EntryCompletionActionActivatedSignalInfo), '("cursorOnMatch", EntryCompletionCursorOnMatchSignalInfo), '("insertPrefix", EntryCompletionInsertPrefixSignalInfo), '("matchSelected", EntryCompletionMatchSelectedSignalInfo), '("noMatches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_entry_completion_new" gtk_entry_completion_new ::
IO (Ptr EntryCompletion)
entryCompletionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m EntryCompletion
entryCompletionNew = liftIO $ do
result <- gtk_entry_completion_new
checkUnexpectedReturnNULL "entryCompletionNew" result
result' <- (wrapObject EntryCompletion) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_entry_completion_new_with_area" gtk_entry_completion_new_with_area ::
Ptr Gtk.CellArea.CellArea ->
IO (Ptr EntryCompletion)
entryCompletionNewWithArea ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellArea.IsCellArea a) =>
a
-> m EntryCompletion
entryCompletionNewWithArea area = liftIO $ do
area' <- unsafeManagedPtrCastPtr area
result <- gtk_entry_completion_new_with_area area'
checkUnexpectedReturnNULL "entryCompletionNewWithArea" result
result' <- (wrapObject EntryCompletion) result
touchManagedPtr area
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_entry_completion_complete" gtk_entry_completion_complete ::
Ptr EntryCompletion ->
IO ()
entryCompletionComplete ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m ()
entryCompletionComplete completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_entry_completion_complete completion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionCompleteMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionCompleteMethodInfo a signature where
overloadedMethod _ = entryCompletionComplete
#endif
foreign import ccall "gtk_entry_completion_compute_prefix" gtk_entry_completion_compute_prefix ::
Ptr EntryCompletion ->
CString ->
IO CString
entryCompletionComputePrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> T.Text
-> m (Maybe T.Text)
entryCompletionComputePrefix completion key = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
key' <- textToCString key
result <- gtk_entry_completion_compute_prefix completion' key'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
freeMem result'
return result''
touchManagedPtr completion
freeMem key'
return maybeResult
#if ENABLE_OVERLOADING
data EntryCompletionComputePrefixMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionComputePrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionComputePrefix
#endif
foreign import ccall "gtk_entry_completion_delete_action" gtk_entry_completion_delete_action ::
Ptr EntryCompletion ->
Int32 ->
IO ()
entryCompletionDeleteAction ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Int32
-> m ()
entryCompletionDeleteAction completion index_ = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_entry_completion_delete_action completion' index_
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionDeleteActionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionDeleteActionMethodInfo a signature where
overloadedMethod _ = entryCompletionDeleteAction
#endif
foreign import ccall "gtk_entry_completion_get_completion_prefix" gtk_entry_completion_get_completion_prefix ::
Ptr EntryCompletion ->
IO CString
entryCompletionGetCompletionPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m T.Text
entryCompletionGetCompletionPrefix completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_completion_prefix completion'
checkUnexpectedReturnNULL "entryCompletionGetCompletionPrefix" result
result' <- cstringToText result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetCompletionPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetCompletionPrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionGetCompletionPrefix
#endif
foreign import ccall "gtk_entry_completion_get_entry" gtk_entry_completion_get_entry ::
Ptr EntryCompletion ->
IO (Ptr Gtk.Widget.Widget)
entryCompletionGetEntry ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Gtk.Widget.Widget
entryCompletionGetEntry completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_entry completion'
checkUnexpectedReturnNULL "entryCompletionGetEntry" result
result' <- (newObject Gtk.Widget.Widget) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetEntryMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetEntryMethodInfo a signature where
overloadedMethod _ = entryCompletionGetEntry
#endif
foreign import ccall "gtk_entry_completion_get_inline_completion" gtk_entry_completion_get_inline_completion ::
Ptr EntryCompletion ->
IO CInt
entryCompletionGetInlineCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Bool
entryCompletionGetInlineCompletion completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_inline_completion completion'
let result' = (/= 0) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetInlineCompletionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetInlineCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetInlineCompletion
#endif
foreign import ccall "gtk_entry_completion_get_inline_selection" gtk_entry_completion_get_inline_selection ::
Ptr EntryCompletion ->
IO CInt
entryCompletionGetInlineSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Bool
entryCompletionGetInlineSelection completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_inline_selection completion'
let result' = (/= 0) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetInlineSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetInlineSelectionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetInlineSelection
#endif
foreign import ccall "gtk_entry_completion_get_minimum_key_length" gtk_entry_completion_get_minimum_key_length ::
Ptr EntryCompletion ->
IO Int32
entryCompletionGetMinimumKeyLength ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Int32
entryCompletionGetMinimumKeyLength completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_minimum_key_length completion'
touchManagedPtr completion
return result
#if ENABLE_OVERLOADING
data EntryCompletionGetMinimumKeyLengthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetMinimumKeyLengthMethodInfo a signature where
overloadedMethod _ = entryCompletionGetMinimumKeyLength
#endif
foreign import ccall "gtk_entry_completion_get_model" gtk_entry_completion_get_model ::
Ptr EntryCompletion ->
IO (Ptr Gtk.TreeModel.TreeModel)
entryCompletionGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m (Maybe Gtk.TreeModel.TreeModel)
entryCompletionGetModel completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_model completion'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Gtk.TreeModel.TreeModel) result'
return result''
touchManagedPtr completion
return maybeResult
#if ENABLE_OVERLOADING
data EntryCompletionGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetModelMethodInfo a signature where
overloadedMethod _ = entryCompletionGetModel
#endif
foreign import ccall "gtk_entry_completion_get_popup_completion" gtk_entry_completion_get_popup_completion ::
Ptr EntryCompletion ->
IO CInt
entryCompletionGetPopupCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Bool
entryCompletionGetPopupCompletion completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_popup_completion completion'
let result' = (/= 0) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetPopupCompletionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupCompletion
#endif
foreign import ccall "gtk_entry_completion_get_popup_set_width" gtk_entry_completion_get_popup_set_width ::
Ptr EntryCompletion ->
IO CInt
entryCompletionGetPopupSetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Bool
entryCompletionGetPopupSetWidth completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_popup_set_width completion'
let result' = (/= 0) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetPopupSetWidthMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupSetWidthMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupSetWidth
#endif
foreign import ccall "gtk_entry_completion_get_popup_single_match" gtk_entry_completion_get_popup_single_match ::
Ptr EntryCompletion ->
IO CInt
entryCompletionGetPopupSingleMatch ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Bool
entryCompletionGetPopupSingleMatch completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_popup_single_match completion'
let result' = (/= 0) result
touchManagedPtr completion
return result'
#if ENABLE_OVERLOADING
data EntryCompletionGetPopupSingleMatchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupSingleMatchMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupSingleMatch
#endif
foreign import ccall "gtk_entry_completion_get_text_column" gtk_entry_completion_get_text_column ::
Ptr EntryCompletion ->
IO Int32
entryCompletionGetTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m Int32
entryCompletionGetTextColumn completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
result <- gtk_entry_completion_get_text_column completion'
touchManagedPtr completion
return result
#if ENABLE_OVERLOADING
data EntryCompletionGetTextColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetTextColumnMethodInfo a signature where
overloadedMethod _ = entryCompletionGetTextColumn
#endif
foreign import ccall "gtk_entry_completion_insert_action_markup" gtk_entry_completion_insert_action_markup ::
Ptr EntryCompletion ->
Int32 ->
CString ->
IO ()
entryCompletionInsertActionMarkup ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Int32
-> T.Text
-> m ()
entryCompletionInsertActionMarkup completion index_ markup = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
markup' <- textToCString markup
gtk_entry_completion_insert_action_markup completion' index_ markup'
touchManagedPtr completion
freeMem markup'
return ()
#if ENABLE_OVERLOADING
data EntryCompletionInsertActionMarkupMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertActionMarkupMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertActionMarkup
#endif
foreign import ccall "gtk_entry_completion_insert_action_text" gtk_entry_completion_insert_action_text ::
Ptr EntryCompletion ->
Int32 ->
CString ->
IO ()
entryCompletionInsertActionText ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Int32
-> T.Text
-> m ()
entryCompletionInsertActionText completion index_ text = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
text' <- textToCString text
gtk_entry_completion_insert_action_text completion' index_ text'
touchManagedPtr completion
freeMem text'
return ()
#if ENABLE_OVERLOADING
data EntryCompletionInsertActionTextMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertActionTextMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertActionText
#endif
foreign import ccall "gtk_entry_completion_insert_prefix" gtk_entry_completion_insert_prefix ::
Ptr EntryCompletion ->
IO ()
entryCompletionInsertPrefix ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> m ()
entryCompletionInsertPrefix completion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_entry_completion_insert_prefix completion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionInsertPrefixMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertPrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertPrefix
#endif
foreign import ccall "gtk_entry_completion_set_inline_completion" gtk_entry_completion_set_inline_completion ::
Ptr EntryCompletion ->
CInt ->
IO ()
entryCompletionSetInlineCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Bool
-> m ()
entryCompletionSetInlineCompletion completion inlineCompletion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
let inlineCompletion' = (fromIntegral . fromEnum) inlineCompletion
gtk_entry_completion_set_inline_completion completion' inlineCompletion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetInlineCompletionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetInlineCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetInlineCompletion
#endif
foreign import ccall "gtk_entry_completion_set_inline_selection" gtk_entry_completion_set_inline_selection ::
Ptr EntryCompletion ->
CInt ->
IO ()
entryCompletionSetInlineSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Bool
-> m ()
entryCompletionSetInlineSelection completion inlineSelection = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
let inlineSelection' = (fromIntegral . fromEnum) inlineSelection
gtk_entry_completion_set_inline_selection completion' inlineSelection'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetInlineSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetInlineSelectionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetInlineSelection
#endif
foreign import ccall "gtk_entry_completion_set_match_func" gtk_entry_completion_set_match_func ::
Ptr EntryCompletion ->
FunPtr Gtk.Callbacks.C_EntryCompletionMatchFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
entryCompletionSetMatchFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Gtk.Callbacks.EntryCompletionMatchFunc
-> m ()
entryCompletionSetMatchFunc completion func = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
func' <- Gtk.Callbacks.mk_EntryCompletionMatchFunc (Gtk.Callbacks.wrap_EntryCompletionMatchFunc Nothing (Gtk.Callbacks.drop_closures_EntryCompletionMatchFunc func))
let funcData = castFunPtrToPtr func'
let funcNotify = safeFreeFunPtrPtr
gtk_entry_completion_set_match_func completion' func' funcData funcNotify
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetMatchFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.EntryCompletionMatchFunc -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetMatchFuncMethodInfo a signature where
overloadedMethod _ = entryCompletionSetMatchFunc
#endif
foreign import ccall "gtk_entry_completion_set_minimum_key_length" gtk_entry_completion_set_minimum_key_length ::
Ptr EntryCompletion ->
Int32 ->
IO ()
entryCompletionSetMinimumKeyLength ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Int32
-> m ()
entryCompletionSetMinimumKeyLength completion length_ = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_entry_completion_set_minimum_key_length completion' length_
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetMinimumKeyLengthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetMinimumKeyLengthMethodInfo a signature where
overloadedMethod _ = entryCompletionSetMinimumKeyLength
#endif
foreign import ccall "gtk_entry_completion_set_model" gtk_entry_completion_set_model ::
Ptr EntryCompletion ->
Ptr Gtk.TreeModel.TreeModel ->
IO ()
entryCompletionSetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a, Gtk.TreeModel.IsTreeModel b) =>
a
-> Maybe (b)
-> m ()
entryCompletionSetModel completion model = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
maybeModel <- case model of
Nothing -> return nullPtr
Just jModel -> do
jModel' <- unsafeManagedPtrCastPtr jModel
return jModel'
gtk_entry_completion_set_model completion' maybeModel
touchManagedPtr completion
whenJust model touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsEntryCompletion a, Gtk.TreeModel.IsTreeModel b) => O.MethodInfo EntryCompletionSetModelMethodInfo a signature where
overloadedMethod _ = entryCompletionSetModel
#endif
foreign import ccall "gtk_entry_completion_set_popup_completion" gtk_entry_completion_set_popup_completion ::
Ptr EntryCompletion ->
CInt ->
IO ()
entryCompletionSetPopupCompletion ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Bool
-> m ()
entryCompletionSetPopupCompletion completion popupCompletion = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
let popupCompletion' = (fromIntegral . fromEnum) popupCompletion
gtk_entry_completion_set_popup_completion completion' popupCompletion'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetPopupCompletionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupCompletion
#endif
foreign import ccall "gtk_entry_completion_set_popup_set_width" gtk_entry_completion_set_popup_set_width ::
Ptr EntryCompletion ->
CInt ->
IO ()
entryCompletionSetPopupSetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Bool
-> m ()
entryCompletionSetPopupSetWidth completion popupSetWidth = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
let popupSetWidth' = (fromIntegral . fromEnum) popupSetWidth
gtk_entry_completion_set_popup_set_width completion' popupSetWidth'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetPopupSetWidthMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupSetWidthMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupSetWidth
#endif
foreign import ccall "gtk_entry_completion_set_popup_single_match" gtk_entry_completion_set_popup_single_match ::
Ptr EntryCompletion ->
CInt ->
IO ()
entryCompletionSetPopupSingleMatch ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Bool
-> m ()
entryCompletionSetPopupSingleMatch completion popupSingleMatch = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
let popupSingleMatch' = (fromIntegral . fromEnum) popupSingleMatch
gtk_entry_completion_set_popup_single_match completion' popupSingleMatch'
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetPopupSingleMatchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupSingleMatchMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupSingleMatch
#endif
foreign import ccall "gtk_entry_completion_set_text_column" gtk_entry_completion_set_text_column ::
Ptr EntryCompletion ->
Int32 ->
IO ()
entryCompletionSetTextColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsEntryCompletion a) =>
a
-> Int32
-> m ()
entryCompletionSetTextColumn completion column = liftIO $ do
completion' <- unsafeManagedPtrCastPtr completion
gtk_entry_completion_set_text_column completion' column
touchManagedPtr completion
return ()
#if ENABLE_OVERLOADING
data EntryCompletionSetTextColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetTextColumnMethodInfo a signature where
overloadedMethod _ = entryCompletionSetTextColumn
#endif