module GI.Gtk.Objects.EntryCompletion
(
EntryCompletion(..) ,
IsEntryCompletion ,
toEntryCompletion ,
noEntryCompletion ,
EntryCompletionCompleteMethodInfo ,
entryCompletionComplete ,
EntryCompletionComputePrefixMethodInfo ,
entryCompletionComputePrefix ,
EntryCompletionDeleteActionMethodInfo ,
entryCompletionDeleteAction ,
EntryCompletionGetCompletionPrefixMethodInfo,
entryCompletionGetCompletionPrefix ,
EntryCompletionGetEntryMethodInfo ,
entryCompletionGetEntry ,
EntryCompletionGetInlineCompletionMethodInfo,
entryCompletionGetInlineCompletion ,
EntryCompletionGetInlineSelectionMethodInfo,
entryCompletionGetInlineSelection ,
EntryCompletionGetMinimumKeyLengthMethodInfo,
entryCompletionGetMinimumKeyLength ,
EntryCompletionGetModelMethodInfo ,
entryCompletionGetModel ,
EntryCompletionGetPopupCompletionMethodInfo,
entryCompletionGetPopupCompletion ,
EntryCompletionGetPopupSetWidthMethodInfo,
entryCompletionGetPopupSetWidth ,
EntryCompletionGetPopupSingleMatchMethodInfo,
entryCompletionGetPopupSingleMatch ,
EntryCompletionGetTextColumnMethodInfo ,
entryCompletionGetTextColumn ,
EntryCompletionInsertActionMarkupMethodInfo,
entryCompletionInsertActionMarkup ,
EntryCompletionInsertActionTextMethodInfo,
entryCompletionInsertActionText ,
EntryCompletionInsertPrefixMethodInfo ,
entryCompletionInsertPrefix ,
entryCompletionNew ,
entryCompletionNewWithArea ,
EntryCompletionSetInlineCompletionMethodInfo,
entryCompletionSetInlineCompletion ,
EntryCompletionSetInlineSelectionMethodInfo,
entryCompletionSetInlineSelection ,
EntryCompletionSetMatchFuncMethodInfo ,
entryCompletionSetMatchFunc ,
EntryCompletionSetMinimumKeyLengthMethodInfo,
entryCompletionSetMinimumKeyLength ,
EntryCompletionSetModelMethodInfo ,
entryCompletionSetModel ,
EntryCompletionSetPopupCompletionMethodInfo,
entryCompletionSetPopupCompletion ,
EntryCompletionSetPopupSetWidthMethodInfo,
entryCompletionSetPopupSetWidth ,
EntryCompletionSetPopupSingleMatchMethodInfo,
entryCompletionSetPopupSingleMatch ,
EntryCompletionSetTextColumnMethodInfo ,
entryCompletionSetTextColumn ,
EntryCompletionCellAreaPropertyInfo ,
constructEntryCompletionCellArea ,
entryCompletionCellArea ,
getEntryCompletionCellArea ,
EntryCompletionInlineCompletionPropertyInfo,
constructEntryCompletionInlineCompletion,
entryCompletionInlineCompletion ,
getEntryCompletionInlineCompletion ,
setEntryCompletionInlineCompletion ,
EntryCompletionInlineSelectionPropertyInfo,
constructEntryCompletionInlineSelection ,
entryCompletionInlineSelection ,
getEntryCompletionInlineSelection ,
setEntryCompletionInlineSelection ,
EntryCompletionMinimumKeyLengthPropertyInfo,
constructEntryCompletionMinimumKeyLength,
entryCompletionMinimumKeyLength ,
getEntryCompletionMinimumKeyLength ,
setEntryCompletionMinimumKeyLength ,
EntryCompletionModelPropertyInfo ,
clearEntryCompletionModel ,
constructEntryCompletionModel ,
entryCompletionModel ,
getEntryCompletionModel ,
setEntryCompletionModel ,
EntryCompletionPopupCompletionPropertyInfo,
constructEntryCompletionPopupCompletion ,
entryCompletionPopupCompletion ,
getEntryCompletionPopupCompletion ,
setEntryCompletionPopupCompletion ,
EntryCompletionPopupSetWidthPropertyInfo,
constructEntryCompletionPopupSetWidth ,
entryCompletionPopupSetWidth ,
getEntryCompletionPopupSetWidth ,
setEntryCompletionPopupSetWidth ,
EntryCompletionPopupSingleMatchPropertyInfo,
constructEntryCompletionPopupSingleMatch,
entryCompletionPopupSingleMatch ,
getEntryCompletionPopupSingleMatch ,
setEntryCompletionPopupSingleMatch ,
EntryCompletionTextColumnPropertyInfo ,
constructEntryCompletionTextColumn ,
entryCompletionTextColumn ,
getEntryCompletionTextColumn ,
setEntryCompletionTextColumn ,
C_EntryCompletionActionActivatedCallback,
EntryCompletionActionActivatedCallback ,
EntryCompletionActionActivatedSignalInfo,
afterEntryCompletionActionActivated ,
genClosure_EntryCompletionActionActivated,
mk_EntryCompletionActionActivatedCallback,
noEntryCompletionActionActivatedCallback,
onEntryCompletionActionActivated ,
wrap_EntryCompletionActionActivatedCallback,
C_EntryCompletionCursorOnMatchCallback ,
EntryCompletionCursorOnMatchCallback ,
EntryCompletionCursorOnMatchSignalInfo ,
afterEntryCompletionCursorOnMatch ,
genClosure_EntryCompletionCursorOnMatch ,
mk_EntryCompletionCursorOnMatchCallback ,
noEntryCompletionCursorOnMatchCallback ,
onEntryCompletionCursorOnMatch ,
wrap_EntryCompletionCursorOnMatchCallback,
C_EntryCompletionInsertPrefixCallback ,
EntryCompletionInsertPrefixCallback ,
EntryCompletionInsertPrefixSignalInfo ,
afterEntryCompletionInsertPrefix ,
genClosure_EntryCompletionInsertPrefix ,
mk_EntryCompletionInsertPrefixCallback ,
noEntryCompletionInsertPrefixCallback ,
onEntryCompletionInsertPrefix ,
wrap_EntryCompletionInsertPrefixCallback,
C_EntryCompletionMatchSelectedCallback ,
EntryCompletionMatchSelectedCallback ,
EntryCompletionMatchSelectedSignalInfo ,
afterEntryCompletionMatchSelected ,
genClosure_EntryCompletionMatchSelected ,
mk_EntryCompletionMatchSelectedCallback ,
noEntryCompletionMatchSelectedCallback ,
onEntryCompletionMatchSelected ,
wrap_EntryCompletionMatchSelectedCallback,
C_EntryCompletionNoMatchesCallback ,
EntryCompletionNoMatchesCallback ,
EntryCompletionNoMatchesSignalInfo ,
afterEntryCompletionNoMatches ,
genClosure_EntryCompletionNoMatches ,
mk_EntryCompletionNoMatchesCallback ,
noEntryCompletionNoMatchesCallback ,
onEntryCompletionNoMatches ,
wrap_EntryCompletionNoMatchesCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype EntryCompletion = EntryCompletion (ManagedPtr EntryCompletion)
foreign import ccall "gtk_entry_completion_get_type"
c_gtk_entry_completion_get_type :: IO GType
instance GObject EntryCompletion where
gobjectType _ = c_gtk_entry_completion_get_type
class GObject o => IsEntryCompletion o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError EntryCompletion a) =>
IsEntryCompletion a
#endif
instance IsEntryCompletion EntryCompletion
instance GObject.Object.IsObject EntryCompletion
instance Gtk.Buildable.IsBuildable EntryCompletion
instance Gtk.CellLayout.IsCellLayout EntryCompletion
toEntryCompletion :: IsEntryCompletion o => o -> IO EntryCompletion
toEntryCompletion = unsafeCastTo EntryCompletion
noEntryCompletion :: Maybe EntryCompletion
noEntryCompletion = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveEntryCompletionMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveEntryCompletionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEntryCompletionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEntryCompletionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEntryCompletionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEntryCompletionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEntryCompletionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEntryCompletionMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveEntryCompletionMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveEntryCompletionMethod "getCompletionPrefix" o = EntryCompletionGetCompletionPrefixMethodInfo
ResolveEntryCompletionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEntryCompletionMethod "getEntry" o = EntryCompletionGetEntryMethodInfo
ResolveEntryCompletionMethod "getInlineCompletion" o = EntryCompletionGetInlineCompletionMethodInfo
ResolveEntryCompletionMethod "getInlineSelection" o = EntryCompletionGetInlineSelectionMethodInfo
ResolveEntryCompletionMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveEntryCompletionMethod "getMinimumKeyLength" o = EntryCompletionGetMinimumKeyLengthMethodInfo
ResolveEntryCompletionMethod "getModel" o = EntryCompletionGetModelMethodInfo
ResolveEntryCompletionMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveEntryCompletionMethod "getPopupCompletion" o = EntryCompletionGetPopupCompletionMethodInfo
ResolveEntryCompletionMethod "getPopupSetWidth" o = EntryCompletionGetPopupSetWidthMethodInfo
ResolveEntryCompletionMethod "getPopupSingleMatch" o = EntryCompletionGetPopupSingleMatchMethodInfo
ResolveEntryCompletionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEntryCompletionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEntryCompletionMethod "getTextColumn" o = EntryCompletionGetTextColumnMethodInfo
ResolveEntryCompletionMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveEntryCompletionMethod "setCellDataFunc" o = Gtk.CellLayout.CellLayoutSetCellDataFuncMethodInfo
ResolveEntryCompletionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEntryCompletionMethod "setInlineCompletion" o = EntryCompletionSetInlineCompletionMethodInfo
ResolveEntryCompletionMethod "setInlineSelection" o = EntryCompletionSetInlineSelectionMethodInfo
ResolveEntryCompletionMethod "setMatchFunc" o = EntryCompletionSetMatchFuncMethodInfo
ResolveEntryCompletionMethod "setMinimumKeyLength" o = EntryCompletionSetMinimumKeyLengthMethodInfo
ResolveEntryCompletionMethod "setModel" o = EntryCompletionSetModelMethodInfo
ResolveEntryCompletionMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveEntryCompletionMethod "setPopupCompletion" o = EntryCompletionSetPopupCompletionMethodInfo
ResolveEntryCompletionMethod "setPopupSetWidth" o = EntryCompletionSetPopupSetWidthMethodInfo
ResolveEntryCompletionMethod "setPopupSingleMatch" o = EntryCompletionSetPopupSingleMatchMethodInfo
ResolveEntryCompletionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEntryCompletionMethod "setTextColumn" o = EntryCompletionSetTextColumnMethodInfo
ResolveEntryCompletionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, O.MethodInfo info EntryCompletion p) => O.IsLabelProxy t (EntryCompletion -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveEntryCompletionMethod t EntryCompletion, O.MethodInfo info EntryCompletion p) => O.IsLabel t (EntryCompletion -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type EntryCompletionActionActivatedCallback =
Int32 ->
IO ()
noEntryCompletionActionActivatedCallback :: Maybe EntryCompletionActionActivatedCallback
noEntryCompletionActionActivatedCallback = Nothing
type C_EntryCompletionActionActivatedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCompletionActionActivatedCallback :: C_EntryCompletionActionActivatedCallback -> IO (FunPtr C_EntryCompletionActionActivatedCallback)
genClosure_EntryCompletionActionActivated :: EntryCompletionActionActivatedCallback -> IO Closure
genClosure_EntryCompletionActionActivated cb = do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
mk_EntryCompletionActionActivatedCallback cb' >>= newCClosure
wrap_EntryCompletionActionActivatedCallback ::
EntryCompletionActionActivatedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
wrap_EntryCompletionActionActivatedCallback _cb _ index _ = do
_cb index
onEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
onEntryCompletionActionActivated obj cb = liftIO $ connectEntryCompletionActionActivated obj cb SignalConnectBefore
afterEntryCompletionActionActivated :: (GObject a, MonadIO m) => a -> EntryCompletionActionActivatedCallback -> m SignalHandlerId
afterEntryCompletionActionActivated obj cb = connectEntryCompletionActionActivated obj cb SignalConnectAfter
connectEntryCompletionActionActivated :: (GObject a, MonadIO m) =>
a -> EntryCompletionActionActivatedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionActionActivated obj cb after = liftIO $ do
let cb' = wrap_EntryCompletionActionActivatedCallback cb
cb'' <- mk_EntryCompletionActionActivatedCallback cb'
connectSignalFunPtr obj "action-activated" cb'' after
type EntryCompletionCursorOnMatchCallback =
Gtk.TreeModel.TreeModel ->
Gtk.TreeIter.TreeIter ->
IO Bool
noEntryCompletionCursorOnMatchCallback :: Maybe EntryCompletionCursorOnMatchCallback
noEntryCompletionCursorOnMatchCallback = Nothing
type C_EntryCompletionCursorOnMatchCallback =
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionCursorOnMatchCallback :: C_EntryCompletionCursorOnMatchCallback -> IO (FunPtr C_EntryCompletionCursorOnMatchCallback)
genClosure_EntryCompletionCursorOnMatch :: EntryCompletionCursorOnMatchCallback -> IO Closure
genClosure_EntryCompletionCursorOnMatch cb = do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
mk_EntryCompletionCursorOnMatchCallback cb' >>= newCClosure
wrap_EntryCompletionCursorOnMatchCallback ::
EntryCompletionCursorOnMatchCallback ->
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
wrap_EntryCompletionCursorOnMatchCallback _cb _ model iter _ = do
model' <- (newObject Gtk.TreeModel.TreeModel) model
iter' <- (newBoxed Gtk.TreeIter.TreeIter) iter
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
onEntryCompletionCursorOnMatch obj cb = liftIO $ connectEntryCompletionCursorOnMatch obj cb SignalConnectBefore
afterEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) => a -> EntryCompletionCursorOnMatchCallback -> m SignalHandlerId
afterEntryCompletionCursorOnMatch obj cb = connectEntryCompletionCursorOnMatch obj cb SignalConnectAfter
connectEntryCompletionCursorOnMatch :: (GObject a, MonadIO m) =>
a -> EntryCompletionCursorOnMatchCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionCursorOnMatch obj cb after = liftIO $ do
let cb' = wrap_EntryCompletionCursorOnMatchCallback cb
cb'' <- mk_EntryCompletionCursorOnMatchCallback cb'
connectSignalFunPtr obj "cursor-on-match" cb'' after
type EntryCompletionInsertPrefixCallback =
T.Text ->
IO Bool
noEntryCompletionInsertPrefixCallback :: Maybe EntryCompletionInsertPrefixCallback
noEntryCompletionInsertPrefixCallback = Nothing
type C_EntryCompletionInsertPrefixCallback =
Ptr () ->
CString ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionInsertPrefixCallback :: C_EntryCompletionInsertPrefixCallback -> IO (FunPtr C_EntryCompletionInsertPrefixCallback)
genClosure_EntryCompletionInsertPrefix :: EntryCompletionInsertPrefixCallback -> IO Closure
genClosure_EntryCompletionInsertPrefix cb = do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
mk_EntryCompletionInsertPrefixCallback cb' >>= newCClosure
wrap_EntryCompletionInsertPrefixCallback ::
EntryCompletionInsertPrefixCallback ->
Ptr () ->
CString ->
Ptr () ->
IO CInt
wrap_EntryCompletionInsertPrefixCallback _cb _ prefix _ = do
prefix' <- cstringToText prefix
result <- _cb prefix'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
onEntryCompletionInsertPrefix obj cb = liftIO $ connectEntryCompletionInsertPrefix obj cb SignalConnectBefore
afterEntryCompletionInsertPrefix :: (GObject a, MonadIO m) => a -> EntryCompletionInsertPrefixCallback -> m SignalHandlerId
afterEntryCompletionInsertPrefix obj cb = connectEntryCompletionInsertPrefix obj cb SignalConnectAfter
connectEntryCompletionInsertPrefix :: (GObject a, MonadIO m) =>
a -> EntryCompletionInsertPrefixCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionInsertPrefix obj cb after = liftIO $ do
let cb' = wrap_EntryCompletionInsertPrefixCallback cb
cb'' <- mk_EntryCompletionInsertPrefixCallback cb'
connectSignalFunPtr obj "insert-prefix" cb'' after
type EntryCompletionMatchSelectedCallback =
Gtk.TreeModel.TreeModel ->
Gtk.TreeIter.TreeIter ->
IO Bool
noEntryCompletionMatchSelectedCallback :: Maybe EntryCompletionMatchSelectedCallback
noEntryCompletionMatchSelectedCallback = Nothing
type C_EntryCompletionMatchSelectedCallback =
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_EntryCompletionMatchSelectedCallback :: C_EntryCompletionMatchSelectedCallback -> IO (FunPtr C_EntryCompletionMatchSelectedCallback)
genClosure_EntryCompletionMatchSelected :: EntryCompletionMatchSelectedCallback -> IO Closure
genClosure_EntryCompletionMatchSelected cb = do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
mk_EntryCompletionMatchSelectedCallback cb' >>= newCClosure
wrap_EntryCompletionMatchSelectedCallback ::
EntryCompletionMatchSelectedCallback ->
Ptr () ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr () ->
IO CInt
wrap_EntryCompletionMatchSelectedCallback _cb _ model iter _ = do
model' <- (newObject Gtk.TreeModel.TreeModel) model
iter' <- (newBoxed Gtk.TreeIter.TreeIter) iter
result <- _cb model' iter'
let result' = (fromIntegral . fromEnum) result
return result'
onEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
onEntryCompletionMatchSelected obj cb = liftIO $ connectEntryCompletionMatchSelected obj cb SignalConnectBefore
afterEntryCompletionMatchSelected :: (GObject a, MonadIO m) => a -> EntryCompletionMatchSelectedCallback -> m SignalHandlerId
afterEntryCompletionMatchSelected obj cb = connectEntryCompletionMatchSelected obj cb SignalConnectAfter
connectEntryCompletionMatchSelected :: (GObject a, MonadIO m) =>
a -> EntryCompletionMatchSelectedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionMatchSelected obj cb after = liftIO $ do
let cb' = wrap_EntryCompletionMatchSelectedCallback cb
cb'' <- mk_EntryCompletionMatchSelectedCallback cb'
connectSignalFunPtr obj "match-selected" cb'' after
type EntryCompletionNoMatchesCallback =
IO ()
noEntryCompletionNoMatchesCallback :: Maybe EntryCompletionNoMatchesCallback
noEntryCompletionNoMatchesCallback = Nothing
type C_EntryCompletionNoMatchesCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCompletionNoMatchesCallback :: C_EntryCompletionNoMatchesCallback -> IO (FunPtr C_EntryCompletionNoMatchesCallback)
genClosure_EntryCompletionNoMatches :: EntryCompletionNoMatchesCallback -> IO Closure
genClosure_EntryCompletionNoMatches cb = do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
mk_EntryCompletionNoMatchesCallback cb' >>= newCClosure
wrap_EntryCompletionNoMatchesCallback ::
EntryCompletionNoMatchesCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_EntryCompletionNoMatchesCallback _cb _ _ = do
_cb
onEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
onEntryCompletionNoMatches obj cb = liftIO $ connectEntryCompletionNoMatches obj cb SignalConnectBefore
afterEntryCompletionNoMatches :: (GObject a, MonadIO m) => a -> EntryCompletionNoMatchesCallback -> m SignalHandlerId
afterEntryCompletionNoMatches obj cb = connectEntryCompletionNoMatches obj cb SignalConnectAfter
connectEntryCompletionNoMatches :: (GObject a, MonadIO m) =>
a -> EntryCompletionNoMatchesCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCompletionNoMatches obj cb after = liftIO $ do
let cb' = wrap_EntryCompletionNoMatchesCallback cb
cb'' <- mk_EntryCompletionNoMatchesCallback cb'
connectSignalFunPtr obj "no-matches" cb'' after
getEntryCompletionCellArea :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.CellArea.CellArea)
getEntryCompletionCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" Gtk.CellArea.CellArea
constructEntryCompletionCellArea :: (IsEntryCompletion o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructEntryCompletionCellArea val = constructObjectPropertyObject "cell-area" (Just val)
data EntryCompletionCellAreaPropertyInfo
instance AttrInfo EntryCompletionCellAreaPropertyInfo where
type AttrAllowedOps EntryCompletionCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EntryCompletionCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrBaseTypeConstraint EntryCompletionCellAreaPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel EntryCompletionCellAreaPropertyInfo = "cell-area"
type AttrOrigin EntryCompletionCellAreaPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionCellArea
attrSet _ = undefined
attrConstruct _ = constructEntryCompletionCellArea
attrClear _ = undefined
getEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineCompletion obj = liftIO $ getObjectPropertyBool obj "inline-completion"
setEntryCompletionInlineCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineCompletion obj val = liftIO $ setObjectPropertyBool obj "inline-completion" val
constructEntryCompletionInlineCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineCompletion val = constructObjectPropertyBool "inline-completion" val
data EntryCompletionInlineCompletionPropertyInfo
instance AttrInfo EntryCompletionInlineCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionInlineCompletionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionInlineCompletionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionInlineCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineCompletionPropertyInfo = "inline-completion"
type AttrOrigin EntryCompletionInlineCompletionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionInlineCompletion
attrSet _ = setEntryCompletionInlineCompletion
attrConstruct _ = constructEntryCompletionInlineCompletion
attrClear _ = undefined
getEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionInlineSelection obj = liftIO $ getObjectPropertyBool obj "inline-selection"
setEntryCompletionInlineSelection :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionInlineSelection obj val = liftIO $ setObjectPropertyBool obj "inline-selection" val
constructEntryCompletionInlineSelection :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionInlineSelection val = constructObjectPropertyBool "inline-selection" val
data EntryCompletionInlineSelectionPropertyInfo
instance AttrInfo EntryCompletionInlineSelectionPropertyInfo where
type AttrAllowedOps EntryCompletionInlineSelectionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionInlineSelectionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionInlineSelectionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionInlineSelectionPropertyInfo = Bool
type AttrLabel EntryCompletionInlineSelectionPropertyInfo = "inline-selection"
type AttrOrigin EntryCompletionInlineSelectionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionInlineSelection
attrSet _ = setEntryCompletionInlineSelection
attrConstruct _ = constructEntryCompletionInlineSelection
attrClear _ = undefined
getEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionMinimumKeyLength obj = liftIO $ getObjectPropertyInt32 obj "minimum-key-length"
setEntryCompletionMinimumKeyLength :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionMinimumKeyLength obj val = liftIO $ setObjectPropertyInt32 obj "minimum-key-length" val
constructEntryCompletionMinimumKeyLength :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionMinimumKeyLength val = constructObjectPropertyInt32 "minimum-key-length" val
data EntryCompletionMinimumKeyLengthPropertyInfo
instance AttrInfo EntryCompletionMinimumKeyLengthPropertyInfo where
type AttrAllowedOps EntryCompletionMinimumKeyLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryCompletionMinimumKeyLengthPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionMinimumKeyLengthPropertyInfo = Int32
type AttrLabel EntryCompletionMinimumKeyLengthPropertyInfo = "minimum-key-length"
type AttrOrigin EntryCompletionMinimumKeyLengthPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionMinimumKeyLength
attrSet _ = setEntryCompletionMinimumKeyLength
attrConstruct _ = constructEntryCompletionMinimumKeyLength
attrClear _ = undefined
getEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getEntryCompletionModel obj = liftIO $ getObjectPropertyObject obj "model" Gtk.TreeModel.TreeModel
setEntryCompletionModel :: (MonadIO m, IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => o -> a -> m ()
setEntryCompletionModel obj val = liftIO $ setObjectPropertyObject obj "model" (Just val)
constructEntryCompletionModel :: (IsEntryCompletion o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructEntryCompletionModel val = constructObjectPropertyObject "model" (Just val)
clearEntryCompletionModel :: (MonadIO m, IsEntryCompletion o) => o -> m ()
clearEntryCompletionModel obj = liftIO $ setObjectPropertyObject obj "model" (Nothing :: Maybe Gtk.TreeModel.TreeModel)
data EntryCompletionModelPropertyInfo
instance AttrInfo EntryCompletionModelPropertyInfo where
type AttrAllowedOps EntryCompletionModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint EntryCompletionModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrBaseTypeConstraint EntryCompletionModelPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel EntryCompletionModelPropertyInfo = "model"
type AttrOrigin EntryCompletionModelPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionModel
attrSet _ = setEntryCompletionModel
attrConstruct _ = constructEntryCompletionModel
attrClear _ = clearEntryCompletionModel
getEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupCompletion obj = liftIO $ getObjectPropertyBool obj "popup-completion"
setEntryCompletionPopupCompletion :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupCompletion obj val = liftIO $ setObjectPropertyBool obj "popup-completion" val
constructEntryCompletionPopupCompletion :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupCompletion val = constructObjectPropertyBool "popup-completion" val
data EntryCompletionPopupCompletionPropertyInfo
instance AttrInfo EntryCompletionPopupCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionPopupCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupCompletionPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupCompletionPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupCompletionPropertyInfo = Bool
type AttrLabel EntryCompletionPopupCompletionPropertyInfo = "popup-completion"
type AttrOrigin EntryCompletionPopupCompletionPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupCompletion
attrSet _ = setEntryCompletionPopupCompletion
attrConstruct _ = constructEntryCompletionPopupCompletion
attrClear _ = undefined
getEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSetWidth obj = liftIO $ getObjectPropertyBool obj "popup-set-width"
setEntryCompletionPopupSetWidth :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSetWidth obj val = liftIO $ setObjectPropertyBool obj "popup-set-width" val
constructEntryCompletionPopupSetWidth :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSetWidth val = constructObjectPropertyBool "popup-set-width" val
data EntryCompletionPopupSetWidthPropertyInfo
instance AttrInfo EntryCompletionPopupSetWidthPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSetWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupSetWidthPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupSetWidthPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSetWidthPropertyInfo = "popup-set-width"
type AttrOrigin EntryCompletionPopupSetWidthPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupSetWidth
attrSet _ = setEntryCompletionPopupSetWidth
attrConstruct _ = constructEntryCompletionPopupSetWidth
attrClear _ = undefined
getEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> m Bool
getEntryCompletionPopupSingleMatch obj = liftIO $ getObjectPropertyBool obj "popup-single-match"
setEntryCompletionPopupSingleMatch :: (MonadIO m, IsEntryCompletion o) => o -> Bool -> m ()
setEntryCompletionPopupSingleMatch obj val = liftIO $ setObjectPropertyBool obj "popup-single-match" val
constructEntryCompletionPopupSingleMatch :: (IsEntryCompletion o) => Bool -> IO (GValueConstruct o)
constructEntryCompletionPopupSingleMatch val = constructObjectPropertyBool "popup-single-match" val
data EntryCompletionPopupSingleMatchPropertyInfo
instance AttrInfo EntryCompletionPopupSingleMatchPropertyInfo where
type AttrAllowedOps EntryCompletionPopupSingleMatchPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCompletionPopupSingleMatchPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionPopupSingleMatchPropertyInfo = Bool
type AttrLabel EntryCompletionPopupSingleMatchPropertyInfo = "popup-single-match"
type AttrOrigin EntryCompletionPopupSingleMatchPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionPopupSingleMatch
attrSet _ = setEntryCompletionPopupSingleMatch
attrConstruct _ = constructEntryCompletionPopupSingleMatch
attrClear _ = undefined
getEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> m Int32
getEntryCompletionTextColumn obj = liftIO $ getObjectPropertyInt32 obj "text-column"
setEntryCompletionTextColumn :: (MonadIO m, IsEntryCompletion o) => o -> Int32 -> m ()
setEntryCompletionTextColumn obj val = liftIO $ setObjectPropertyInt32 obj "text-column" val
constructEntryCompletionTextColumn :: (IsEntryCompletion o) => Int32 -> IO (GValueConstruct o)
constructEntryCompletionTextColumn val = constructObjectPropertyInt32 "text-column" val
data EntryCompletionTextColumnPropertyInfo
instance AttrInfo EntryCompletionTextColumnPropertyInfo where
type AttrAllowedOps EntryCompletionTextColumnPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionTextColumnPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryCompletionTextColumnPropertyInfo = IsEntryCompletion
type AttrGetType EntryCompletionTextColumnPropertyInfo = Int32
type AttrLabel EntryCompletionTextColumnPropertyInfo = "text-column"
type AttrOrigin EntryCompletionTextColumnPropertyInfo = EntryCompletion
attrGet _ = getEntryCompletionTextColumn
attrSet _ = setEntryCompletionTextColumn
attrConstruct _ = constructEntryCompletionTextColumn
attrClear _ = undefined
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, *)])
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
data EntryCompletionActionActivatedSignalInfo
instance SignalInfo EntryCompletionActionActivatedSignalInfo where
type HaskellCallbackType EntryCompletionActionActivatedSignalInfo = EntryCompletionActionActivatedCallback
connectSignal _ = connectEntryCompletionActionActivated
data EntryCompletionCursorOnMatchSignalInfo
instance SignalInfo EntryCompletionCursorOnMatchSignalInfo where
type HaskellCallbackType EntryCompletionCursorOnMatchSignalInfo = EntryCompletionCursorOnMatchCallback
connectSignal _ = connectEntryCompletionCursorOnMatch
data EntryCompletionInsertPrefixSignalInfo
instance SignalInfo EntryCompletionInsertPrefixSignalInfo where
type HaskellCallbackType EntryCompletionInsertPrefixSignalInfo = EntryCompletionInsertPrefixCallback
connectSignal _ = connectEntryCompletionInsertPrefix
data EntryCompletionMatchSelectedSignalInfo
instance SignalInfo EntryCompletionMatchSelectedSignalInfo where
type HaskellCallbackType EntryCompletionMatchSelectedSignalInfo = EntryCompletionMatchSelectedCallback
connectSignal _ = connectEntryCompletionMatchSelected
data EntryCompletionNoMatchesSignalInfo
instance SignalInfo EntryCompletionNoMatchesSignalInfo where
type HaskellCallbackType EntryCompletionNoMatchesSignalInfo = EntryCompletionNoMatchesCallback
connectSignal _ = connectEntryCompletionNoMatches
type instance O.SignalList EntryCompletion = EntryCompletionSignalList
type EntryCompletionSignalList = ('[ '("actionActivated", EntryCompletionActionActivatedSignalInfo), '("cursorOnMatch", EntryCompletionCursorOnMatchSignalInfo), '("insertPrefix", EntryCompletionInsertPrefixSignalInfo), '("matchSelected", EntryCompletionMatchSelectedSignalInfo), '("noMatches", EntryCompletionNoMatchesSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
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'
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'
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 ()
data EntryCompletionCompleteMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionCompleteMethodInfo a signature where
overloadedMethod _ = entryCompletionComplete
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
data EntryCompletionComputePrefixMethodInfo
instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionComputePrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionComputePrefix
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 ()
data EntryCompletionDeleteActionMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionDeleteActionMethodInfo a signature where
overloadedMethod _ = entryCompletionDeleteAction
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'
data EntryCompletionGetCompletionPrefixMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetCompletionPrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionGetCompletionPrefix
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'
data EntryCompletionGetEntryMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetEntryMethodInfo a signature where
overloadedMethod _ = entryCompletionGetEntry
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'
data EntryCompletionGetInlineCompletionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetInlineCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetInlineCompletion
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'
data EntryCompletionGetInlineSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetInlineSelectionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetInlineSelection
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
data EntryCompletionGetMinimumKeyLengthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetMinimumKeyLengthMethodInfo a signature where
overloadedMethod _ = entryCompletionGetMinimumKeyLength
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
data EntryCompletionGetModelMethodInfo
instance (signature ~ (m (Maybe Gtk.TreeModel.TreeModel)), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetModelMethodInfo a signature where
overloadedMethod _ = entryCompletionGetModel
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'
data EntryCompletionGetPopupCompletionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupCompletion
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'
data EntryCompletionGetPopupSetWidthMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupSetWidthMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupSetWidth
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'
data EntryCompletionGetPopupSingleMatchMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetPopupSingleMatchMethodInfo a signature where
overloadedMethod _ = entryCompletionGetPopupSingleMatch
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
data EntryCompletionGetTextColumnMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionGetTextColumnMethodInfo a signature where
overloadedMethod _ = entryCompletionGetTextColumn
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 ()
data EntryCompletionInsertActionMarkupMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertActionMarkupMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertActionMarkup
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 ()
data EntryCompletionInsertActionTextMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertActionTextMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertActionText
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 ()
data EntryCompletionInsertPrefixMethodInfo
instance (signature ~ (m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionInsertPrefixMethodInfo a signature where
overloadedMethod _ = entryCompletionInsertPrefix
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 ()
data EntryCompletionSetInlineCompletionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetInlineCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetInlineCompletion
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 ()
data EntryCompletionSetInlineSelectionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetInlineSelectionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetInlineSelection
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 ()
data EntryCompletionSetMatchFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.EntryCompletionMatchFunc -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetMatchFuncMethodInfo a signature where
overloadedMethod _ = entryCompletionSetMatchFunc
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 ()
data EntryCompletionSetMinimumKeyLengthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetMinimumKeyLengthMethodInfo a signature where
overloadedMethod _ = entryCompletionSetMinimumKeyLength
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 ()
data EntryCompletionSetModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsEntryCompletion a, Gtk.TreeModel.IsTreeModel b) => O.MethodInfo EntryCompletionSetModelMethodInfo a signature where
overloadedMethod _ = entryCompletionSetModel
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 ()
data EntryCompletionSetPopupCompletionMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupCompletionMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupCompletion
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 ()
data EntryCompletionSetPopupSetWidthMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupSetWidthMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupSetWidth
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 ()
data EntryCompletionSetPopupSingleMatchMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetPopupSingleMatchMethodInfo a signature where
overloadedMethod _ = entryCompletionSetPopupSingleMatch
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 ()
data EntryCompletionSetTextColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsEntryCompletion a) => O.MethodInfo EntryCompletionSetTextColumnMethodInfo a signature where
overloadedMethod _ = entryCompletionSetTextColumn