{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.EntryCompletion
(
EntryCompletion(..) ,
IsEntryCompletion ,
toEntryCompletion ,
noEntryCompletion ,
#if defined(ENABLE_OVERLOADING)
ResolveEntryCompletionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EntryCompletionCompleteMethodInfo ,
#endif
entryCompletionComplete ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionComputePrefixMethodInfo ,
#endif
entryCompletionComputePrefix ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionDeleteActionMethodInfo ,
#endif
entryCompletionDeleteAction ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetCompletionPrefixMethodInfo,
#endif
entryCompletionGetCompletionPrefix ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetEntryMethodInfo ,
#endif
entryCompletionGetEntry ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetInlineCompletionMethodInfo,
#endif
entryCompletionGetInlineCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetInlineSelectionMethodInfo,
#endif
entryCompletionGetInlineSelection ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetMinimumKeyLengthMethodInfo,
#endif
entryCompletionGetMinimumKeyLength ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetModelMethodInfo ,
#endif
entryCompletionGetModel ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetPopupCompletionMethodInfo,
#endif
entryCompletionGetPopupCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetPopupSetWidthMethodInfo,
#endif
entryCompletionGetPopupSetWidth ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetPopupSingleMatchMethodInfo,
#endif
entryCompletionGetPopupSingleMatch ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionGetTextColumnMethodInfo ,
#endif
entryCompletionGetTextColumn ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInsertActionMarkupMethodInfo,
#endif
entryCompletionInsertActionMarkup ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInsertActionTextMethodInfo,
#endif
entryCompletionInsertActionText ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInsertPrefixMethodInfo ,
#endif
entryCompletionInsertPrefix ,
entryCompletionNew ,
entryCompletionNewWithArea ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetInlineCompletionMethodInfo,
#endif
entryCompletionSetInlineCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetInlineSelectionMethodInfo,
#endif
entryCompletionSetInlineSelection ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetMatchFuncMethodInfo ,
#endif
entryCompletionSetMatchFunc ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetMinimumKeyLengthMethodInfo,
#endif
entryCompletionSetMinimumKeyLength ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetModelMethodInfo ,
#endif
entryCompletionSetModel ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetPopupCompletionMethodInfo,
#endif
entryCompletionSetPopupCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetPopupSetWidthMethodInfo,
#endif
entryCompletionSetPopupSetWidth ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetPopupSingleMatchMethodInfo,
#endif
entryCompletionSetPopupSingleMatch ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionSetTextColumnMethodInfo ,
#endif
entryCompletionSetTextColumn ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionCellAreaPropertyInfo ,
#endif
constructEntryCompletionCellArea ,
#if defined(ENABLE_OVERLOADING)
entryCompletionCellArea ,
#endif
getEntryCompletionCellArea ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInlineCompletionPropertyInfo,
#endif
constructEntryCompletionInlineCompletion,
#if defined(ENABLE_OVERLOADING)
entryCompletionInlineCompletion ,
#endif
getEntryCompletionInlineCompletion ,
setEntryCompletionInlineCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInlineSelectionPropertyInfo,
#endif
constructEntryCompletionInlineSelection ,
#if defined(ENABLE_OVERLOADING)
entryCompletionInlineSelection ,
#endif
getEntryCompletionInlineSelection ,
setEntryCompletionInlineSelection ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionMinimumKeyLengthPropertyInfo,
#endif
constructEntryCompletionMinimumKeyLength,
#if defined(ENABLE_OVERLOADING)
entryCompletionMinimumKeyLength ,
#endif
getEntryCompletionMinimumKeyLength ,
setEntryCompletionMinimumKeyLength ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionModelPropertyInfo ,
#endif
clearEntryCompletionModel ,
constructEntryCompletionModel ,
#if defined(ENABLE_OVERLOADING)
entryCompletionModel ,
#endif
getEntryCompletionModel ,
setEntryCompletionModel ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionPopupCompletionPropertyInfo,
#endif
constructEntryCompletionPopupCompletion ,
#if defined(ENABLE_OVERLOADING)
entryCompletionPopupCompletion ,
#endif
getEntryCompletionPopupCompletion ,
setEntryCompletionPopupCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionPopupSetWidthPropertyInfo,
#endif
constructEntryCompletionPopupSetWidth ,
#if defined(ENABLE_OVERLOADING)
entryCompletionPopupSetWidth ,
#endif
getEntryCompletionPopupSetWidth ,
setEntryCompletionPopupSetWidth ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionPopupSingleMatchPropertyInfo,
#endif
constructEntryCompletionPopupSingleMatch,
#if defined(ENABLE_OVERLOADING)
entryCompletionPopupSingleMatch ,
#endif
getEntryCompletionPopupSingleMatch ,
setEntryCompletionPopupSingleMatch ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionTextColumnPropertyInfo ,
#endif
constructEntryCompletionTextColumn ,
#if defined(ENABLE_OVERLOADING)
entryCompletionTextColumn ,
#endif
getEntryCompletionTextColumn ,
setEntryCompletionTextColumn ,
C_EntryCompletionActionActivatedCallback,
EntryCompletionActionActivatedCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionActionActivatedSignalInfo,
#endif
afterEntryCompletionActionActivated ,
genClosure_EntryCompletionActionActivated,
mk_EntryCompletionActionActivatedCallback,
noEntryCompletionActionActivatedCallback,
onEntryCompletionActionActivated ,
wrap_EntryCompletionActionActivatedCallback,
C_EntryCompletionCursorOnMatchCallback ,
EntryCompletionCursorOnMatchCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionCursorOnMatchSignalInfo ,
#endif
afterEntryCompletionCursorOnMatch ,
genClosure_EntryCompletionCursorOnMatch ,
mk_EntryCompletionCursorOnMatchCallback ,
noEntryCompletionCursorOnMatchCallback ,
onEntryCompletionCursorOnMatch ,
wrap_EntryCompletionCursorOnMatchCallback,
C_EntryCompletionInsertPrefixCallback ,
EntryCompletionInsertPrefixCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionInsertPrefixSignalInfo ,
#endif
afterEntryCompletionInsertPrefix ,
genClosure_EntryCompletionInsertPrefix ,
mk_EntryCompletionInsertPrefixCallback ,
noEntryCompletionInsertPrefixCallback ,
onEntryCompletionInsertPrefix ,
wrap_EntryCompletionInsertPrefixCallback,
C_EntryCompletionMatchSelectedCallback ,
EntryCompletionMatchSelectedCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionMatchSelectedSignalInfo ,
#endif
afterEntryCompletionMatchSelected ,
genClosure_EntryCompletionMatchSelected ,
mk_EntryCompletionMatchSelectedCallback ,
noEntryCompletionMatchSelectedCallback ,
onEntryCompletionMatchSelected ,
wrap_EntryCompletionMatchSelectedCallback,
C_EntryCompletionNoMatchesCallback ,
EntryCompletionNoMatchesCallback ,
#if defined(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.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.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)
deriving (Eq)
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
instance B.GValue.IsGValue EntryCompletion where
toGValue o = do
gtype <- c_gtk_entry_completion_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr EntryCompletion)
B.ManagedPtr.newObject EntryCompletion ptr
class (GObject o, O.IsDescendantOf EntryCompletion o) => IsEntryCompletion o
instance (GObject o, O.IsDescendantOf EntryCompletion o) => IsEntryCompletion o
instance O.HasParentTypes EntryCompletion
type instance O.ParentTypes EntryCompletion = '[GObject.Object.Object, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout]
toEntryCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m EntryCompletion
toEntryCompletion = liftIO . unsafeCastTo EntryCompletion
noEntryCompletion :: Maybe EntryCompletion
noEntryCompletion = Nothing
#if defined(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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
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) => OL.IsLabel t (EntryCompletion -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#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 :: MonadIO m => EntryCompletionActionActivatedCallback -> m (GClosure C_EntryCompletionActionActivatedCallback)
genClosure_EntryCompletionActionActivated cb = liftIO $ do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
mk_EntryCompletionActionActivatedCallback cb' >>= B.GClosure.newGClosure
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 Nothing
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 Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCompletionActionActivatedSignalInfo
instance SignalInfo EntryCompletionActionActivatedSignalInfo where
type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
cb'' <- mk_EntryCompletionActionActivatedCallback cb'
connectSignalFunPtr obj "action-activated" cb'' connectMode detail
#endif
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 :: MonadIO m => EntryCompletionCursorOnMatchCallback -> m (GClosure C_EntryCompletionCursorOnMatchCallback)
genClosure_EntryCompletionCursorOnMatch cb = liftIO $ do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
mk_EntryCompletionCursorOnMatchCallback cb' >>= B.GClosure.newGClosure
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 Nothing
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 Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCompletionCursorOnMatchSignalInfo
instance SignalInfo EntryCompletionCursorOnMatchSignalInfo where
type HaskellCallbackType EntryCompletionCursorOnMatchSignalInfo = EntryCompletionCursorOnMatchCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
cb'' <- mk_EntryCompletionCursorOnMatchCallback cb'
connectSignalFunPtr obj "cursor-on-match" cb'' connectMode detail
#endif
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 :: MonadIO m => EntryCompletionInsertPrefixCallback -> m (GClosure C_EntryCompletionInsertPrefixCallback)
genClosure_EntryCompletionInsertPrefix cb = liftIO $ do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
mk_EntryCompletionInsertPrefixCallback cb' >>= B.GClosure.newGClosure
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 Nothing
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 Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCompletionInsertPrefixSignalInfo
instance SignalInfo EntryCompletionInsertPrefixSignalInfo where
type HaskellCallbackType EntryCompletionInsertPrefixSignalInfo = EntryCompletionInsertPrefixCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
cb'' <- mk_EntryCompletionInsertPrefixCallback cb'
connectSignalFunPtr obj "insert-prefix" cb'' connectMode detail
#endif
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 :: MonadIO m => EntryCompletionMatchSelectedCallback -> m (GClosure C_EntryCompletionMatchSelectedCallback)
genClosure_EntryCompletionMatchSelected cb = liftIO $ do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
mk_EntryCompletionMatchSelectedCallback cb' >>= B.GClosure.newGClosure
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 Nothing
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 Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCompletionMatchSelectedSignalInfo
instance SignalInfo EntryCompletionMatchSelectedSignalInfo where
type HaskellCallbackType EntryCompletionMatchSelectedSignalInfo = EntryCompletionMatchSelectedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
cb'' <- mk_EntryCompletionMatchSelectedCallback cb'
connectSignalFunPtr obj "match-selected" cb'' connectMode detail
#endif
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 :: MonadIO m => EntryCompletionNoMatchesCallback -> m (GClosure C_EntryCompletionNoMatchesCallback)
genClosure_EntryCompletionNoMatches cb = liftIO $ do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
mk_EntryCompletionNoMatchesCallback cb' >>= B.GClosure.newGClosure
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 Nothing
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 Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCompletionNoMatchesSignalInfo
instance SignalInfo EntryCompletionNoMatchesSignalInfo where
type HaskellCallbackType EntryCompletionNoMatchesSignalInfo = EntryCompletionNoMatchesCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
cb'' <- mk_EntryCompletionNoMatchesCallback cb'
connectSignalFunPtr obj "no-matches" cb'' connectMode detail
#endif
getEntryCompletionCellArea :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.CellArea.CellArea)
getEntryCompletionCellArea obj = liftIO $ B.Properties.getObjectPropertyObject obj "cell-area" Gtk.CellArea.CellArea
constructEntryCompletionCellArea :: (IsEntryCompletion o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructEntryCompletionCellArea val = B.Properties.constructObjectPropertyObject "cell-area" (Just val)
#if defined(ENABLE_OVERLOADING)
data EntryCompletionCellAreaPropertyInfo
instance AttrInfo EntryCompletionCellAreaPropertyInfo where
type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferTypeConstraint EntryCompletionCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferType EntryCompletionCellAreaPropertyInfo = Gtk.CellArea.CellArea
type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area"
type AttrOrigin EntryCompletionCellAreaPropertyInfo = EntryCompletion
attrGet = getEntryCompletionCellArea
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.CellArea.CellArea v
attrConstruct = constructEntryCompletionCellArea
attrClear = undefined
#endif
getEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineCompletion obj = liftIO $ B.Properties.getObjectPropertyBool obj "inline-completion"
setEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineCompletion obj val = liftIO $ B.Properties.setObjectPropertyBool obj "inline-completion" val
constructEntryCompletionInlineCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineCompletion val = B.Properties.constructObjectPropertyBool "inline-completion" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionInlineCompletionPropertyInfo
instance AttrInfo EntryCompletionInlineCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionInlineCompletionPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool
type AttrTransferType EntryCompletionInlineCompletionPropertyInfo = Bool
type AttrGetType EntryCompletionInlineCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "inline-completion"
type AttrOrigin EntryCompletionInlineCompletionPropertyInfo = EntryCompletion
attrGet = getEntryCompletionInlineCompletion
attrSet = setEntryCompletionInlineCompletion
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionInlineCompletion
attrClear = undefined
#endif
getEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineSelection obj = liftIO $ B.Properties.getObjectPropertyBool obj "inline-selection"
setEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineSelection obj val = liftIO $ B.Properties.setObjectPropertyBool obj "inline-selection" val
constructEntryCompletionInlineSelection :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineSelection val = B.Properties.constructObjectPropertyBool "inline-selection" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionInlineSelectionPropertyInfo
instance AttrInfo EntryCompletionInlineSelectionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionInlineSelectionPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool
type AttrTransferType EntryCompletionInlineSelectionPropertyInfo = Bool
type AttrGetType EntryCompletionInlineSelectionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "inline-selection"
type AttrOrigin EntryCompletionInlineSelectionPropertyInfo = EntryCompletion
attrGet = getEntryCompletionInlineSelection
attrSet = setEntryCompletionInlineSelection
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionInlineSelection
attrClear = undefined
#endif
getEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionMinimumKeyLength obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "minimum-key-length"
setEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionMinimumKeyLength obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "minimum-key-length" val
constructEntryCompletionMinimumKeyLength :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionMinimumKeyLength val = B.Properties.constructObjectPropertyInt32 "minimum-key-length" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionMinimumKeyLengthPropertyInfo
instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where
type AttrAllowedOps EntryCompletionMinimumKeyLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32
type AttrTransferType EntryCompletionMinimumKeyLengthPropertyInfo = Int32
type AttrGetType EntryCompletionMinimumKeyLengthPropertyInfo = Int32
type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "minimum-key-length"
type AttrOrigin EntryCompletionMinimumKeyLengthPropertyInfo = EntryCompletion
attrGet = getEntryCompletionMinimumKeyLength
attrSet = setEntryCompletionMinimumKeyLength
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionMinimumKeyLength
attrClear = undefined
#endif
getEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getEntryCompletionModel obj = liftIO $ B.Properties.getObjectPropertyObject obj "model" Gtk.TreeModel.TreeModel
setEntryCompletionModel :: (MonadIO m, IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setEntryCompletionModel obj val = liftIO $ B.Properties.setObjectPropertyObject obj "model" (Just val)
constructEntryCompletionModel :: (IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructEntryCompletionModel val = B.Properties.constructObjectPropertyObject "model" (Just val)
clearEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m ()
clearEntryCompletionModel obj = liftIO $ B.Properties.setObjectPropertyObject obj "model" (Nothing :: Maybe Gtk.TreeModel.TreeModel)
#if defined(ENABLE_OVERLOADING)
data EntryCompletionModelPropertyInfo
instance AttrInfo EntryCompletionModelPropertyInfo where
type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferTypeConstraint EntryCompletionModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrTransferType EntryCompletionModelPropertyInfo = Gtk.TreeModel.TreeModel
type AttrGetType EntryCompletionModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel EntryCompletionModelPropertyInfo = "model"
type AttrOrigin EntryCompletionModelPropertyInfo = EntryCompletion
attrGet = getEntryCompletionModel
attrSet = setEntryCompletionModel
attrTransfer _ v = do
unsafeCastTo Gtk.TreeModel.TreeModel v
attrConstruct = constructEntryCompletionModel
attrClear = clearEntryCompletionModel
#endif
getEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupCompletion obj = liftIO $ B.Properties.getObjectPropertyBool obj "popup-completion"
setEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupCompletion obj val = liftIO $ B.Properties.setObjectPropertyBool obj "popup-completion" val
constructEntryCompletionPopupCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupCompletion val = B.Properties.constructObjectPropertyBool "popup-completion" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionPopupCompletionPropertyInfo
instance AttrInfo EntryCompletionPopupCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionPopupCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionPopupCompletionPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool
type AttrTransferType EntryCompletionPopupCompletionPropertyInfo = Bool
type AttrGetType EntryCompletionPopupCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "popup-completion"
type AttrOrigin EntryCompletionPopupCompletionPropertyInfo = EntryCompletion
attrGet = getEntryCompletionPopupCompletion
attrSet = setEntryCompletionPopupCompletion
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionPopupCompletion
attrClear = undefined
#endif
getEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSetWidth obj = liftIO $ B.Properties.getObjectPropertyBool obj "popup-set-width"
setEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSetWidth obj val = liftIO $ B.Properties.setObjectPropertyBool obj "popup-set-width" val
constructEntryCompletionPopupSetWidth :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSetWidth val = B.Properties.constructObjectPropertyBool "popup-set-width" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionPopupSetWidthPropertyInfo
instance AttrInfo EntryCompletionPopupSetWidthPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSetWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool
type AttrTransferType EntryCompletionPopupSetWidthPropertyInfo = Bool
type AttrGetType EntryCompletionPopupSetWidthPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "popup-set-width"
type AttrOrigin EntryCompletionPopupSetWidthPropertyInfo = EntryCompletion
attrGet = getEntryCompletionPopupSetWidth
attrSet = setEntryCompletionPopupSetWidth
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionPopupSetWidth
attrClear = undefined
#endif
getEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSingleMatch obj = liftIO $ B.Properties.getObjectPropertyBool obj "popup-single-match"
setEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSingleMatch obj val = liftIO $ B.Properties.setObjectPropertyBool obj "popup-single-match" val
constructEntryCompletionPopupSingleMatch :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSingleMatch val = B.Properties.constructObjectPropertyBool "popup-single-match" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionPopupSingleMatchPropertyInfo
instance AttrInfo EntryCompletionPopupSingleMatchPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSingleMatchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool
type AttrTransferType EntryCompletionPopupSingleMatchPropertyInfo = Bool
type AttrGetType EntryCompletionPopupSingleMatchPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "popup-single-match"
type AttrOrigin EntryCompletionPopupSingleMatchPropertyInfo = EntryCompletion
attrGet = getEntryCompletionPopupSingleMatch
attrSet = setEntryCompletionPopupSingleMatch
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionPopupSingleMatch
attrClear = undefined
#endif
getEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionTextColumn obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "text-column"
setEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionTextColumn obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "text-column" val
constructEntryCompletionTextColumn :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionTextColumn val = B.Properties.constructObjectPropertyInt32 "text-column" val
#if defined(ENABLE_OVERLOADING)
data EntryCompletionTextColumnPropertyInfo
instance AttrInfo EntryCompletionTextColumnPropertyInfo where
type AttrAllowedOps EntryCompletionTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCompletionTextColumnPropertyInfo = IsEntryCompletion
type AttrSetTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32
type AttrTransferTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32
type AttrTransferType EntryCompletionTextColumnPropertyInfo = Int32
type AttrGetType EntryCompletionTextColumnPropertyInfo = Int32
type AttrLabel EntryCompletionTextColumnPropertyInfo = "text-column"
type AttrOrigin EntryCompletionTextColumnPropertyInfo = EntryCompletion
attrGet = getEntryCompletionTextColumn
attrSet = setEntryCompletionTextColumn
attrTransfer _ v = do
return v
attrConstruct = constructEntryCompletionTextColumn
attrClear = undefined
#endif
#if defined(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 defined(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 defined(ENABLE_OVERLOADING)
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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(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 defined(ENABLE_OVERLOADING)
data EntryCompletionSetTextColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetTextColumnMethodInfo a signature where
overloadedMethod = entryCompletionSetTextColumn
#endif