module GI.Gtk.Objects.Entry
(
Entry(..) ,
EntryK ,
toEntry ,
noEntry ,
entryGetActivatesDefault ,
entryGetAlignment ,
entryGetAttributes ,
entryGetBuffer ,
entryGetCompletion ,
entryGetCurrentIconDragSource ,
entryGetCursorHadjustment ,
entryGetHasFrame ,
entryGetIconActivatable ,
entryGetIconArea ,
entryGetIconAtPos ,
entryGetIconGicon ,
entryGetIconName ,
entryGetIconPixbuf ,
entryGetIconSensitive ,
entryGetIconStock ,
entryGetIconStorageType ,
entryGetIconTooltipMarkup ,
entryGetIconTooltipText ,
entryGetInnerBorder ,
entryGetInputHints ,
entryGetInputPurpose ,
entryGetInvisibleChar ,
entryGetLayout ,
entryGetLayoutOffsets ,
entryGetMaxLength ,
entryGetMaxWidthChars ,
entryGetOverwriteMode ,
entryGetPlaceholderText ,
entryGetProgressFraction ,
entryGetProgressPulseStep ,
entryGetTabs ,
entryGetText ,
entryGetTextArea ,
entryGetTextLength ,
entryGetVisibility ,
entryGetWidthChars ,
entryGrabFocusWithoutSelecting ,
entryImContextFilterKeypress ,
entryLayoutIndexToTextIndex ,
entryNew ,
entryNewWithBuffer ,
entryProgressPulse ,
entryResetImContext ,
entrySetActivatesDefault ,
entrySetAlignment ,
entrySetAttributes ,
entrySetBuffer ,
entrySetCompletion ,
entrySetCursorHadjustment ,
entrySetHasFrame ,
entrySetIconActivatable ,
entrySetIconDragSource ,
entrySetIconFromGicon ,
entrySetIconFromIconName ,
entrySetIconFromPixbuf ,
entrySetIconFromStock ,
entrySetIconSensitive ,
entrySetIconTooltipMarkup ,
entrySetIconTooltipText ,
entrySetInnerBorder ,
entrySetInputHints ,
entrySetInputPurpose ,
entrySetInvisibleChar ,
entrySetMaxLength ,
entrySetMaxWidthChars ,
entrySetOverwriteMode ,
entrySetPlaceholderText ,
entrySetProgressFraction ,
entrySetProgressPulseStep ,
entrySetTabs ,
entrySetText ,
entrySetVisibility ,
entrySetWidthChars ,
entryTextIndexToLayoutIndex ,
entryUnsetInvisibleChar ,
EntryActivatesDefaultPropertyInfo ,
constructEntryActivatesDefault ,
getEntryActivatesDefault ,
setEntryActivatesDefault ,
EntryAttributesPropertyInfo ,
constructEntryAttributes ,
getEntryAttributes ,
setEntryAttributes ,
EntryBufferPropertyInfo ,
constructEntryBuffer ,
getEntryBuffer ,
setEntryBuffer ,
EntryCapsLockWarningPropertyInfo ,
constructEntryCapsLockWarning ,
getEntryCapsLockWarning ,
setEntryCapsLockWarning ,
EntryCompletionPropertyInfo ,
constructEntryCompletion ,
getEntryCompletion ,
setEntryCompletion ,
EntryCursorPositionPropertyInfo ,
getEntryCursorPosition ,
EntryEditablePropertyInfo ,
constructEntryEditable ,
getEntryEditable ,
setEntryEditable ,
EntryHasFramePropertyInfo ,
constructEntryHasFrame ,
getEntryHasFrame ,
setEntryHasFrame ,
EntryImModulePropertyInfo ,
constructEntryImModule ,
getEntryImModule ,
setEntryImModule ,
EntryInnerBorderPropertyInfo ,
constructEntryInnerBorder ,
getEntryInnerBorder ,
setEntryInnerBorder ,
EntryInputHintsPropertyInfo ,
constructEntryInputHints ,
getEntryInputHints ,
setEntryInputHints ,
EntryInputPurposePropertyInfo ,
constructEntryInputPurpose ,
getEntryInputPurpose ,
setEntryInputPurpose ,
EntryInvisibleCharPropertyInfo ,
constructEntryInvisibleChar ,
getEntryInvisibleChar ,
setEntryInvisibleChar ,
EntryInvisibleCharSetPropertyInfo ,
constructEntryInvisibleCharSet ,
getEntryInvisibleCharSet ,
setEntryInvisibleCharSet ,
EntryMaxLengthPropertyInfo ,
constructEntryMaxLength ,
getEntryMaxLength ,
setEntryMaxLength ,
EntryMaxWidthCharsPropertyInfo ,
constructEntryMaxWidthChars ,
getEntryMaxWidthChars ,
setEntryMaxWidthChars ,
EntryOverwriteModePropertyInfo ,
constructEntryOverwriteMode ,
getEntryOverwriteMode ,
setEntryOverwriteMode ,
EntryPlaceholderTextPropertyInfo ,
constructEntryPlaceholderText ,
getEntryPlaceholderText ,
setEntryPlaceholderText ,
EntryPopulateAllPropertyInfo ,
constructEntryPopulateAll ,
getEntryPopulateAll ,
setEntryPopulateAll ,
EntryPrimaryIconActivatablePropertyInfo ,
constructEntryPrimaryIconActivatable ,
getEntryPrimaryIconActivatable ,
setEntryPrimaryIconActivatable ,
EntryPrimaryIconGiconPropertyInfo ,
constructEntryPrimaryIconGicon ,
getEntryPrimaryIconGicon ,
setEntryPrimaryIconGicon ,
EntryPrimaryIconNamePropertyInfo ,
constructEntryPrimaryIconName ,
getEntryPrimaryIconName ,
setEntryPrimaryIconName ,
EntryPrimaryIconPixbufPropertyInfo ,
constructEntryPrimaryIconPixbuf ,
getEntryPrimaryIconPixbuf ,
setEntryPrimaryIconPixbuf ,
EntryPrimaryIconSensitivePropertyInfo ,
constructEntryPrimaryIconSensitive ,
getEntryPrimaryIconSensitive ,
setEntryPrimaryIconSensitive ,
EntryPrimaryIconStockPropertyInfo ,
constructEntryPrimaryIconStock ,
getEntryPrimaryIconStock ,
setEntryPrimaryIconStock ,
EntryPrimaryIconStorageTypePropertyInfo ,
getEntryPrimaryIconStorageType ,
EntryPrimaryIconTooltipMarkupPropertyInfo,
constructEntryPrimaryIconTooltipMarkup ,
getEntryPrimaryIconTooltipMarkup ,
setEntryPrimaryIconTooltipMarkup ,
EntryPrimaryIconTooltipTextPropertyInfo ,
constructEntryPrimaryIconTooltipText ,
getEntryPrimaryIconTooltipText ,
setEntryPrimaryIconTooltipText ,
EntryProgressFractionPropertyInfo ,
constructEntryProgressFraction ,
getEntryProgressFraction ,
setEntryProgressFraction ,
EntryProgressPulseStepPropertyInfo ,
constructEntryProgressPulseStep ,
getEntryProgressPulseStep ,
setEntryProgressPulseStep ,
EntryScrollOffsetPropertyInfo ,
getEntryScrollOffset ,
EntrySecondaryIconActivatablePropertyInfo,
constructEntrySecondaryIconActivatable ,
getEntrySecondaryIconActivatable ,
setEntrySecondaryIconActivatable ,
EntrySecondaryIconGiconPropertyInfo ,
constructEntrySecondaryIconGicon ,
getEntrySecondaryIconGicon ,
setEntrySecondaryIconGicon ,
EntrySecondaryIconNamePropertyInfo ,
constructEntrySecondaryIconName ,
getEntrySecondaryIconName ,
setEntrySecondaryIconName ,
EntrySecondaryIconPixbufPropertyInfo ,
constructEntrySecondaryIconPixbuf ,
getEntrySecondaryIconPixbuf ,
setEntrySecondaryIconPixbuf ,
EntrySecondaryIconSensitivePropertyInfo ,
constructEntrySecondaryIconSensitive ,
getEntrySecondaryIconSensitive ,
setEntrySecondaryIconSensitive ,
EntrySecondaryIconStockPropertyInfo ,
constructEntrySecondaryIconStock ,
getEntrySecondaryIconStock ,
setEntrySecondaryIconStock ,
EntrySecondaryIconStorageTypePropertyInfo,
getEntrySecondaryIconStorageType ,
EntrySecondaryIconTooltipMarkupPropertyInfo,
constructEntrySecondaryIconTooltipMarkup,
getEntrySecondaryIconTooltipMarkup ,
setEntrySecondaryIconTooltipMarkup ,
EntrySecondaryIconTooltipTextPropertyInfo,
constructEntrySecondaryIconTooltipText ,
getEntrySecondaryIconTooltipText ,
setEntrySecondaryIconTooltipText ,
EntrySelectionBoundPropertyInfo ,
getEntrySelectionBound ,
EntryShadowTypePropertyInfo ,
constructEntryShadowType ,
getEntryShadowType ,
setEntryShadowType ,
EntryTabsPropertyInfo ,
constructEntryTabs ,
getEntryTabs ,
setEntryTabs ,
EntryTextPropertyInfo ,
constructEntryText ,
getEntryText ,
setEntryText ,
EntryTextLengthPropertyInfo ,
getEntryTextLength ,
EntryTruncateMultilinePropertyInfo ,
constructEntryTruncateMultiline ,
getEntryTruncateMultiline ,
setEntryTruncateMultiline ,
EntryVisibilityPropertyInfo ,
constructEntryVisibility ,
getEntryVisibility ,
setEntryVisibility ,
EntryWidthCharsPropertyInfo ,
constructEntryWidthChars ,
getEntryWidthChars ,
setEntryWidthChars ,
EntryXalignPropertyInfo ,
constructEntryXalign ,
getEntryXalign ,
setEntryXalign ,
EntryActivateCallback ,
EntryActivateCallbackC ,
EntryActivateSignalInfo ,
afterEntryActivate ,
entryActivateCallbackWrapper ,
entryActivateClosure ,
mkEntryActivateCallback ,
noEntryActivateCallback ,
onEntryActivate ,
EntryBackspaceCallback ,
EntryBackspaceCallbackC ,
EntryBackspaceSignalInfo ,
afterEntryBackspace ,
entryBackspaceCallbackWrapper ,
entryBackspaceClosure ,
mkEntryBackspaceCallback ,
noEntryBackspaceCallback ,
onEntryBackspace ,
EntryCopyClipboardCallback ,
EntryCopyClipboardCallbackC ,
EntryCopyClipboardSignalInfo ,
afterEntryCopyClipboard ,
entryCopyClipboardCallbackWrapper ,
entryCopyClipboardClosure ,
mkEntryCopyClipboardCallback ,
noEntryCopyClipboardCallback ,
onEntryCopyClipboard ,
EntryCutClipboardCallback ,
EntryCutClipboardCallbackC ,
EntryCutClipboardSignalInfo ,
afterEntryCutClipboard ,
entryCutClipboardCallbackWrapper ,
entryCutClipboardClosure ,
mkEntryCutClipboardCallback ,
noEntryCutClipboardCallback ,
onEntryCutClipboard ,
EntryDeleteFromCursorCallback ,
EntryDeleteFromCursorCallbackC ,
EntryDeleteFromCursorSignalInfo ,
afterEntryDeleteFromCursor ,
entryDeleteFromCursorCallbackWrapper ,
entryDeleteFromCursorClosure ,
mkEntryDeleteFromCursorCallback ,
noEntryDeleteFromCursorCallback ,
onEntryDeleteFromCursor ,
EntryIconPressCallback ,
EntryIconPressCallbackC ,
EntryIconPressSignalInfo ,
afterEntryIconPress ,
entryIconPressCallbackWrapper ,
entryIconPressClosure ,
mkEntryIconPressCallback ,
noEntryIconPressCallback ,
onEntryIconPress ,
EntryIconReleaseCallback ,
EntryIconReleaseCallbackC ,
EntryIconReleaseSignalInfo ,
afterEntryIconRelease ,
entryIconReleaseCallbackWrapper ,
entryIconReleaseClosure ,
mkEntryIconReleaseCallback ,
noEntryIconReleaseCallback ,
onEntryIconRelease ,
EntryInsertAtCursorCallback ,
EntryInsertAtCursorCallbackC ,
EntryInsertAtCursorSignalInfo ,
afterEntryInsertAtCursor ,
entryInsertAtCursorCallbackWrapper ,
entryInsertAtCursorClosure ,
mkEntryInsertAtCursorCallback ,
noEntryInsertAtCursorCallback ,
onEntryInsertAtCursor ,
EntryMoveCursorCallback ,
EntryMoveCursorCallbackC ,
EntryMoveCursorSignalInfo ,
afterEntryMoveCursor ,
entryMoveCursorCallbackWrapper ,
entryMoveCursorClosure ,
mkEntryMoveCursorCallback ,
noEntryMoveCursorCallback ,
onEntryMoveCursor ,
EntryPasteClipboardCallback ,
EntryPasteClipboardCallbackC ,
EntryPasteClipboardSignalInfo ,
afterEntryPasteClipboard ,
entryPasteClipboardCallbackWrapper ,
entryPasteClipboardClosure ,
mkEntryPasteClipboardCallback ,
noEntryPasteClipboardCallback ,
onEntryPasteClipboard ,
EntryPopulatePopupCallback ,
EntryPopulatePopupCallbackC ,
EntryPopulatePopupSignalInfo ,
afterEntryPopulatePopup ,
entryPopulatePopupCallbackWrapper ,
entryPopulatePopupClosure ,
mkEntryPopulatePopupCallback ,
noEntryPopulatePopupCallback ,
onEntryPopulatePopup ,
EntryPreeditChangedCallback ,
EntryPreeditChangedCallbackC ,
EntryPreeditChangedSignalInfo ,
afterEntryPreeditChanged ,
entryPreeditChangedCallbackWrapper ,
entryPreeditChangedClosure ,
mkEntryPreeditChangedCallback ,
noEntryPreeditChangedCallback ,
onEntryPreeditChanged ,
EntryToggleOverwriteCallback ,
EntryToggleOverwriteCallbackC ,
EntryToggleOverwriteSignalInfo ,
afterEntryToggleOverwrite ,
entryToggleOverwriteCallbackWrapper ,
entryToggleOverwriteClosure ,
mkEntryToggleOverwriteCallback ,
noEntryToggleOverwriteCallback ,
onEntryToggleOverwrite ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Gtk.Types
import GI.Gtk.Callbacks
import qualified GI.Atk as Atk
import qualified GI.GObject as GObject
import qualified GI.Gdk as Gdk
import qualified GI.GdkPixbuf as GdkPixbuf
import qualified GI.Gio as Gio
import qualified GI.Pango as Pango
newtype Entry = Entry (ForeignPtr Entry)
foreign import ccall "gtk_entry_get_type"
c_gtk_entry_get_type :: IO GType
type instance ParentTypes Entry = EntryParentTypes
type EntryParentTypes = '[Widget, GObject.Object, Atk.ImplementorIface, Buildable, CellEditable, Editable]
instance GObject Entry where
gobjectIsInitiallyUnowned _ = True
gobjectType _ = c_gtk_entry_get_type
class GObject o => EntryK o
instance (GObject o, IsDescendantOf Entry o) => EntryK o
toEntry :: EntryK o => o -> IO Entry
toEntry = unsafeCastTo Entry
noEntry :: Maybe Entry
noEntry = Nothing
type EntryActivateCallback =
IO ()
noEntryActivateCallback :: Maybe EntryActivateCallback
noEntryActivateCallback = Nothing
type EntryActivateCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryActivateCallback :: EntryActivateCallbackC -> IO (FunPtr EntryActivateCallbackC)
entryActivateClosure :: EntryActivateCallback -> IO Closure
entryActivateClosure cb = newCClosure =<< mkEntryActivateCallback wrapped
where wrapped = entryActivateCallbackWrapper cb
entryActivateCallbackWrapper ::
EntryActivateCallback ->
Ptr () ->
Ptr () ->
IO ()
entryActivateCallbackWrapper _cb _ _ = do
_cb
onEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
onEntryActivate obj cb = liftIO $ connectEntryActivate obj cb SignalConnectBefore
afterEntryActivate :: (GObject a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
afterEntryActivate obj cb = connectEntryActivate obj cb SignalConnectAfter
connectEntryActivate :: (GObject a, MonadIO m) =>
a -> EntryActivateCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryActivate obj cb after = liftIO $ do
cb' <- mkEntryActivateCallback (entryActivateCallbackWrapper cb)
connectSignalFunPtr obj "activate" cb' after
type EntryBackspaceCallback =
IO ()
noEntryBackspaceCallback :: Maybe EntryBackspaceCallback
noEntryBackspaceCallback = Nothing
type EntryBackspaceCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryBackspaceCallback :: EntryBackspaceCallbackC -> IO (FunPtr EntryBackspaceCallbackC)
entryBackspaceClosure :: EntryBackspaceCallback -> IO Closure
entryBackspaceClosure cb = newCClosure =<< mkEntryBackspaceCallback wrapped
where wrapped = entryBackspaceCallbackWrapper cb
entryBackspaceCallbackWrapper ::
EntryBackspaceCallback ->
Ptr () ->
Ptr () ->
IO ()
entryBackspaceCallbackWrapper _cb _ _ = do
_cb
onEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
onEntryBackspace obj cb = liftIO $ connectEntryBackspace obj cb SignalConnectBefore
afterEntryBackspace :: (GObject a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
afterEntryBackspace obj cb = connectEntryBackspace obj cb SignalConnectAfter
connectEntryBackspace :: (GObject a, MonadIO m) =>
a -> EntryBackspaceCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryBackspace obj cb after = liftIO $ do
cb' <- mkEntryBackspaceCallback (entryBackspaceCallbackWrapper cb)
connectSignalFunPtr obj "backspace" cb' after
type EntryCopyClipboardCallback =
IO ()
noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback
noEntryCopyClipboardCallback = Nothing
type EntryCopyClipboardCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryCopyClipboardCallback :: EntryCopyClipboardCallbackC -> IO (FunPtr EntryCopyClipboardCallbackC)
entryCopyClipboardClosure :: EntryCopyClipboardCallback -> IO Closure
entryCopyClipboardClosure cb = newCClosure =<< mkEntryCopyClipboardCallback wrapped
where wrapped = entryCopyClipboardCallbackWrapper cb
entryCopyClipboardCallbackWrapper ::
EntryCopyClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryCopyClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
onEntryCopyClipboard obj cb = liftIO $ connectEntryCopyClipboard obj cb SignalConnectBefore
afterEntryCopyClipboard :: (GObject a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
afterEntryCopyClipboard obj cb = connectEntryCopyClipboard obj cb SignalConnectAfter
connectEntryCopyClipboard :: (GObject a, MonadIO m) =>
a -> EntryCopyClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCopyClipboard obj cb after = liftIO $ do
cb' <- mkEntryCopyClipboardCallback (entryCopyClipboardCallbackWrapper cb)
connectSignalFunPtr obj "copy-clipboard" cb' after
type EntryCutClipboardCallback =
IO ()
noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback
noEntryCutClipboardCallback = Nothing
type EntryCutClipboardCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryCutClipboardCallback :: EntryCutClipboardCallbackC -> IO (FunPtr EntryCutClipboardCallbackC)
entryCutClipboardClosure :: EntryCutClipboardCallback -> IO Closure
entryCutClipboardClosure cb = newCClosure =<< mkEntryCutClipboardCallback wrapped
where wrapped = entryCutClipboardCallbackWrapper cb
entryCutClipboardCallbackWrapper ::
EntryCutClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryCutClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
onEntryCutClipboard obj cb = liftIO $ connectEntryCutClipboard obj cb SignalConnectBefore
afterEntryCutClipboard :: (GObject a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
afterEntryCutClipboard obj cb = connectEntryCutClipboard obj cb SignalConnectAfter
connectEntryCutClipboard :: (GObject a, MonadIO m) =>
a -> EntryCutClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryCutClipboard obj cb after = liftIO $ do
cb' <- mkEntryCutClipboardCallback (entryCutClipboardCallbackWrapper cb)
connectSignalFunPtr obj "cut-clipboard" cb' after
type EntryDeleteFromCursorCallback =
DeleteType ->
Int32 ->
IO ()
noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback
noEntryDeleteFromCursorCallback = Nothing
type EntryDeleteFromCursorCallbackC =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallbackC -> IO (FunPtr EntryDeleteFromCursorCallbackC)
entryDeleteFromCursorClosure :: EntryDeleteFromCursorCallback -> IO Closure
entryDeleteFromCursorClosure cb = newCClosure =<< mkEntryDeleteFromCursorCallback wrapped
where wrapped = entryDeleteFromCursorCallbackWrapper cb
entryDeleteFromCursorCallbackWrapper ::
EntryDeleteFromCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
entryDeleteFromCursorCallbackWrapper _cb _ type_ count _ = do
let type_' = (toEnum . fromIntegral) type_
_cb type_' count
onEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
onEntryDeleteFromCursor obj cb = liftIO $ connectEntryDeleteFromCursor obj cb SignalConnectBefore
afterEntryDeleteFromCursor :: (GObject a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
afterEntryDeleteFromCursor obj cb = connectEntryDeleteFromCursor obj cb SignalConnectAfter
connectEntryDeleteFromCursor :: (GObject a, MonadIO m) =>
a -> EntryDeleteFromCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryDeleteFromCursor obj cb after = liftIO $ do
cb' <- mkEntryDeleteFromCursorCallback (entryDeleteFromCursorCallbackWrapper cb)
connectSignalFunPtr obj "delete-from-cursor" cb' after
type EntryIconPressCallback =
EntryIconPosition ->
Gdk.EventButton ->
IO ()
noEntryIconPressCallback :: Maybe EntryIconPressCallback
noEntryIconPressCallback = Nothing
type EntryIconPressCallbackC =
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryIconPressCallback :: EntryIconPressCallbackC -> IO (FunPtr EntryIconPressCallbackC)
entryIconPressClosure :: EntryIconPressCallback -> IO Closure
entryIconPressClosure cb = newCClosure =<< mkEntryIconPressCallback wrapped
where wrapped = entryIconPressCallbackWrapper cb
entryIconPressCallbackWrapper ::
EntryIconPressCallback ->
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
entryIconPressCallbackWrapper _cb _ icon_pos event _ = do
let icon_pos' = (toEnum . fromIntegral) icon_pos
event' <- (newPtr 80 Gdk.EventButton) event
_cb icon_pos' event'
onEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
onEntryIconPress obj cb = liftIO $ connectEntryIconPress obj cb SignalConnectBefore
afterEntryIconPress :: (GObject a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
afterEntryIconPress obj cb = connectEntryIconPress obj cb SignalConnectAfter
connectEntryIconPress :: (GObject a, MonadIO m) =>
a -> EntryIconPressCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryIconPress obj cb after = liftIO $ do
cb' <- mkEntryIconPressCallback (entryIconPressCallbackWrapper cb)
connectSignalFunPtr obj "icon-press" cb' after
type EntryIconReleaseCallback =
EntryIconPosition ->
Gdk.EventButton ->
IO ()
noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback
noEntryIconReleaseCallback = Nothing
type EntryIconReleaseCallbackC =
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryIconReleaseCallback :: EntryIconReleaseCallbackC -> IO (FunPtr EntryIconReleaseCallbackC)
entryIconReleaseClosure :: EntryIconReleaseCallback -> IO Closure
entryIconReleaseClosure cb = newCClosure =<< mkEntryIconReleaseCallback wrapped
where wrapped = entryIconReleaseCallbackWrapper cb
entryIconReleaseCallbackWrapper ::
EntryIconReleaseCallback ->
Ptr () ->
CUInt ->
Ptr Gdk.EventButton ->
Ptr () ->
IO ()
entryIconReleaseCallbackWrapper _cb _ icon_pos event _ = do
let icon_pos' = (toEnum . fromIntegral) icon_pos
event' <- (newPtr 80 Gdk.EventButton) event
_cb icon_pos' event'
onEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
onEntryIconRelease obj cb = liftIO $ connectEntryIconRelease obj cb SignalConnectBefore
afterEntryIconRelease :: (GObject a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
afterEntryIconRelease obj cb = connectEntryIconRelease obj cb SignalConnectAfter
connectEntryIconRelease :: (GObject a, MonadIO m) =>
a -> EntryIconReleaseCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryIconRelease obj cb after = liftIO $ do
cb' <- mkEntryIconReleaseCallback (entryIconReleaseCallbackWrapper cb)
connectSignalFunPtr obj "icon-release" cb' after
type EntryInsertAtCursorCallback =
T.Text ->
IO ()
noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback
noEntryInsertAtCursorCallback = Nothing
type EntryInsertAtCursorCallbackC =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryInsertAtCursorCallback :: EntryInsertAtCursorCallbackC -> IO (FunPtr EntryInsertAtCursorCallbackC)
entryInsertAtCursorClosure :: EntryInsertAtCursorCallback -> IO Closure
entryInsertAtCursorClosure cb = newCClosure =<< mkEntryInsertAtCursorCallback wrapped
where wrapped = entryInsertAtCursorCallbackWrapper cb
entryInsertAtCursorCallbackWrapper ::
EntryInsertAtCursorCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
entryInsertAtCursorCallbackWrapper _cb _ string _ = do
string' <- cstringToText string
_cb string'
onEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
onEntryInsertAtCursor obj cb = liftIO $ connectEntryInsertAtCursor obj cb SignalConnectBefore
afterEntryInsertAtCursor :: (GObject a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
afterEntryInsertAtCursor obj cb = connectEntryInsertAtCursor obj cb SignalConnectAfter
connectEntryInsertAtCursor :: (GObject a, MonadIO m) =>
a -> EntryInsertAtCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryInsertAtCursor obj cb after = liftIO $ do
cb' <- mkEntryInsertAtCursorCallback (entryInsertAtCursorCallbackWrapper cb)
connectSignalFunPtr obj "insert-at-cursor" cb' after
type EntryMoveCursorCallback =
MovementStep ->
Int32 ->
Bool ->
IO ()
noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback
noEntryMoveCursorCallback = Nothing
type EntryMoveCursorCallbackC =
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryMoveCursorCallback :: EntryMoveCursorCallbackC -> IO (FunPtr EntryMoveCursorCallbackC)
entryMoveCursorClosure :: EntryMoveCursorCallback -> IO Closure
entryMoveCursorClosure cb = newCClosure =<< mkEntryMoveCursorCallback wrapped
where wrapped = entryMoveCursorCallbackWrapper cb
entryMoveCursorCallbackWrapper ::
EntryMoveCursorCallback ->
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
entryMoveCursorCallbackWrapper _cb _ step count extend_selection _ = do
let step' = (toEnum . fromIntegral) step
let extend_selection' = (/= 0) extend_selection
_cb step' count extend_selection'
onEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
onEntryMoveCursor obj cb = liftIO $ connectEntryMoveCursor obj cb SignalConnectBefore
afterEntryMoveCursor :: (GObject a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
afterEntryMoveCursor obj cb = connectEntryMoveCursor obj cb SignalConnectAfter
connectEntryMoveCursor :: (GObject a, MonadIO m) =>
a -> EntryMoveCursorCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryMoveCursor obj cb after = liftIO $ do
cb' <- mkEntryMoveCursorCallback (entryMoveCursorCallbackWrapper cb)
connectSignalFunPtr obj "move-cursor" cb' after
type EntryPasteClipboardCallback =
IO ()
noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback
noEntryPasteClipboardCallback = Nothing
type EntryPasteClipboardCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryPasteClipboardCallback :: EntryPasteClipboardCallbackC -> IO (FunPtr EntryPasteClipboardCallbackC)
entryPasteClipboardClosure :: EntryPasteClipboardCallback -> IO Closure
entryPasteClipboardClosure cb = newCClosure =<< mkEntryPasteClipboardCallback wrapped
where wrapped = entryPasteClipboardCallbackWrapper cb
entryPasteClipboardCallbackWrapper ::
EntryPasteClipboardCallback ->
Ptr () ->
Ptr () ->
IO ()
entryPasteClipboardCallbackWrapper _cb _ _ = do
_cb
onEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
onEntryPasteClipboard obj cb = liftIO $ connectEntryPasteClipboard obj cb SignalConnectBefore
afterEntryPasteClipboard :: (GObject a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
afterEntryPasteClipboard obj cb = connectEntryPasteClipboard obj cb SignalConnectAfter
connectEntryPasteClipboard :: (GObject a, MonadIO m) =>
a -> EntryPasteClipboardCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPasteClipboard obj cb after = liftIO $ do
cb' <- mkEntryPasteClipboardCallback (entryPasteClipboardCallbackWrapper cb)
connectSignalFunPtr obj "paste-clipboard" cb' after
type EntryPopulatePopupCallback =
Widget ->
IO ()
noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback
noEntryPopulatePopupCallback = Nothing
type EntryPopulatePopupCallbackC =
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryPopulatePopupCallback :: EntryPopulatePopupCallbackC -> IO (FunPtr EntryPopulatePopupCallbackC)
entryPopulatePopupClosure :: EntryPopulatePopupCallback -> IO Closure
entryPopulatePopupClosure cb = newCClosure =<< mkEntryPopulatePopupCallback wrapped
where wrapped = entryPopulatePopupCallbackWrapper cb
entryPopulatePopupCallbackWrapper ::
EntryPopulatePopupCallback ->
Ptr () ->
Ptr Widget ->
Ptr () ->
IO ()
entryPopulatePopupCallbackWrapper _cb _ popup _ = do
popup' <- (newObject Widget) popup
_cb popup'
onEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
onEntryPopulatePopup obj cb = liftIO $ connectEntryPopulatePopup obj cb SignalConnectBefore
afterEntryPopulatePopup :: (GObject a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
afterEntryPopulatePopup obj cb = connectEntryPopulatePopup obj cb SignalConnectAfter
connectEntryPopulatePopup :: (GObject a, MonadIO m) =>
a -> EntryPopulatePopupCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPopulatePopup obj cb after = liftIO $ do
cb' <- mkEntryPopulatePopupCallback (entryPopulatePopupCallbackWrapper cb)
connectSignalFunPtr obj "populate-popup" cb' after
type EntryPreeditChangedCallback =
T.Text ->
IO ()
noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback
noEntryPreeditChangedCallback = Nothing
type EntryPreeditChangedCallbackC =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryPreeditChangedCallback :: EntryPreeditChangedCallbackC -> IO (FunPtr EntryPreeditChangedCallbackC)
entryPreeditChangedClosure :: EntryPreeditChangedCallback -> IO Closure
entryPreeditChangedClosure cb = newCClosure =<< mkEntryPreeditChangedCallback wrapped
where wrapped = entryPreeditChangedCallbackWrapper cb
entryPreeditChangedCallbackWrapper ::
EntryPreeditChangedCallback ->
Ptr () ->
CString ->
Ptr () ->
IO ()
entryPreeditChangedCallbackWrapper _cb _ preedit _ = do
preedit' <- cstringToText preedit
_cb preedit'
onEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
onEntryPreeditChanged obj cb = liftIO $ connectEntryPreeditChanged obj cb SignalConnectBefore
afterEntryPreeditChanged :: (GObject a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
afterEntryPreeditChanged obj cb = connectEntryPreeditChanged obj cb SignalConnectAfter
connectEntryPreeditChanged :: (GObject a, MonadIO m) =>
a -> EntryPreeditChangedCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryPreeditChanged obj cb after = liftIO $ do
cb' <- mkEntryPreeditChangedCallback (entryPreeditChangedCallbackWrapper cb)
connectSignalFunPtr obj "preedit-changed" cb' after
type EntryToggleOverwriteCallback =
IO ()
noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback
noEntryToggleOverwriteCallback = Nothing
type EntryToggleOverwriteCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkEntryToggleOverwriteCallback :: EntryToggleOverwriteCallbackC -> IO (FunPtr EntryToggleOverwriteCallbackC)
entryToggleOverwriteClosure :: EntryToggleOverwriteCallback -> IO Closure
entryToggleOverwriteClosure cb = newCClosure =<< mkEntryToggleOverwriteCallback wrapped
where wrapped = entryToggleOverwriteCallbackWrapper cb
entryToggleOverwriteCallbackWrapper ::
EntryToggleOverwriteCallback ->
Ptr () ->
Ptr () ->
IO ()
entryToggleOverwriteCallbackWrapper _cb _ _ = do
_cb
onEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
onEntryToggleOverwrite obj cb = liftIO $ connectEntryToggleOverwrite obj cb SignalConnectBefore
afterEntryToggleOverwrite :: (GObject a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
afterEntryToggleOverwrite obj cb = connectEntryToggleOverwrite obj cb SignalConnectAfter
connectEntryToggleOverwrite :: (GObject a, MonadIO m) =>
a -> EntryToggleOverwriteCallback -> SignalConnectMode -> m SignalHandlerId
connectEntryToggleOverwrite obj cb after = liftIO $ do
cb' <- mkEntryToggleOverwriteCallback (entryToggleOverwriteCallbackWrapper cb)
connectSignalFunPtr obj "toggle-overwrite" cb' after
getEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> m Bool
getEntryActivatesDefault obj = liftIO $ getObjectPropertyBool obj "activates-default"
setEntryActivatesDefault :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryActivatesDefault obj val = liftIO $ setObjectPropertyBool obj "activates-default" val
constructEntryActivatesDefault :: Bool -> IO ([Char], GValue)
constructEntryActivatesDefault val = constructObjectPropertyBool "activates-default" val
data EntryActivatesDefaultPropertyInfo
instance AttrInfo EntryActivatesDefaultPropertyInfo where
type AttrAllowedOps EntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryActivatesDefaultPropertyInfo = EntryK
type AttrGetType EntryActivatesDefaultPropertyInfo = Bool
type AttrLabel EntryActivatesDefaultPropertyInfo = "Entry::activates-default"
attrGet _ = getEntryActivatesDefault
attrSet _ = setEntryActivatesDefault
attrConstruct _ = constructEntryActivatesDefault
getEntryAttributes :: (MonadIO m, EntryK o) => o -> m Pango.AttrList
getEntryAttributes obj = liftIO $ getObjectPropertyBoxed obj "attributes" Pango.AttrList
setEntryAttributes :: (MonadIO m, EntryK o) => o -> Pango.AttrList -> m ()
setEntryAttributes obj val = liftIO $ setObjectPropertyBoxed obj "attributes" val
constructEntryAttributes :: Pango.AttrList -> IO ([Char], GValue)
constructEntryAttributes val = constructObjectPropertyBoxed "attributes" val
data EntryAttributesPropertyInfo
instance AttrInfo EntryAttributesPropertyInfo where
type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList
type AttrBaseTypeConstraint EntryAttributesPropertyInfo = EntryK
type AttrGetType EntryAttributesPropertyInfo = Pango.AttrList
type AttrLabel EntryAttributesPropertyInfo = "Entry::attributes"
attrGet _ = getEntryAttributes
attrSet _ = setEntryAttributes
attrConstruct _ = constructEntryAttributes
getEntryBuffer :: (MonadIO m, EntryK o) => o -> m EntryBuffer
getEntryBuffer obj = liftIO $ getObjectPropertyObject obj "buffer" EntryBuffer
setEntryBuffer :: (MonadIO m, EntryK o, EntryBufferK a) => o -> a -> m ()
setEntryBuffer obj val = liftIO $ setObjectPropertyObject obj "buffer" val
constructEntryBuffer :: (EntryBufferK a) => a -> IO ([Char], GValue)
constructEntryBuffer val = constructObjectPropertyObject "buffer" val
data EntryBufferPropertyInfo
instance AttrInfo EntryBufferPropertyInfo where
type AttrAllowedOps EntryBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryBufferPropertyInfo = EntryBufferK
type AttrBaseTypeConstraint EntryBufferPropertyInfo = EntryK
type AttrGetType EntryBufferPropertyInfo = EntryBuffer
type AttrLabel EntryBufferPropertyInfo = "Entry::buffer"
attrGet _ = getEntryBuffer
attrSet _ = setEntryBuffer
attrConstruct _ = constructEntryBuffer
getEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> m Bool
getEntryCapsLockWarning obj = liftIO $ getObjectPropertyBool obj "caps-lock-warning"
setEntryCapsLockWarning :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryCapsLockWarning obj val = liftIO $ setObjectPropertyBool obj "caps-lock-warning" val
constructEntryCapsLockWarning :: Bool -> IO ([Char], GValue)
constructEntryCapsLockWarning val = constructObjectPropertyBool "caps-lock-warning" val
data EntryCapsLockWarningPropertyInfo
instance AttrInfo EntryCapsLockWarningPropertyInfo where
type AttrAllowedOps EntryCapsLockWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryCapsLockWarningPropertyInfo = EntryK
type AttrGetType EntryCapsLockWarningPropertyInfo = Bool
type AttrLabel EntryCapsLockWarningPropertyInfo = "Entry::caps-lock-warning"
attrGet _ = getEntryCapsLockWarning
attrSet _ = setEntryCapsLockWarning
attrConstruct _ = constructEntryCapsLockWarning
getEntryCompletion :: (MonadIO m, EntryK o) => o -> m EntryCompletion
getEntryCompletion obj = liftIO $ getObjectPropertyObject obj "completion" EntryCompletion
setEntryCompletion :: (MonadIO m, EntryK o, EntryCompletionK a) => o -> a -> m ()
setEntryCompletion obj val = liftIO $ setObjectPropertyObject obj "completion" val
constructEntryCompletion :: (EntryCompletionK a) => a -> IO ([Char], GValue)
constructEntryCompletion val = constructObjectPropertyObject "completion" val
data EntryCompletionPropertyInfo
instance AttrInfo EntryCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryCompletionPropertyInfo = EntryCompletionK
type AttrBaseTypeConstraint EntryCompletionPropertyInfo = EntryK
type AttrGetType EntryCompletionPropertyInfo = EntryCompletion
type AttrLabel EntryCompletionPropertyInfo = "Entry::completion"
attrGet _ = getEntryCompletion
attrSet _ = setEntryCompletion
attrConstruct _ = constructEntryCompletion
getEntryCursorPosition :: (MonadIO m, EntryK o) => o -> m Int32
getEntryCursorPosition obj = liftIO $ getObjectPropertyCInt obj "cursor-position"
data EntryCursorPositionPropertyInfo
instance AttrInfo EntryCursorPositionPropertyInfo where
type AttrAllowedOps EntryCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntryCursorPositionPropertyInfo = (~) ()
type AttrBaseTypeConstraint EntryCursorPositionPropertyInfo = EntryK
type AttrGetType EntryCursorPositionPropertyInfo = Int32
type AttrLabel EntryCursorPositionPropertyInfo = "Entry::cursor-position"
attrGet _ = getEntryCursorPosition
attrSet _ = undefined
attrConstruct _ = undefined
getEntryEditable :: (MonadIO m, EntryK o) => o -> m Bool
getEntryEditable obj = liftIO $ getObjectPropertyBool obj "editable"
setEntryEditable :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryEditable obj val = liftIO $ setObjectPropertyBool obj "editable" val
constructEntryEditable :: Bool -> IO ([Char], GValue)
constructEntryEditable val = constructObjectPropertyBool "editable" val
data EntryEditablePropertyInfo
instance AttrInfo EntryEditablePropertyInfo where
type AttrAllowedOps EntryEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryEditablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryEditablePropertyInfo = EntryK
type AttrGetType EntryEditablePropertyInfo = Bool
type AttrLabel EntryEditablePropertyInfo = "Entry::editable"
attrGet _ = getEntryEditable
attrSet _ = setEntryEditable
attrConstruct _ = constructEntryEditable
getEntryHasFrame :: (MonadIO m, EntryK o) => o -> m Bool
getEntryHasFrame obj = liftIO $ getObjectPropertyBool obj "has-frame"
setEntryHasFrame :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryHasFrame obj val = liftIO $ setObjectPropertyBool obj "has-frame" val
constructEntryHasFrame :: Bool -> IO ([Char], GValue)
constructEntryHasFrame val = constructObjectPropertyBool "has-frame" val
data EntryHasFramePropertyInfo
instance AttrInfo EntryHasFramePropertyInfo where
type AttrAllowedOps EntryHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryHasFramePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryHasFramePropertyInfo = EntryK
type AttrGetType EntryHasFramePropertyInfo = Bool
type AttrLabel EntryHasFramePropertyInfo = "Entry::has-frame"
attrGet _ = getEntryHasFrame
attrSet _ = setEntryHasFrame
attrConstruct _ = constructEntryHasFrame
getEntryImModule :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryImModule obj = liftIO $ getObjectPropertyString obj "im-module"
setEntryImModule :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryImModule obj val = liftIO $ setObjectPropertyString obj "im-module" val
constructEntryImModule :: T.Text -> IO ([Char], GValue)
constructEntryImModule val = constructObjectPropertyString "im-module" val
data EntryImModulePropertyInfo
instance AttrInfo EntryImModulePropertyInfo where
type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryImModulePropertyInfo = EntryK
type AttrGetType EntryImModulePropertyInfo = T.Text
type AttrLabel EntryImModulePropertyInfo = "Entry::im-module"
attrGet _ = getEntryImModule
attrSet _ = setEntryImModule
attrConstruct _ = constructEntryImModule
getEntryInnerBorder :: (MonadIO m, EntryK o) => o -> m Border
getEntryInnerBorder obj = liftIO $ getObjectPropertyBoxed obj "inner-border" Border
setEntryInnerBorder :: (MonadIO m, EntryK o) => o -> Border -> m ()
setEntryInnerBorder obj val = liftIO $ setObjectPropertyBoxed obj "inner-border" val
constructEntryInnerBorder :: Border -> IO ([Char], GValue)
constructEntryInnerBorder val = constructObjectPropertyBoxed "inner-border" val
data EntryInnerBorderPropertyInfo
instance AttrInfo EntryInnerBorderPropertyInfo where
type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Border
type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = EntryK
type AttrGetType EntryInnerBorderPropertyInfo = Border
type AttrLabel EntryInnerBorderPropertyInfo = "Entry::inner-border"
attrGet _ = getEntryInnerBorder
attrSet _ = setEntryInnerBorder
attrConstruct _ = constructEntryInnerBorder
getEntryInputHints :: (MonadIO m, EntryK o) => o -> m [InputHints]
getEntryInputHints obj = liftIO $ getObjectPropertyFlags obj "input-hints"
setEntryInputHints :: (MonadIO m, EntryK o) => o -> [InputHints] -> m ()
setEntryInputHints obj val = liftIO $ setObjectPropertyFlags obj "input-hints" val
constructEntryInputHints :: [InputHints] -> IO ([Char], GValue)
constructEntryInputHints val = constructObjectPropertyFlags "input-hints" val
data EntryInputHintsPropertyInfo
instance AttrInfo EntryInputHintsPropertyInfo where
type AttrAllowedOps EntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryInputHintsPropertyInfo = (~) [InputHints]
type AttrBaseTypeConstraint EntryInputHintsPropertyInfo = EntryK
type AttrGetType EntryInputHintsPropertyInfo = [InputHints]
type AttrLabel EntryInputHintsPropertyInfo = "Entry::input-hints"
attrGet _ = getEntryInputHints
attrSet _ = setEntryInputHints
attrConstruct _ = constructEntryInputHints
getEntryInputPurpose :: (MonadIO m, EntryK o) => o -> m InputPurpose
getEntryInputPurpose obj = liftIO $ getObjectPropertyEnum obj "input-purpose"
setEntryInputPurpose :: (MonadIO m, EntryK o) => o -> InputPurpose -> m ()
setEntryInputPurpose obj val = liftIO $ setObjectPropertyEnum obj "input-purpose" val
constructEntryInputPurpose :: InputPurpose -> IO ([Char], GValue)
constructEntryInputPurpose val = constructObjectPropertyEnum "input-purpose" val
data EntryInputPurposePropertyInfo
instance AttrInfo EntryInputPurposePropertyInfo where
type AttrAllowedOps EntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryInputPurposePropertyInfo = (~) InputPurpose
type AttrBaseTypeConstraint EntryInputPurposePropertyInfo = EntryK
type AttrGetType EntryInputPurposePropertyInfo = InputPurpose
type AttrLabel EntryInputPurposePropertyInfo = "Entry::input-purpose"
attrGet _ = getEntryInputPurpose
attrSet _ = setEntryInputPurpose
attrConstruct _ = constructEntryInputPurpose
getEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> m Word32
getEntryInvisibleChar obj = liftIO $ getObjectPropertyCUInt obj "invisible-char"
setEntryInvisibleChar :: (MonadIO m, EntryK o) => o -> Word32 -> m ()
setEntryInvisibleChar obj val = liftIO $ setObjectPropertyCUInt obj "invisible-char" val
constructEntryInvisibleChar :: Word32 -> IO ([Char], GValue)
constructEntryInvisibleChar val = constructObjectPropertyCUInt "invisible-char" val
data EntryInvisibleCharPropertyInfo
instance AttrInfo EntryInvisibleCharPropertyInfo where
type AttrAllowedOps EntryInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32
type AttrBaseTypeConstraint EntryInvisibleCharPropertyInfo = EntryK
type AttrGetType EntryInvisibleCharPropertyInfo = Word32
type AttrLabel EntryInvisibleCharPropertyInfo = "Entry::invisible-char"
attrGet _ = getEntryInvisibleChar
attrSet _ = setEntryInvisibleChar
attrConstruct _ = constructEntryInvisibleChar
getEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> m Bool
getEntryInvisibleCharSet obj = liftIO $ getObjectPropertyBool obj "invisible-char-set"
setEntryInvisibleCharSet :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryInvisibleCharSet obj val = liftIO $ setObjectPropertyBool obj "invisible-char-set" val
constructEntryInvisibleCharSet :: Bool -> IO ([Char], GValue)
constructEntryInvisibleCharSet val = constructObjectPropertyBool "invisible-char-set" val
data EntryInvisibleCharSetPropertyInfo
instance AttrInfo EntryInvisibleCharSetPropertyInfo where
type AttrAllowedOps EntryInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryInvisibleCharSetPropertyInfo = EntryK
type AttrGetType EntryInvisibleCharSetPropertyInfo = Bool
type AttrLabel EntryInvisibleCharSetPropertyInfo = "Entry::invisible-char-set"
attrGet _ = getEntryInvisibleCharSet
attrSet _ = setEntryInvisibleCharSet
attrConstruct _ = constructEntryInvisibleCharSet
getEntryMaxLength :: (MonadIO m, EntryK o) => o -> m Int32
getEntryMaxLength obj = liftIO $ getObjectPropertyCInt obj "max-length"
setEntryMaxLength :: (MonadIO m, EntryK o) => o -> Int32 -> m ()
setEntryMaxLength obj val = liftIO $ setObjectPropertyCInt obj "max-length" val
constructEntryMaxLength :: Int32 -> IO ([Char], GValue)
constructEntryMaxLength val = constructObjectPropertyCInt "max-length" val
data EntryMaxLengthPropertyInfo
instance AttrInfo EntryMaxLengthPropertyInfo where
type AttrAllowedOps EntryMaxLengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryMaxLengthPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryMaxLengthPropertyInfo = EntryK
type AttrGetType EntryMaxLengthPropertyInfo = Int32
type AttrLabel EntryMaxLengthPropertyInfo = "Entry::max-length"
attrGet _ = getEntryMaxLength
attrSet _ = setEntryMaxLength
attrConstruct _ = constructEntryMaxLength
getEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> m Int32
getEntryMaxWidthChars obj = liftIO $ getObjectPropertyCInt obj "max-width-chars"
setEntryMaxWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m ()
setEntryMaxWidthChars obj val = liftIO $ setObjectPropertyCInt obj "max-width-chars" val
constructEntryMaxWidthChars :: Int32 -> IO ([Char], GValue)
constructEntryMaxWidthChars val = constructObjectPropertyCInt "max-width-chars" val
data EntryMaxWidthCharsPropertyInfo
instance AttrInfo EntryMaxWidthCharsPropertyInfo where
type AttrAllowedOps EntryMaxWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryMaxWidthCharsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryMaxWidthCharsPropertyInfo = EntryK
type AttrGetType EntryMaxWidthCharsPropertyInfo = Int32
type AttrLabel EntryMaxWidthCharsPropertyInfo = "Entry::max-width-chars"
attrGet _ = getEntryMaxWidthChars
attrSet _ = setEntryMaxWidthChars
attrConstruct _ = constructEntryMaxWidthChars
getEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> m Bool
getEntryOverwriteMode obj = liftIO $ getObjectPropertyBool obj "overwrite-mode"
setEntryOverwriteMode :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryOverwriteMode obj val = liftIO $ setObjectPropertyBool obj "overwrite-mode" val
constructEntryOverwriteMode :: Bool -> IO ([Char], GValue)
constructEntryOverwriteMode val = constructObjectPropertyBool "overwrite-mode" val
data EntryOverwriteModePropertyInfo
instance AttrInfo EntryOverwriteModePropertyInfo where
type AttrAllowedOps EntryOverwriteModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryOverwriteModePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryOverwriteModePropertyInfo = EntryK
type AttrGetType EntryOverwriteModePropertyInfo = Bool
type AttrLabel EntryOverwriteModePropertyInfo = "Entry::overwrite-mode"
attrGet _ = getEntryOverwriteMode
attrSet _ = setEntryOverwriteMode
attrConstruct _ = constructEntryOverwriteMode
getEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryPlaceholderText obj = liftIO $ getObjectPropertyString obj "placeholder-text"
setEntryPlaceholderText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryPlaceholderText obj val = liftIO $ setObjectPropertyString obj "placeholder-text" val
constructEntryPlaceholderText :: T.Text -> IO ([Char], GValue)
constructEntryPlaceholderText val = constructObjectPropertyString "placeholder-text" val
data EntryPlaceholderTextPropertyInfo
instance AttrInfo EntryPlaceholderTextPropertyInfo where
type AttrAllowedOps EntryPlaceholderTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPlaceholderTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryPlaceholderTextPropertyInfo = EntryK
type AttrGetType EntryPlaceholderTextPropertyInfo = T.Text
type AttrLabel EntryPlaceholderTextPropertyInfo = "Entry::placeholder-text"
attrGet _ = getEntryPlaceholderText
attrSet _ = setEntryPlaceholderText
attrConstruct _ = constructEntryPlaceholderText
getEntryPopulateAll :: (MonadIO m, EntryK o) => o -> m Bool
getEntryPopulateAll obj = liftIO $ getObjectPropertyBool obj "populate-all"
setEntryPopulateAll :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryPopulateAll obj val = liftIO $ setObjectPropertyBool obj "populate-all" val
constructEntryPopulateAll :: Bool -> IO ([Char], GValue)
constructEntryPopulateAll val = constructObjectPropertyBool "populate-all" val
data EntryPopulateAllPropertyInfo
instance AttrInfo EntryPopulateAllPropertyInfo where
type AttrAllowedOps EntryPopulateAllPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPopulateAllPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryPopulateAllPropertyInfo = EntryK
type AttrGetType EntryPopulateAllPropertyInfo = Bool
type AttrLabel EntryPopulateAllPropertyInfo = "Entry::populate-all"
attrGet _ = getEntryPopulateAll
attrSet _ = setEntryPopulateAll
attrConstruct _ = constructEntryPopulateAll
getEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool
getEntryPrimaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "primary-icon-activatable"
setEntryPrimaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryPrimaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "primary-icon-activatable" val
constructEntryPrimaryIconActivatable :: Bool -> IO ([Char], GValue)
constructEntryPrimaryIconActivatable val = constructObjectPropertyBool "primary-icon-activatable" val
data EntryPrimaryIconActivatablePropertyInfo
instance AttrInfo EntryPrimaryIconActivatablePropertyInfo where
type AttrAllowedOps EntryPrimaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconActivatablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryPrimaryIconActivatablePropertyInfo = EntryK
type AttrGetType EntryPrimaryIconActivatablePropertyInfo = Bool
type AttrLabel EntryPrimaryIconActivatablePropertyInfo = "Entry::primary-icon-activatable"
attrGet _ = getEntryPrimaryIconActivatable
attrSet _ = setEntryPrimaryIconActivatable
attrConstruct _ = constructEntryPrimaryIconActivatable
getEntryPrimaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon
getEntryPrimaryIconGicon obj = liftIO $ getObjectPropertyObject obj "primary-icon-gicon" Gio.Icon
setEntryPrimaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m ()
setEntryPrimaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "primary-icon-gicon" val
constructEntryPrimaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)
constructEntryPrimaryIconGicon val = constructObjectPropertyObject "primary-icon-gicon" val
data EntryPrimaryIconGiconPropertyInfo
instance AttrInfo EntryPrimaryIconGiconPropertyInfo where
type AttrAllowedOps EntryPrimaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconGiconPropertyInfo = Gio.IconK
type AttrBaseTypeConstraint EntryPrimaryIconGiconPropertyInfo = EntryK
type AttrGetType EntryPrimaryIconGiconPropertyInfo = Gio.Icon
type AttrLabel EntryPrimaryIconGiconPropertyInfo = "Entry::primary-icon-gicon"
attrGet _ = getEntryPrimaryIconGicon
attrSet _ = setEntryPrimaryIconGicon
attrConstruct _ = constructEntryPrimaryIconGicon
getEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryPrimaryIconName obj = liftIO $ getObjectPropertyString obj "primary-icon-name"
setEntryPrimaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryPrimaryIconName obj val = liftIO $ setObjectPropertyString obj "primary-icon-name" val
constructEntryPrimaryIconName :: T.Text -> IO ([Char], GValue)
constructEntryPrimaryIconName val = constructObjectPropertyString "primary-icon-name" val
data EntryPrimaryIconNamePropertyInfo
instance AttrInfo EntryPrimaryIconNamePropertyInfo where
type AttrAllowedOps EntryPrimaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryPrimaryIconNamePropertyInfo = EntryK
type AttrGetType EntryPrimaryIconNamePropertyInfo = T.Text
type AttrLabel EntryPrimaryIconNamePropertyInfo = "Entry::primary-icon-name"
attrGet _ = getEntryPrimaryIconName
attrSet _ = setEntryPrimaryIconName
attrConstruct _ = constructEntryPrimaryIconName
getEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf
getEntryPrimaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "primary-icon-pixbuf" GdkPixbuf.Pixbuf
setEntryPrimaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m ()
setEntryPrimaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "primary-icon-pixbuf" val
constructEntryPrimaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)
constructEntryPrimaryIconPixbuf val = constructObjectPropertyObject "primary-icon-pixbuf" val
data EntryPrimaryIconPixbufPropertyInfo
instance AttrInfo EntryPrimaryIconPixbufPropertyInfo where
type AttrAllowedOps EntryPrimaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK
type AttrBaseTypeConstraint EntryPrimaryIconPixbufPropertyInfo = EntryK
type AttrGetType EntryPrimaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf
type AttrLabel EntryPrimaryIconPixbufPropertyInfo = "Entry::primary-icon-pixbuf"
attrGet _ = getEntryPrimaryIconPixbuf
attrSet _ = setEntryPrimaryIconPixbuf
attrConstruct _ = constructEntryPrimaryIconPixbuf
getEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool
getEntryPrimaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "primary-icon-sensitive"
setEntryPrimaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryPrimaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "primary-icon-sensitive" val
constructEntryPrimaryIconSensitive :: Bool -> IO ([Char], GValue)
constructEntryPrimaryIconSensitive val = constructObjectPropertyBool "primary-icon-sensitive" val
data EntryPrimaryIconSensitivePropertyInfo
instance AttrInfo EntryPrimaryIconSensitivePropertyInfo where
type AttrAllowedOps EntryPrimaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryPrimaryIconSensitivePropertyInfo = EntryK
type AttrGetType EntryPrimaryIconSensitivePropertyInfo = Bool
type AttrLabel EntryPrimaryIconSensitivePropertyInfo = "Entry::primary-icon-sensitive"
attrGet _ = getEntryPrimaryIconSensitive
attrSet _ = setEntryPrimaryIconSensitive
attrConstruct _ = constructEntryPrimaryIconSensitive
getEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryPrimaryIconStock obj = liftIO $ getObjectPropertyString obj "primary-icon-stock"
setEntryPrimaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryPrimaryIconStock obj val = liftIO $ setObjectPropertyString obj "primary-icon-stock" val
constructEntryPrimaryIconStock :: T.Text -> IO ([Char], GValue)
constructEntryPrimaryIconStock val = constructObjectPropertyString "primary-icon-stock" val
data EntryPrimaryIconStockPropertyInfo
instance AttrInfo EntryPrimaryIconStockPropertyInfo where
type AttrAllowedOps EntryPrimaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconStockPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryPrimaryIconStockPropertyInfo = EntryK
type AttrGetType EntryPrimaryIconStockPropertyInfo = T.Text
type AttrLabel EntryPrimaryIconStockPropertyInfo = "Entry::primary-icon-stock"
attrGet _ = getEntryPrimaryIconStock
attrSet _ = setEntryPrimaryIconStock
attrConstruct _ = constructEntryPrimaryIconStock
getEntryPrimaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType
getEntryPrimaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "primary-icon-storage-type"
data EntryPrimaryIconStorageTypePropertyInfo
instance AttrInfo EntryPrimaryIconStorageTypePropertyInfo where
type AttrAllowedOps EntryPrimaryIconStorageTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint EntryPrimaryIconStorageTypePropertyInfo = EntryK
type AttrGetType EntryPrimaryIconStorageTypePropertyInfo = ImageType
type AttrLabel EntryPrimaryIconStorageTypePropertyInfo = "Entry::primary-icon-storage-type"
attrGet _ = getEntryPrimaryIconStorageType
attrSet _ = undefined
attrConstruct _ = undefined
getEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryPrimaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-markup"
setEntryPrimaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryPrimaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-markup" val
constructEntryPrimaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue)
constructEntryPrimaryIconTooltipMarkup val = constructObjectPropertyString "primary-icon-tooltip-markup" val
data EntryPrimaryIconTooltipMarkupPropertyInfo
instance AttrInfo EntryPrimaryIconTooltipMarkupPropertyInfo where
type AttrAllowedOps EntryPrimaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryPrimaryIconTooltipMarkupPropertyInfo = EntryK
type AttrGetType EntryPrimaryIconTooltipMarkupPropertyInfo = T.Text
type AttrLabel EntryPrimaryIconTooltipMarkupPropertyInfo = "Entry::primary-icon-tooltip-markup"
attrGet _ = getEntryPrimaryIconTooltipMarkup
attrSet _ = setEntryPrimaryIconTooltipMarkup
attrConstruct _ = constructEntryPrimaryIconTooltipMarkup
getEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryPrimaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "primary-icon-tooltip-text"
setEntryPrimaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryPrimaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "primary-icon-tooltip-text" val
constructEntryPrimaryIconTooltipText :: T.Text -> IO ([Char], GValue)
constructEntryPrimaryIconTooltipText val = constructObjectPropertyString "primary-icon-tooltip-text" val
data EntryPrimaryIconTooltipTextPropertyInfo
instance AttrInfo EntryPrimaryIconTooltipTextPropertyInfo where
type AttrAllowedOps EntryPrimaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryPrimaryIconTooltipTextPropertyInfo = EntryK
type AttrGetType EntryPrimaryIconTooltipTextPropertyInfo = T.Text
type AttrLabel EntryPrimaryIconTooltipTextPropertyInfo = "Entry::primary-icon-tooltip-text"
attrGet _ = getEntryPrimaryIconTooltipText
attrSet _ = setEntryPrimaryIconTooltipText
attrConstruct _ = constructEntryPrimaryIconTooltipText
getEntryProgressFraction :: (MonadIO m, EntryK o) => o -> m Double
getEntryProgressFraction obj = liftIO $ getObjectPropertyDouble obj "progress-fraction"
setEntryProgressFraction :: (MonadIO m, EntryK o) => o -> Double -> m ()
setEntryProgressFraction obj val = liftIO $ setObjectPropertyDouble obj "progress-fraction" val
constructEntryProgressFraction :: Double -> IO ([Char], GValue)
constructEntryProgressFraction val = constructObjectPropertyDouble "progress-fraction" val
data EntryProgressFractionPropertyInfo
instance AttrInfo EntryProgressFractionPropertyInfo where
type AttrAllowedOps EntryProgressFractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryProgressFractionPropertyInfo = (~) Double
type AttrBaseTypeConstraint EntryProgressFractionPropertyInfo = EntryK
type AttrGetType EntryProgressFractionPropertyInfo = Double
type AttrLabel EntryProgressFractionPropertyInfo = "Entry::progress-fraction"
attrGet _ = getEntryProgressFraction
attrSet _ = setEntryProgressFraction
attrConstruct _ = constructEntryProgressFraction
getEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> m Double
getEntryProgressPulseStep obj = liftIO $ getObjectPropertyDouble obj "progress-pulse-step"
setEntryProgressPulseStep :: (MonadIO m, EntryK o) => o -> Double -> m ()
setEntryProgressPulseStep obj val = liftIO $ setObjectPropertyDouble obj "progress-pulse-step" val
constructEntryProgressPulseStep :: Double -> IO ([Char], GValue)
constructEntryProgressPulseStep val = constructObjectPropertyDouble "progress-pulse-step" val
data EntryProgressPulseStepPropertyInfo
instance AttrInfo EntryProgressPulseStepPropertyInfo where
type AttrAllowedOps EntryProgressPulseStepPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryProgressPulseStepPropertyInfo = (~) Double
type AttrBaseTypeConstraint EntryProgressPulseStepPropertyInfo = EntryK
type AttrGetType EntryProgressPulseStepPropertyInfo = Double
type AttrLabel EntryProgressPulseStepPropertyInfo = "Entry::progress-pulse-step"
attrGet _ = getEntryProgressPulseStep
attrSet _ = setEntryProgressPulseStep
attrConstruct _ = constructEntryProgressPulseStep
getEntryScrollOffset :: (MonadIO m, EntryK o) => o -> m Int32
getEntryScrollOffset obj = liftIO $ getObjectPropertyCInt obj "scroll-offset"
data EntryScrollOffsetPropertyInfo
instance AttrInfo EntryScrollOffsetPropertyInfo where
type AttrAllowedOps EntryScrollOffsetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntryScrollOffsetPropertyInfo = (~) ()
type AttrBaseTypeConstraint EntryScrollOffsetPropertyInfo = EntryK
type AttrGetType EntryScrollOffsetPropertyInfo = Int32
type AttrLabel EntryScrollOffsetPropertyInfo = "Entry::scroll-offset"
attrGet _ = getEntryScrollOffset
attrSet _ = undefined
attrConstruct _ = undefined
getEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> m Bool
getEntrySecondaryIconActivatable obj = liftIO $ getObjectPropertyBool obj "secondary-icon-activatable"
setEntrySecondaryIconActivatable :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntrySecondaryIconActivatable obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-activatable" val
constructEntrySecondaryIconActivatable :: Bool -> IO ([Char], GValue)
constructEntrySecondaryIconActivatable val = constructObjectPropertyBool "secondary-icon-activatable" val
data EntrySecondaryIconActivatablePropertyInfo
instance AttrInfo EntrySecondaryIconActivatablePropertyInfo where
type AttrAllowedOps EntrySecondaryIconActivatablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconActivatablePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntrySecondaryIconActivatablePropertyInfo = EntryK
type AttrGetType EntrySecondaryIconActivatablePropertyInfo = Bool
type AttrLabel EntrySecondaryIconActivatablePropertyInfo = "Entry::secondary-icon-activatable"
attrGet _ = getEntrySecondaryIconActivatable
attrSet _ = setEntrySecondaryIconActivatable
attrConstruct _ = constructEntrySecondaryIconActivatable
getEntrySecondaryIconGicon :: (MonadIO m, EntryK o) => o -> m Gio.Icon
getEntrySecondaryIconGicon obj = liftIO $ getObjectPropertyObject obj "secondary-icon-gicon" Gio.Icon
setEntrySecondaryIconGicon :: (MonadIO m, EntryK o, Gio.IconK a) => o -> a -> m ()
setEntrySecondaryIconGicon obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-gicon" val
constructEntrySecondaryIconGicon :: (Gio.IconK a) => a -> IO ([Char], GValue)
constructEntrySecondaryIconGicon val = constructObjectPropertyObject "secondary-icon-gicon" val
data EntrySecondaryIconGiconPropertyInfo
instance AttrInfo EntrySecondaryIconGiconPropertyInfo where
type AttrAllowedOps EntrySecondaryIconGiconPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconGiconPropertyInfo = Gio.IconK
type AttrBaseTypeConstraint EntrySecondaryIconGiconPropertyInfo = EntryK
type AttrGetType EntrySecondaryIconGiconPropertyInfo = Gio.Icon
type AttrLabel EntrySecondaryIconGiconPropertyInfo = "Entry::secondary-icon-gicon"
attrGet _ = getEntrySecondaryIconGicon
attrSet _ = setEntrySecondaryIconGicon
attrConstruct _ = constructEntrySecondaryIconGicon
getEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> m T.Text
getEntrySecondaryIconName obj = liftIO $ getObjectPropertyString obj "secondary-icon-name"
setEntrySecondaryIconName :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntrySecondaryIconName obj val = liftIO $ setObjectPropertyString obj "secondary-icon-name" val
constructEntrySecondaryIconName :: T.Text -> IO ([Char], GValue)
constructEntrySecondaryIconName val = constructObjectPropertyString "secondary-icon-name" val
data EntrySecondaryIconNamePropertyInfo
instance AttrInfo EntrySecondaryIconNamePropertyInfo where
type AttrAllowedOps EntrySecondaryIconNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconNamePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntrySecondaryIconNamePropertyInfo = EntryK
type AttrGetType EntrySecondaryIconNamePropertyInfo = T.Text
type AttrLabel EntrySecondaryIconNamePropertyInfo = "Entry::secondary-icon-name"
attrGet _ = getEntrySecondaryIconName
attrSet _ = setEntrySecondaryIconName
attrConstruct _ = constructEntrySecondaryIconName
getEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o) => o -> m GdkPixbuf.Pixbuf
getEntrySecondaryIconPixbuf obj = liftIO $ getObjectPropertyObject obj "secondary-icon-pixbuf" GdkPixbuf.Pixbuf
setEntrySecondaryIconPixbuf :: (MonadIO m, EntryK o, GdkPixbuf.PixbufK a) => o -> a -> m ()
setEntrySecondaryIconPixbuf obj val = liftIO $ setObjectPropertyObject obj "secondary-icon-pixbuf" val
constructEntrySecondaryIconPixbuf :: (GdkPixbuf.PixbufK a) => a -> IO ([Char], GValue)
constructEntrySecondaryIconPixbuf val = constructObjectPropertyObject "secondary-icon-pixbuf" val
data EntrySecondaryIconPixbufPropertyInfo
instance AttrInfo EntrySecondaryIconPixbufPropertyInfo where
type AttrAllowedOps EntrySecondaryIconPixbufPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.PixbufK
type AttrBaseTypeConstraint EntrySecondaryIconPixbufPropertyInfo = EntryK
type AttrGetType EntrySecondaryIconPixbufPropertyInfo = GdkPixbuf.Pixbuf
type AttrLabel EntrySecondaryIconPixbufPropertyInfo = "Entry::secondary-icon-pixbuf"
attrGet _ = getEntrySecondaryIconPixbuf
attrSet _ = setEntrySecondaryIconPixbuf
attrConstruct _ = constructEntrySecondaryIconPixbuf
getEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> m Bool
getEntrySecondaryIconSensitive obj = liftIO $ getObjectPropertyBool obj "secondary-icon-sensitive"
setEntrySecondaryIconSensitive :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntrySecondaryIconSensitive obj val = liftIO $ setObjectPropertyBool obj "secondary-icon-sensitive" val
constructEntrySecondaryIconSensitive :: Bool -> IO ([Char], GValue)
constructEntrySecondaryIconSensitive val = constructObjectPropertyBool "secondary-icon-sensitive" val
data EntrySecondaryIconSensitivePropertyInfo
instance AttrInfo EntrySecondaryIconSensitivePropertyInfo where
type AttrAllowedOps EntrySecondaryIconSensitivePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconSensitivePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntrySecondaryIconSensitivePropertyInfo = EntryK
type AttrGetType EntrySecondaryIconSensitivePropertyInfo = Bool
type AttrLabel EntrySecondaryIconSensitivePropertyInfo = "Entry::secondary-icon-sensitive"
attrGet _ = getEntrySecondaryIconSensitive
attrSet _ = setEntrySecondaryIconSensitive
attrConstruct _ = constructEntrySecondaryIconSensitive
getEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> m T.Text
getEntrySecondaryIconStock obj = liftIO $ getObjectPropertyString obj "secondary-icon-stock"
setEntrySecondaryIconStock :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntrySecondaryIconStock obj val = liftIO $ setObjectPropertyString obj "secondary-icon-stock" val
constructEntrySecondaryIconStock :: T.Text -> IO ([Char], GValue)
constructEntrySecondaryIconStock val = constructObjectPropertyString "secondary-icon-stock" val
data EntrySecondaryIconStockPropertyInfo
instance AttrInfo EntrySecondaryIconStockPropertyInfo where
type AttrAllowedOps EntrySecondaryIconStockPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconStockPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntrySecondaryIconStockPropertyInfo = EntryK
type AttrGetType EntrySecondaryIconStockPropertyInfo = T.Text
type AttrLabel EntrySecondaryIconStockPropertyInfo = "Entry::secondary-icon-stock"
attrGet _ = getEntrySecondaryIconStock
attrSet _ = setEntrySecondaryIconStock
attrConstruct _ = constructEntrySecondaryIconStock
getEntrySecondaryIconStorageType :: (MonadIO m, EntryK o) => o -> m ImageType
getEntrySecondaryIconStorageType obj = liftIO $ getObjectPropertyEnum obj "secondary-icon-storage-type"
data EntrySecondaryIconStorageTypePropertyInfo
instance AttrInfo EntrySecondaryIconStorageTypePropertyInfo where
type AttrAllowedOps EntrySecondaryIconStorageTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint EntrySecondaryIconStorageTypePropertyInfo = EntryK
type AttrGetType EntrySecondaryIconStorageTypePropertyInfo = ImageType
type AttrLabel EntrySecondaryIconStorageTypePropertyInfo = "Entry::secondary-icon-storage-type"
attrGet _ = getEntrySecondaryIconStorageType
attrSet _ = undefined
attrConstruct _ = undefined
getEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> m T.Text
getEntrySecondaryIconTooltipMarkup obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-markup"
setEntrySecondaryIconTooltipMarkup :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntrySecondaryIconTooltipMarkup obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-markup" val
constructEntrySecondaryIconTooltipMarkup :: T.Text -> IO ([Char], GValue)
constructEntrySecondaryIconTooltipMarkup val = constructObjectPropertyString "secondary-icon-tooltip-markup" val
data EntrySecondaryIconTooltipMarkupPropertyInfo
instance AttrInfo EntrySecondaryIconTooltipMarkupPropertyInfo where
type AttrAllowedOps EntrySecondaryIconTooltipMarkupPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntrySecondaryIconTooltipMarkupPropertyInfo = EntryK
type AttrGetType EntrySecondaryIconTooltipMarkupPropertyInfo = T.Text
type AttrLabel EntrySecondaryIconTooltipMarkupPropertyInfo = "Entry::secondary-icon-tooltip-markup"
attrGet _ = getEntrySecondaryIconTooltipMarkup
attrSet _ = setEntrySecondaryIconTooltipMarkup
attrConstruct _ = constructEntrySecondaryIconTooltipMarkup
getEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> m T.Text
getEntrySecondaryIconTooltipText obj = liftIO $ getObjectPropertyString obj "secondary-icon-tooltip-text"
setEntrySecondaryIconTooltipText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntrySecondaryIconTooltipText obj val = liftIO $ setObjectPropertyString obj "secondary-icon-tooltip-text" val
constructEntrySecondaryIconTooltipText :: T.Text -> IO ([Char], GValue)
constructEntrySecondaryIconTooltipText val = constructObjectPropertyString "secondary-icon-tooltip-text" val
data EntrySecondaryIconTooltipTextPropertyInfo
instance AttrInfo EntrySecondaryIconTooltipTextPropertyInfo where
type AttrAllowedOps EntrySecondaryIconTooltipTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntrySecondaryIconTooltipTextPropertyInfo = EntryK
type AttrGetType EntrySecondaryIconTooltipTextPropertyInfo = T.Text
type AttrLabel EntrySecondaryIconTooltipTextPropertyInfo = "Entry::secondary-icon-tooltip-text"
attrGet _ = getEntrySecondaryIconTooltipText
attrSet _ = setEntrySecondaryIconTooltipText
attrConstruct _ = constructEntrySecondaryIconTooltipText
getEntrySelectionBound :: (MonadIO m, EntryK o) => o -> m Int32
getEntrySelectionBound obj = liftIO $ getObjectPropertyCInt obj "selection-bound"
data EntrySelectionBoundPropertyInfo
instance AttrInfo EntrySelectionBoundPropertyInfo where
type AttrAllowedOps EntrySelectionBoundPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntrySelectionBoundPropertyInfo = (~) ()
type AttrBaseTypeConstraint EntrySelectionBoundPropertyInfo = EntryK
type AttrGetType EntrySelectionBoundPropertyInfo = Int32
type AttrLabel EntrySelectionBoundPropertyInfo = "Entry::selection-bound"
attrGet _ = getEntrySelectionBound
attrSet _ = undefined
attrConstruct _ = undefined
getEntryShadowType :: (MonadIO m, EntryK o) => o -> m ShadowType
getEntryShadowType obj = liftIO $ getObjectPropertyEnum obj "shadow-type"
setEntryShadowType :: (MonadIO m, EntryK o) => o -> ShadowType -> m ()
setEntryShadowType obj val = liftIO $ setObjectPropertyEnum obj "shadow-type" val
constructEntryShadowType :: ShadowType -> IO ([Char], GValue)
constructEntryShadowType val = constructObjectPropertyEnum "shadow-type" val
data EntryShadowTypePropertyInfo
instance AttrInfo EntryShadowTypePropertyInfo where
type AttrAllowedOps EntryShadowTypePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryShadowTypePropertyInfo = (~) ShadowType
type AttrBaseTypeConstraint EntryShadowTypePropertyInfo = EntryK
type AttrGetType EntryShadowTypePropertyInfo = ShadowType
type AttrLabel EntryShadowTypePropertyInfo = "Entry::shadow-type"
attrGet _ = getEntryShadowType
attrSet _ = setEntryShadowType
attrConstruct _ = constructEntryShadowType
getEntryTabs :: (MonadIO m, EntryK o) => o -> m Pango.TabArray
getEntryTabs obj = liftIO $ getObjectPropertyBoxed obj "tabs" Pango.TabArray
setEntryTabs :: (MonadIO m, EntryK o) => o -> Pango.TabArray -> m ()
setEntryTabs obj val = liftIO $ setObjectPropertyBoxed obj "tabs" val
constructEntryTabs :: Pango.TabArray -> IO ([Char], GValue)
constructEntryTabs val = constructObjectPropertyBoxed "tabs" val
data EntryTabsPropertyInfo
instance AttrInfo EntryTabsPropertyInfo where
type AttrAllowedOps EntryTabsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryTabsPropertyInfo = (~) Pango.TabArray
type AttrBaseTypeConstraint EntryTabsPropertyInfo = EntryK
type AttrGetType EntryTabsPropertyInfo = Pango.TabArray
type AttrLabel EntryTabsPropertyInfo = "Entry::tabs"
attrGet _ = getEntryTabs
attrSet _ = setEntryTabs
attrConstruct _ = constructEntryTabs
getEntryText :: (MonadIO m, EntryK o) => o -> m T.Text
getEntryText obj = liftIO $ getObjectPropertyString obj "text"
setEntryText :: (MonadIO m, EntryK o) => o -> T.Text -> m ()
setEntryText obj val = liftIO $ setObjectPropertyString obj "text" val
constructEntryText :: T.Text -> IO ([Char], GValue)
constructEntryText val = constructObjectPropertyString "text" val
data EntryTextPropertyInfo
instance AttrInfo EntryTextPropertyInfo where
type AttrAllowedOps EntryTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint EntryTextPropertyInfo = EntryK
type AttrGetType EntryTextPropertyInfo = T.Text
type AttrLabel EntryTextPropertyInfo = "Entry::text"
attrGet _ = getEntryText
attrSet _ = setEntryText
attrConstruct _ = constructEntryText
getEntryTextLength :: (MonadIO m, EntryK o) => o -> m Word32
getEntryTextLength obj = liftIO $ getObjectPropertyCUInt obj "text-length"
data EntryTextLengthPropertyInfo
instance AttrInfo EntryTextLengthPropertyInfo where
type AttrAllowedOps EntryTextLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint EntryTextLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint EntryTextLengthPropertyInfo = EntryK
type AttrGetType EntryTextLengthPropertyInfo = Word32
type AttrLabel EntryTextLengthPropertyInfo = "Entry::text-length"
attrGet _ = getEntryTextLength
attrSet _ = undefined
attrConstruct _ = undefined
getEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> m Bool
getEntryTruncateMultiline obj = liftIO $ getObjectPropertyBool obj "truncate-multiline"
setEntryTruncateMultiline :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryTruncateMultiline obj val = liftIO $ setObjectPropertyBool obj "truncate-multiline" val
constructEntryTruncateMultiline :: Bool -> IO ([Char], GValue)
constructEntryTruncateMultiline val = constructObjectPropertyBool "truncate-multiline" val
data EntryTruncateMultilinePropertyInfo
instance AttrInfo EntryTruncateMultilinePropertyInfo where
type AttrAllowedOps EntryTruncateMultilinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryTruncateMultilinePropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryTruncateMultilinePropertyInfo = EntryK
type AttrGetType EntryTruncateMultilinePropertyInfo = Bool
type AttrLabel EntryTruncateMultilinePropertyInfo = "Entry::truncate-multiline"
attrGet _ = getEntryTruncateMultiline
attrSet _ = setEntryTruncateMultiline
attrConstruct _ = constructEntryTruncateMultiline
getEntryVisibility :: (MonadIO m, EntryK o) => o -> m Bool
getEntryVisibility obj = liftIO $ getObjectPropertyBool obj "visibility"
setEntryVisibility :: (MonadIO m, EntryK o) => o -> Bool -> m ()
setEntryVisibility obj val = liftIO $ setObjectPropertyBool obj "visibility" val
constructEntryVisibility :: Bool -> IO ([Char], GValue)
constructEntryVisibility val = constructObjectPropertyBool "visibility" val
data EntryVisibilityPropertyInfo
instance AttrInfo EntryVisibilityPropertyInfo where
type AttrAllowedOps EntryVisibilityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryVisibilityPropertyInfo = (~) Bool
type AttrBaseTypeConstraint EntryVisibilityPropertyInfo = EntryK
type AttrGetType EntryVisibilityPropertyInfo = Bool
type AttrLabel EntryVisibilityPropertyInfo = "Entry::visibility"
attrGet _ = getEntryVisibility
attrSet _ = setEntryVisibility
attrConstruct _ = constructEntryVisibility
getEntryWidthChars :: (MonadIO m, EntryK o) => o -> m Int32
getEntryWidthChars obj = liftIO $ getObjectPropertyCInt obj "width-chars"
setEntryWidthChars :: (MonadIO m, EntryK o) => o -> Int32 -> m ()
setEntryWidthChars obj val = liftIO $ setObjectPropertyCInt obj "width-chars" val
constructEntryWidthChars :: Int32 -> IO ([Char], GValue)
constructEntryWidthChars val = constructObjectPropertyCInt "width-chars" val
data EntryWidthCharsPropertyInfo
instance AttrInfo EntryWidthCharsPropertyInfo where
type AttrAllowedOps EntryWidthCharsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryWidthCharsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint EntryWidthCharsPropertyInfo = EntryK
type AttrGetType EntryWidthCharsPropertyInfo = Int32
type AttrLabel EntryWidthCharsPropertyInfo = "Entry::width-chars"
attrGet _ = getEntryWidthChars
attrSet _ = setEntryWidthChars
attrConstruct _ = constructEntryWidthChars
getEntryXalign :: (MonadIO m, EntryK o) => o -> m Float
getEntryXalign obj = liftIO $ getObjectPropertyFloat obj "xalign"
setEntryXalign :: (MonadIO m, EntryK o) => o -> Float -> m ()
setEntryXalign obj val = liftIO $ setObjectPropertyFloat obj "xalign" val
constructEntryXalign :: Float -> IO ([Char], GValue)
constructEntryXalign val = constructObjectPropertyFloat "xalign" val
data EntryXalignPropertyInfo
instance AttrInfo EntryXalignPropertyInfo where
type AttrAllowedOps EntryXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint EntryXalignPropertyInfo = (~) Float
type AttrBaseTypeConstraint EntryXalignPropertyInfo = EntryK
type AttrGetType EntryXalignPropertyInfo = Float
type AttrLabel EntryXalignPropertyInfo = "Entry::xalign"
attrGet _ = getEntryXalign
attrSet _ = setEntryXalign
attrConstruct _ = constructEntryXalign
type instance AttributeList Entry = EntryAttributeList
type EntryAttributeList = ('[ '("activates-default", EntryActivatesDefaultPropertyInfo), '("app-paintable", WidgetAppPaintablePropertyInfo), '("attributes", EntryAttributesPropertyInfo), '("buffer", EntryBufferPropertyInfo), '("can-default", WidgetCanDefaultPropertyInfo), '("can-focus", WidgetCanFocusPropertyInfo), '("caps-lock-warning", EntryCapsLockWarningPropertyInfo), '("completion", EntryCompletionPropertyInfo), '("composite-child", WidgetCompositeChildPropertyInfo), '("cursor-position", EntryCursorPositionPropertyInfo), '("double-buffered", WidgetDoubleBufferedPropertyInfo), '("editable", EntryEditablePropertyInfo), '("editing-canceled", CellEditableEditingCanceledPropertyInfo), '("events", WidgetEventsPropertyInfo), '("expand", WidgetExpandPropertyInfo), '("halign", WidgetHalignPropertyInfo), '("has-default", WidgetHasDefaultPropertyInfo), '("has-focus", WidgetHasFocusPropertyInfo), '("has-frame", EntryHasFramePropertyInfo), '("has-tooltip", WidgetHasTooltipPropertyInfo), '("height-request", WidgetHeightRequestPropertyInfo), '("hexpand", WidgetHexpandPropertyInfo), '("hexpand-set", WidgetHexpandSetPropertyInfo), '("im-module", EntryImModulePropertyInfo), '("inner-border", EntryInnerBorderPropertyInfo), '("input-hints", EntryInputHintsPropertyInfo), '("input-purpose", EntryInputPurposePropertyInfo), '("invisible-char", EntryInvisibleCharPropertyInfo), '("invisible-char-set", EntryInvisibleCharSetPropertyInfo), '("is-focus", WidgetIsFocusPropertyInfo), '("margin", WidgetMarginPropertyInfo), '("margin-bottom", WidgetMarginBottomPropertyInfo), '("margin-end", WidgetMarginEndPropertyInfo), '("margin-left", WidgetMarginLeftPropertyInfo), '("margin-right", WidgetMarginRightPropertyInfo), '("margin-start", WidgetMarginStartPropertyInfo), '("margin-top", WidgetMarginTopPropertyInfo), '("max-length", EntryMaxLengthPropertyInfo), '("max-width-chars", EntryMaxWidthCharsPropertyInfo), '("name", WidgetNamePropertyInfo), '("no-show-all", WidgetNoShowAllPropertyInfo), '("opacity", WidgetOpacityPropertyInfo), '("overwrite-mode", EntryOverwriteModePropertyInfo), '("parent", WidgetParentPropertyInfo), '("placeholder-text", EntryPlaceholderTextPropertyInfo), '("populate-all", EntryPopulateAllPropertyInfo), '("primary-icon-activatable", EntryPrimaryIconActivatablePropertyInfo), '("primary-icon-gicon", EntryPrimaryIconGiconPropertyInfo), '("primary-icon-name", EntryPrimaryIconNamePropertyInfo), '("primary-icon-pixbuf", EntryPrimaryIconPixbufPropertyInfo), '("primary-icon-sensitive", EntryPrimaryIconSensitivePropertyInfo), '("primary-icon-stock", EntryPrimaryIconStockPropertyInfo), '("primary-icon-storage-type", EntryPrimaryIconStorageTypePropertyInfo), '("primary-icon-tooltip-markup", EntryPrimaryIconTooltipMarkupPropertyInfo), '("primary-icon-tooltip-text", EntryPrimaryIconTooltipTextPropertyInfo), '("progress-fraction", EntryProgressFractionPropertyInfo), '("progress-pulse-step", EntryProgressPulseStepPropertyInfo), '("receives-default", WidgetReceivesDefaultPropertyInfo), '("scale-factor", WidgetScaleFactorPropertyInfo), '("scroll-offset", EntryScrollOffsetPropertyInfo), '("secondary-icon-activatable", EntrySecondaryIconActivatablePropertyInfo), '("secondary-icon-gicon", EntrySecondaryIconGiconPropertyInfo), '("secondary-icon-name", EntrySecondaryIconNamePropertyInfo), '("secondary-icon-pixbuf", EntrySecondaryIconPixbufPropertyInfo), '("secondary-icon-sensitive", EntrySecondaryIconSensitivePropertyInfo), '("secondary-icon-stock", EntrySecondaryIconStockPropertyInfo), '("secondary-icon-storage-type", EntrySecondaryIconStorageTypePropertyInfo), '("secondary-icon-tooltip-markup", EntrySecondaryIconTooltipMarkupPropertyInfo), '("secondary-icon-tooltip-text", EntrySecondaryIconTooltipTextPropertyInfo), '("selection-bound", EntrySelectionBoundPropertyInfo), '("sensitive", WidgetSensitivePropertyInfo), '("shadow-type", EntryShadowTypePropertyInfo), '("style", WidgetStylePropertyInfo), '("tabs", EntryTabsPropertyInfo), '("text", EntryTextPropertyInfo), '("text-length", EntryTextLengthPropertyInfo), '("tooltip-markup", WidgetTooltipMarkupPropertyInfo), '("tooltip-text", WidgetTooltipTextPropertyInfo), '("truncate-multiline", EntryTruncateMultilinePropertyInfo), '("valign", WidgetValignPropertyInfo), '("vexpand", WidgetVexpandPropertyInfo), '("vexpand-set", WidgetVexpandSetPropertyInfo), '("visibility", EntryVisibilityPropertyInfo), '("visible", WidgetVisiblePropertyInfo), '("width-chars", EntryWidthCharsPropertyInfo), '("width-request", WidgetWidthRequestPropertyInfo), '("window", WidgetWindowPropertyInfo), '("xalign", EntryXalignPropertyInfo)] :: [(Symbol, *)])
data EntryActivateSignalInfo
instance SignalInfo EntryActivateSignalInfo where
type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback
connectSignal _ = connectEntryActivate
data EntryBackspaceSignalInfo
instance SignalInfo EntryBackspaceSignalInfo where
type HaskellCallbackType EntryBackspaceSignalInfo = EntryBackspaceCallback
connectSignal _ = connectEntryBackspace
data EntryCopyClipboardSignalInfo
instance SignalInfo EntryCopyClipboardSignalInfo where
type HaskellCallbackType EntryCopyClipboardSignalInfo = EntryCopyClipboardCallback
connectSignal _ = connectEntryCopyClipboard
data EntryCutClipboardSignalInfo
instance SignalInfo EntryCutClipboardSignalInfo where
type HaskellCallbackType EntryCutClipboardSignalInfo = EntryCutClipboardCallback
connectSignal _ = connectEntryCutClipboard
data EntryDeleteFromCursorSignalInfo
instance SignalInfo EntryDeleteFromCursorSignalInfo where
type HaskellCallbackType EntryDeleteFromCursorSignalInfo = EntryDeleteFromCursorCallback
connectSignal _ = connectEntryDeleteFromCursor
data EntryIconPressSignalInfo
instance SignalInfo EntryIconPressSignalInfo where
type HaskellCallbackType EntryIconPressSignalInfo = EntryIconPressCallback
connectSignal _ = connectEntryIconPress
data EntryIconReleaseSignalInfo
instance SignalInfo EntryIconReleaseSignalInfo where
type HaskellCallbackType EntryIconReleaseSignalInfo = EntryIconReleaseCallback
connectSignal _ = connectEntryIconRelease
data EntryInsertAtCursorSignalInfo
instance SignalInfo EntryInsertAtCursorSignalInfo where
type HaskellCallbackType EntryInsertAtCursorSignalInfo = EntryInsertAtCursorCallback
connectSignal _ = connectEntryInsertAtCursor
data EntryMoveCursorSignalInfo
instance SignalInfo EntryMoveCursorSignalInfo where
type HaskellCallbackType EntryMoveCursorSignalInfo = EntryMoveCursorCallback
connectSignal _ = connectEntryMoveCursor
data EntryPasteClipboardSignalInfo
instance SignalInfo EntryPasteClipboardSignalInfo where
type HaskellCallbackType EntryPasteClipboardSignalInfo = EntryPasteClipboardCallback
connectSignal _ = connectEntryPasteClipboard
data EntryPopulatePopupSignalInfo
instance SignalInfo EntryPopulatePopupSignalInfo where
type HaskellCallbackType EntryPopulatePopupSignalInfo = EntryPopulatePopupCallback
connectSignal _ = connectEntryPopulatePopup
data EntryPreeditChangedSignalInfo
instance SignalInfo EntryPreeditChangedSignalInfo where
type HaskellCallbackType EntryPreeditChangedSignalInfo = EntryPreeditChangedCallback
connectSignal _ = connectEntryPreeditChanged
data EntryToggleOverwriteSignalInfo
instance SignalInfo EntryToggleOverwriteSignalInfo where
type HaskellCallbackType EntryToggleOverwriteSignalInfo = EntryToggleOverwriteCallback
connectSignal _ = connectEntryToggleOverwrite
type instance SignalList Entry = EntrySignalList
type EntrySignalList = ('[ '("accel-closures-changed", WidgetAccelClosuresChangedSignalInfo), '("activate", EntryActivateSignalInfo), '("backspace", EntryBackspaceSignalInfo), '("button-press-event", WidgetButtonPressEventSignalInfo), '("button-release-event", WidgetButtonReleaseEventSignalInfo), '("can-activate-accel", WidgetCanActivateAccelSignalInfo), '("changed", EditableChangedSignalInfo), '("child-notify", WidgetChildNotifySignalInfo), '("composited-changed", WidgetCompositedChangedSignalInfo), '("configure-event", WidgetConfigureEventSignalInfo), '("copy-clipboard", EntryCopyClipboardSignalInfo), '("cut-clipboard", EntryCutClipboardSignalInfo), '("damage-event", WidgetDamageEventSignalInfo), '("delete-event", WidgetDeleteEventSignalInfo), '("delete-from-cursor", EntryDeleteFromCursorSignalInfo), '("delete-text", EditableDeleteTextSignalInfo), '("destroy", WidgetDestroySignalInfo), '("destroy-event", WidgetDestroyEventSignalInfo), '("direction-changed", WidgetDirectionChangedSignalInfo), '("drag-begin", WidgetDragBeginSignalInfo), '("drag-data-delete", WidgetDragDataDeleteSignalInfo), '("drag-data-get", WidgetDragDataGetSignalInfo), '("drag-data-received", WidgetDragDataReceivedSignalInfo), '("drag-drop", WidgetDragDropSignalInfo), '("drag-end", WidgetDragEndSignalInfo), '("drag-failed", WidgetDragFailedSignalInfo), '("drag-leave", WidgetDragLeaveSignalInfo), '("drag-motion", WidgetDragMotionSignalInfo), '("draw", WidgetDrawSignalInfo), '("editing-done", CellEditableEditingDoneSignalInfo), '("enter-notify-event", WidgetEnterNotifyEventSignalInfo), '("event", WidgetEventSignalInfo), '("event-after", WidgetEventAfterSignalInfo), '("focus", WidgetFocusSignalInfo), '("focus-in-event", WidgetFocusInEventSignalInfo), '("focus-out-event", WidgetFocusOutEventSignalInfo), '("grab-broken-event", WidgetGrabBrokenEventSignalInfo), '("grab-focus", WidgetGrabFocusSignalInfo), '("grab-notify", WidgetGrabNotifySignalInfo), '("hide", WidgetHideSignalInfo), '("hierarchy-changed", WidgetHierarchyChangedSignalInfo), '("icon-press", EntryIconPressSignalInfo), '("icon-release", EntryIconReleaseSignalInfo), '("insert-at-cursor", EntryInsertAtCursorSignalInfo), '("insert-text", EditableInsertTextSignalInfo), '("key-press-event", WidgetKeyPressEventSignalInfo), '("key-release-event", WidgetKeyReleaseEventSignalInfo), '("keynav-failed", WidgetKeynavFailedSignalInfo), '("leave-notify-event", WidgetLeaveNotifyEventSignalInfo), '("map", WidgetMapSignalInfo), '("map-event", WidgetMapEventSignalInfo), '("mnemonic-activate", WidgetMnemonicActivateSignalInfo), '("motion-notify-event", WidgetMotionNotifyEventSignalInfo), '("move-cursor", EntryMoveCursorSignalInfo), '("move-focus", WidgetMoveFocusSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("parent-set", WidgetParentSetSignalInfo), '("paste-clipboard", EntryPasteClipboardSignalInfo), '("populate-popup", EntryPopulatePopupSignalInfo), '("popup-menu", WidgetPopupMenuSignalInfo), '("preedit-changed", EntryPreeditChangedSignalInfo), '("property-notify-event", WidgetPropertyNotifyEventSignalInfo), '("proximity-in-event", WidgetProximityInEventSignalInfo), '("proximity-out-event", WidgetProximityOutEventSignalInfo), '("query-tooltip", WidgetQueryTooltipSignalInfo), '("realize", WidgetRealizeSignalInfo), '("remove-widget", CellEditableRemoveWidgetSignalInfo), '("screen-changed", WidgetScreenChangedSignalInfo), '("scroll-event", WidgetScrollEventSignalInfo), '("selection-clear-event", WidgetSelectionClearEventSignalInfo), '("selection-get", WidgetSelectionGetSignalInfo), '("selection-notify-event", WidgetSelectionNotifyEventSignalInfo), '("selection-received", WidgetSelectionReceivedSignalInfo), '("selection-request-event", WidgetSelectionRequestEventSignalInfo), '("show", WidgetShowSignalInfo), '("show-help", WidgetShowHelpSignalInfo), '("size-allocate", WidgetSizeAllocateSignalInfo), '("state-changed", WidgetStateChangedSignalInfo), '("state-flags-changed", WidgetStateFlagsChangedSignalInfo), '("style-set", WidgetStyleSetSignalInfo), '("style-updated", WidgetStyleUpdatedSignalInfo), '("toggle-overwrite", EntryToggleOverwriteSignalInfo), '("touch-event", WidgetTouchEventSignalInfo), '("unmap", WidgetUnmapSignalInfo), '("unmap-event", WidgetUnmapEventSignalInfo), '("unrealize", WidgetUnrealizeSignalInfo), '("visibility-notify-event", WidgetVisibilityNotifyEventSignalInfo), '("window-state-event", WidgetWindowStateEventSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_entry_new" gtk_entry_new ::
IO (Ptr Entry)
entryNew ::
(MonadIO m) =>
m Entry
entryNew = liftIO $ do
result <- gtk_entry_new
checkUnexpectedReturnNULL "gtk_entry_new" result
result' <- (newObject Entry) result
return result'
foreign import ccall "gtk_entry_new_with_buffer" gtk_entry_new_with_buffer ::
Ptr EntryBuffer ->
IO (Ptr Entry)
entryNewWithBuffer ::
(MonadIO m, EntryBufferK a) =>
a ->
m Entry
entryNewWithBuffer buffer = liftIO $ do
let buffer' = unsafeManagedPtrCastPtr buffer
result <- gtk_entry_new_with_buffer buffer'
checkUnexpectedReturnNULL "gtk_entry_new_with_buffer" result
result' <- (newObject Entry) result
touchManagedPtr buffer
return result'
foreign import ccall "gtk_entry_get_activates_default" gtk_entry_get_activates_default ::
Ptr Entry ->
IO CInt
entryGetActivatesDefault ::
(MonadIO m, EntryK a) =>
a ->
m Bool
entryGetActivatesDefault _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_activates_default _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_alignment" gtk_entry_get_alignment ::
Ptr Entry ->
IO CFloat
entryGetAlignment ::
(MonadIO m, EntryK a) =>
a ->
m Float
entryGetAlignment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_alignment _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_attributes" gtk_entry_get_attributes ::
Ptr Entry ->
IO (Ptr Pango.AttrList)
entryGetAttributes ::
(MonadIO m, EntryK a) =>
a ->
m Pango.AttrList
entryGetAttributes _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_attributes _obj'
checkUnexpectedReturnNULL "gtk_entry_get_attributes" result
result' <- (newBoxed Pango.AttrList) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_buffer" gtk_entry_get_buffer ::
Ptr Entry ->
IO (Ptr EntryBuffer)
entryGetBuffer ::
(MonadIO m, EntryK a) =>
a ->
m EntryBuffer
entryGetBuffer _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_buffer _obj'
checkUnexpectedReturnNULL "gtk_entry_get_buffer" result
result' <- (newObject EntryBuffer) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_completion" gtk_entry_get_completion ::
Ptr Entry ->
IO (Ptr EntryCompletion)
entryGetCompletion ::
(MonadIO m, EntryK a) =>
a ->
m EntryCompletion
entryGetCompletion _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_completion _obj'
checkUnexpectedReturnNULL "gtk_entry_get_completion" result
result' <- (newObject EntryCompletion) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_current_icon_drag_source" gtk_entry_get_current_icon_drag_source ::
Ptr Entry ->
IO Int32
entryGetCurrentIconDragSource ::
(MonadIO m, EntryK a) =>
a ->
m Int32
entryGetCurrentIconDragSource _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_current_icon_drag_source _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_get_cursor_hadjustment" gtk_entry_get_cursor_hadjustment ::
Ptr Entry ->
IO (Ptr Adjustment)
entryGetCursorHadjustment ::
(MonadIO m, EntryK a) =>
a ->
m Adjustment
entryGetCursorHadjustment _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_cursor_hadjustment _obj'
checkUnexpectedReturnNULL "gtk_entry_get_cursor_hadjustment" result
result' <- (newObject Adjustment) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_has_frame" gtk_entry_get_has_frame ::
Ptr Entry ->
IO CInt
entryGetHasFrame ::
(MonadIO m, EntryK a) =>
a ->
m Bool
entryGetHasFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_has_frame _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_activatable" gtk_entry_get_icon_activatable ::
Ptr Entry ->
CUInt ->
IO CInt
entryGetIconActivatable ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m Bool
entryGetIconActivatable _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_activatable _obj' icon_pos'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_area" gtk_entry_get_icon_area ::
Ptr Entry ->
CUInt ->
Ptr Gdk.Rectangle ->
IO ()
entryGetIconArea ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m (Gdk.Rectangle)
entryGetIconArea _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
icon_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_entry_get_icon_area _obj' icon_pos' icon_area
icon_area' <- (wrapBoxed Gdk.Rectangle) icon_area
touchManagedPtr _obj
return icon_area'
foreign import ccall "gtk_entry_get_icon_at_pos" gtk_entry_get_icon_at_pos ::
Ptr Entry ->
Int32 ->
Int32 ->
IO Int32
entryGetIconAtPos ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
Int32 ->
m Int32
entryGetIconAtPos _obj x y = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_icon_at_pos _obj' x y
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_get_icon_gicon" gtk_entry_get_icon_gicon ::
Ptr Entry ->
CUInt ->
IO (Ptr Gio.Icon)
entryGetIconGicon ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m Gio.Icon
entryGetIconGicon _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_gicon _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_gicon" result
result' <- (newObject Gio.Icon) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_name" gtk_entry_get_icon_name ::
Ptr Entry ->
CUInt ->
IO CString
entryGetIconName ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m T.Text
entryGetIconName _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_name _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_pixbuf" gtk_entry_get_icon_pixbuf ::
Ptr Entry ->
CUInt ->
IO (Ptr GdkPixbuf.Pixbuf)
entryGetIconPixbuf ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m GdkPixbuf.Pixbuf
entryGetIconPixbuf _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_pixbuf _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_pixbuf" result
result' <- (newObject GdkPixbuf.Pixbuf) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_sensitive" gtk_entry_get_icon_sensitive ::
Ptr Entry ->
CUInt ->
IO CInt
entryGetIconSensitive ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m Bool
entryGetIconSensitive _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_sensitive _obj' icon_pos'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_stock" gtk_entry_get_icon_stock ::
Ptr Entry ->
CUInt ->
IO CString
entryGetIconStock ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m T.Text
entryGetIconStock _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_stock _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_stock" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_storage_type" gtk_entry_get_icon_storage_type ::
Ptr Entry ->
CUInt ->
IO CUInt
entryGetIconStorageType ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m ImageType
entryGetIconStorageType _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_storage_type _obj' icon_pos'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_tooltip_markup" gtk_entry_get_icon_tooltip_markup ::
Ptr Entry ->
CUInt ->
IO CString
entryGetIconTooltipMarkup ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m T.Text
entryGetIconTooltipMarkup _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_tooltip_markup _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_markup" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_icon_tooltip_text" gtk_entry_get_icon_tooltip_text ::
Ptr Entry ->
CUInt ->
IO CString
entryGetIconTooltipText ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
m T.Text
entryGetIconTooltipText _obj icon_pos = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
result <- gtk_entry_get_icon_tooltip_text _obj' icon_pos'
checkUnexpectedReturnNULL "gtk_entry_get_icon_tooltip_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_inner_border" gtk_entry_get_inner_border ::
Ptr Entry ->
IO (Ptr Border)
entryGetInnerBorder ::
(MonadIO m, EntryK a) =>
a ->
m Border
entryGetInnerBorder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_inner_border _obj'
checkUnexpectedReturnNULL "gtk_entry_get_inner_border" result
result' <- (newBoxed Border) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_input_hints" gtk_entry_get_input_hints ::
Ptr Entry ->
IO CUInt
entryGetInputHints ::
(MonadIO m, EntryK a) =>
a ->
m [InputHints]
entryGetInputHints _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_input_hints _obj'
let result' = wordToGFlags result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_input_purpose" gtk_entry_get_input_purpose ::
Ptr Entry ->
IO CUInt
entryGetInputPurpose ::
(MonadIO m, EntryK a) =>
a ->
m InputPurpose
entryGetInputPurpose _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_input_purpose _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_invisible_char" gtk_entry_get_invisible_char ::
Ptr Entry ->
IO CInt
entryGetInvisibleChar ::
(MonadIO m, EntryK a) =>
a ->
m Char
entryGetInvisibleChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_invisible_char _obj'
let result' = (chr . fromIntegral) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_layout" gtk_entry_get_layout ::
Ptr Entry ->
IO (Ptr Pango.Layout)
entryGetLayout ::
(MonadIO m, EntryK a) =>
a ->
m Pango.Layout
entryGetLayout _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_layout _obj'
checkUnexpectedReturnNULL "gtk_entry_get_layout" result
result' <- (newObject Pango.Layout) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_layout_offsets" gtk_entry_get_layout_offsets ::
Ptr Entry ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
entryGetLayoutOffsets ::
(MonadIO m, EntryK a) =>
a ->
m (Int32,Int32)
entryGetLayoutOffsets _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
x <- allocMem :: IO (Ptr Int32)
y <- allocMem :: IO (Ptr Int32)
gtk_entry_get_layout_offsets _obj' x y
x' <- peek x
y' <- peek y
touchManagedPtr _obj
freeMem x
freeMem y
return (x', y')
foreign import ccall "gtk_entry_get_max_length" gtk_entry_get_max_length ::
Ptr Entry ->
IO Int32
entryGetMaxLength ::
(MonadIO m, EntryK a) =>
a ->
m Int32
entryGetMaxLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_max_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_get_max_width_chars" gtk_entry_get_max_width_chars ::
Ptr Entry ->
IO Int32
entryGetMaxWidthChars ::
(MonadIO m, EntryK a) =>
a ->
m Int32
entryGetMaxWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_max_width_chars _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_get_overwrite_mode" gtk_entry_get_overwrite_mode ::
Ptr Entry ->
IO CInt
entryGetOverwriteMode ::
(MonadIO m, EntryK a) =>
a ->
m Bool
entryGetOverwriteMode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_overwrite_mode _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_placeholder_text" gtk_entry_get_placeholder_text ::
Ptr Entry ->
IO CString
entryGetPlaceholderText ::
(MonadIO m, EntryK a) =>
a ->
m T.Text
entryGetPlaceholderText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_placeholder_text _obj'
checkUnexpectedReturnNULL "gtk_entry_get_placeholder_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_progress_fraction" gtk_entry_get_progress_fraction ::
Ptr Entry ->
IO CDouble
entryGetProgressFraction ::
(MonadIO m, EntryK a) =>
a ->
m Double
entryGetProgressFraction _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_progress_fraction _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_progress_pulse_step" gtk_entry_get_progress_pulse_step ::
Ptr Entry ->
IO CDouble
entryGetProgressPulseStep ::
(MonadIO m, EntryK a) =>
a ->
m Double
entryGetProgressPulseStep _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_progress_pulse_step _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_tabs" gtk_entry_get_tabs ::
Ptr Entry ->
IO (Ptr Pango.TabArray)
entryGetTabs ::
(MonadIO m, EntryK a) =>
a ->
m Pango.TabArray
entryGetTabs _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_tabs _obj'
checkUnexpectedReturnNULL "gtk_entry_get_tabs" result
result' <- (newBoxed Pango.TabArray) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_text" gtk_entry_get_text ::
Ptr Entry ->
IO CString
entryGetText ::
(MonadIO m, EntryK a) =>
a ->
m T.Text
entryGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_text _obj'
checkUnexpectedReturnNULL "gtk_entry_get_text" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_text_area" gtk_entry_get_text_area ::
Ptr Entry ->
Ptr Gdk.Rectangle ->
IO ()
entryGetTextArea ::
(MonadIO m, EntryK a) =>
a ->
m (Gdk.Rectangle)
entryGetTextArea _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text_area <- callocBoxedBytes 16 :: IO (Ptr Gdk.Rectangle)
gtk_entry_get_text_area _obj' text_area
text_area' <- (wrapBoxed Gdk.Rectangle) text_area
touchManagedPtr _obj
return text_area'
foreign import ccall "gtk_entry_get_text_length" gtk_entry_get_text_length ::
Ptr Entry ->
IO Word16
entryGetTextLength ::
(MonadIO m, EntryK a) =>
a ->
m Word16
entryGetTextLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_text_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_get_visibility" gtk_entry_get_visibility ::
Ptr Entry ->
IO CInt
entryGetVisibility ::
(MonadIO m, EntryK a) =>
a ->
m Bool
entryGetVisibility _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_visibility _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "gtk_entry_get_width_chars" gtk_entry_get_width_chars ::
Ptr Entry ->
IO Int32
entryGetWidthChars ::
(MonadIO m, EntryK a) =>
a ->
m Int32
entryGetWidthChars _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_get_width_chars _obj'
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_grab_focus_without_selecting" gtk_entry_grab_focus_without_selecting ::
Ptr Entry ->
IO ()
entryGrabFocusWithoutSelecting ::
(MonadIO m, EntryK a) =>
a ->
m ()
entryGrabFocusWithoutSelecting _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_grab_focus_without_selecting _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_im_context_filter_keypress" gtk_entry_im_context_filter_keypress ::
Ptr Entry ->
Ptr Gdk.EventKey ->
IO CInt
entryImContextFilterKeypress ::
(MonadIO m, EntryK a) =>
a ->
Gdk.EventKey ->
m Bool
entryImContextFilterKeypress _obj event = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let event' = unsafeManagedPtrGetPtr event
result <- gtk_entry_im_context_filter_keypress _obj' event'
let result' = (/= 0) result
touchManagedPtr _obj
touchManagedPtr event
return result'
foreign import ccall "gtk_entry_layout_index_to_text_index" gtk_entry_layout_index_to_text_index ::
Ptr Entry ->
Int32 ->
IO Int32
entryLayoutIndexToTextIndex ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
m Int32
entryLayoutIndexToTextIndex _obj layout_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_layout_index_to_text_index _obj' layout_index
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_progress_pulse" gtk_entry_progress_pulse ::
Ptr Entry ->
IO ()
entryProgressPulse ::
(MonadIO m, EntryK a) =>
a ->
m ()
entryProgressPulse _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_progress_pulse _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_reset_im_context" gtk_entry_reset_im_context ::
Ptr Entry ->
IO ()
entryResetImContext ::
(MonadIO m, EntryK a) =>
a ->
m ()
entryResetImContext _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_reset_im_context _obj'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_activates_default" gtk_entry_set_activates_default ::
Ptr Entry ->
CInt ->
IO ()
entrySetActivatesDefault ::
(MonadIO m, EntryK a) =>
a ->
Bool ->
m ()
entrySetActivatesDefault _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_entry_set_activates_default _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_alignment" gtk_entry_set_alignment ::
Ptr Entry ->
CFloat ->
IO ()
entrySetAlignment ::
(MonadIO m, EntryK a) =>
a ->
Float ->
m ()
entrySetAlignment _obj xalign = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let xalign' = realToFrac xalign
gtk_entry_set_alignment _obj' xalign'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_attributes" gtk_entry_set_attributes ::
Ptr Entry ->
Ptr Pango.AttrList ->
IO ()
entrySetAttributes ::
(MonadIO m, EntryK a) =>
a ->
Pango.AttrList ->
m ()
entrySetAttributes _obj attrs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let attrs' = unsafeManagedPtrGetPtr attrs
gtk_entry_set_attributes _obj' attrs'
touchManagedPtr _obj
touchManagedPtr attrs
return ()
foreign import ccall "gtk_entry_set_buffer" gtk_entry_set_buffer ::
Ptr Entry ->
Ptr EntryBuffer ->
IO ()
entrySetBuffer ::
(MonadIO m, EntryK a, EntryBufferK b) =>
a ->
b ->
m ()
entrySetBuffer _obj buffer = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let buffer' = unsafeManagedPtrCastPtr buffer
gtk_entry_set_buffer _obj' buffer'
touchManagedPtr _obj
touchManagedPtr buffer
return ()
foreign import ccall "gtk_entry_set_completion" gtk_entry_set_completion ::
Ptr Entry ->
Ptr EntryCompletion ->
IO ()
entrySetCompletion ::
(MonadIO m, EntryK a, EntryCompletionK b) =>
a ->
Maybe (b) ->
m ()
entrySetCompletion _obj completion = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCompletion <- case completion of
Nothing -> return nullPtr
Just jCompletion -> do
let jCompletion' = unsafeManagedPtrCastPtr jCompletion
return jCompletion'
gtk_entry_set_completion _obj' maybeCompletion
touchManagedPtr _obj
whenJust completion touchManagedPtr
return ()
foreign import ccall "gtk_entry_set_cursor_hadjustment" gtk_entry_set_cursor_hadjustment ::
Ptr Entry ->
Ptr Adjustment ->
IO ()
entrySetCursorHadjustment ::
(MonadIO m, EntryK a, AdjustmentK b) =>
a ->
b ->
m ()
entrySetCursorHadjustment _obj adjustment = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let adjustment' = unsafeManagedPtrCastPtr adjustment
gtk_entry_set_cursor_hadjustment _obj' adjustment'
touchManagedPtr _obj
touchManagedPtr adjustment
return ()
foreign import ccall "gtk_entry_set_has_frame" gtk_entry_set_has_frame ::
Ptr Entry ->
CInt ->
IO ()
entrySetHasFrame ::
(MonadIO m, EntryK a) =>
a ->
Bool ->
m ()
entrySetHasFrame _obj setting = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let setting' = (fromIntegral . fromEnum) setting
gtk_entry_set_has_frame _obj' setting'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_icon_activatable" gtk_entry_set_icon_activatable ::
Ptr Entry ->
CUInt ->
CInt ->
IO ()
entrySetIconActivatable ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Bool ->
m ()
entrySetIconActivatable _obj icon_pos activatable = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let activatable' = (fromIntegral . fromEnum) activatable
gtk_entry_set_icon_activatable _obj' icon_pos' activatable'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_icon_drag_source" gtk_entry_set_icon_drag_source ::
Ptr Entry ->
CUInt ->
Ptr TargetList ->
CUInt ->
IO ()
entrySetIconDragSource ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
TargetList ->
[Gdk.DragAction] ->
m ()
entrySetIconDragSource _obj icon_pos target_list actions = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let target_list' = unsafeManagedPtrGetPtr target_list
let actions' = gflagsToWord actions
gtk_entry_set_icon_drag_source _obj' icon_pos' target_list' actions'
touchManagedPtr _obj
touchManagedPtr target_list
return ()
foreign import ccall "gtk_entry_set_icon_from_gicon" gtk_entry_set_icon_from_gicon ::
Ptr Entry ->
CUInt ->
Ptr Gio.Icon ->
IO ()
entrySetIconFromGicon ::
(MonadIO m, EntryK a, Gio.IconK b) =>
a ->
EntryIconPosition ->
Maybe (b) ->
m ()
entrySetIconFromGicon _obj icon_pos icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeIcon <- case icon of
Nothing -> return nullPtr
Just jIcon -> do
let jIcon' = unsafeManagedPtrCastPtr jIcon
return jIcon'
gtk_entry_set_icon_from_gicon _obj' icon_pos' maybeIcon
touchManagedPtr _obj
whenJust icon touchManagedPtr
return ()
foreign import ccall "gtk_entry_set_icon_from_icon_name" gtk_entry_set_icon_from_icon_name ::
Ptr Entry ->
CUInt ->
CString ->
IO ()
entrySetIconFromIconName ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Maybe (T.Text) ->
m ()
entrySetIconFromIconName _obj icon_pos icon_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeIcon_name <- case icon_name of
Nothing -> return nullPtr
Just jIcon_name -> do
jIcon_name' <- textToCString jIcon_name
return jIcon_name'
gtk_entry_set_icon_from_icon_name _obj' icon_pos' maybeIcon_name
touchManagedPtr _obj
freeMem maybeIcon_name
return ()
foreign import ccall "gtk_entry_set_icon_from_pixbuf" gtk_entry_set_icon_from_pixbuf ::
Ptr Entry ->
CUInt ->
Ptr GdkPixbuf.Pixbuf ->
IO ()
entrySetIconFromPixbuf ::
(MonadIO m, EntryK a, GdkPixbuf.PixbufK b) =>
a ->
EntryIconPosition ->
Maybe (b) ->
m ()
entrySetIconFromPixbuf _obj icon_pos pixbuf = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybePixbuf <- case pixbuf of
Nothing -> return nullPtr
Just jPixbuf -> do
let jPixbuf' = unsafeManagedPtrCastPtr jPixbuf
return jPixbuf'
gtk_entry_set_icon_from_pixbuf _obj' icon_pos' maybePixbuf
touchManagedPtr _obj
whenJust pixbuf touchManagedPtr
return ()
foreign import ccall "gtk_entry_set_icon_from_stock" gtk_entry_set_icon_from_stock ::
Ptr Entry ->
CUInt ->
CString ->
IO ()
entrySetIconFromStock ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Maybe (T.Text) ->
m ()
entrySetIconFromStock _obj icon_pos stock_id = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeStock_id <- case stock_id of
Nothing -> return nullPtr
Just jStock_id -> do
jStock_id' <- textToCString jStock_id
return jStock_id'
gtk_entry_set_icon_from_stock _obj' icon_pos' maybeStock_id
touchManagedPtr _obj
freeMem maybeStock_id
return ()
foreign import ccall "gtk_entry_set_icon_sensitive" gtk_entry_set_icon_sensitive ::
Ptr Entry ->
CUInt ->
CInt ->
IO ()
entrySetIconSensitive ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Bool ->
m ()
entrySetIconSensitive _obj icon_pos sensitive = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
let sensitive' = (fromIntegral . fromEnum) sensitive
gtk_entry_set_icon_sensitive _obj' icon_pos' sensitive'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_icon_tooltip_markup" gtk_entry_set_icon_tooltip_markup ::
Ptr Entry ->
CUInt ->
CString ->
IO ()
entrySetIconTooltipMarkup ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Maybe (T.Text) ->
m ()
entrySetIconTooltipMarkup _obj icon_pos tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
gtk_entry_set_icon_tooltip_markup _obj' icon_pos' maybeTooltip
touchManagedPtr _obj
freeMem maybeTooltip
return ()
foreign import ccall "gtk_entry_set_icon_tooltip_text" gtk_entry_set_icon_tooltip_text ::
Ptr Entry ->
CUInt ->
CString ->
IO ()
entrySetIconTooltipText ::
(MonadIO m, EntryK a) =>
a ->
EntryIconPosition ->
Maybe (T.Text) ->
m ()
entrySetIconTooltipText _obj icon_pos tooltip = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon_pos' = (fromIntegral . fromEnum) icon_pos
maybeTooltip <- case tooltip of
Nothing -> return nullPtr
Just jTooltip -> do
jTooltip' <- textToCString jTooltip
return jTooltip'
gtk_entry_set_icon_tooltip_text _obj' icon_pos' maybeTooltip
touchManagedPtr _obj
freeMem maybeTooltip
return ()
foreign import ccall "gtk_entry_set_inner_border" gtk_entry_set_inner_border ::
Ptr Entry ->
Ptr Border ->
IO ()
entrySetInnerBorder ::
(MonadIO m, EntryK a) =>
a ->
Maybe (Border) ->
m ()
entrySetInnerBorder _obj border = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeBorder <- case border of
Nothing -> return nullPtr
Just jBorder -> do
let jBorder' = unsafeManagedPtrGetPtr jBorder
return jBorder'
gtk_entry_set_inner_border _obj' maybeBorder
touchManagedPtr _obj
whenJust border touchManagedPtr
return ()
foreign import ccall "gtk_entry_set_input_hints" gtk_entry_set_input_hints ::
Ptr Entry ->
CUInt ->
IO ()
entrySetInputHints ::
(MonadIO m, EntryK a) =>
a ->
[InputHints] ->
m ()
entrySetInputHints _obj hints = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let hints' = gflagsToWord hints
gtk_entry_set_input_hints _obj' hints'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_input_purpose" gtk_entry_set_input_purpose ::
Ptr Entry ->
CUInt ->
IO ()
entrySetInputPurpose ::
(MonadIO m, EntryK a) =>
a ->
InputPurpose ->
m ()
entrySetInputPurpose _obj purpose = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let purpose' = (fromIntegral . fromEnum) purpose
gtk_entry_set_input_purpose _obj' purpose'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_invisible_char" gtk_entry_set_invisible_char ::
Ptr Entry ->
CInt ->
IO ()
entrySetInvisibleChar ::
(MonadIO m, EntryK a) =>
a ->
Char ->
m ()
entrySetInvisibleChar _obj ch = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let ch' = (fromIntegral . ord) ch
gtk_entry_set_invisible_char _obj' ch'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_max_length" gtk_entry_set_max_length ::
Ptr Entry ->
Int32 ->
IO ()
entrySetMaxLength ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
m ()
entrySetMaxLength _obj max = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_max_length _obj' max
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_max_width_chars" gtk_entry_set_max_width_chars ::
Ptr Entry ->
Int32 ->
IO ()
entrySetMaxWidthChars ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
m ()
entrySetMaxWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_max_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_overwrite_mode" gtk_entry_set_overwrite_mode ::
Ptr Entry ->
CInt ->
IO ()
entrySetOverwriteMode ::
(MonadIO m, EntryK a) =>
a ->
Bool ->
m ()
entrySetOverwriteMode _obj overwrite = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let overwrite' = (fromIntegral . fromEnum) overwrite
gtk_entry_set_overwrite_mode _obj' overwrite'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_placeholder_text" gtk_entry_set_placeholder_text ::
Ptr Entry ->
CString ->
IO ()
entrySetPlaceholderText ::
(MonadIO m, EntryK a) =>
a ->
T.Text ->
m ()
entrySetPlaceholderText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_entry_set_placeholder_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
foreign import ccall "gtk_entry_set_progress_fraction" gtk_entry_set_progress_fraction ::
Ptr Entry ->
CDouble ->
IO ()
entrySetProgressFraction ::
(MonadIO m, EntryK a) =>
a ->
Double ->
m ()
entrySetProgressFraction _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_entry_set_progress_fraction _obj' fraction'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_progress_pulse_step" gtk_entry_set_progress_pulse_step ::
Ptr Entry ->
CDouble ->
IO ()
entrySetProgressPulseStep ::
(MonadIO m, EntryK a) =>
a ->
Double ->
m ()
entrySetProgressPulseStep _obj fraction = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let fraction' = realToFrac fraction
gtk_entry_set_progress_pulse_step _obj' fraction'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_tabs" gtk_entry_set_tabs ::
Ptr Entry ->
Ptr Pango.TabArray ->
IO ()
entrySetTabs ::
(MonadIO m, EntryK a) =>
a ->
Pango.TabArray ->
m ()
entrySetTabs _obj tabs = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let tabs' = unsafeManagedPtrGetPtr tabs
gtk_entry_set_tabs _obj' tabs'
touchManagedPtr _obj
touchManagedPtr tabs
return ()
foreign import ccall "gtk_entry_set_text" gtk_entry_set_text ::
Ptr Entry ->
CString ->
IO ()
entrySetText ::
(MonadIO m, EntryK a) =>
a ->
T.Text ->
m ()
entrySetText _obj text = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
text' <- textToCString text
gtk_entry_set_text _obj' text'
touchManagedPtr _obj
freeMem text'
return ()
foreign import ccall "gtk_entry_set_visibility" gtk_entry_set_visibility ::
Ptr Entry ->
CInt ->
IO ()
entrySetVisibility ::
(MonadIO m, EntryK a) =>
a ->
Bool ->
m ()
entrySetVisibility _obj visible = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let visible' = (fromIntegral . fromEnum) visible
gtk_entry_set_visibility _obj' visible'
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_set_width_chars" gtk_entry_set_width_chars ::
Ptr Entry ->
Int32 ->
IO ()
entrySetWidthChars ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
m ()
entrySetWidthChars _obj n_chars = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_set_width_chars _obj' n_chars
touchManagedPtr _obj
return ()
foreign import ccall "gtk_entry_text_index_to_layout_index" gtk_entry_text_index_to_layout_index ::
Ptr Entry ->
Int32 ->
IO Int32
entryTextIndexToLayoutIndex ::
(MonadIO m, EntryK a) =>
a ->
Int32 ->
m Int32
entryTextIndexToLayoutIndex _obj text_index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gtk_entry_text_index_to_layout_index _obj' text_index
touchManagedPtr _obj
return result
foreign import ccall "gtk_entry_unset_invisible_char" gtk_entry_unset_invisible_char ::
Ptr Entry ->
IO ()
entryUnsetInvisibleChar ::
(MonadIO m, EntryK a) =>
a ->
m ()
entryUnsetInvisibleChar _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
gtk_entry_unset_invisible_char _obj'
touchManagedPtr _obj
return ()