{-# LINE 2 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
module Graphics.UI.Gtk.Entry.EntryCompletion (
EntryCompletion,
EntryCompletionClass,
castToEntryCompletion, gTypeEntryCompletion,
toEntryCompletion,
entryCompletionNew,
entryCompletionGetEntry,
entryCompletionSetModel,
entryCompletionGetModel,
entryCompletionSetTextModel,
entryCompletionSetMatchFunc,
entryCompletionSetMinimumKeyLength,
entryCompletionGetMinimumKeyLength,
entryCompletionComplete,
entryCompletionInsertActionText,
entryCompletionInsertActionMarkup,
entryCompletionDeleteAction,
entryCompletionSetTextColumn,
entryCompletionInsertPrefix,
entryCompletionGetTextColumn,
entryCompletionSetInlineCompletion,
entryCompletionGetInlineCompletion,
entryCompletionSetPopupCompletion,
entryCompletionGetPopupCompletion,
entryCompletionSetPopupSetWidth,
entryCompletionGetPopupSetWidth,
entryCompletionSetPopupSingleMatch,
entryCompletionGetPopupSingleMatch,
entryCompletionModel,
entryCompletionMinimumKeyLength,
entryCompletionTextColumn,
entryCompletionInlineCompletion,
entryCompletionPopupCompletion,
entryCompletionPopupSetWidth,
entryCompletionPopupSingleMatch,
insertPrefix,
completionActionActivated,
matchSelected,
onInsertPrefix,
afterInsertPrefix,
onActionActivated,
afterActionActivated,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Attributes
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Types
{-# LINE 146 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
import Graphics.UI.Gtk.Signals
{-# LINE 147 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
import Graphics.UI.Gtk.ModelView.Types (TreeIter, peekTreeIter,
TypedTreeModelClass)
import Graphics.UI.Gtk.ModelView.CustomStore (customStoreSetColumn)
import Graphics.UI.Gtk.ModelView.TreeModel (ColumnId(..),
makeColumnIdString,
columnIdToNumber)
{-# LINE 155 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
entryCompletionNew :: IO EntryCompletion
entryCompletionNew :: IO EntryCompletion
entryCompletionNew =
(ForeignPtr EntryCompletion -> EntryCompletion,
FinalizerPtr EntryCompletion)
-> IO (Ptr EntryCompletion) -> IO EntryCompletion
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
wrapNewGObject (ForeignPtr EntryCompletion -> EntryCompletion,
FinalizerPtr EntryCompletion)
forall {a}.
(ForeignPtr EntryCompletion -> EntryCompletion, FinalizerPtr a)
mkEntryCompletion (IO (Ptr EntryCompletion) -> IO EntryCompletion)
-> IO (Ptr EntryCompletion) -> IO EntryCompletion
forall a b. (a -> b) -> a -> b
$
IO (Ptr EntryCompletion)
gtk_entry_completion_new
{-# LINE 166 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
entryCompletionGetEntry :: EntryCompletion
-> IO (Maybe Entry)
entryCompletionGetEntry :: EntryCompletion -> IO (Maybe Entry)
entryCompletionGetEntry EntryCompletion
self =
(IO (Ptr Entry) -> IO Entry) -> IO (Ptr Entry) -> IO (Maybe Entry)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr Entry -> Entry, FinalizerPtr Entry)
-> IO (Ptr Entry) -> IO Entry
forall obj.
ObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Entry -> Entry, FinalizerPtr Entry)
forall {a}. (ForeignPtr Entry -> Entry, FinalizerPtr a)
mkEntry) (IO (Ptr Entry) -> IO (Maybe Entry))
-> IO (Ptr Entry) -> IO (Maybe Entry)
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Entry) -> IO (Ptr Widget) -> IO (Ptr Entry)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Entry
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Entry) (IO (Ptr Widget) -> IO (Ptr Entry))
-> IO (Ptr Widget) -> IO (Ptr Entry)
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr EntryCompletion -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO (Ptr Widget)
gtk_entry_completion_get_entry Ptr EntryCompletion
argPtr1)
{-# LINE 178 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetModel :: TreeModelClass model => EntryCompletion
-> Maybe model
-> IO ()
entryCompletionSetModel :: forall model.
TreeModelClass model =>
EntryCompletion -> Maybe model -> IO ()
entryCompletionSetModel EntryCompletion
self Maybe model
model =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) (TreeModel ForeignPtr TreeModel
arg2) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->ForeignPtr TreeModel -> (Ptr TreeModel -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr TreeModel
arg2 ((Ptr TreeModel -> IO ()) -> IO ())
-> (Ptr TreeModel -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr TreeModel
argPtr2 ->Ptr EntryCompletion -> Ptr TreeModel -> IO ()
gtk_entry_completion_set_model Ptr EntryCompletion
argPtr1 Ptr TreeModel
argPtr2)
{-# LINE 189 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(TreeModel -> (model -> TreeModel) -> Maybe model -> TreeModel
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (ForeignPtr TreeModel -> TreeModel
TreeModel ForeignPtr TreeModel
forall a. ForeignPtr a
nullForeignPtr) model -> TreeModel
forall o. TreeModelClass o => o -> TreeModel
toTreeModel Maybe model
model)
entryCompletionGetModel :: EntryCompletion
-> IO (Maybe TreeModel)
entryCompletionGetModel :: EntryCompletion -> IO (Maybe TreeModel)
entryCompletionGetModel EntryCompletion
self =
(IO (Ptr TreeModel) -> IO TreeModel)
-> IO (Ptr TreeModel) -> IO (Maybe TreeModel)
forall a. (IO (Ptr a) -> IO a) -> IO (Ptr a) -> IO (Maybe a)
maybeNull ((ForeignPtr TreeModel -> TreeModel, FinalizerPtr TreeModel)
-> IO (Ptr TreeModel) -> IO TreeModel
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr TreeModel -> TreeModel, FinalizerPtr TreeModel)
forall {a}. (ForeignPtr TreeModel -> TreeModel, FinalizerPtr a)
mkTreeModel) (IO (Ptr TreeModel) -> IO (Maybe TreeModel))
-> IO (Ptr TreeModel) -> IO (Maybe TreeModel)
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO (Ptr TreeModel))
-> IO (Ptr TreeModel)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO (Ptr TreeModel)) -> IO (Ptr TreeModel))
-> (Ptr EntryCompletion -> IO (Ptr TreeModel))
-> IO (Ptr TreeModel)
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO (Ptr TreeModel)
gtk_entry_completion_get_model Ptr EntryCompletion
argPtr1)
{-# LINE 201 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetTextModel :: (TreeModelClass (model string),
TypedTreeModelClass model, GlibString string)
=> EntryCompletion
-> model string
-> IO ()
entryCompletionSetTextModel :: forall (model :: * -> *) string.
(TreeModelClass (model string), TypedTreeModelClass model,
GlibString string) =>
EntryCompletion -> model string -> IO ()
entryCompletionSetTextModel EntryCompletion
self model string
model = do
let strCol :: ColumnId row string
strCol = Int -> ColumnId row string
forall string row. GlibString string => Int -> ColumnId row string
makeColumnIdString Int
0
model string
-> ColumnId string string -> (string -> string) -> IO ()
forall (model :: * -> *) row ty.
TypedTreeModelClass model =>
model row -> ColumnId row ty -> (row -> ty) -> IO ()
customStoreSetColumn model string
model ColumnId string string
forall {row}. ColumnId row string
strCol string -> string
forall a. a -> a
id
EntryCompletion -> [AttrOp EntryCompletion] -> IO ()
forall o. o -> [AttrOp o] -> IO ()
set EntryCompletion
self [Attr EntryCompletion (ColumnId Any string)
forall string row.
GlibString string =>
Attr EntryCompletion (ColumnId row string)
entryCompletionTextColumn Attr EntryCompletion (ColumnId Any string)
-> ColumnId Any string -> AttrOp EntryCompletion
forall o a b. ReadWriteAttr o a b -> b -> AttrOp o
:= ColumnId Any string
forall {row}. ColumnId row string
strCol]
entryCompletionSetMatchFunc :: GlibString string
=> EntryCompletion -> (string -> TreeIter -> IO Bool) -> IO ()
entryCompletionSetMatchFunc :: forall string.
GlibString string =>
EntryCompletion -> (string -> TreeIter -> IO Bool) -> IO ()
entryCompletionSetMatchFunc EntryCompletion
ec string -> TreeIter -> IO Bool
handler = do
FunPtr GtkEntryCompletionMatchFunc
hPtr <- GtkEntryCompletionMatchFunc
-> IO (FunPtr GtkEntryCompletionMatchFunc)
mkHandler_GtkEntryCompletionMatchFunc
(\Ptr EntryCompletion
_ Ptr CChar
keyPtr Ptr TreeIter
iterPtr Ptr ()
_ -> do string
key <- Ptr CChar -> IO string
forall s. GlibString s => Ptr CChar -> IO s
peekUTFString Ptr CChar
keyPtr
TreeIter
iter <- Ptr TreeIter -> IO TreeIter
forall a. Storable a => Ptr a -> IO a
peek Ptr TreeIter
iterPtr
(Bool -> CInt) -> IO Bool -> IO CInt
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM Bool -> CInt
forall a. Num a => Bool -> a
fromBool (IO Bool -> IO CInt) -> IO Bool -> IO CInt
forall a b. (a -> b) -> a -> b
$ string -> TreeIter -> IO Bool
handler string
key TreeIter
iter)
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) FunPtr GtkEntryCompletionMatchFunc
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion
-> FunPtr GtkEntryCompletionMatchFunc
-> Ptr ()
-> FunPtr (Ptr () -> IO ())
-> IO ()
gtk_entry_completion_set_match_func Ptr EntryCompletion
argPtr1 FunPtr GtkEntryCompletionMatchFunc
arg2 Ptr ()
arg3 FunPtr (Ptr () -> IO ())
arg4) EntryCompletion
ec
(FunPtr GtkEntryCompletionMatchFunc
-> FunPtr GtkEntryCompletionMatchFunc
forall a b. FunPtr a -> FunPtr b
castFunPtr FunPtr GtkEntryCompletionMatchFunc
hPtr) (FunPtr GtkEntryCompletionMatchFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr GtkEntryCompletionMatchFunc
hPtr) FunPtr (Ptr () -> IO ())
destroyFunPtr
type GtkEntryCompletionMatchFunc =
Ptr EntryCompletion ->
Ptr CChar ->
Ptr TreeIter ->
Ptr () ->
IO (CInt)
{-# LINE 251 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
foreign import ccall "wrapper" mkHandler_GtkEntryCompletionMatchFunc ::
GtkEntryCompletionMatchFunc ->
IO (FunPtr GtkEntryCompletionMatchFunc)
entryCompletionSetMinimumKeyLength :: EntryCompletion
-> Int
-> IO ()
entryCompletionSetMinimumKeyLength :: EntryCompletion -> Int -> IO ()
entryCompletionSetMinimumKeyLength EntryCompletion
self Int
length =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_minimum_key_length Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 267 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
length)
entryCompletionGetMinimumKeyLength :: EntryCompletion
-> IO Int
entryCompletionGetMinimumKeyLength :: EntryCompletion -> IO Int
entryCompletionGetMinimumKeyLength EntryCompletion
self =
(CInt -> Int) -> IO CInt -> IO Int
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral (IO CInt -> IO Int) -> IO CInt -> IO Int
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_minimum_key_length Ptr EntryCompletion
argPtr1)
{-# LINE 277 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionComplete :: EntryCompletion -> IO ()
entryCompletionComplete :: EntryCompletion -> IO ()
entryCompletionComplete EntryCompletion
self =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO ()
gtk_entry_completion_complete Ptr EntryCompletion
argPtr1)
{-# LINE 286 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionInsertActionText :: GlibString string => EntryCompletion
-> Int
-> string
-> IO ()
entryCompletionInsertActionText :: forall string.
GlibString string =>
EntryCompletion -> Int -> string -> IO ()
entryCompletionInsertActionText EntryCompletion
self Int
index string
text =
string -> (Ptr CChar -> IO ()) -> IO ()
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
text ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
textPtr ->
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 Ptr CChar
arg3 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> Ptr CChar -> IO ()
gtk_entry_completion_insert_action_text Ptr EntryCompletion
argPtr1 CInt
arg2 Ptr CChar
arg3)
{-# LINE 299 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
Ptr CChar
textPtr
entryCompletionInsertActionMarkup :: GlibString string => EntryCompletion
-> Int
-> string
-> IO ()
entryCompletionInsertActionMarkup :: forall string.
GlibString string =>
EntryCompletion -> Int -> string -> IO ()
entryCompletionInsertActionMarkup EntryCompletion
self Int
index string
markup =
string -> (Ptr CChar -> IO ()) -> IO ()
forall a. string -> (Ptr CChar -> IO a) -> IO a
forall s a. GlibString s => s -> (Ptr CChar -> IO a) -> IO a
withUTFString string
markup ((Ptr CChar -> IO ()) -> IO ()) -> (Ptr CChar -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
markupPtr ->
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 Ptr CChar
arg3 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> Ptr CChar -> IO ()
gtk_entry_completion_insert_action_markup Ptr EntryCompletion
argPtr1 CInt
arg2 Ptr CChar
arg3)
{-# LINE 313 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
Ptr CChar
markupPtr
entryCompletionDeleteAction :: EntryCompletion
-> Int
-> IO ()
entryCompletionDeleteAction :: EntryCompletion -> Int -> IO ()
entryCompletionDeleteAction EntryCompletion
self Int
index =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_delete_action Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 324 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
index)
entryCompletionSetTextColumn :: GlibString string => EntryCompletion
-> ColumnId row string
-> IO ()
entryCompletionSetTextColumn :: forall string row.
GlibString string =>
EntryCompletion -> ColumnId row string -> IO ()
entryCompletionSetTextColumn EntryCompletion
self ColumnId row string
column =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_text_column Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 341 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
((Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt)
-> (ColumnId row string -> Int) -> ColumnId row string -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ColumnId row string -> Int
forall row ty. ColumnId row ty -> Int
columnIdToNumber) ColumnId row string
column)
entryCompletionInsertPrefix :: EntryCompletion -> IO ()
entryCompletionInsertPrefix :: EntryCompletion -> IO ()
entryCompletionInsertPrefix EntryCompletion
self =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO ()
gtk_entry_completion_insert_prefix Ptr EntryCompletion
argPtr1)
{-# LINE 352 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionGetTextColumn :: GlibString string => EntryCompletion
-> IO (ColumnId row string)
entryCompletionGetTextColumn :: forall string row.
GlibString string =>
EntryCompletion -> IO (ColumnId row string)
entryCompletionGetTextColumn EntryCompletion
self =
(CInt -> ColumnId row string)
-> IO CInt -> IO (ColumnId row string)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Int -> ColumnId row string
forall string row. GlibString string => Int -> ColumnId row string
makeColumnIdString (Int -> ColumnId row string)
-> (CInt -> Int) -> CInt -> ColumnId row string
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) (IO CInt -> IO (ColumnId row string))
-> IO CInt -> IO (ColumnId row string)
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_text_column Ptr EntryCompletion
argPtr1)
{-# LINE 363 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetInlineCompletion :: EntryCompletion
-> Bool
-> IO ()
entryCompletionSetInlineCompletion :: EntryCompletion -> Bool -> IO ()
entryCompletionSetInlineCompletion EntryCompletion
self Bool
inlineCompletion =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_inline_completion Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 375 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
inlineCompletion)
entryCompletionGetInlineCompletion :: EntryCompletion
-> IO Bool
entryCompletionGetInlineCompletion :: EntryCompletion -> IO Bool
entryCompletionGetInlineCompletion EntryCompletion
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_inline_completion Ptr EntryCompletion
argPtr1)
{-# LINE 388 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetPopupCompletion :: EntryCompletion
-> Bool
-> IO ()
EntryCompletion
self Bool
popupCompletion =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_popup_completion Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 399 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
popupCompletion)
entryCompletionGetPopupCompletion :: EntryCompletion
-> IO Bool
EntryCompletion
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_popup_completion Ptr EntryCompletion
argPtr1)
{-# LINE 411 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetPopupSetWidth :: EntryCompletion
-> Bool
-> IO ()
EntryCompletion
self Bool
popupSetWidth =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_popup_set_width Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 426 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
popupSetWidth)
entryCompletionGetPopupSetWidth :: EntryCompletion
-> IO Bool
EntryCompletion
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_popup_set_width Ptr EntryCompletion
argPtr1)
{-# LINE 440 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionSetPopupSingleMatch :: EntryCompletion
-> Bool
-> IO ()
EntryCompletion
self Bool
popupSingleMatch =
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) CInt
arg2 -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO ()) -> IO ())
-> (Ptr EntryCompletion -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> CInt -> IO ()
gtk_entry_completion_set_popup_single_match Ptr EntryCompletion
argPtr1 CInt
arg2)
{-# LINE 454 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
(Bool -> CInt
forall a. Num a => Bool -> a
fromBool Bool
popupSingleMatch)
entryCompletionGetPopupSingleMatch :: EntryCompletion
-> IO Bool
EntryCompletion
self =
(CInt -> Bool) -> IO CInt -> IO Bool
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM CInt -> Bool
forall a. (Eq a, Num a) => a -> Bool
toBool (IO CInt -> IO Bool) -> IO CInt -> IO Bool
forall a b. (a -> b) -> a -> b
$
(\(EntryCompletion ForeignPtr EntryCompletion
arg1) -> ForeignPtr EntryCompletion
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr EntryCompletion
arg1 ((Ptr EntryCompletion -> IO CInt) -> IO CInt)
-> (Ptr EntryCompletion -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ \Ptr EntryCompletion
argPtr1 ->Ptr EntryCompletion -> IO CInt
gtk_entry_completion_get_popup_single_match Ptr EntryCompletion
argPtr1)
{-# LINE 468 "./Graphics/UI/Gtk/Entry/EntryCompletion.chs" #-}
self
entryCompletionModel :: TreeModelClass model => ReadWriteAttr EntryCompletion (Maybe TreeModel) (Maybe model)
entryCompletionModel :: forall model.
TreeModelClass model =>
ReadWriteAttr EntryCompletion (Maybe TreeModel) (Maybe model)
entryCompletionModel = (EntryCompletion -> IO (Maybe TreeModel))
-> (EntryCompletion -> Maybe model -> IO ())
-> ReadWriteAttr EntryCompletion (Maybe TreeModel) (Maybe model)
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO (Maybe TreeModel)
entryCompletionGetModel
EntryCompletion -> Maybe model -> IO ()
forall model.
TreeModelClass model =>
EntryCompletion -> Maybe model -> IO ()
entryCompletionSetModel
entryCompletionMinimumKeyLength :: Attr EntryCompletion Int
entryCompletionMinimumKeyLength :: Attr EntryCompletion Int
entryCompletionMinimumKeyLength = (EntryCompletion -> IO Int)
-> (EntryCompletion -> Int -> IO ()) -> Attr EntryCompletion Int
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO Int
entryCompletionGetMinimumKeyLength
EntryCompletion -> Int -> IO ()
entryCompletionSetMinimumKeyLength
entryCompletionTextColumn :: GlibString string => Attr EntryCompletion (ColumnId row string)
entryCompletionTextColumn :: forall string row.
GlibString string =>
Attr EntryCompletion (ColumnId row string)
entryCompletionTextColumn = (EntryCompletion -> IO (ColumnId row string))
-> (EntryCompletion -> ColumnId row string -> IO ())
-> ReadWriteAttr
EntryCompletion (ColumnId row string) (ColumnId row string)
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO (ColumnId row string)
forall string row.
GlibString string =>
EntryCompletion -> IO (ColumnId row string)
entryCompletionGetTextColumn
EntryCompletion -> ColumnId row string -> IO ()
forall string row.
GlibString string =>
EntryCompletion -> ColumnId row string -> IO ()
entryCompletionSetTextColumn
entryCompletionInlineCompletion :: Attr EntryCompletion Bool
entryCompletionInlineCompletion :: Attr EntryCompletion Bool
entryCompletionInlineCompletion = (EntryCompletion -> IO Bool)
-> (EntryCompletion -> Bool -> IO ()) -> Attr EntryCompletion Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO Bool
entryCompletionGetInlineCompletion
EntryCompletion -> Bool -> IO ()
entryCompletionSetInlineCompletion
entryCompletionPopupCompletion :: Attr EntryCompletion Bool
= (EntryCompletion -> IO Bool)
-> (EntryCompletion -> Bool -> IO ()) -> Attr EntryCompletion Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO Bool
entryCompletionGetPopupCompletion
EntryCompletion -> Bool -> IO ()
entryCompletionSetPopupCompletion
entryCompletionPopupSetWidth :: Attr EntryCompletion Bool
= (EntryCompletion -> IO Bool)
-> (EntryCompletion -> Bool -> IO ()) -> Attr EntryCompletion Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO Bool
entryCompletionGetPopupSetWidth
EntryCompletion -> Bool -> IO ()
entryCompletionSetPopupSetWidth
entryCompletionPopupSingleMatch :: Attr EntryCompletion Bool
= (EntryCompletion -> IO Bool)
-> (EntryCompletion -> Bool -> IO ()) -> Attr EntryCompletion Bool
forall o a b.
(o -> IO a) -> (o -> b -> IO ()) -> ReadWriteAttr o a b
newAttr
EntryCompletion -> IO Bool
entryCompletionGetPopupSingleMatch
EntryCompletion -> Bool -> IO ()
entryCompletionSetPopupSingleMatch
insertPrefix :: (EntryCompletionClass self, GlibString string) => Signal self (string -> IO Bool)
insertPrefix :: forall self string.
(EntryCompletionClass self, GlibString string) =>
Signal self (string -> IO Bool)
insertPrefix = (Bool -> self -> (string -> IO Bool) -> IO (ConnectId self))
-> Signal self (string -> IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (SignalName
-> Bool -> self -> (string -> IO Bool) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
SignalName -> Bool -> obj -> (a' -> IO Bool) -> IO (ConnectId obj)
connect_GLIBSTRING__BOOL SignalName
"insert-prefix")
matchSelected :: EntryCompletionClass self => Signal self (TreeModel -> TreeIter -> IO Bool)
matchSelected :: forall self.
EntryCompletionClass self =>
Signal self (TreeModel -> TreeIter -> IO Bool)
matchSelected = (Bool
-> self
-> (TreeModel -> TreeIter -> IO Bool)
-> IO (ConnectId self))
-> Signal self (TreeModel -> TreeIter -> IO Bool)
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (SignalName
-> (Ptr TreeIter -> IO TreeIter)
-> Bool
-> self
-> (TreeModel -> TreeIter -> IO Bool)
-> IO (ConnectId self)
forall a' obj b' b.
(GObjectClass a', GObjectClass obj) =>
SignalName
-> (Ptr b' -> IO b)
-> Bool
-> obj
-> (a' -> b -> IO Bool)
-> IO (ConnectId obj)
connect_OBJECT_BOXED__BOOL SignalName
"match-selected" Ptr TreeIter -> IO TreeIter
peekTreeIter)
completionActionActivated :: EntryCompletionClass self => Signal self (Int -> IO ())
completionActionActivated :: forall self.
EntryCompletionClass self =>
Signal self (Int -> IO ())
completionActionActivated = (Bool -> self -> (Int -> IO ()) -> IO (ConnectId self))
-> Signal self (Int -> IO ())
forall object handler.
(Bool -> object -> handler -> IO (ConnectId object))
-> Signal object handler
Signal (SignalName -> Bool -> self -> (Int -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> (Int -> IO ()) -> IO (ConnectId obj)
connect_INT__NONE SignalName
"action-activated")
onInsertPrefix, afterInsertPrefix :: (EntryCompletionClass self, GlibString string) => self
-> (string -> IO Bool)
-> IO (ConnectId self)
onInsertPrefix :: forall self string.
(EntryCompletionClass self, GlibString string) =>
self -> (string -> IO Bool) -> IO (ConnectId self)
onInsertPrefix = SignalName
-> Bool -> self -> (string -> IO Bool) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
SignalName -> Bool -> obj -> (a' -> IO Bool) -> IO (ConnectId obj)
connect_GLIBSTRING__BOOL SignalName
"insert_prefix" Bool
False
afterInsertPrefix :: forall self string.
(EntryCompletionClass self, GlibString string) =>
self -> (string -> IO Bool) -> IO (ConnectId self)
afterInsertPrefix = SignalName
-> Bool -> self -> (string -> IO Bool) -> IO (ConnectId self)
forall a' obj.
(GlibString a', GObjectClass obj) =>
SignalName -> Bool -> obj -> (a' -> IO Bool) -> IO (ConnectId obj)
connect_GLIBSTRING__BOOL SignalName
"insert_prefix" Bool
True
onActionActivated, afterActionActivated :: EntryCompletionClass self => self
-> (Int -> IO ())
-> IO (ConnectId self)
onActionActivated :: forall self.
EntryCompletionClass self =>
self -> (Int -> IO ()) -> IO (ConnectId self)
onActionActivated = SignalName -> Bool -> self -> (Int -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> (Int -> IO ()) -> IO (ConnectId obj)
connect_INT__NONE SignalName
"action_activated" Bool
False
afterActionActivated :: forall self.
EntryCompletionClass self =>
self -> (Int -> IO ()) -> IO (ConnectId self)
afterActionActivated = SignalName -> Bool -> self -> (Int -> IO ()) -> IO (ConnectId self)
forall obj.
GObjectClass obj =>
SignalName -> Bool -> obj -> (Int -> IO ()) -> IO (ConnectId obj)
connect_INT__NONE SignalName
"action_activated" Bool
True
foreign import ccall safe "gtk_entry_completion_new"
gtk_entry_completion_new :: (IO (Ptr EntryCompletion))
foreign import ccall safe "gtk_entry_completion_get_entry"
gtk_entry_completion_get_entry :: ((Ptr EntryCompletion) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_entry_completion_set_model"
gtk_entry_completion_set_model :: ((Ptr EntryCompletion) -> ((Ptr TreeModel) -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_model"
gtk_entry_completion_get_model :: ((Ptr EntryCompletion) -> (IO (Ptr TreeModel)))
foreign import ccall safe "gtk_entry_completion_set_match_func"
gtk_entry_completion_set_match_func :: ((Ptr EntryCompletion) -> ((FunPtr ((Ptr EntryCompletion) -> ((Ptr CChar) -> ((Ptr TreeIter) -> ((Ptr ()) -> (IO CInt)))))) -> ((Ptr ()) -> ((FunPtr ((Ptr ()) -> (IO ()))) -> (IO ())))))
foreign import ccall safe "gtk_entry_completion_set_minimum_key_length"
gtk_entry_completion_set_minimum_key_length :: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_minimum_key_length"
gtk_entry_completion_get_minimum_key_length :: ((Ptr EntryCompletion) -> (IO CInt))
foreign import ccall safe "gtk_entry_completion_complete"
gtk_entry_completion_complete :: ((Ptr EntryCompletion) -> (IO ()))
foreign import ccall safe "gtk_entry_completion_insert_action_text"
gtk_entry_completion_insert_action_text :: ((Ptr EntryCompletion) -> (CInt -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "gtk_entry_completion_insert_action_markup"
gtk_entry_completion_insert_action_markup :: ((Ptr EntryCompletion) -> (CInt -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "gtk_entry_completion_delete_action"
gtk_entry_completion_delete_action :: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_set_text_column"
gtk_entry_completion_set_text_column :: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_insert_prefix"
gtk_entry_completion_insert_prefix :: ((Ptr EntryCompletion) -> (IO ()))
foreign import ccall safe "gtk_entry_completion_get_text_column"
gtk_entry_completion_get_text_column :: ((Ptr EntryCompletion) -> (IO CInt))
foreign import ccall safe "gtk_entry_completion_set_inline_completion"
gtk_entry_completion_set_inline_completion :: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_inline_completion"
gtk_entry_completion_get_inline_completion :: ((Ptr EntryCompletion) -> (IO CInt))
foreign import ccall safe "gtk_entry_completion_set_popup_completion"
:: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_popup_completion"
:: ((Ptr EntryCompletion) -> (IO CInt))
foreign import ccall safe "gtk_entry_completion_set_popup_set_width"
:: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_popup_set_width"
:: ((Ptr EntryCompletion) -> (IO CInt))
foreign import ccall safe "gtk_entry_completion_set_popup_single_match"
:: ((Ptr EntryCompletion) -> (CInt -> (IO ())))
foreign import ccall safe "gtk_entry_completion_get_popup_single_match"
:: ((Ptr EntryCompletion) -> (IO CInt))