{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.Entry
(
Entry(..) ,
IsEntry ,
toEntry ,
noEntry ,
#if defined(ENABLE_OVERLOADING)
ResolveEntryMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
EntryGetActivatesDefaultMethodInfo ,
#endif
entryGetActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
EntryGetAlignmentMethodInfo ,
#endif
entryGetAlignment ,
#if defined(ENABLE_OVERLOADING)
EntryGetAttributesMethodInfo ,
#endif
entryGetAttributes ,
#if defined(ENABLE_OVERLOADING)
EntryGetBufferMethodInfo ,
#endif
entryGetBuffer ,
#if defined(ENABLE_OVERLOADING)
EntryGetCompletionMethodInfo ,
#endif
entryGetCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryGetCurrentIconDragSourceMethodInfo ,
#endif
entryGetCurrentIconDragSource ,
#if defined(ENABLE_OVERLOADING)
EntryGetCursorHadjustmentMethodInfo ,
#endif
entryGetCursorHadjustment ,
#if defined(ENABLE_OVERLOADING)
EntryGetHasFrameMethodInfo ,
#endif
entryGetHasFrame ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconActivatableMethodInfo ,
#endif
entryGetIconActivatable ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconAreaMethodInfo ,
#endif
entryGetIconArea ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconAtPosMethodInfo ,
#endif
entryGetIconAtPos ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconGiconMethodInfo ,
#endif
entryGetIconGicon ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconNameMethodInfo ,
#endif
entryGetIconName ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconPixbufMethodInfo ,
#endif
entryGetIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconSensitiveMethodInfo ,
#endif
entryGetIconSensitive ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconStockMethodInfo ,
#endif
entryGetIconStock ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconStorageTypeMethodInfo ,
#endif
entryGetIconStorageType ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconTooltipMarkupMethodInfo ,
#endif
entryGetIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
EntryGetIconTooltipTextMethodInfo ,
#endif
entryGetIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
EntryGetInnerBorderMethodInfo ,
#endif
entryGetInnerBorder ,
#if defined(ENABLE_OVERLOADING)
EntryGetInputHintsMethodInfo ,
#endif
entryGetInputHints ,
#if defined(ENABLE_OVERLOADING)
EntryGetInputPurposeMethodInfo ,
#endif
entryGetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
EntryGetInvisibleCharMethodInfo ,
#endif
entryGetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
EntryGetLayoutMethodInfo ,
#endif
entryGetLayout ,
#if defined(ENABLE_OVERLOADING)
EntryGetLayoutOffsetsMethodInfo ,
#endif
entryGetLayoutOffsets ,
#if defined(ENABLE_OVERLOADING)
EntryGetMaxLengthMethodInfo ,
#endif
entryGetMaxLength ,
#if defined(ENABLE_OVERLOADING)
EntryGetMaxWidthCharsMethodInfo ,
#endif
entryGetMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntryGetOverwriteModeMethodInfo ,
#endif
entryGetOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
EntryGetPlaceholderTextMethodInfo ,
#endif
entryGetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
EntryGetProgressFractionMethodInfo ,
#endif
entryGetProgressFraction ,
#if defined(ENABLE_OVERLOADING)
EntryGetProgressPulseStepMethodInfo ,
#endif
entryGetProgressPulseStep ,
#if defined(ENABLE_OVERLOADING)
EntryGetTabsMethodInfo ,
#endif
entryGetTabs ,
#if defined(ENABLE_OVERLOADING)
EntryGetTextMethodInfo ,
#endif
entryGetText ,
#if defined(ENABLE_OVERLOADING)
EntryGetTextAreaMethodInfo ,
#endif
entryGetTextArea ,
#if defined(ENABLE_OVERLOADING)
EntryGetTextLengthMethodInfo ,
#endif
entryGetTextLength ,
#if defined(ENABLE_OVERLOADING)
EntryGetVisibilityMethodInfo ,
#endif
entryGetVisibility ,
#if defined(ENABLE_OVERLOADING)
EntryGetWidthCharsMethodInfo ,
#endif
entryGetWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntryGrabFocusWithoutSelectingMethodInfo,
#endif
entryGrabFocusWithoutSelecting ,
#if defined(ENABLE_OVERLOADING)
EntryImContextFilterKeypressMethodInfo ,
#endif
entryImContextFilterKeypress ,
#if defined(ENABLE_OVERLOADING)
EntryLayoutIndexToTextIndexMethodInfo ,
#endif
entryLayoutIndexToTextIndex ,
entryNew ,
entryNewWithBuffer ,
#if defined(ENABLE_OVERLOADING)
EntryProgressPulseMethodInfo ,
#endif
entryProgressPulse ,
#if defined(ENABLE_OVERLOADING)
EntryResetImContextMethodInfo ,
#endif
entryResetImContext ,
#if defined(ENABLE_OVERLOADING)
EntrySetActivatesDefaultMethodInfo ,
#endif
entrySetActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
EntrySetAlignmentMethodInfo ,
#endif
entrySetAlignment ,
#if defined(ENABLE_OVERLOADING)
EntrySetAttributesMethodInfo ,
#endif
entrySetAttributes ,
#if defined(ENABLE_OVERLOADING)
EntrySetBufferMethodInfo ,
#endif
entrySetBuffer ,
#if defined(ENABLE_OVERLOADING)
EntrySetCompletionMethodInfo ,
#endif
entrySetCompletion ,
#if defined(ENABLE_OVERLOADING)
EntrySetCursorHadjustmentMethodInfo ,
#endif
entrySetCursorHadjustment ,
#if defined(ENABLE_OVERLOADING)
EntrySetHasFrameMethodInfo ,
#endif
entrySetHasFrame ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconActivatableMethodInfo ,
#endif
entrySetIconActivatable ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconDragSourceMethodInfo ,
#endif
entrySetIconDragSource ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconFromGiconMethodInfo ,
#endif
entrySetIconFromGicon ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconFromIconNameMethodInfo ,
#endif
entrySetIconFromIconName ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconFromPixbufMethodInfo ,
#endif
entrySetIconFromPixbuf ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconFromStockMethodInfo ,
#endif
entrySetIconFromStock ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconSensitiveMethodInfo ,
#endif
entrySetIconSensitive ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconTooltipMarkupMethodInfo ,
#endif
entrySetIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
EntrySetIconTooltipTextMethodInfo ,
#endif
entrySetIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
EntrySetInnerBorderMethodInfo ,
#endif
entrySetInnerBorder ,
#if defined(ENABLE_OVERLOADING)
EntrySetInputHintsMethodInfo ,
#endif
entrySetInputHints ,
#if defined(ENABLE_OVERLOADING)
EntrySetInputPurposeMethodInfo ,
#endif
entrySetInputPurpose ,
#if defined(ENABLE_OVERLOADING)
EntrySetInvisibleCharMethodInfo ,
#endif
entrySetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
EntrySetMaxLengthMethodInfo ,
#endif
entrySetMaxLength ,
#if defined(ENABLE_OVERLOADING)
EntrySetMaxWidthCharsMethodInfo ,
#endif
entrySetMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntrySetOverwriteModeMethodInfo ,
#endif
entrySetOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
EntrySetPlaceholderTextMethodInfo ,
#endif
entrySetPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
EntrySetProgressFractionMethodInfo ,
#endif
entrySetProgressFraction ,
#if defined(ENABLE_OVERLOADING)
EntrySetProgressPulseStepMethodInfo ,
#endif
entrySetProgressPulseStep ,
#if defined(ENABLE_OVERLOADING)
EntrySetTabsMethodInfo ,
#endif
entrySetTabs ,
#if defined(ENABLE_OVERLOADING)
EntrySetTextMethodInfo ,
#endif
entrySetText ,
#if defined(ENABLE_OVERLOADING)
EntrySetVisibilityMethodInfo ,
#endif
entrySetVisibility ,
#if defined(ENABLE_OVERLOADING)
EntrySetWidthCharsMethodInfo ,
#endif
entrySetWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntryTextIndexToLayoutIndexMethodInfo ,
#endif
entryTextIndexToLayoutIndex ,
#if defined(ENABLE_OVERLOADING)
EntryUnsetInvisibleCharMethodInfo ,
#endif
entryUnsetInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
EntryActivatesDefaultPropertyInfo ,
#endif
constructEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
entryActivatesDefault ,
#endif
getEntryActivatesDefault ,
setEntryActivatesDefault ,
#if defined(ENABLE_OVERLOADING)
EntryAttributesPropertyInfo ,
#endif
constructEntryAttributes ,
#if defined(ENABLE_OVERLOADING)
entryAttributes ,
#endif
getEntryAttributes ,
setEntryAttributes ,
#if defined(ENABLE_OVERLOADING)
EntryBufferPropertyInfo ,
#endif
constructEntryBuffer ,
#if defined(ENABLE_OVERLOADING)
entryBuffer ,
#endif
getEntryBuffer ,
setEntryBuffer ,
#if defined(ENABLE_OVERLOADING)
EntryCapsLockWarningPropertyInfo ,
#endif
constructEntryCapsLockWarning ,
#if defined(ENABLE_OVERLOADING)
entryCapsLockWarning ,
#endif
getEntryCapsLockWarning ,
setEntryCapsLockWarning ,
#if defined(ENABLE_OVERLOADING)
EntryCompletionPropertyInfo ,
#endif
clearEntryCompletion ,
constructEntryCompletion ,
#if defined(ENABLE_OVERLOADING)
entryCompletion ,
#endif
getEntryCompletion ,
setEntryCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryCursorPositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
entryCursorPosition ,
#endif
getEntryCursorPosition ,
#if defined(ENABLE_OVERLOADING)
EntryEditablePropertyInfo ,
#endif
constructEntryEditable ,
#if defined(ENABLE_OVERLOADING)
entryEditable ,
#endif
getEntryEditable ,
setEntryEditable ,
#if defined(ENABLE_OVERLOADING)
EntryEnableEmojiCompletionPropertyInfo ,
#endif
constructEntryEnableEmojiCompletion ,
#if defined(ENABLE_OVERLOADING)
entryEnableEmojiCompletion ,
#endif
getEntryEnableEmojiCompletion ,
setEntryEnableEmojiCompletion ,
#if defined(ENABLE_OVERLOADING)
EntryHasFramePropertyInfo ,
#endif
constructEntryHasFrame ,
#if defined(ENABLE_OVERLOADING)
entryHasFrame ,
#endif
getEntryHasFrame ,
setEntryHasFrame ,
#if defined(ENABLE_OVERLOADING)
EntryImModulePropertyInfo ,
#endif
clearEntryImModule ,
constructEntryImModule ,
#if defined(ENABLE_OVERLOADING)
entryImModule ,
#endif
getEntryImModule ,
setEntryImModule ,
#if defined(ENABLE_OVERLOADING)
EntryInnerBorderPropertyInfo ,
#endif
clearEntryInnerBorder ,
constructEntryInnerBorder ,
#if defined(ENABLE_OVERLOADING)
entryInnerBorder ,
#endif
getEntryInnerBorder ,
setEntryInnerBorder ,
#if defined(ENABLE_OVERLOADING)
EntryInputHintsPropertyInfo ,
#endif
constructEntryInputHints ,
#if defined(ENABLE_OVERLOADING)
entryInputHints ,
#endif
getEntryInputHints ,
setEntryInputHints ,
#if defined(ENABLE_OVERLOADING)
EntryInputPurposePropertyInfo ,
#endif
constructEntryInputPurpose ,
#if defined(ENABLE_OVERLOADING)
entryInputPurpose ,
#endif
getEntryInputPurpose ,
setEntryInputPurpose ,
#if defined(ENABLE_OVERLOADING)
EntryInvisibleCharPropertyInfo ,
#endif
constructEntryInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
entryInvisibleChar ,
#endif
getEntryInvisibleChar ,
setEntryInvisibleChar ,
#if defined(ENABLE_OVERLOADING)
EntryInvisibleCharSetPropertyInfo ,
#endif
constructEntryInvisibleCharSet ,
#if defined(ENABLE_OVERLOADING)
entryInvisibleCharSet ,
#endif
getEntryInvisibleCharSet ,
setEntryInvisibleCharSet ,
#if defined(ENABLE_OVERLOADING)
EntryMaxLengthPropertyInfo ,
#endif
constructEntryMaxLength ,
#if defined(ENABLE_OVERLOADING)
entryMaxLength ,
#endif
getEntryMaxLength ,
setEntryMaxLength ,
#if defined(ENABLE_OVERLOADING)
EntryMaxWidthCharsPropertyInfo ,
#endif
constructEntryMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
entryMaxWidthChars ,
#endif
getEntryMaxWidthChars ,
setEntryMaxWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntryOverwriteModePropertyInfo ,
#endif
constructEntryOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
entryOverwriteMode ,
#endif
getEntryOverwriteMode ,
setEntryOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
EntryPlaceholderTextPropertyInfo ,
#endif
clearEntryPlaceholderText ,
constructEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
entryPlaceholderText ,
#endif
getEntryPlaceholderText ,
setEntryPlaceholderText ,
#if defined(ENABLE_OVERLOADING)
EntryPopulateAllPropertyInfo ,
#endif
constructEntryPopulateAll ,
#if defined(ENABLE_OVERLOADING)
entryPopulateAll ,
#endif
getEntryPopulateAll ,
setEntryPopulateAll ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconActivatablePropertyInfo ,
#endif
constructEntryPrimaryIconActivatable ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconActivatable ,
#endif
getEntryPrimaryIconActivatable ,
setEntryPrimaryIconActivatable ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconGiconPropertyInfo ,
#endif
clearEntryPrimaryIconGicon ,
constructEntryPrimaryIconGicon ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconGicon ,
#endif
getEntryPrimaryIconGicon ,
setEntryPrimaryIconGicon ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconNamePropertyInfo ,
#endif
clearEntryPrimaryIconName ,
constructEntryPrimaryIconName ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconName ,
#endif
getEntryPrimaryIconName ,
setEntryPrimaryIconName ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconPixbufPropertyInfo ,
#endif
clearEntryPrimaryIconPixbuf ,
constructEntryPrimaryIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconPixbuf ,
#endif
getEntryPrimaryIconPixbuf ,
setEntryPrimaryIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconSensitivePropertyInfo ,
#endif
constructEntryPrimaryIconSensitive ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconSensitive ,
#endif
getEntryPrimaryIconSensitive ,
setEntryPrimaryIconSensitive ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconStockPropertyInfo ,
#endif
clearEntryPrimaryIconStock ,
constructEntryPrimaryIconStock ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconStock ,
#endif
getEntryPrimaryIconStock ,
setEntryPrimaryIconStock ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconStorageTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconStorageType ,
#endif
getEntryPrimaryIconStorageType ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconTooltipMarkupPropertyInfo,
#endif
clearEntryPrimaryIconTooltipMarkup ,
constructEntryPrimaryIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconTooltipMarkup ,
#endif
getEntryPrimaryIconTooltipMarkup ,
setEntryPrimaryIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
EntryPrimaryIconTooltipTextPropertyInfo ,
#endif
clearEntryPrimaryIconTooltipText ,
constructEntryPrimaryIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
entryPrimaryIconTooltipText ,
#endif
getEntryPrimaryIconTooltipText ,
setEntryPrimaryIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
EntryProgressFractionPropertyInfo ,
#endif
constructEntryProgressFraction ,
#if defined(ENABLE_OVERLOADING)
entryProgressFraction ,
#endif
getEntryProgressFraction ,
setEntryProgressFraction ,
#if defined(ENABLE_OVERLOADING)
EntryProgressPulseStepPropertyInfo ,
#endif
constructEntryProgressPulseStep ,
#if defined(ENABLE_OVERLOADING)
entryProgressPulseStep ,
#endif
getEntryProgressPulseStep ,
setEntryProgressPulseStep ,
#if defined(ENABLE_OVERLOADING)
EntryScrollOffsetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
entryScrollOffset ,
#endif
getEntryScrollOffset ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconActivatablePropertyInfo,
#endif
constructEntrySecondaryIconActivatable ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconActivatable ,
#endif
getEntrySecondaryIconActivatable ,
setEntrySecondaryIconActivatable ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconGiconPropertyInfo ,
#endif
clearEntrySecondaryIconGicon ,
constructEntrySecondaryIconGicon ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconGicon ,
#endif
getEntrySecondaryIconGicon ,
setEntrySecondaryIconGicon ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconNamePropertyInfo ,
#endif
clearEntrySecondaryIconName ,
constructEntrySecondaryIconName ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconName ,
#endif
getEntrySecondaryIconName ,
setEntrySecondaryIconName ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconPixbufPropertyInfo ,
#endif
clearEntrySecondaryIconPixbuf ,
constructEntrySecondaryIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconPixbuf ,
#endif
getEntrySecondaryIconPixbuf ,
setEntrySecondaryIconPixbuf ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconSensitivePropertyInfo ,
#endif
constructEntrySecondaryIconSensitive ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconSensitive ,
#endif
getEntrySecondaryIconSensitive ,
setEntrySecondaryIconSensitive ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconStockPropertyInfo ,
#endif
clearEntrySecondaryIconStock ,
constructEntrySecondaryIconStock ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconStock ,
#endif
getEntrySecondaryIconStock ,
setEntrySecondaryIconStock ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconStorageTypePropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconStorageType ,
#endif
getEntrySecondaryIconStorageType ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconTooltipMarkupPropertyInfo,
#endif
clearEntrySecondaryIconTooltipMarkup ,
constructEntrySecondaryIconTooltipMarkup,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconTooltipMarkup ,
#endif
getEntrySecondaryIconTooltipMarkup ,
setEntrySecondaryIconTooltipMarkup ,
#if defined(ENABLE_OVERLOADING)
EntrySecondaryIconTooltipTextPropertyInfo,
#endif
clearEntrySecondaryIconTooltipText ,
constructEntrySecondaryIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
entrySecondaryIconTooltipText ,
#endif
getEntrySecondaryIconTooltipText ,
setEntrySecondaryIconTooltipText ,
#if defined(ENABLE_OVERLOADING)
EntrySelectionBoundPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
entrySelectionBound ,
#endif
getEntrySelectionBound ,
#if defined(ENABLE_OVERLOADING)
EntryShadowTypePropertyInfo ,
#endif
constructEntryShadowType ,
#if defined(ENABLE_OVERLOADING)
entryShadowType ,
#endif
getEntryShadowType ,
setEntryShadowType ,
#if defined(ENABLE_OVERLOADING)
EntryShowEmojiIconPropertyInfo ,
#endif
constructEntryShowEmojiIcon ,
#if defined(ENABLE_OVERLOADING)
entryShowEmojiIcon ,
#endif
getEntryShowEmojiIcon ,
setEntryShowEmojiIcon ,
#if defined(ENABLE_OVERLOADING)
EntryTabsPropertyInfo ,
#endif
constructEntryTabs ,
#if defined(ENABLE_OVERLOADING)
entryTabs ,
#endif
getEntryTabs ,
setEntryTabs ,
#if defined(ENABLE_OVERLOADING)
EntryTextPropertyInfo ,
#endif
constructEntryText ,
#if defined(ENABLE_OVERLOADING)
entryText ,
#endif
getEntryText ,
setEntryText ,
#if defined(ENABLE_OVERLOADING)
EntryTextLengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
entryTextLength ,
#endif
getEntryTextLength ,
#if defined(ENABLE_OVERLOADING)
EntryTruncateMultilinePropertyInfo ,
#endif
constructEntryTruncateMultiline ,
#if defined(ENABLE_OVERLOADING)
entryTruncateMultiline ,
#endif
getEntryTruncateMultiline ,
setEntryTruncateMultiline ,
#if defined(ENABLE_OVERLOADING)
EntryVisibilityPropertyInfo ,
#endif
constructEntryVisibility ,
#if defined(ENABLE_OVERLOADING)
entryVisibility ,
#endif
getEntryVisibility ,
setEntryVisibility ,
#if defined(ENABLE_OVERLOADING)
EntryWidthCharsPropertyInfo ,
#endif
constructEntryWidthChars ,
#if defined(ENABLE_OVERLOADING)
entryWidthChars ,
#endif
getEntryWidthChars ,
setEntryWidthChars ,
#if defined(ENABLE_OVERLOADING)
EntryXalignPropertyInfo ,
#endif
constructEntryXalign ,
#if defined(ENABLE_OVERLOADING)
entryXalign ,
#endif
getEntryXalign ,
setEntryXalign ,
C_EntryActivateCallback ,
EntryActivateCallback ,
#if defined(ENABLE_OVERLOADING)
EntryActivateSignalInfo ,
#endif
afterEntryActivate ,
genClosure_EntryActivate ,
mk_EntryActivateCallback ,
noEntryActivateCallback ,
onEntryActivate ,
wrap_EntryActivateCallback ,
C_EntryBackspaceCallback ,
EntryBackspaceCallback ,
#if defined(ENABLE_OVERLOADING)
EntryBackspaceSignalInfo ,
#endif
afterEntryBackspace ,
genClosure_EntryBackspace ,
mk_EntryBackspaceCallback ,
noEntryBackspaceCallback ,
onEntryBackspace ,
wrap_EntryBackspaceCallback ,
C_EntryCopyClipboardCallback ,
EntryCopyClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCopyClipboardSignalInfo ,
#endif
afterEntryCopyClipboard ,
genClosure_EntryCopyClipboard ,
mk_EntryCopyClipboardCallback ,
noEntryCopyClipboardCallback ,
onEntryCopyClipboard ,
wrap_EntryCopyClipboardCallback ,
C_EntryCutClipboardCallback ,
EntryCutClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
EntryCutClipboardSignalInfo ,
#endif
afterEntryCutClipboard ,
genClosure_EntryCutClipboard ,
mk_EntryCutClipboardCallback ,
noEntryCutClipboardCallback ,
onEntryCutClipboard ,
wrap_EntryCutClipboardCallback ,
C_EntryDeleteFromCursorCallback ,
EntryDeleteFromCursorCallback ,
#if defined(ENABLE_OVERLOADING)
EntryDeleteFromCursorSignalInfo ,
#endif
afterEntryDeleteFromCursor ,
genClosure_EntryDeleteFromCursor ,
mk_EntryDeleteFromCursorCallback ,
noEntryDeleteFromCursorCallback ,
onEntryDeleteFromCursor ,
wrap_EntryDeleteFromCursorCallback ,
C_EntryIconPressCallback ,
EntryIconPressCallback ,
#if defined(ENABLE_OVERLOADING)
EntryIconPressSignalInfo ,
#endif
afterEntryIconPress ,
genClosure_EntryIconPress ,
mk_EntryIconPressCallback ,
noEntryIconPressCallback ,
onEntryIconPress ,
wrap_EntryIconPressCallback ,
C_EntryIconReleaseCallback ,
EntryIconReleaseCallback ,
#if defined(ENABLE_OVERLOADING)
EntryIconReleaseSignalInfo ,
#endif
afterEntryIconRelease ,
genClosure_EntryIconRelease ,
mk_EntryIconReleaseCallback ,
noEntryIconReleaseCallback ,
onEntryIconRelease ,
wrap_EntryIconReleaseCallback ,
C_EntryInsertAtCursorCallback ,
EntryInsertAtCursorCallback ,
#if defined(ENABLE_OVERLOADING)
EntryInsertAtCursorSignalInfo ,
#endif
afterEntryInsertAtCursor ,
genClosure_EntryInsertAtCursor ,
mk_EntryInsertAtCursorCallback ,
noEntryInsertAtCursorCallback ,
onEntryInsertAtCursor ,
wrap_EntryInsertAtCursorCallback ,
C_EntryInsertEmojiCallback ,
EntryInsertEmojiCallback ,
#if defined(ENABLE_OVERLOADING)
EntryInsertEmojiSignalInfo ,
#endif
afterEntryInsertEmoji ,
genClosure_EntryInsertEmoji ,
mk_EntryInsertEmojiCallback ,
noEntryInsertEmojiCallback ,
onEntryInsertEmoji ,
wrap_EntryInsertEmojiCallback ,
C_EntryMoveCursorCallback ,
EntryMoveCursorCallback ,
#if defined(ENABLE_OVERLOADING)
EntryMoveCursorSignalInfo ,
#endif
afterEntryMoveCursor ,
genClosure_EntryMoveCursor ,
mk_EntryMoveCursorCallback ,
noEntryMoveCursorCallback ,
onEntryMoveCursor ,
wrap_EntryMoveCursorCallback ,
C_EntryPasteClipboardCallback ,
EntryPasteClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
EntryPasteClipboardSignalInfo ,
#endif
afterEntryPasteClipboard ,
genClosure_EntryPasteClipboard ,
mk_EntryPasteClipboardCallback ,
noEntryPasteClipboardCallback ,
onEntryPasteClipboard ,
wrap_EntryPasteClipboardCallback ,
C_EntryPopulatePopupCallback ,
EntryPopulatePopupCallback ,
#if defined(ENABLE_OVERLOADING)
EntryPopulatePopupSignalInfo ,
#endif
afterEntryPopulatePopup ,
genClosure_EntryPopulatePopup ,
mk_EntryPopulatePopupCallback ,
noEntryPopulatePopupCallback ,
onEntryPopulatePopup ,
wrap_EntryPopulatePopupCallback ,
C_EntryPreeditChangedCallback ,
EntryPreeditChangedCallback ,
#if defined(ENABLE_OVERLOADING)
EntryPreeditChangedSignalInfo ,
#endif
afterEntryPreeditChanged ,
genClosure_EntryPreeditChanged ,
mk_EntryPreeditChangedCallback ,
noEntryPreeditChangedCallback ,
onEntryPreeditChanged ,
wrap_EntryPreeditChangedCallback ,
C_EntryToggleOverwriteCallback ,
EntryToggleOverwriteCallback ,
#if defined(ENABLE_OVERLOADING)
EntryToggleOverwriteSignalInfo ,
#endif
afterEntryToggleOverwrite ,
genClosure_EntryToggleOverwrite ,
mk_EntryToggleOverwriteCallback ,
noEntryToggleOverwriteCallback ,
onEntryToggleOverwrite ,
wrap_EntryToggleOverwriteCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Structs.EventButton as Gdk.EventButton
import qualified GI.Gdk.Structs.EventKey as Gdk.EventKey
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Interfaces.Icon as Gio.Icon
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellEditable as Gtk.CellEditable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Editable as Gtk.Editable
import {-# SOURCE #-} qualified GI.Gtk.Objects.Adjustment as Gtk.Adjustment
import {-# SOURCE #-} qualified GI.Gtk.Objects.EntryBuffer as Gtk.EntryBuffer
import {-# SOURCE #-} qualified GI.Gtk.Objects.EntryCompletion as Gtk.EntryCompletion
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.Border as Gtk.Border
import {-# SOURCE #-} qualified GI.Gtk.Structs.TargetList as Gtk.TargetList
import qualified GI.Pango.Objects.Layout as Pango.Layout
import qualified GI.Pango.Structs.AttrList as Pango.AttrList
import qualified GI.Pango.Structs.TabArray as Pango.TabArray
newtype Entry = Entry (ManagedPtr Entry)
deriving (Entry -> Entry -> Bool
(Entry -> Entry -> Bool) -> (Entry -> Entry -> Bool) -> Eq Entry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Entry -> Entry -> Bool
$c/= :: Entry -> Entry -> Bool
== :: Entry -> Entry -> Bool
$c== :: Entry -> Entry -> Bool
Eq)
foreign import ccall "gtk_entry_get_type"
c_gtk_entry_get_type :: IO GType
instance GObject Entry where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_entry_get_type
instance B.GValue.IsGValue Entry where
toGValue :: Entry -> IO GValue
toGValue o :: Entry
o = do
GType
gtype <- IO GType
c_gtk_entry_get_type
Entry -> (Ptr Entry -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Entry
o (GType -> (GValue -> Ptr Entry -> IO ()) -> Ptr Entry -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Entry -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Entry
fromGValue gv :: GValue
gv = do
Ptr Entry
ptr <- GValue -> IO (Ptr Entry)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Entry)
(ManagedPtr Entry -> Entry) -> Ptr Entry -> IO Entry
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Entry -> Entry
Entry Ptr Entry
ptr
class (GObject o, O.IsDescendantOf Entry o) => IsEntry o
instance (GObject o, O.IsDescendantOf Entry o) => IsEntry o
instance O.HasParentTypes Entry
type instance O.ParentTypes Entry = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.CellEditable.CellEditable, Gtk.Editable.Editable]
toEntry :: (MonadIO m, IsEntry o) => o -> m Entry
toEntry :: o -> m Entry
toEntry = IO Entry -> m Entry
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Entry -> m Entry) -> (o -> IO Entry) -> o -> m Entry
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Entry -> Entry) -> o -> IO Entry
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Entry -> Entry
Entry
noEntry :: Maybe Entry
noEntry :: Maybe Entry
noEntry = Maybe Entry
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveEntryMethod (t :: Symbol) (o :: *) :: * where
ResolveEntryMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveEntryMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveEntryMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveEntryMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveEntryMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveEntryMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveEntryMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveEntryMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveEntryMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveEntryMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveEntryMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveEntryMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveEntryMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveEntryMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveEntryMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveEntryMethod "copyClipboard" o = Gtk.Editable.EditableCopyClipboardMethodInfo
ResolveEntryMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveEntryMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveEntryMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveEntryMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveEntryMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveEntryMethod "cutClipboard" o = Gtk.Editable.EditableCutClipboardMethodInfo
ResolveEntryMethod "deleteSelection" o = Gtk.Editable.EditableDeleteSelectionMethodInfo
ResolveEntryMethod "deleteText" o = Gtk.Editable.EditableDeleteTextMethodInfo
ResolveEntryMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveEntryMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveEntryMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveEntryMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveEntryMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveEntryMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveEntryMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveEntryMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveEntryMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveEntryMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveEntryMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveEntryMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveEntryMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveEntryMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveEntryMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveEntryMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveEntryMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveEntryMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveEntryMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveEntryMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveEntryMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveEntryMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveEntryMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveEntryMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveEntryMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveEntryMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveEntryMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveEntryMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveEntryMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveEntryMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveEntryMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveEntryMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveEntryMethod "editingDone" o = Gtk.CellEditable.CellEditableEditingDoneMethodInfo
ResolveEntryMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveEntryMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveEntryMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveEntryMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveEntryMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveEntryMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveEntryMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveEntryMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveEntryMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveEntryMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveEntryMethod "grabFocusWithoutSelecting" o = EntryGrabFocusWithoutSelectingMethodInfo
ResolveEntryMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveEntryMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveEntryMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveEntryMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveEntryMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveEntryMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveEntryMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveEntryMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveEntryMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveEntryMethod "imContextFilterKeypress" o = EntryImContextFilterKeypressMethodInfo
ResolveEntryMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveEntryMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveEntryMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveEntryMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveEntryMethod "insertText" o = Gtk.Editable.EditableInsertTextMethodInfo
ResolveEntryMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveEntryMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveEntryMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveEntryMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveEntryMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveEntryMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveEntryMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveEntryMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveEntryMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveEntryMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveEntryMethod "layoutIndexToTextIndex" o = EntryLayoutIndexToTextIndexMethodInfo
ResolveEntryMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveEntryMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveEntryMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveEntryMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveEntryMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveEntryMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveEntryMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveEntryMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveEntryMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveEntryMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveEntryMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveEntryMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveEntryMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveEntryMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveEntryMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveEntryMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveEntryMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveEntryMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveEntryMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveEntryMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveEntryMethod "pasteClipboard" o = Gtk.Editable.EditablePasteClipboardMethodInfo
ResolveEntryMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveEntryMethod "progressPulse" o = EntryProgressPulseMethodInfo
ResolveEntryMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveEntryMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveEntryMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveEntryMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveEntryMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveEntryMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveEntryMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveEntryMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveEntryMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveEntryMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveEntryMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveEntryMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveEntryMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveEntryMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveEntryMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveEntryMethod "removeWidget" o = Gtk.CellEditable.CellEditableRemoveWidgetMethodInfo
ResolveEntryMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveEntryMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveEntryMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveEntryMethod "resetImContext" o = EntryResetImContextMethodInfo
ResolveEntryMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveEntryMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveEntryMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveEntryMethod "selectRegion" o = Gtk.Editable.EditableSelectRegionMethodInfo
ResolveEntryMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveEntryMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveEntryMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveEntryMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveEntryMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveEntryMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveEntryMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveEntryMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveEntryMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveEntryMethod "startEditing" o = Gtk.CellEditable.CellEditableStartEditingMethodInfo
ResolveEntryMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveEntryMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveEntryMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveEntryMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveEntryMethod "textIndexToLayoutIndex" o = EntryTextIndexToLayoutIndexMethodInfo
ResolveEntryMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveEntryMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveEntryMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveEntryMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveEntryMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveEntryMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveEntryMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveEntryMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveEntryMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveEntryMethod "unsetInvisibleChar" o = EntryUnsetInvisibleCharMethodInfo
ResolveEntryMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveEntryMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveEntryMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveEntryMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveEntryMethod "getActivatesDefault" o = EntryGetActivatesDefaultMethodInfo
ResolveEntryMethod "getAlignment" o = EntryGetAlignmentMethodInfo
ResolveEntryMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveEntryMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveEntryMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveEntryMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveEntryMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveEntryMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveEntryMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveEntryMethod "getAttributes" o = EntryGetAttributesMethodInfo
ResolveEntryMethod "getBuffer" o = EntryGetBufferMethodInfo
ResolveEntryMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveEntryMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveEntryMethod "getChars" o = Gtk.Editable.EditableGetCharsMethodInfo
ResolveEntryMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveEntryMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveEntryMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveEntryMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveEntryMethod "getCompletion" o = EntryGetCompletionMethodInfo
ResolveEntryMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveEntryMethod "getCurrentIconDragSource" o = EntryGetCurrentIconDragSourceMethodInfo
ResolveEntryMethod "getCursorHadjustment" o = EntryGetCursorHadjustmentMethodInfo
ResolveEntryMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveEntryMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveEntryMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveEntryMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveEntryMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveEntryMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveEntryMethod "getEditable" o = Gtk.Editable.EditableGetEditableMethodInfo
ResolveEntryMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveEntryMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveEntryMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveEntryMethod "getFontOptions" o = Gtk.Widget.WidgetGetFontOptionsMethodInfo
ResolveEntryMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveEntryMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveEntryMethod "getHasFrame" o = EntryGetHasFrameMethodInfo
ResolveEntryMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveEntryMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveEntryMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveEntryMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveEntryMethod "getIconActivatable" o = EntryGetIconActivatableMethodInfo
ResolveEntryMethod "getIconArea" o = EntryGetIconAreaMethodInfo
ResolveEntryMethod "getIconAtPos" o = EntryGetIconAtPosMethodInfo
ResolveEntryMethod "getIconGicon" o = EntryGetIconGiconMethodInfo
ResolveEntryMethod "getIconName" o = EntryGetIconNameMethodInfo
ResolveEntryMethod "getIconPixbuf" o = EntryGetIconPixbufMethodInfo
ResolveEntryMethod "getIconSensitive" o = EntryGetIconSensitiveMethodInfo
ResolveEntryMethod "getIconStock" o = EntryGetIconStockMethodInfo
ResolveEntryMethod "getIconStorageType" o = EntryGetIconStorageTypeMethodInfo
ResolveEntryMethod "getIconTooltipMarkup" o = EntryGetIconTooltipMarkupMethodInfo
ResolveEntryMethod "getIconTooltipText" o = EntryGetIconTooltipTextMethodInfo
ResolveEntryMethod "getInnerBorder" o = EntryGetInnerBorderMethodInfo
ResolveEntryMethod "getInputHints" o = EntryGetInputHintsMethodInfo
ResolveEntryMethod "getInputPurpose" o = EntryGetInputPurposeMethodInfo
ResolveEntryMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveEntryMethod "getInvisibleChar" o = EntryGetInvisibleCharMethodInfo
ResolveEntryMethod "getLayout" o = EntryGetLayoutMethodInfo
ResolveEntryMethod "getLayoutOffsets" o = EntryGetLayoutOffsetsMethodInfo
ResolveEntryMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveEntryMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveEntryMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveEntryMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveEntryMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveEntryMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveEntryMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveEntryMethod "getMaxLength" o = EntryGetMaxLengthMethodInfo
ResolveEntryMethod "getMaxWidthChars" o = EntryGetMaxWidthCharsMethodInfo
ResolveEntryMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveEntryMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveEntryMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveEntryMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveEntryMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveEntryMethod "getOverwriteMode" o = EntryGetOverwriteModeMethodInfo
ResolveEntryMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveEntryMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveEntryMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveEntryMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveEntryMethod "getPlaceholderText" o = EntryGetPlaceholderTextMethodInfo
ResolveEntryMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveEntryMethod "getPosition" o = Gtk.Editable.EditableGetPositionMethodInfo
ResolveEntryMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveEntryMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveEntryMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveEntryMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveEntryMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveEntryMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveEntryMethod "getProgressFraction" o = EntryGetProgressFractionMethodInfo
ResolveEntryMethod "getProgressPulseStep" o = EntryGetProgressPulseStepMethodInfo
ResolveEntryMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveEntryMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveEntryMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveEntryMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveEntryMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveEntryMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveEntryMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveEntryMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveEntryMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveEntryMethod "getSelectionBounds" o = Gtk.Editable.EditableGetSelectionBoundsMethodInfo
ResolveEntryMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveEntryMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveEntryMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveEntryMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveEntryMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveEntryMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveEntryMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveEntryMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveEntryMethod "getTabs" o = EntryGetTabsMethodInfo
ResolveEntryMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveEntryMethod "getText" o = EntryGetTextMethodInfo
ResolveEntryMethod "getTextArea" o = EntryGetTextAreaMethodInfo
ResolveEntryMethod "getTextLength" o = EntryGetTextLengthMethodInfo
ResolveEntryMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveEntryMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveEntryMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveEntryMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveEntryMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveEntryMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveEntryMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveEntryMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveEntryMethod "getVisibility" o = EntryGetVisibilityMethodInfo
ResolveEntryMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveEntryMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveEntryMethod "getWidthChars" o = EntryGetWidthCharsMethodInfo
ResolveEntryMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveEntryMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveEntryMethod "setActivatesDefault" o = EntrySetActivatesDefaultMethodInfo
ResolveEntryMethod "setAlignment" o = EntrySetAlignmentMethodInfo
ResolveEntryMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveEntryMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveEntryMethod "setAttributes" o = EntrySetAttributesMethodInfo
ResolveEntryMethod "setBuffer" o = EntrySetBufferMethodInfo
ResolveEntryMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveEntryMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveEntryMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveEntryMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveEntryMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveEntryMethod "setCompletion" o = EntrySetCompletionMethodInfo
ResolveEntryMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveEntryMethod "setCursorHadjustment" o = EntrySetCursorHadjustmentMethodInfo
ResolveEntryMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveEntryMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveEntryMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveEntryMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveEntryMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveEntryMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveEntryMethod "setEditable" o = Gtk.Editable.EditableSetEditableMethodInfo
ResolveEntryMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveEntryMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveEntryMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveEntryMethod "setFontOptions" o = Gtk.Widget.WidgetSetFontOptionsMethodInfo
ResolveEntryMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveEntryMethod "setHasFrame" o = EntrySetHasFrameMethodInfo
ResolveEntryMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveEntryMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveEntryMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveEntryMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveEntryMethod "setIconActivatable" o = EntrySetIconActivatableMethodInfo
ResolveEntryMethod "setIconDragSource" o = EntrySetIconDragSourceMethodInfo
ResolveEntryMethod "setIconFromGicon" o = EntrySetIconFromGiconMethodInfo
ResolveEntryMethod "setIconFromIconName" o = EntrySetIconFromIconNameMethodInfo
ResolveEntryMethod "setIconFromPixbuf" o = EntrySetIconFromPixbufMethodInfo
ResolveEntryMethod "setIconFromStock" o = EntrySetIconFromStockMethodInfo
ResolveEntryMethod "setIconSensitive" o = EntrySetIconSensitiveMethodInfo
ResolveEntryMethod "setIconTooltipMarkup" o = EntrySetIconTooltipMarkupMethodInfo
ResolveEntryMethod "setIconTooltipText" o = EntrySetIconTooltipTextMethodInfo
ResolveEntryMethod "setInnerBorder" o = EntrySetInnerBorderMethodInfo
ResolveEntryMethod "setInputHints" o = EntrySetInputHintsMethodInfo
ResolveEntryMethod "setInputPurpose" o = EntrySetInputPurposeMethodInfo
ResolveEntryMethod "setInvisibleChar" o = EntrySetInvisibleCharMethodInfo
ResolveEntryMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveEntryMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveEntryMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveEntryMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveEntryMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveEntryMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveEntryMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveEntryMethod "setMaxLength" o = EntrySetMaxLengthMethodInfo
ResolveEntryMethod "setMaxWidthChars" o = EntrySetMaxWidthCharsMethodInfo
ResolveEntryMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveEntryMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveEntryMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveEntryMethod "setOverwriteMode" o = EntrySetOverwriteModeMethodInfo
ResolveEntryMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveEntryMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveEntryMethod "setPlaceholderText" o = EntrySetPlaceholderTextMethodInfo
ResolveEntryMethod "setPosition" o = Gtk.Editable.EditableSetPositionMethodInfo
ResolveEntryMethod "setProgressFraction" o = EntrySetProgressFractionMethodInfo
ResolveEntryMethod "setProgressPulseStep" o = EntrySetProgressPulseStepMethodInfo
ResolveEntryMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveEntryMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveEntryMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveEntryMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveEntryMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveEntryMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveEntryMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveEntryMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveEntryMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveEntryMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveEntryMethod "setTabs" o = EntrySetTabsMethodInfo
ResolveEntryMethod "setText" o = EntrySetTextMethodInfo
ResolveEntryMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveEntryMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveEntryMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveEntryMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveEntryMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveEntryMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveEntryMethod "setVisibility" o = EntrySetVisibilityMethodInfo
ResolveEntryMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveEntryMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveEntryMethod "setWidthChars" o = EntrySetWidthCharsMethodInfo
ResolveEntryMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveEntryMethod t Entry, O.MethodInfo info Entry p) => OL.IsLabel t (Entry -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
type EntryActivateCallback =
IO ()
noEntryActivateCallback :: Maybe EntryActivateCallback
noEntryActivateCallback :: Maybe (IO ())
noEntryActivateCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryActivateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryActivateCallback :: C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
genClosure_EntryActivate :: MonadIO m => EntryActivateCallback -> m (GClosure C_EntryActivateCallback)
genClosure_EntryActivate :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryActivate cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryActivateCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryActivateCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryActivateCallback ::
EntryActivateCallback ->
C_EntryActivateCallback
wrap_EntryActivateCallback :: IO () -> C_EntryActivateCallback
wrap_EntryActivateCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryActivate :: (IsEntry a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
onEntryActivate :: a -> IO () -> m SignalHandlerId
onEntryActivate obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryActivateCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryActivateCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryActivate :: (IsEntry a, MonadIO m) => a -> EntryActivateCallback -> m SignalHandlerId
afterEntryActivate :: a -> IO () -> m SignalHandlerId
afterEntryActivate obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryActivateCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryActivateCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "activate" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryActivateSignalInfo
instance SignalInfo EntryActivateSignalInfo where
type HaskellCallbackType EntryActivateSignalInfo = EntryActivateCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryActivateCallback cb
cb'' <- mk_EntryActivateCallback cb'
connectSignalFunPtr obj "activate" cb'' connectMode detail
#endif
type EntryBackspaceCallback =
IO ()
noEntryBackspaceCallback :: Maybe EntryBackspaceCallback
noEntryBackspaceCallback :: Maybe (IO ())
noEntryBackspaceCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryBackspaceCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryBackspaceCallback :: C_EntryBackspaceCallback -> IO (FunPtr C_EntryBackspaceCallback)
genClosure_EntryBackspace :: MonadIO m => EntryBackspaceCallback -> m (GClosure C_EntryBackspaceCallback)
genClosure_EntryBackspace :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryBackspace cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryBackspaceCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryBackspaceCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryBackspaceCallback ::
EntryBackspaceCallback ->
C_EntryBackspaceCallback
wrap_EntryBackspaceCallback :: IO () -> C_EntryActivateCallback
wrap_EntryBackspaceCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryBackspace :: (IsEntry a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
onEntryBackspace :: a -> IO () -> m SignalHandlerId
onEntryBackspace obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryBackspaceCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryBackspaceCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "backspace" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryBackspace :: (IsEntry a, MonadIO m) => a -> EntryBackspaceCallback -> m SignalHandlerId
afterEntryBackspace :: a -> IO () -> m SignalHandlerId
afterEntryBackspace obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryBackspaceCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryBackspaceCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "backspace" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryBackspaceSignalInfo
instance SignalInfo EntryBackspaceSignalInfo where
type HaskellCallbackType EntryBackspaceSignalInfo = EntryBackspaceCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryBackspaceCallback cb
cb'' <- mk_EntryBackspaceCallback cb'
connectSignalFunPtr obj "backspace" cb'' connectMode detail
#endif
type EntryCopyClipboardCallback =
IO ()
noEntryCopyClipboardCallback :: Maybe EntryCopyClipboardCallback
noEntryCopyClipboardCallback :: Maybe (IO ())
noEntryCopyClipboardCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryCopyClipboardCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCopyClipboardCallback :: C_EntryCopyClipboardCallback -> IO (FunPtr C_EntryCopyClipboardCallback)
genClosure_EntryCopyClipboard :: MonadIO m => EntryCopyClipboardCallback -> m (GClosure C_EntryCopyClipboardCallback)
genClosure_EntryCopyClipboard :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryCopyClipboard cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCopyClipboardCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCopyClipboardCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryCopyClipboardCallback ::
EntryCopyClipboardCallback ->
C_EntryCopyClipboardCallback
wrap_EntryCopyClipboardCallback :: IO () -> C_EntryActivateCallback
wrap_EntryCopyClipboardCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryCopyClipboard :: (IsEntry a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
onEntryCopyClipboard :: a -> IO () -> m SignalHandlerId
onEntryCopyClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCopyClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCopyClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "copy-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryCopyClipboard :: (IsEntry a, MonadIO m) => a -> EntryCopyClipboardCallback -> m SignalHandlerId
afterEntryCopyClipboard :: a -> IO () -> m SignalHandlerId
afterEntryCopyClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCopyClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCopyClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "copy-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCopyClipboardSignalInfo
instance SignalInfo EntryCopyClipboardSignalInfo where
type HaskellCallbackType EntryCopyClipboardSignalInfo = EntryCopyClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCopyClipboardCallback cb
cb'' <- mk_EntryCopyClipboardCallback cb'
connectSignalFunPtr obj "copy-clipboard" cb'' connectMode detail
#endif
type EntryCutClipboardCallback =
IO ()
noEntryCutClipboardCallback :: Maybe EntryCutClipboardCallback
noEntryCutClipboardCallback :: Maybe (IO ())
noEntryCutClipboardCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryCutClipboardCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryCutClipboardCallback :: C_EntryCutClipboardCallback -> IO (FunPtr C_EntryCutClipboardCallback)
genClosure_EntryCutClipboard :: MonadIO m => EntryCutClipboardCallback -> m (GClosure C_EntryCutClipboardCallback)
genClosure_EntryCutClipboard :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryCutClipboard cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCutClipboardCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCutClipboardCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryCutClipboardCallback ::
EntryCutClipboardCallback ->
C_EntryCutClipboardCallback
wrap_EntryCutClipboardCallback :: IO () -> C_EntryActivateCallback
wrap_EntryCutClipboardCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryCutClipboard :: (IsEntry a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
onEntryCutClipboard :: a -> IO () -> m SignalHandlerId
onEntryCutClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCutClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCutClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cut-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryCutClipboard :: (IsEntry a, MonadIO m) => a -> EntryCutClipboardCallback -> m SignalHandlerId
afterEntryCutClipboard :: a -> IO () -> m SignalHandlerId
afterEntryCutClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryCutClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryCutClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "cut-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryCutClipboardSignalInfo
instance SignalInfo EntryCutClipboardSignalInfo where
type HaskellCallbackType EntryCutClipboardSignalInfo = EntryCutClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryCutClipboardCallback cb
cb'' <- mk_EntryCutClipboardCallback cb'
connectSignalFunPtr obj "cut-clipboard" cb'' connectMode detail
#endif
type EntryDeleteFromCursorCallback =
Gtk.Enums.DeleteType
-> Int32
-> IO ()
noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback
noEntryDeleteFromCursorCallback :: Maybe EntryDeleteFromCursorCallback
noEntryDeleteFromCursorCallback = Maybe EntryDeleteFromCursorCallback
forall a. Maybe a
Nothing
type C_EntryDeleteFromCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryDeleteFromCursorCallback :: C_EntryDeleteFromCursorCallback -> IO (FunPtr C_EntryDeleteFromCursorCallback)
genClosure_EntryDeleteFromCursor :: MonadIO m => EntryDeleteFromCursorCallback -> m (GClosure C_EntryDeleteFromCursorCallback)
genClosure_EntryDeleteFromCursor :: EntryDeleteFromCursorCallback
-> m (GClosure C_EntryDeleteFromCursorCallback)
genClosure_EntryDeleteFromCursor cb :: EntryDeleteFromCursorCallback
cb = IO (GClosure C_EntryDeleteFromCursorCallback)
-> m (GClosure C_EntryDeleteFromCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryDeleteFromCursorCallback)
-> m (GClosure C_EntryDeleteFromCursorCallback))
-> IO (GClosure C_EntryDeleteFromCursorCallback)
-> m (GClosure C_EntryDeleteFromCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryDeleteFromCursorCallback
cb' = EntryDeleteFromCursorCallback -> C_EntryDeleteFromCursorCallback
wrap_EntryDeleteFromCursorCallback EntryDeleteFromCursorCallback
cb
C_EntryDeleteFromCursorCallback
-> IO (FunPtr C_EntryDeleteFromCursorCallback)
mk_EntryDeleteFromCursorCallback C_EntryDeleteFromCursorCallback
cb' IO (FunPtr C_EntryDeleteFromCursorCallback)
-> (FunPtr C_EntryDeleteFromCursorCallback
-> IO (GClosure C_EntryDeleteFromCursorCallback))
-> IO (GClosure C_EntryDeleteFromCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryDeleteFromCursorCallback
-> IO (GClosure C_EntryDeleteFromCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryDeleteFromCursorCallback ::
EntryDeleteFromCursorCallback ->
C_EntryDeleteFromCursorCallback
wrap_EntryDeleteFromCursorCallback :: EntryDeleteFromCursorCallback -> C_EntryDeleteFromCursorCallback
wrap_EntryDeleteFromCursorCallback _cb :: EntryDeleteFromCursorCallback
_cb _ type_ :: CUInt
type_ count :: Int32
count _ = do
let type_' :: DeleteType
type_' = (Int -> DeleteType
forall a. Enum a => Int -> a
toEnum (Int -> DeleteType) -> (CUInt -> Int) -> CUInt -> DeleteType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
type_
EntryDeleteFromCursorCallback
_cb DeleteType
type_' Int32
count
onEntryDeleteFromCursor :: (IsEntry a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
onEntryDeleteFromCursor :: a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
onEntryDeleteFromCursor obj :: a
obj cb :: EntryDeleteFromCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryDeleteFromCursorCallback
cb' = EntryDeleteFromCursorCallback -> C_EntryDeleteFromCursorCallback
wrap_EntryDeleteFromCursorCallback EntryDeleteFromCursorCallback
cb
FunPtr C_EntryDeleteFromCursorCallback
cb'' <- C_EntryDeleteFromCursorCallback
-> IO (FunPtr C_EntryDeleteFromCursorCallback)
mk_EntryDeleteFromCursorCallback C_EntryDeleteFromCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryDeleteFromCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "delete-from-cursor" FunPtr C_EntryDeleteFromCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryDeleteFromCursor :: (IsEntry a, MonadIO m) => a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
afterEntryDeleteFromCursor :: a -> EntryDeleteFromCursorCallback -> m SignalHandlerId
afterEntryDeleteFromCursor obj :: a
obj cb :: EntryDeleteFromCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryDeleteFromCursorCallback
cb' = EntryDeleteFromCursorCallback -> C_EntryDeleteFromCursorCallback
wrap_EntryDeleteFromCursorCallback EntryDeleteFromCursorCallback
cb
FunPtr C_EntryDeleteFromCursorCallback
cb'' <- C_EntryDeleteFromCursorCallback
-> IO (FunPtr C_EntryDeleteFromCursorCallback)
mk_EntryDeleteFromCursorCallback C_EntryDeleteFromCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryDeleteFromCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "delete-from-cursor" FunPtr C_EntryDeleteFromCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryDeleteFromCursorSignalInfo
instance SignalInfo EntryDeleteFromCursorSignalInfo where
type HaskellCallbackType EntryDeleteFromCursorSignalInfo = EntryDeleteFromCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryDeleteFromCursorCallback cb
cb'' <- mk_EntryDeleteFromCursorCallback cb'
connectSignalFunPtr obj "delete-from-cursor" cb'' connectMode detail
#endif
type EntryIconPressCallback =
Gtk.Enums.EntryIconPosition
-> Gdk.EventButton.EventButton
-> IO ()
noEntryIconPressCallback :: Maybe EntryIconPressCallback
noEntryIconPressCallback :: Maybe EntryIconPressCallback
noEntryIconPressCallback = Maybe EntryIconPressCallback
forall a. Maybe a
Nothing
type C_EntryIconPressCallback =
Ptr () ->
CUInt ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryIconPressCallback :: C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
genClosure_EntryIconPress :: MonadIO m => EntryIconPressCallback -> m (GClosure C_EntryIconPressCallback)
genClosure_EntryIconPress :: EntryIconPressCallback -> m (GClosure C_EntryIconPressCallback)
genClosure_EntryIconPress cb :: EntryIconPressCallback
cb = IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback))
-> IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconPressCallback EntryIconPressCallback
cb
C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconPressCallback C_EntryIconPressCallback
cb' IO (FunPtr C_EntryIconPressCallback)
-> (FunPtr C_EntryIconPressCallback
-> IO (GClosure C_EntryIconPressCallback))
-> IO (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryIconPressCallback
-> IO (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryIconPressCallback ::
EntryIconPressCallback ->
C_EntryIconPressCallback
wrap_EntryIconPressCallback :: EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconPressCallback _cb :: EntryIconPressCallback
_cb _ iconPos :: CUInt
iconPos event :: Ptr EventButton
event _ = do
let iconPos' :: EntryIconPosition
iconPos' = (Int -> EntryIconPosition
forall a. Enum a => Int -> a
toEnum (Int -> EntryIconPosition)
-> (CUInt -> Int) -> CUInt -> EntryIconPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
iconPos
EventButton
event' <- ((ManagedPtr EventButton -> EventButton)
-> Ptr EventButton -> IO EventButton
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventButton -> EventButton
Gdk.EventButton.EventButton) Ptr EventButton
event
EntryIconPressCallback
_cb EntryIconPosition
iconPos' EventButton
event'
onEntryIconPress :: (IsEntry a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
onEntryIconPress :: a -> EntryIconPressCallback -> m SignalHandlerId
onEntryIconPress obj :: a
obj cb :: EntryIconPressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconPressCallback EntryIconPressCallback
cb
FunPtr C_EntryIconPressCallback
cb'' <- C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconPressCallback C_EntryIconPressCallback
cb'
a
-> Text
-> FunPtr C_EntryIconPressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "icon-press" FunPtr C_EntryIconPressCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryIconPress :: (IsEntry a, MonadIO m) => a -> EntryIconPressCallback -> m SignalHandlerId
afterEntryIconPress :: a -> EntryIconPressCallback -> m SignalHandlerId
afterEntryIconPress obj :: a
obj cb :: EntryIconPressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconPressCallback EntryIconPressCallback
cb
FunPtr C_EntryIconPressCallback
cb'' <- C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconPressCallback C_EntryIconPressCallback
cb'
a
-> Text
-> FunPtr C_EntryIconPressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "icon-press" FunPtr C_EntryIconPressCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryIconPressSignalInfo
instance SignalInfo EntryIconPressSignalInfo where
type HaskellCallbackType EntryIconPressSignalInfo = EntryIconPressCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryIconPressCallback cb
cb'' <- mk_EntryIconPressCallback cb'
connectSignalFunPtr obj "icon-press" cb'' connectMode detail
#endif
type EntryIconReleaseCallback =
Gtk.Enums.EntryIconPosition
-> Gdk.EventButton.EventButton
-> IO ()
noEntryIconReleaseCallback :: Maybe EntryIconReleaseCallback
noEntryIconReleaseCallback :: Maybe EntryIconPressCallback
noEntryIconReleaseCallback = Maybe EntryIconPressCallback
forall a. Maybe a
Nothing
type C_EntryIconReleaseCallback =
Ptr () ->
CUInt ->
Ptr Gdk.EventButton.EventButton ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryIconReleaseCallback :: C_EntryIconReleaseCallback -> IO (FunPtr C_EntryIconReleaseCallback)
genClosure_EntryIconRelease :: MonadIO m => EntryIconReleaseCallback -> m (GClosure C_EntryIconReleaseCallback)
genClosure_EntryIconRelease :: EntryIconPressCallback -> m (GClosure C_EntryIconPressCallback)
genClosure_EntryIconRelease cb :: EntryIconPressCallback
cb = IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback))
-> IO (GClosure C_EntryIconPressCallback)
-> m (GClosure C_EntryIconPressCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconReleaseCallback EntryIconPressCallback
cb
C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconReleaseCallback C_EntryIconPressCallback
cb' IO (FunPtr C_EntryIconPressCallback)
-> (FunPtr C_EntryIconPressCallback
-> IO (GClosure C_EntryIconPressCallback))
-> IO (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryIconPressCallback
-> IO (GClosure C_EntryIconPressCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryIconReleaseCallback ::
EntryIconReleaseCallback ->
C_EntryIconReleaseCallback
wrap_EntryIconReleaseCallback :: EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconReleaseCallback _cb :: EntryIconPressCallback
_cb _ iconPos :: CUInt
iconPos event :: Ptr EventButton
event _ = do
let iconPos' :: EntryIconPosition
iconPos' = (Int -> EntryIconPosition
forall a. Enum a => Int -> a
toEnum (Int -> EntryIconPosition)
-> (CUInt -> Int) -> CUInt -> EntryIconPosition
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
iconPos
EventButton
event' <- ((ManagedPtr EventButton -> EventButton)
-> Ptr EventButton -> IO EventButton
forall a.
(HasCallStack, WrappedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventButton -> EventButton
Gdk.EventButton.EventButton) Ptr EventButton
event
EntryIconPressCallback
_cb EntryIconPosition
iconPos' EventButton
event'
onEntryIconRelease :: (IsEntry a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
onEntryIconRelease :: a -> EntryIconPressCallback -> m SignalHandlerId
onEntryIconRelease obj :: a
obj cb :: EntryIconPressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconReleaseCallback EntryIconPressCallback
cb
FunPtr C_EntryIconPressCallback
cb'' <- C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconReleaseCallback C_EntryIconPressCallback
cb'
a
-> Text
-> FunPtr C_EntryIconPressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "icon-release" FunPtr C_EntryIconPressCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryIconRelease :: (IsEntry a, MonadIO m) => a -> EntryIconReleaseCallback -> m SignalHandlerId
afterEntryIconRelease :: a -> EntryIconPressCallback -> m SignalHandlerId
afterEntryIconRelease obj :: a
obj cb :: EntryIconPressCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryIconPressCallback
cb' = EntryIconPressCallback -> C_EntryIconPressCallback
wrap_EntryIconReleaseCallback EntryIconPressCallback
cb
FunPtr C_EntryIconPressCallback
cb'' <- C_EntryIconPressCallback -> IO (FunPtr C_EntryIconPressCallback)
mk_EntryIconReleaseCallback C_EntryIconPressCallback
cb'
a
-> Text
-> FunPtr C_EntryIconPressCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "icon-release" FunPtr C_EntryIconPressCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryIconReleaseSignalInfo
instance SignalInfo EntryIconReleaseSignalInfo where
type HaskellCallbackType EntryIconReleaseSignalInfo = EntryIconReleaseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryIconReleaseCallback cb
cb'' <- mk_EntryIconReleaseCallback cb'
connectSignalFunPtr obj "icon-release" cb'' connectMode detail
#endif
type EntryInsertAtCursorCallback =
T.Text
-> IO ()
noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback
noEntryInsertAtCursorCallback :: Maybe EntryInsertAtCursorCallback
noEntryInsertAtCursorCallback = Maybe EntryInsertAtCursorCallback
forall a. Maybe a
Nothing
type C_EntryInsertAtCursorCallback =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryInsertAtCursorCallback :: C_EntryInsertAtCursorCallback -> IO (FunPtr C_EntryInsertAtCursorCallback)
genClosure_EntryInsertAtCursor :: MonadIO m => EntryInsertAtCursorCallback -> m (GClosure C_EntryInsertAtCursorCallback)
genClosure_EntryInsertAtCursor :: EntryInsertAtCursorCallback
-> m (GClosure C_EntryInsertAtCursorCallback)
genClosure_EntryInsertAtCursor cb :: EntryInsertAtCursorCallback
cb = IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback))
-> IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryInsertAtCursorCallback EntryInsertAtCursorCallback
cb
C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryInsertAtCursorCallback C_EntryInsertAtCursorCallback
cb' IO (FunPtr C_EntryInsertAtCursorCallback)
-> (FunPtr C_EntryInsertAtCursorCallback
-> IO (GClosure C_EntryInsertAtCursorCallback))
-> IO (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryInsertAtCursorCallback
-> IO (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryInsertAtCursorCallback ::
EntryInsertAtCursorCallback ->
C_EntryInsertAtCursorCallback
wrap_EntryInsertAtCursorCallback :: EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryInsertAtCursorCallback _cb :: EntryInsertAtCursorCallback
_cb _ string :: CString
string _ = do
Text
string' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
string
EntryInsertAtCursorCallback
_cb Text
string'
onEntryInsertAtCursor :: (IsEntry a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
onEntryInsertAtCursor :: a -> EntryInsertAtCursorCallback -> m SignalHandlerId
onEntryInsertAtCursor obj :: a
obj cb :: EntryInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryInsertAtCursorCallback EntryInsertAtCursorCallback
cb
FunPtr C_EntryInsertAtCursorCallback
cb'' <- C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryInsertAtCursorCallback C_EntryInsertAtCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-at-cursor" FunPtr C_EntryInsertAtCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryInsertAtCursor :: (IsEntry a, MonadIO m) => a -> EntryInsertAtCursorCallback -> m SignalHandlerId
afterEntryInsertAtCursor :: a -> EntryInsertAtCursorCallback -> m SignalHandlerId
afterEntryInsertAtCursor obj :: a
obj cb :: EntryInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryInsertAtCursorCallback EntryInsertAtCursorCallback
cb
FunPtr C_EntryInsertAtCursorCallback
cb'' <- C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryInsertAtCursorCallback C_EntryInsertAtCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-at-cursor" FunPtr C_EntryInsertAtCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryInsertAtCursorSignalInfo
instance SignalInfo EntryInsertAtCursorSignalInfo where
type HaskellCallbackType EntryInsertAtCursorSignalInfo = EntryInsertAtCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryInsertAtCursorCallback cb
cb'' <- mk_EntryInsertAtCursorCallback cb'
connectSignalFunPtr obj "insert-at-cursor" cb'' connectMode detail
#endif
type EntryInsertEmojiCallback =
IO ()
noEntryInsertEmojiCallback :: Maybe EntryInsertEmojiCallback
noEntryInsertEmojiCallback :: Maybe (IO ())
noEntryInsertEmojiCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryInsertEmojiCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryInsertEmojiCallback :: C_EntryInsertEmojiCallback -> IO (FunPtr C_EntryInsertEmojiCallback)
genClosure_EntryInsertEmoji :: MonadIO m => EntryInsertEmojiCallback -> m (GClosure C_EntryInsertEmojiCallback)
genClosure_EntryInsertEmoji :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryInsertEmoji cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryInsertEmojiCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryInsertEmojiCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryInsertEmojiCallback ::
EntryInsertEmojiCallback ->
C_EntryInsertEmojiCallback
wrap_EntryInsertEmojiCallback :: IO () -> C_EntryActivateCallback
wrap_EntryInsertEmojiCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryInsertEmoji :: (IsEntry a, MonadIO m) => a -> EntryInsertEmojiCallback -> m SignalHandlerId
onEntryInsertEmoji :: a -> IO () -> m SignalHandlerId
onEntryInsertEmoji obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryInsertEmojiCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryInsertEmojiCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-emoji" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryInsertEmoji :: (IsEntry a, MonadIO m) => a -> EntryInsertEmojiCallback -> m SignalHandlerId
afterEntryInsertEmoji :: a -> IO () -> m SignalHandlerId
afterEntryInsertEmoji obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryInsertEmojiCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryInsertEmojiCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "insert-emoji" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryInsertEmojiSignalInfo
instance SignalInfo EntryInsertEmojiSignalInfo where
type HaskellCallbackType EntryInsertEmojiSignalInfo = EntryInsertEmojiCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryInsertEmojiCallback cb
cb'' <- mk_EntryInsertEmojiCallback cb'
connectSignalFunPtr obj "insert-emoji" cb'' connectMode detail
#endif
type EntryMoveCursorCallback =
Gtk.Enums.MovementStep
-> Int32
-> Bool
-> IO ()
noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback
noEntryMoveCursorCallback :: Maybe EntryMoveCursorCallback
noEntryMoveCursorCallback = Maybe EntryMoveCursorCallback
forall a. Maybe a
Nothing
type C_EntryMoveCursorCallback =
Ptr () ->
CUInt ->
Int32 ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryMoveCursorCallback :: C_EntryMoveCursorCallback -> IO (FunPtr C_EntryMoveCursorCallback)
genClosure_EntryMoveCursor :: MonadIO m => EntryMoveCursorCallback -> m (GClosure C_EntryMoveCursorCallback)
genClosure_EntryMoveCursor :: EntryMoveCursorCallback -> m (GClosure C_EntryMoveCursorCallback)
genClosure_EntryMoveCursor cb :: EntryMoveCursorCallback
cb = IO (GClosure C_EntryMoveCursorCallback)
-> m (GClosure C_EntryMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryMoveCursorCallback)
-> m (GClosure C_EntryMoveCursorCallback))
-> IO (GClosure C_EntryMoveCursorCallback)
-> m (GClosure C_EntryMoveCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryMoveCursorCallback
cb' = EntryMoveCursorCallback -> C_EntryMoveCursorCallback
wrap_EntryMoveCursorCallback EntryMoveCursorCallback
cb
C_EntryMoveCursorCallback -> IO (FunPtr C_EntryMoveCursorCallback)
mk_EntryMoveCursorCallback C_EntryMoveCursorCallback
cb' IO (FunPtr C_EntryMoveCursorCallback)
-> (FunPtr C_EntryMoveCursorCallback
-> IO (GClosure C_EntryMoveCursorCallback))
-> IO (GClosure C_EntryMoveCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryMoveCursorCallback
-> IO (GClosure C_EntryMoveCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryMoveCursorCallback ::
EntryMoveCursorCallback ->
C_EntryMoveCursorCallback
wrap_EntryMoveCursorCallback :: EntryMoveCursorCallback -> C_EntryMoveCursorCallback
wrap_EntryMoveCursorCallback _cb :: EntryMoveCursorCallback
_cb _ step :: CUInt
step count :: Int32
count extendSelection :: CInt
extendSelection _ = do
let step' :: MovementStep
step' = (Int -> MovementStep
forall a. Enum a => Int -> a
toEnum (Int -> MovementStep) -> (CUInt -> Int) -> CUInt -> MovementStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
step
let extendSelection' :: Bool
extendSelection' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
extendSelection
EntryMoveCursorCallback
_cb MovementStep
step' Int32
count Bool
extendSelection'
onEntryMoveCursor :: (IsEntry a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
onEntryMoveCursor :: a -> EntryMoveCursorCallback -> m SignalHandlerId
onEntryMoveCursor obj :: a
obj cb :: EntryMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryMoveCursorCallback
cb' = EntryMoveCursorCallback -> C_EntryMoveCursorCallback
wrap_EntryMoveCursorCallback EntryMoveCursorCallback
cb
FunPtr C_EntryMoveCursorCallback
cb'' <- C_EntryMoveCursorCallback -> IO (FunPtr C_EntryMoveCursorCallback)
mk_EntryMoveCursorCallback C_EntryMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_EntryMoveCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryMoveCursor :: (IsEntry a, MonadIO m) => a -> EntryMoveCursorCallback -> m SignalHandlerId
afterEntryMoveCursor :: a -> EntryMoveCursorCallback -> m SignalHandlerId
afterEntryMoveCursor obj :: a
obj cb :: EntryMoveCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryMoveCursorCallback
cb' = EntryMoveCursorCallback -> C_EntryMoveCursorCallback
wrap_EntryMoveCursorCallback EntryMoveCursorCallback
cb
FunPtr C_EntryMoveCursorCallback
cb'' <- C_EntryMoveCursorCallback -> IO (FunPtr C_EntryMoveCursorCallback)
mk_EntryMoveCursorCallback C_EntryMoveCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryMoveCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "move-cursor" FunPtr C_EntryMoveCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryMoveCursorSignalInfo
instance SignalInfo EntryMoveCursorSignalInfo where
type HaskellCallbackType EntryMoveCursorSignalInfo = EntryMoveCursorCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryMoveCursorCallback cb
cb'' <- mk_EntryMoveCursorCallback cb'
connectSignalFunPtr obj "move-cursor" cb'' connectMode detail
#endif
type EntryPasteClipboardCallback =
IO ()
noEntryPasteClipboardCallback :: Maybe EntryPasteClipboardCallback
noEntryPasteClipboardCallback :: Maybe (IO ())
noEntryPasteClipboardCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryPasteClipboardCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryPasteClipboardCallback :: C_EntryPasteClipboardCallback -> IO (FunPtr C_EntryPasteClipboardCallback)
genClosure_EntryPasteClipboard :: MonadIO m => EntryPasteClipboardCallback -> m (GClosure C_EntryPasteClipboardCallback)
genClosure_EntryPasteClipboard :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryPasteClipboard cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryPasteClipboardCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryPasteClipboardCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryPasteClipboardCallback ::
EntryPasteClipboardCallback ->
C_EntryPasteClipboardCallback
wrap_EntryPasteClipboardCallback :: IO () -> C_EntryActivateCallback
wrap_EntryPasteClipboardCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryPasteClipboard :: (IsEntry a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
onEntryPasteClipboard :: a -> IO () -> m SignalHandlerId
onEntryPasteClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryPasteClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryPasteClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "paste-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryPasteClipboard :: (IsEntry a, MonadIO m) => a -> EntryPasteClipboardCallback -> m SignalHandlerId
afterEntryPasteClipboard :: a -> IO () -> m SignalHandlerId
afterEntryPasteClipboard obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryPasteClipboardCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryPasteClipboardCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "paste-clipboard" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryPasteClipboardSignalInfo
instance SignalInfo EntryPasteClipboardSignalInfo where
type HaskellCallbackType EntryPasteClipboardSignalInfo = EntryPasteClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryPasteClipboardCallback cb
cb'' <- mk_EntryPasteClipboardCallback cb'
connectSignalFunPtr obj "paste-clipboard" cb'' connectMode detail
#endif
type =
Gtk.Widget.Widget
-> IO ()
noEntryPopulatePopupCallback :: Maybe EntryPopulatePopupCallback
= Maybe EntryPopulatePopupCallback
forall a. Maybe a
Nothing
type =
Ptr () ->
Ptr Gtk.Widget.Widget ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_EntryPopulatePopupCallback -> IO (FunPtr C_EntryPopulatePopupCallback)
genClosure_EntryPopulatePopup :: MonadIO m => EntryPopulatePopupCallback -> m (GClosure C_EntryPopulatePopupCallback)
cb :: EntryPopulatePopupCallback
cb = IO (GClosure C_EntryPopulatePopupCallback)
-> m (GClosure C_EntryPopulatePopupCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryPopulatePopupCallback)
-> m (GClosure C_EntryPopulatePopupCallback))
-> IO (GClosure C_EntryPopulatePopupCallback)
-> m (GClosure C_EntryPopulatePopupCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryPopulatePopupCallback
cb' = EntryPopulatePopupCallback -> C_EntryPopulatePopupCallback
wrap_EntryPopulatePopupCallback EntryPopulatePopupCallback
cb
C_EntryPopulatePopupCallback
-> IO (FunPtr C_EntryPopulatePopupCallback)
mk_EntryPopulatePopupCallback C_EntryPopulatePopupCallback
cb' IO (FunPtr C_EntryPopulatePopupCallback)
-> (FunPtr C_EntryPopulatePopupCallback
-> IO (GClosure C_EntryPopulatePopupCallback))
-> IO (GClosure C_EntryPopulatePopupCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryPopulatePopupCallback
-> IO (GClosure C_EntryPopulatePopupCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryPopulatePopupCallback ::
EntryPopulatePopupCallback ->
C_EntryPopulatePopupCallback
_cb :: EntryPopulatePopupCallback
_cb _ widget :: Ptr Widget
widget _ = do
Widget
widget' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
widget
EntryPopulatePopupCallback
_cb Widget
widget'
onEntryPopulatePopup :: (IsEntry a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
obj :: a
obj cb :: EntryPopulatePopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryPopulatePopupCallback
cb' = EntryPopulatePopupCallback -> C_EntryPopulatePopupCallback
wrap_EntryPopulatePopupCallback EntryPopulatePopupCallback
cb
FunPtr C_EntryPopulatePopupCallback
cb'' <- C_EntryPopulatePopupCallback
-> IO (FunPtr C_EntryPopulatePopupCallback)
mk_EntryPopulatePopupCallback C_EntryPopulatePopupCallback
cb'
a
-> Text
-> FunPtr C_EntryPopulatePopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "populate-popup" FunPtr C_EntryPopulatePopupCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryPopulatePopup :: (IsEntry a, MonadIO m) => a -> EntryPopulatePopupCallback -> m SignalHandlerId
obj :: a
obj cb :: EntryPopulatePopupCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryPopulatePopupCallback
cb' = EntryPopulatePopupCallback -> C_EntryPopulatePopupCallback
wrap_EntryPopulatePopupCallback EntryPopulatePopupCallback
cb
FunPtr C_EntryPopulatePopupCallback
cb'' <- C_EntryPopulatePopupCallback
-> IO (FunPtr C_EntryPopulatePopupCallback)
mk_EntryPopulatePopupCallback C_EntryPopulatePopupCallback
cb'
a
-> Text
-> FunPtr C_EntryPopulatePopupCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "populate-popup" FunPtr C_EntryPopulatePopupCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryPopulatePopupSignalInfo
instance SignalInfo EntryPopulatePopupSignalInfo where
type HaskellCallbackType EntryPopulatePopupSignalInfo = EntryPopulatePopupCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryPopulatePopupCallback cb
cb'' <- mk_EntryPopulatePopupCallback cb'
connectSignalFunPtr obj "populate-popup" cb'' connectMode detail
#endif
type EntryPreeditChangedCallback =
T.Text
-> IO ()
noEntryPreeditChangedCallback :: Maybe EntryPreeditChangedCallback
noEntryPreeditChangedCallback :: Maybe EntryInsertAtCursorCallback
noEntryPreeditChangedCallback = Maybe EntryInsertAtCursorCallback
forall a. Maybe a
Nothing
type C_EntryPreeditChangedCallback =
Ptr () ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryPreeditChangedCallback :: C_EntryPreeditChangedCallback -> IO (FunPtr C_EntryPreeditChangedCallback)
genClosure_EntryPreeditChanged :: MonadIO m => EntryPreeditChangedCallback -> m (GClosure C_EntryPreeditChangedCallback)
genClosure_EntryPreeditChanged :: EntryInsertAtCursorCallback
-> m (GClosure C_EntryInsertAtCursorCallback)
genClosure_EntryPreeditChanged cb :: EntryInsertAtCursorCallback
cb = IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback))
-> IO (GClosure C_EntryInsertAtCursorCallback)
-> m (GClosure C_EntryInsertAtCursorCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryPreeditChangedCallback EntryInsertAtCursorCallback
cb
C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryPreeditChangedCallback C_EntryInsertAtCursorCallback
cb' IO (FunPtr C_EntryInsertAtCursorCallback)
-> (FunPtr C_EntryInsertAtCursorCallback
-> IO (GClosure C_EntryInsertAtCursorCallback))
-> IO (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryInsertAtCursorCallback
-> IO (GClosure C_EntryInsertAtCursorCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryPreeditChangedCallback ::
EntryPreeditChangedCallback ->
C_EntryPreeditChangedCallback
wrap_EntryPreeditChangedCallback :: EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryPreeditChangedCallback _cb :: EntryInsertAtCursorCallback
_cb _ preedit :: CString
preedit _ = do
Text
preedit' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
preedit
EntryInsertAtCursorCallback
_cb Text
preedit'
onEntryPreeditChanged :: (IsEntry a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
onEntryPreeditChanged :: a -> EntryInsertAtCursorCallback -> m SignalHandlerId
onEntryPreeditChanged obj :: a
obj cb :: EntryInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryPreeditChangedCallback EntryInsertAtCursorCallback
cb
FunPtr C_EntryInsertAtCursorCallback
cb'' <- C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryPreeditChangedCallback C_EntryInsertAtCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "preedit-changed" FunPtr C_EntryInsertAtCursorCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryPreeditChanged :: (IsEntry a, MonadIO m) => a -> EntryPreeditChangedCallback -> m SignalHandlerId
afterEntryPreeditChanged :: a -> EntryInsertAtCursorCallback -> m SignalHandlerId
afterEntryPreeditChanged obj :: a
obj cb :: EntryInsertAtCursorCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryInsertAtCursorCallback
cb' = EntryInsertAtCursorCallback -> C_EntryInsertAtCursorCallback
wrap_EntryPreeditChangedCallback EntryInsertAtCursorCallback
cb
FunPtr C_EntryInsertAtCursorCallback
cb'' <- C_EntryInsertAtCursorCallback
-> IO (FunPtr C_EntryInsertAtCursorCallback)
mk_EntryPreeditChangedCallback C_EntryInsertAtCursorCallback
cb'
a
-> Text
-> FunPtr C_EntryInsertAtCursorCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "preedit-changed" FunPtr C_EntryInsertAtCursorCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryPreeditChangedSignalInfo
instance SignalInfo EntryPreeditChangedSignalInfo where
type HaskellCallbackType EntryPreeditChangedSignalInfo = EntryPreeditChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryPreeditChangedCallback cb
cb'' <- mk_EntryPreeditChangedCallback cb'
connectSignalFunPtr obj "preedit-changed" cb'' connectMode detail
#endif
type EntryToggleOverwriteCallback =
IO ()
noEntryToggleOverwriteCallback :: Maybe EntryToggleOverwriteCallback
noEntryToggleOverwriteCallback :: Maybe (IO ())
noEntryToggleOverwriteCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_EntryToggleOverwriteCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_EntryToggleOverwriteCallback :: C_EntryToggleOverwriteCallback -> IO (FunPtr C_EntryToggleOverwriteCallback)
genClosure_EntryToggleOverwrite :: MonadIO m => EntryToggleOverwriteCallback -> m (GClosure C_EntryToggleOverwriteCallback)
genClosure_EntryToggleOverwrite :: IO () -> m (GClosure C_EntryActivateCallback)
genClosure_EntryToggleOverwrite cb :: IO ()
cb = IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
-> m (GClosure C_EntryActivateCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryToggleOverwriteCallback IO ()
cb
C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryToggleOverwriteCallback C_EntryActivateCallback
cb' IO (FunPtr C_EntryActivateCallback)
-> (FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback))
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_EntryActivateCallback
-> IO (GClosure C_EntryActivateCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_EntryToggleOverwriteCallback ::
EntryToggleOverwriteCallback ->
C_EntryToggleOverwriteCallback
wrap_EntryToggleOverwriteCallback :: IO () -> C_EntryActivateCallback
wrap_EntryToggleOverwriteCallback _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onEntryToggleOverwrite :: (IsEntry a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
onEntryToggleOverwrite :: a -> IO () -> m SignalHandlerId
onEntryToggleOverwrite obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryToggleOverwriteCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryToggleOverwriteCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-overwrite" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterEntryToggleOverwrite :: (IsEntry a, MonadIO m) => a -> EntryToggleOverwriteCallback -> m SignalHandlerId
afterEntryToggleOverwrite :: a -> IO () -> m SignalHandlerId
afterEntryToggleOverwrite obj :: a
obj cb :: IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_EntryActivateCallback
cb' = IO () -> C_EntryActivateCallback
wrap_EntryToggleOverwriteCallback IO ()
cb
FunPtr C_EntryActivateCallback
cb'' <- C_EntryActivateCallback -> IO (FunPtr C_EntryActivateCallback)
mk_EntryToggleOverwriteCallback C_EntryActivateCallback
cb'
a
-> Text
-> FunPtr C_EntryActivateCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj "toggle-overwrite" FunPtr C_EntryActivateCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data EntryToggleOverwriteSignalInfo
instance SignalInfo EntryToggleOverwriteSignalInfo where
type HaskellCallbackType EntryToggleOverwriteSignalInfo = EntryToggleOverwriteCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_EntryToggleOverwriteCallback cb
cb'' <- mk_EntryToggleOverwriteCallback cb'
connectSignalFunPtr obj "toggle-overwrite" cb'' connectMode detail
#endif
getEntryActivatesDefault :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryActivatesDefault :: o -> m Bool
getEntryActivatesDefault obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "activates-default"
setEntryActivatesDefault :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryActivatesDefault :: o -> Bool -> m ()
setEntryActivatesDefault obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "activates-default" Bool
val
constructEntryActivatesDefault :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryActivatesDefault :: Bool -> IO (GValueConstruct o)
constructEntryActivatesDefault val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "activates-default" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryActivatesDefaultPropertyInfo
instance AttrInfo EntryActivatesDefaultPropertyInfo where
type AttrAllowedOps EntryActivatesDefaultPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryActivatesDefaultPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryActivatesDefaultPropertyInfo = (~) Bool
type AttrTransferType EntryActivatesDefaultPropertyInfo = Bool
type AttrGetType EntryActivatesDefaultPropertyInfo = Bool
type AttrLabel EntryActivatesDefaultPropertyInfo = "activates-default"
type AttrOrigin EntryActivatesDefaultPropertyInfo = Entry
attrGet = getEntryActivatesDefault
attrSet = setEntryActivatesDefault
attrTransfer _ v = do
return v
attrConstruct = constructEntryActivatesDefault
attrClear = undefined
#endif
getEntryAttributes :: (MonadIO m, IsEntry o) => o -> m (Maybe Pango.AttrList.AttrList)
getEntryAttributes :: o -> m (Maybe AttrList)
getEntryAttributes obj :: o
obj = IO (Maybe AttrList) -> m (Maybe AttrList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe AttrList) -> m (Maybe AttrList))
-> IO (Maybe AttrList) -> m (Maybe AttrList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr AttrList -> AttrList)
-> IO (Maybe AttrList)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "attributes" ManagedPtr AttrList -> AttrList
Pango.AttrList.AttrList
setEntryAttributes :: (MonadIO m, IsEntry o) => o -> Pango.AttrList.AttrList -> m ()
setEntryAttributes :: o -> AttrList -> m ()
setEntryAttributes obj :: o
obj val :: AttrList
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe AttrList -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
Just AttrList
val)
constructEntryAttributes :: (IsEntry o) => Pango.AttrList.AttrList -> IO (GValueConstruct o)
constructEntryAttributes :: AttrList -> IO (GValueConstruct o)
constructEntryAttributes val :: AttrList
val = String -> Maybe AttrList -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "attributes" (AttrList -> Maybe AttrList
forall a. a -> Maybe a
Just AttrList
val)
#if defined(ENABLE_OVERLOADING)
data EntryAttributesPropertyInfo
instance AttrInfo EntryAttributesPropertyInfo where
type AttrAllowedOps EntryAttributesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryAttributesPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferTypeConstraint EntryAttributesPropertyInfo = (~) Pango.AttrList.AttrList
type AttrTransferType EntryAttributesPropertyInfo = Pango.AttrList.AttrList
type AttrGetType EntryAttributesPropertyInfo = (Maybe Pango.AttrList.AttrList)
type AttrLabel EntryAttributesPropertyInfo = "attributes"
type AttrOrigin EntryAttributesPropertyInfo = Entry
attrGet = getEntryAttributes
attrSet = setEntryAttributes
attrTransfer _ v = do
return v
attrConstruct = constructEntryAttributes
attrClear = undefined
#endif
getEntryBuffer :: (MonadIO m, IsEntry o) => o -> m Gtk.EntryBuffer.EntryBuffer
getEntryBuffer :: o -> m EntryBuffer
getEntryBuffer obj :: o
obj = IO EntryBuffer -> m EntryBuffer
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EntryBuffer -> m EntryBuffer)
-> IO EntryBuffer -> m EntryBuffer
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe EntryBuffer) -> IO EntryBuffer
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getEntryBuffer" (IO (Maybe EntryBuffer) -> IO EntryBuffer)
-> IO (Maybe EntryBuffer) -> IO EntryBuffer
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr EntryBuffer -> EntryBuffer)
-> IO (Maybe EntryBuffer)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "buffer" ManagedPtr EntryBuffer -> EntryBuffer
Gtk.EntryBuffer.EntryBuffer
setEntryBuffer :: (MonadIO m, IsEntry o, Gtk.EntryBuffer.IsEntryBuffer a) => o -> a -> m ()
setEntryBuffer :: o -> a -> m ()
setEntryBuffer obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "buffer" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructEntryBuffer :: (IsEntry o, Gtk.EntryBuffer.IsEntryBuffer a) => a -> IO (GValueConstruct o)
constructEntryBuffer :: a -> IO (GValueConstruct o)
constructEntryBuffer val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "buffer" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
#if defined(ENABLE_OVERLOADING)
data EntryBufferPropertyInfo
instance AttrInfo EntryBufferPropertyInfo where
type AttrAllowedOps EntryBufferPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryBufferPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryBufferPropertyInfo = Gtk.EntryBuffer.IsEntryBuffer
type AttrTransferTypeConstraint EntryBufferPropertyInfo = Gtk.EntryBuffer.IsEntryBuffer
type AttrTransferType EntryBufferPropertyInfo = Gtk.EntryBuffer.EntryBuffer
type AttrGetType EntryBufferPropertyInfo = Gtk.EntryBuffer.EntryBuffer
type AttrLabel EntryBufferPropertyInfo = "buffer"
type AttrOrigin EntryBufferPropertyInfo = Entry
attrGet = getEntryBuffer
attrSet = setEntryBuffer
attrTransfer _ v = do
unsafeCastTo Gtk.EntryBuffer.EntryBuffer v
attrConstruct = constructEntryBuffer
attrClear = undefined
#endif
getEntryCapsLockWarning :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryCapsLockWarning :: o -> m Bool
getEntryCapsLockWarning obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "caps-lock-warning"
setEntryCapsLockWarning :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryCapsLockWarning :: o -> Bool -> m ()
setEntryCapsLockWarning obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "caps-lock-warning" Bool
val
constructEntryCapsLockWarning :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryCapsLockWarning :: Bool -> IO (GValueConstruct o)
constructEntryCapsLockWarning val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "caps-lock-warning" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryCapsLockWarningPropertyInfo
instance AttrInfo EntryCapsLockWarningPropertyInfo where
type AttrAllowedOps EntryCapsLockWarningPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryCapsLockWarningPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryCapsLockWarningPropertyInfo = (~) Bool
type AttrTransferType EntryCapsLockWarningPropertyInfo = Bool
type AttrGetType EntryCapsLockWarningPropertyInfo = Bool
type AttrLabel EntryCapsLockWarningPropertyInfo = "caps-lock-warning"
type AttrOrigin EntryCapsLockWarningPropertyInfo = Entry
attrGet = getEntryCapsLockWarning
attrSet = setEntryCapsLockWarning
attrTransfer _ v = do
return v
attrConstruct = constructEntryCapsLockWarning
attrClear = undefined
#endif
getEntryCompletion :: (MonadIO m, IsEntry o) => o -> m Gtk.EntryCompletion.EntryCompletion
getEntryCompletion :: o -> m EntryCompletion
getEntryCompletion obj :: o
obj = IO EntryCompletion -> m EntryCompletion
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO EntryCompletion -> m EntryCompletion)
-> IO EntryCompletion -> m EntryCompletion
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe EntryCompletion) -> IO EntryCompletion
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "getEntryCompletion" (IO (Maybe EntryCompletion) -> IO EntryCompletion)
-> IO (Maybe EntryCompletion) -> IO EntryCompletion
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr EntryCompletion -> EntryCompletion)
-> IO (Maybe EntryCompletion)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "completion" ManagedPtr EntryCompletion -> EntryCompletion
Gtk.EntryCompletion.EntryCompletion
setEntryCompletion :: (MonadIO m, IsEntry o, Gtk.EntryCompletion.IsEntryCompletion a) => o -> a -> m ()
setEntryCompletion :: o -> a -> m ()
setEntryCompletion obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "completion" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructEntryCompletion :: (IsEntry o, Gtk.EntryCompletion.IsEntryCompletion a) => a -> IO (GValueConstruct o)
constructEntryCompletion :: a -> IO (GValueConstruct o)
constructEntryCompletion val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "completion" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearEntryCompletion :: (MonadIO m, IsEntry o) => o -> m ()
clearEntryCompletion :: o -> m ()
clearEntryCompletion obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe EntryCompletion -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "completion" (Maybe EntryCompletion
forall a. Maybe a
Nothing :: Maybe Gtk.EntryCompletion.EntryCompletion)
#if defined(ENABLE_OVERLOADING)
data EntryCompletionPropertyInfo
instance AttrInfo EntryCompletionPropertyInfo where
type AttrAllowedOps EntryCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EntryCompletionPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryCompletionPropertyInfo = Gtk.EntryCompletion.IsEntryCompletion
type AttrTransferTypeConstraint EntryCompletionPropertyInfo = Gtk.EntryCompletion.IsEntryCompletion
type AttrTransferType EntryCompletionPropertyInfo = Gtk.EntryCompletion.EntryCompletion
type AttrGetType EntryCompletionPropertyInfo = Gtk.EntryCompletion.EntryCompletion
type AttrLabel EntryCompletionPropertyInfo = "completion"
type AttrOrigin EntryCompletionPropertyInfo = Entry
attrGet = getEntryCompletion
attrSet = setEntryCompletion
attrTransfer _ v = do
unsafeCastTo Gtk.EntryCompletion.EntryCompletion v
attrConstruct = constructEntryCompletion
attrClear = clearEntryCompletion
#endif
getEntryCursorPosition :: (MonadIO m, IsEntry o) => o -> m Int32
getEntryCursorPosition :: o -> m Int32
getEntryCursorPosition obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "cursor-position"
#if defined(ENABLE_OVERLOADING)
data EntryCursorPositionPropertyInfo
instance AttrInfo EntryCursorPositionPropertyInfo where
type AttrAllowedOps EntryCursorPositionPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint EntryCursorPositionPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryCursorPositionPropertyInfo = (~) ()
type AttrTransferTypeConstraint EntryCursorPositionPropertyInfo = (~) ()
type AttrTransferType EntryCursorPositionPropertyInfo = ()
type AttrGetType EntryCursorPositionPropertyInfo = Int32
type AttrLabel EntryCursorPositionPropertyInfo = "cursor-position"
type AttrOrigin EntryCursorPositionPropertyInfo = Entry
attrGet = getEntryCursorPosition
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getEntryEditable :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryEditable :: o -> m Bool
getEntryEditable obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "editable"
setEntryEditable :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryEditable :: o -> Bool -> m ()
setEntryEditable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "editable" Bool
val
constructEntryEditable :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryEditable :: Bool -> IO (GValueConstruct o)
constructEntryEditable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "editable" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryEditablePropertyInfo
instance AttrInfo EntryEditablePropertyInfo where
type AttrAllowedOps EntryEditablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryEditablePropertyInfo = IsEntry
type AttrSetTypeConstraint EntryEditablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryEditablePropertyInfo = (~) Bool
type AttrTransferType EntryEditablePropertyInfo = Bool
type AttrGetType EntryEditablePropertyInfo = Bool
type AttrLabel EntryEditablePropertyInfo = "editable"
type AttrOrigin EntryEditablePropertyInfo = Entry
attrGet = getEntryEditable
attrSet = setEntryEditable
attrTransfer _ v = do
return v
attrConstruct = constructEntryEditable
attrClear = undefined
#endif
getEntryEnableEmojiCompletion :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryEnableEmojiCompletion :: o -> m Bool
getEntryEnableEmojiCompletion obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "enable-emoji-completion"
setEntryEnableEmojiCompletion :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryEnableEmojiCompletion :: o -> Bool -> m ()
setEntryEnableEmojiCompletion obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "enable-emoji-completion" Bool
val
constructEntryEnableEmojiCompletion :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryEnableEmojiCompletion :: Bool -> IO (GValueConstruct o)
constructEntryEnableEmojiCompletion val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "enable-emoji-completion" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryEnableEmojiCompletionPropertyInfo
instance AttrInfo EntryEnableEmojiCompletionPropertyInfo where
type AttrAllowedOps EntryEnableEmojiCompletionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryEnableEmojiCompletionPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryEnableEmojiCompletionPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryEnableEmojiCompletionPropertyInfo = (~) Bool
type AttrTransferType EntryEnableEmojiCompletionPropertyInfo = Bool
type AttrGetType EntryEnableEmojiCompletionPropertyInfo = Bool
type AttrLabel EntryEnableEmojiCompletionPropertyInfo = "enable-emoji-completion"
type AttrOrigin EntryEnableEmojiCompletionPropertyInfo = Entry
attrGet = getEntryEnableEmojiCompletion
attrSet = setEntryEnableEmojiCompletion
attrTransfer _ v = do
return v
attrConstruct = constructEntryEnableEmojiCompletion
attrClear = undefined
#endif
getEntryHasFrame :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryHasFrame :: o -> m Bool
getEntryHasFrame obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "has-frame"
setEntryHasFrame :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryHasFrame :: o -> Bool -> m ()
setEntryHasFrame obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "has-frame" Bool
val
constructEntryHasFrame :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryHasFrame :: Bool -> IO (GValueConstruct o)
constructEntryHasFrame val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "has-frame" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryHasFramePropertyInfo
instance AttrInfo EntryHasFramePropertyInfo where
type AttrAllowedOps EntryHasFramePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryHasFramePropertyInfo = IsEntry
type AttrSetTypeConstraint EntryHasFramePropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryHasFramePropertyInfo = (~) Bool
type AttrTransferType EntryHasFramePropertyInfo = Bool
type AttrGetType EntryHasFramePropertyInfo = Bool
type AttrLabel EntryHasFramePropertyInfo = "has-frame"
type AttrOrigin EntryHasFramePropertyInfo = Entry
attrGet = getEntryHasFrame
attrSet = setEntryHasFrame
attrTransfer _ v = do
return v
attrConstruct = constructEntryHasFrame
attrClear = undefined
#endif
getEntryImModule :: (MonadIO m, IsEntry o) => o -> m (Maybe T.Text)
getEntryImModule :: o -> m (Maybe Text)
getEntryImModule obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "im-module"
setEntryImModule :: (MonadIO m, IsEntry o) => o -> T.Text -> m ()
setEntryImModule :: o -> Text -> m ()
setEntryImModule obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "im-module" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructEntryImModule :: (IsEntry o) => T.Text -> IO (GValueConstruct o)
constructEntryImModule :: Text -> IO (GValueConstruct o)
constructEntryImModule val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "im-module" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearEntryImModule :: (MonadIO m, IsEntry o) => o -> m ()
clearEntryImModule :: o -> m ()
clearEntryImModule obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "im-module" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data EntryImModulePropertyInfo
instance AttrInfo EntryImModulePropertyInfo where
type AttrAllowedOps EntryImModulePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EntryImModulePropertyInfo = IsEntry
type AttrSetTypeConstraint EntryImModulePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint EntryImModulePropertyInfo = (~) T.Text
type AttrTransferType EntryImModulePropertyInfo = T.Text
type AttrGetType EntryImModulePropertyInfo = (Maybe T.Text)
type AttrLabel EntryImModulePropertyInfo = "im-module"
type AttrOrigin EntryImModulePropertyInfo = Entry
attrGet = getEntryImModule
attrSet = setEntryImModule
attrTransfer _ v = do
return v
attrConstruct = constructEntryImModule
attrClear = clearEntryImModule
#endif
getEntryInnerBorder :: (MonadIO m, IsEntry o) => o -> m (Maybe Gtk.Border.Border)
getEntryInnerBorder :: o -> m (Maybe Border)
getEntryInnerBorder obj :: o
obj = IO (Maybe Border) -> m (Maybe Border)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Border) -> m (Maybe Border))
-> IO (Maybe Border) -> m (Maybe Border)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Border -> Border) -> IO (Maybe Border)
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj "inner-border" ManagedPtr Border -> Border
Gtk.Border.Border
setEntryInnerBorder :: (MonadIO m, IsEntry o) => o -> Gtk.Border.Border -> m ()
setEntryInnerBorder :: o -> Border -> m ()
setEntryInnerBorder obj :: o
obj val :: Border
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Border -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "inner-border" (Border -> Maybe Border
forall a. a -> Maybe a
Just Border
val)
constructEntryInnerBorder :: (IsEntry o) => Gtk.Border.Border -> IO (GValueConstruct o)
constructEntryInnerBorder :: Border -> IO (GValueConstruct o)
constructEntryInnerBorder val :: Border
val = String -> Maybe Border -> IO (GValueConstruct o)
forall a o.
BoxedObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed "inner-border" (Border -> Maybe Border
forall a. a -> Maybe a
Just Border
val)
clearEntryInnerBorder :: (MonadIO m, IsEntry o) => o -> m ()
clearEntryInnerBorder :: o -> m ()
clearEntryInnerBorder obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Border -> IO ()
forall a b.
(GObject a, BoxedObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj "inner-border" (Maybe Border
forall a. Maybe a
Nothing :: Maybe Gtk.Border.Border)
#if defined(ENABLE_OVERLOADING)
data EntryInnerBorderPropertyInfo
instance AttrInfo EntryInnerBorderPropertyInfo where
type AttrAllowedOps EntryInnerBorderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint EntryInnerBorderPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryInnerBorderPropertyInfo = (~) Gtk.Border.Border
type AttrTransferTypeConstraint EntryInnerBorderPropertyInfo = (~) Gtk.Border.Border
type AttrTransferType EntryInnerBorderPropertyInfo = Gtk.Border.Border
type AttrGetType EntryInnerBorderPropertyInfo = (Maybe Gtk.Border.Border)
type AttrLabel EntryInnerBorderPropertyInfo = "inner-border"
type AttrOrigin EntryInnerBorderPropertyInfo = Entry
attrGet = getEntryInnerBorder
attrSet = setEntryInnerBorder
attrTransfer _ v = do
return v
attrConstruct = constructEntryInnerBorder
attrClear = clearEntryInnerBorder
#endif
getEntryInputHints :: (MonadIO m, IsEntry o) => o -> m [Gtk.Flags.InputHints]
getEntryInputHints :: o -> m [InputHints]
getEntryInputHints obj :: o
obj = IO [InputHints] -> m [InputHints]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [InputHints] -> m [InputHints])
-> IO [InputHints] -> m [InputHints]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [InputHints]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj "input-hints"
setEntryInputHints :: (MonadIO m, IsEntry o) => o -> [Gtk.Flags.InputHints] -> m ()
setEntryInputHints :: o -> [InputHints] -> m ()
setEntryInputHints obj :: o
obj val :: [InputHints]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> [InputHints] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj "input-hints" [InputHints]
val
constructEntryInputHints :: (IsEntry o) => [Gtk.Flags.InputHints] -> IO (GValueConstruct o)
constructEntryInputHints :: [InputHints] -> IO (GValueConstruct o)
constructEntryInputHints val :: [InputHints]
val = String -> [InputHints] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags "input-hints" [InputHints]
val
#if defined(ENABLE_OVERLOADING)
data EntryInputHintsPropertyInfo
instance AttrInfo EntryInputHintsPropertyInfo where
type AttrAllowedOps EntryInputHintsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryInputHintsPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferTypeConstraint EntryInputHintsPropertyInfo = (~) [Gtk.Flags.InputHints]
type AttrTransferType EntryInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrGetType EntryInputHintsPropertyInfo = [Gtk.Flags.InputHints]
type AttrLabel EntryInputHintsPropertyInfo = "input-hints"
type AttrOrigin EntryInputHintsPropertyInfo = Entry
attrGet = getEntryInputHints
attrSet = setEntryInputHints
attrTransfer _ v = do
return v
attrConstruct = constructEntryInputHints
attrClear = undefined
#endif
getEntryInputPurpose :: (MonadIO m, IsEntry o) => o -> m Gtk.Enums.InputPurpose
getEntryInputPurpose :: o -> m InputPurpose
getEntryInputPurpose obj :: o
obj = IO InputPurpose -> m InputPurpose
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO InputPurpose -> m InputPurpose)
-> IO InputPurpose -> m InputPurpose
forall a b. (a -> b) -> a -> b
$ o -> String -> IO InputPurpose
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "input-purpose"
setEntryInputPurpose :: (MonadIO m, IsEntry o) => o -> Gtk.Enums.InputPurpose -> m ()
setEntryInputPurpose :: o -> InputPurpose -> m ()
setEntryInputPurpose obj :: o
obj val :: InputPurpose
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> InputPurpose -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "input-purpose" InputPurpose
val
constructEntryInputPurpose :: (IsEntry o) => Gtk.Enums.InputPurpose -> IO (GValueConstruct o)
constructEntryInputPurpose :: InputPurpose -> IO (GValueConstruct o)
constructEntryInputPurpose val :: InputPurpose
val = String -> InputPurpose -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "input-purpose" InputPurpose
val
#if defined(ENABLE_OVERLOADING)
data EntryInputPurposePropertyInfo
instance AttrInfo EntryInputPurposePropertyInfo where
type AttrAllowedOps EntryInputPurposePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryInputPurposePropertyInfo = IsEntry
type AttrSetTypeConstraint EntryInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferTypeConstraint EntryInputPurposePropertyInfo = (~) Gtk.Enums.InputPurpose
type AttrTransferType EntryInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrGetType EntryInputPurposePropertyInfo = Gtk.Enums.InputPurpose
type AttrLabel EntryInputPurposePropertyInfo = "input-purpose"
type AttrOrigin EntryInputPurposePropertyInfo = Entry
attrGet = getEntryInputPurpose
attrSet = setEntryInputPurpose
attrTransfer _ v = do
return v
attrConstruct = constructEntryInputPurpose
attrClear = undefined
#endif
getEntryInvisibleChar :: (MonadIO m, IsEntry o) => o -> m Word32
getEntryInvisibleChar :: o -> m Word32
getEntryInvisibleChar obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "invisible-char"
setEntryInvisibleChar :: (MonadIO m, IsEntry o) => o -> Word32 -> m ()
setEntryInvisibleChar :: o -> Word32 -> m ()
setEntryInvisibleChar obj :: o
obj val :: Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj "invisible-char" Word32
val
constructEntryInvisibleChar :: (IsEntry o) => Word32 -> IO (GValueConstruct o)
constructEntryInvisibleChar :: Word32 -> IO (GValueConstruct o)
constructEntryInvisibleChar val :: Word32
val = String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 "invisible-char" Word32
val
#if defined(ENABLE_OVERLOADING)
data EntryInvisibleCharPropertyInfo
instance AttrInfo EntryInvisibleCharPropertyInfo where
type AttrAllowedOps EntryInvisibleCharPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryInvisibleCharPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32
type AttrTransferTypeConstraint EntryInvisibleCharPropertyInfo = (~) Word32
type AttrTransferType EntryInvisibleCharPropertyInfo = Word32
type AttrGetType EntryInvisibleCharPropertyInfo = Word32
type AttrLabel EntryInvisibleCharPropertyInfo = "invisible-char"
type AttrOrigin EntryInvisibleCharPropertyInfo = Entry
attrGet = getEntryInvisibleChar
attrSet = setEntryInvisibleChar
attrTransfer _ v = do
return v
attrConstruct = constructEntryInvisibleChar
attrClear = undefined
#endif
getEntryInvisibleCharSet :: (MonadIO m, IsEntry o) => o -> m Bool
getEntryInvisibleCharSet :: o -> m Bool
getEntryInvisibleCharSet obj :: o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "invisible-char-set"
setEntryInvisibleCharSet :: (MonadIO m, IsEntry o) => o -> Bool -> m ()
setEntryInvisibleCharSet :: o -> Bool -> m ()
setEntryInvisibleCharSet obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "invisible-char-set" Bool
val
constructEntryInvisibleCharSet :: (IsEntry o) => Bool -> IO (GValueConstruct o)
constructEntryInvisibleCharSet :: Bool -> IO (GValueConstruct o)
constructEntryInvisibleCharSet val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "invisible-char-set" Bool
val
#if defined(ENABLE_OVERLOADING)
data EntryInvisibleCharSetPropertyInfo
instance AttrInfo EntryInvisibleCharSetPropertyInfo where
type AttrAllowedOps EntryInvisibleCharSetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint EntryInvisibleCharSetPropertyInfo = IsEntry
type AttrSetTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool
type AttrTransferTypeConstraint EntryInvisibleCharSetPropertyInfo = (~) Bool
type AttrTransferType EntryInvisibleCharSetPropertyInfo = Bool
type AttrGetType EntryInvisibleCharSetPropertyInfo = Bool
type AttrLabel EntryInvisibleCharSetPropertyInfo = "invisible-char-set"
type AttrOrigin EntryInvisibleCharSetPropertyInfo = Entry
attrGet = getEntryInvisibleCharSet
attrSet = setEntryInvisibleCharSet
attrTransfer _ v = do
return v
attrConstruct = constructEntryInvisibleCharSet
attrClear = undefined
#endif
getEntryMaxLength :: (MonadIO m, IsEntry o) => o -> m Int32
getEntryMaxLength :: o -> m Int32
getEntryMaxLength obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "max-length"
setEntryMaxLength :: (MonadIO m, IsEntry o) => o -> Int32 -> m