{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if !defined(__HADDOCK_VERSION__)
#define ENABLE_OVERLOADING
#endif
module GI.Vte.Objects.Terminal
(
Terminal(..) ,
IsTerminal ,
toTerminal ,
#if defined(ENABLE_OVERLOADING)
ResolveTerminalMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCopyClipboardMethodInfo ,
#endif
terminalCopyClipboard ,
#if defined(ENABLE_OVERLOADING)
TerminalCopyClipboardFormatMethodInfo ,
#endif
terminalCopyClipboardFormat ,
#if defined(ENABLE_OVERLOADING)
TerminalCopyPrimaryMethodInfo ,
#endif
terminalCopyPrimary ,
#if defined(ENABLE_OVERLOADING)
TerminalDupTermpropStringMethodInfo ,
#endif
terminalDupTermpropString ,
#if defined(ENABLE_OVERLOADING)
TerminalDupTermpropStringByIdMethodInfo ,
#endif
terminalDupTermpropStringById ,
#if defined(ENABLE_OVERLOADING)
TerminalDupTermpropUuidMethodInfo ,
#endif
terminalDupTermpropUuid ,
#if defined(ENABLE_OVERLOADING)
TerminalDupTermpropUuidByIdMethodInfo ,
#endif
terminalDupTermpropUuidById ,
#if defined(ENABLE_OVERLOADING)
TerminalFeedMethodInfo ,
#endif
terminalFeed ,
#if defined(ENABLE_OVERLOADING)
TerminalFeedChildMethodInfo ,
#endif
terminalFeedChild ,
#if defined(ENABLE_OVERLOADING)
TerminalFeedChildBinaryMethodInfo ,
#endif
terminalFeedChildBinary ,
#if defined(ENABLE_OVERLOADING)
TerminalGetAllowBoldMethodInfo ,
#endif
terminalGetAllowBold ,
#if defined(ENABLE_OVERLOADING)
TerminalGetAllowHyperlinkMethodInfo ,
#endif
terminalGetAllowHyperlink ,
#if defined(ENABLE_OVERLOADING)
TerminalGetAudibleBellMethodInfo ,
#endif
terminalGetAudibleBell ,
#if defined(ENABLE_OVERLOADING)
TerminalGetBoldIsBrightMethodInfo ,
#endif
terminalGetBoldIsBright ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCellHeightScaleMethodInfo ,
#endif
terminalGetCellHeightScale ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCellWidthScaleMethodInfo ,
#endif
terminalGetCellWidthScale ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCharHeightMethodInfo ,
#endif
terminalGetCharHeight ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCharWidthMethodInfo ,
#endif
terminalGetCharWidth ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCjkAmbiguousWidthMethodInfo ,
#endif
terminalGetCjkAmbiguousWidth ,
#if defined(ENABLE_OVERLOADING)
TerminalGetColorBackgroundForDrawMethodInfo,
#endif
terminalGetColorBackgroundForDraw ,
#if defined(ENABLE_OVERLOADING)
TerminalGetColumnCountMethodInfo ,
#endif
terminalGetColumnCount ,
#if defined(ENABLE_OVERLOADING)
TerminalGetContextMenuMethodInfo ,
#endif
terminalGetContextMenu ,
#if defined(ENABLE_OVERLOADING)
TerminalGetContextMenuModelMethodInfo ,
#endif
terminalGetContextMenuModel ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCurrentDirectoryUriMethodInfo,
#endif
terminalGetCurrentDirectoryUri ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCurrentFileUriMethodInfo ,
#endif
terminalGetCurrentFileUri ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCursorBlinkModeMethodInfo ,
#endif
terminalGetCursorBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCursorPositionMethodInfo ,
#endif
terminalGetCursorPosition ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCursorShapeMethodInfo ,
#endif
terminalGetCursorShape ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableA11yMethodInfo ,
#endif
terminalGetEnableA11y ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableBidiMethodInfo ,
#endif
terminalGetEnableBidi ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableFallbackScrollingMethodInfo,
#endif
terminalGetEnableFallbackScrolling ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableLegacyOsc777MethodInfo ,
#endif
terminalGetEnableLegacyOsc777 ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableShapingMethodInfo ,
#endif
terminalGetEnableShaping ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableSixelMethodInfo ,
#endif
terminalGetEnableSixel ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEncodingMethodInfo ,
#endif
terminalGetEncoding ,
#if defined(ENABLE_OVERLOADING)
TerminalGetFontMethodInfo ,
#endif
terminalGetFont ,
#if defined(ENABLE_OVERLOADING)
TerminalGetFontOptionsMethodInfo ,
#endif
terminalGetFontOptions ,
#if defined(ENABLE_OVERLOADING)
TerminalGetFontScaleMethodInfo ,
#endif
terminalGetFontScale ,
#if defined(ENABLE_OVERLOADING)
TerminalGetGeometryHintsMethodInfo ,
#endif
terminalGetGeometryHints ,
#if defined(ENABLE_OVERLOADING)
TerminalGetHasSelectionMethodInfo ,
#endif
terminalGetHasSelection ,
#if defined(ENABLE_OVERLOADING)
TerminalGetIconTitleMethodInfo ,
#endif
terminalGetIconTitle ,
#if defined(ENABLE_OVERLOADING)
TerminalGetInputEnabledMethodInfo ,
#endif
terminalGetInputEnabled ,
#if defined(ENABLE_OVERLOADING)
TerminalGetMouseAutohideMethodInfo ,
#endif
terminalGetMouseAutohide ,
#if defined(ENABLE_OVERLOADING)
TerminalGetPtyMethodInfo ,
#endif
terminalGetPty ,
#if defined(ENABLE_OVERLOADING)
TerminalGetRewrapOnResizeMethodInfo ,
#endif
terminalGetRewrapOnResize ,
#if defined(ENABLE_OVERLOADING)
TerminalGetRowCountMethodInfo ,
#endif
terminalGetRowCount ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollOnInsertMethodInfo ,
#endif
terminalGetScrollOnInsert ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollOnKeystrokeMethodInfo ,
#endif
terminalGetScrollOnKeystroke ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollOnOutputMethodInfo ,
#endif
terminalGetScrollOnOutput ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollUnitIsPixelsMethodInfo ,
#endif
terminalGetScrollUnitIsPixels ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollbackLinesMethodInfo ,
#endif
terminalGetScrollbackLines ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropBoolMethodInfo ,
#endif
terminalGetTermpropBool ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropBoolByIdMethodInfo ,
#endif
terminalGetTermpropBoolById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropDataMethodInfo ,
#endif
terminalGetTermpropData ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropDataByIdMethodInfo ,
#endif
terminalGetTermpropDataById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropDoubleMethodInfo ,
#endif
terminalGetTermpropDouble ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropDoubleByIdMethodInfo ,
#endif
terminalGetTermpropDoubleById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropEnumMethodInfo ,
#endif
terminalGetTermpropEnum ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropEnumByIdMethodInfo ,
#endif
terminalGetTermpropEnumById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropFlagsMethodInfo ,
#endif
terminalGetTermpropFlags ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropFlagsByIdMethodInfo ,
#endif
terminalGetTermpropFlagsById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropIntMethodInfo ,
#endif
terminalGetTermpropInt ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropIntByIdMethodInfo ,
#endif
terminalGetTermpropIntById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropRgbaMethodInfo ,
#endif
terminalGetTermpropRgba ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropRgbaByIdMethodInfo ,
#endif
terminalGetTermpropRgbaById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropStringMethodInfo ,
#endif
terminalGetTermpropString ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropStringByIdMethodInfo ,
#endif
terminalGetTermpropStringById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropUintMethodInfo ,
#endif
terminalGetTermpropUint ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropUintByIdMethodInfo ,
#endif
terminalGetTermpropUintById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropValueMethodInfo ,
#endif
terminalGetTermpropValue ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTermpropValueByIdMethodInfo ,
#endif
terminalGetTermpropValueById ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextMethodInfo ,
#endif
terminalGetText ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextBlinkModeMethodInfo ,
#endif
terminalGetTextBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextFormatMethodInfo ,
#endif
terminalGetTextFormat ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextIncludeTrailingSpacesMethodInfo,
#endif
terminalGetTextIncludeTrailingSpaces ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextRangeMethodInfo ,
#endif
terminalGetTextRange ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextRangeFormatMethodInfo ,
#endif
terminalGetTextRangeFormat ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextSelectedMethodInfo ,
#endif
terminalGetTextSelected ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextSelectedFullMethodInfo ,
#endif
terminalGetTextSelectedFull ,
#if defined(ENABLE_OVERLOADING)
TerminalGetWindowTitleMethodInfo ,
#endif
terminalGetWindowTitle ,
#if defined(ENABLE_OVERLOADING)
TerminalGetWordCharExceptionsMethodInfo ,
#endif
terminalGetWordCharExceptions ,
#if defined(ENABLE_OVERLOADING)
TerminalGetXalignMethodInfo ,
#endif
terminalGetXalign ,
#if defined(ENABLE_OVERLOADING)
TerminalGetXfillMethodInfo ,
#endif
terminalGetXfill ,
#if defined(ENABLE_OVERLOADING)
TerminalGetYalignMethodInfo ,
#endif
terminalGetYalign ,
#if defined(ENABLE_OVERLOADING)
TerminalGetYfillMethodInfo ,
#endif
terminalGetYfill ,
#if defined(ENABLE_OVERLOADING)
TerminalHyperlinkCheckEventMethodInfo ,
#endif
terminalHyperlinkCheckEvent ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchAddGregexMethodInfo ,
#endif
terminalMatchAddGregex ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchAddRegexMethodInfo ,
#endif
terminalMatchAddRegex ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchCheckMethodInfo ,
#endif
terminalMatchCheck ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchCheckEventMethodInfo ,
#endif
terminalMatchCheckEvent ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchRemoveMethodInfo ,
#endif
terminalMatchRemove ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchRemoveAllMethodInfo ,
#endif
terminalMatchRemoveAll ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchSetCursorMethodInfo ,
#endif
terminalMatchSetCursor ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchSetCursorNameMethodInfo ,
#endif
terminalMatchSetCursorName ,
#if defined(ENABLE_OVERLOADING)
TerminalMatchSetCursorTypeMethodInfo ,
#endif
terminalMatchSetCursorType ,
terminalNew ,
#if defined(ENABLE_OVERLOADING)
TerminalPasteClipboardMethodInfo ,
#endif
terminalPasteClipboard ,
#if defined(ENABLE_OVERLOADING)
TerminalPastePrimaryMethodInfo ,
#endif
terminalPastePrimary ,
#if defined(ENABLE_OVERLOADING)
TerminalPasteTextMethodInfo ,
#endif
terminalPasteText ,
#if defined(ENABLE_OVERLOADING)
TerminalPtyNewSyncMethodInfo ,
#endif
terminalPtyNewSync ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropDataBytesMethodInfo ,
#endif
terminalRefTermpropDataBytes ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropDataBytesByIdMethodInfo,
#endif
terminalRefTermpropDataBytesById ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropImagePixbufMethodInfo,
#endif
terminalRefTermpropImagePixbuf ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropImagePixbufByIdMethodInfo,
#endif
terminalRefTermpropImagePixbufById ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropImageSurfaceMethodInfo,
#endif
terminalRefTermpropImageSurface ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropImageSurfaceByIdMethodInfo,
#endif
terminalRefTermpropImageSurfaceById ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropUriMethodInfo ,
#endif
terminalRefTermpropUri ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropUriByIdMethodInfo ,
#endif
terminalRefTermpropUriById ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropVariantMethodInfo ,
#endif
terminalRefTermpropVariant ,
#if defined(ENABLE_OVERLOADING)
TerminalRefTermpropVariantByIdMethodInfo,
#endif
terminalRefTermpropVariantById ,
#if defined(ENABLE_OVERLOADING)
TerminalResetMethodInfo ,
#endif
terminalReset ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchFindNextMethodInfo ,
#endif
terminalSearchFindNext ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchFindPreviousMethodInfo ,
#endif
terminalSearchFindPrevious ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchGetGregexMethodInfo ,
#endif
terminalSearchGetGregex ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchGetRegexMethodInfo ,
#endif
terminalSearchGetRegex ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchGetWrapAroundMethodInfo ,
#endif
terminalSearchGetWrapAround ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchSetGregexMethodInfo ,
#endif
terminalSearchSetGregex ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchSetRegexMethodInfo ,
#endif
terminalSearchSetRegex ,
#if defined(ENABLE_OVERLOADING)
TerminalSearchSetWrapAroundMethodInfo ,
#endif
terminalSearchSetWrapAround ,
#if defined(ENABLE_OVERLOADING)
TerminalSelectAllMethodInfo ,
#endif
terminalSelectAll ,
#if defined(ENABLE_OVERLOADING)
TerminalSetAllowBoldMethodInfo ,
#endif
terminalSetAllowBold ,
#if defined(ENABLE_OVERLOADING)
TerminalSetAllowHyperlinkMethodInfo ,
#endif
terminalSetAllowHyperlink ,
#if defined(ENABLE_OVERLOADING)
TerminalSetAudibleBellMethodInfo ,
#endif
terminalSetAudibleBell ,
#if defined(ENABLE_OVERLOADING)
TerminalSetBackspaceBindingMethodInfo ,
#endif
terminalSetBackspaceBinding ,
#if defined(ENABLE_OVERLOADING)
TerminalSetBoldIsBrightMethodInfo ,
#endif
terminalSetBoldIsBright ,
#if defined(ENABLE_OVERLOADING)
TerminalSetCellHeightScaleMethodInfo ,
#endif
terminalSetCellHeightScale ,
#if defined(ENABLE_OVERLOADING)
TerminalSetCellWidthScaleMethodInfo ,
#endif
terminalSetCellWidthScale ,
#if defined(ENABLE_OVERLOADING)
TerminalSetCjkAmbiguousWidthMethodInfo ,
#endif
terminalSetCjkAmbiguousWidth ,
#if defined(ENABLE_OVERLOADING)
TerminalSetClearBackgroundMethodInfo ,
#endif
terminalSetClearBackground ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorBackgroundMethodInfo ,
#endif
terminalSetColorBackground ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorBoldMethodInfo ,
#endif
terminalSetColorBold ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorCursorMethodInfo ,
#endif
terminalSetColorCursor ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorCursorForegroundMethodInfo,
#endif
terminalSetColorCursorForeground ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorForegroundMethodInfo ,
#endif
terminalSetColorForeground ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorHighlightMethodInfo ,
#endif
terminalSetColorHighlight ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorHighlightForegroundMethodInfo,
#endif
terminalSetColorHighlightForeground ,
#if defined(ENABLE_OVERLOADING)
TerminalSetColorsMethodInfo ,
#endif
terminalSetColors ,
#if defined(ENABLE_OVERLOADING)
TerminalSetContextMenuMethodInfo ,
#endif
terminalSetContextMenu ,
#if defined(ENABLE_OVERLOADING)
TerminalSetContextMenuModelMethodInfo ,
#endif
terminalSetContextMenuModel ,
#if defined(ENABLE_OVERLOADING)
TerminalSetCursorBlinkModeMethodInfo ,
#endif
terminalSetCursorBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalSetCursorShapeMethodInfo ,
#endif
terminalSetCursorShape ,
#if defined(ENABLE_OVERLOADING)
TerminalSetDefaultColorsMethodInfo ,
#endif
terminalSetDefaultColors ,
#if defined(ENABLE_OVERLOADING)
TerminalSetDeleteBindingMethodInfo ,
#endif
terminalSetDeleteBinding ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableA11yMethodInfo ,
#endif
terminalSetEnableA11y ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableBidiMethodInfo ,
#endif
terminalSetEnableBidi ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableFallbackScrollingMethodInfo,
#endif
terminalSetEnableFallbackScrolling ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableLegacyOsc777MethodInfo ,
#endif
terminalSetEnableLegacyOsc777 ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableShapingMethodInfo ,
#endif
terminalSetEnableShaping ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableSixelMethodInfo ,
#endif
terminalSetEnableSixel ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEncodingMethodInfo ,
#endif
terminalSetEncoding ,
#if defined(ENABLE_OVERLOADING)
TerminalSetFontMethodInfo ,
#endif
terminalSetFont ,
#if defined(ENABLE_OVERLOADING)
TerminalSetFontOptionsMethodInfo ,
#endif
terminalSetFontOptions ,
#if defined(ENABLE_OVERLOADING)
TerminalSetFontScaleMethodInfo ,
#endif
terminalSetFontScale ,
#if defined(ENABLE_OVERLOADING)
TerminalSetGeometryHintsForWindowMethodInfo,
#endif
terminalSetGeometryHintsForWindow ,
#if defined(ENABLE_OVERLOADING)
TerminalSetInputEnabledMethodInfo ,
#endif
terminalSetInputEnabled ,
#if defined(ENABLE_OVERLOADING)
TerminalSetMouseAutohideMethodInfo ,
#endif
terminalSetMouseAutohide ,
#if defined(ENABLE_OVERLOADING)
TerminalSetPtyMethodInfo ,
#endif
terminalSetPty ,
#if defined(ENABLE_OVERLOADING)
TerminalSetRewrapOnResizeMethodInfo ,
#endif
terminalSetRewrapOnResize ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollOnInsertMethodInfo ,
#endif
terminalSetScrollOnInsert ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollOnKeystrokeMethodInfo ,
#endif
terminalSetScrollOnKeystroke ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollOnOutputMethodInfo ,
#endif
terminalSetScrollOnOutput ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollUnitIsPixelsMethodInfo ,
#endif
terminalSetScrollUnitIsPixels ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollbackLinesMethodInfo ,
#endif
terminalSetScrollbackLines ,
#if defined(ENABLE_OVERLOADING)
TerminalSetSizeMethodInfo ,
#endif
terminalSetSize ,
#if defined(ENABLE_OVERLOADING)
TerminalSetSuppressLegacySignalsMethodInfo,
#endif
terminalSetSuppressLegacySignals ,
#if defined(ENABLE_OVERLOADING)
TerminalSetTextBlinkModeMethodInfo ,
#endif
terminalSetTextBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalSetWordCharExceptionsMethodInfo ,
#endif
terminalSetWordCharExceptions ,
#if defined(ENABLE_OVERLOADING)
TerminalSetXalignMethodInfo ,
#endif
terminalSetXalign ,
#if defined(ENABLE_OVERLOADING)
TerminalSetXfillMethodInfo ,
#endif
terminalSetXfill ,
#if defined(ENABLE_OVERLOADING)
TerminalSetYalignMethodInfo ,
#endif
terminalSetYalign ,
#if defined(ENABLE_OVERLOADING)
TerminalSetYfillMethodInfo ,
#endif
terminalSetYfill ,
#if defined(ENABLE_OVERLOADING)
TerminalSpawnAsyncMethodInfo ,
#endif
terminalSpawnAsync ,
#if defined(ENABLE_OVERLOADING)
TerminalSpawnSyncMethodInfo ,
#endif
terminalSpawnSync ,
#if defined(ENABLE_OVERLOADING)
TerminalSpawnWithFdsAsyncMethodInfo ,
#endif
terminalSpawnWithFdsAsync ,
#if defined(ENABLE_OVERLOADING)
TerminalUnselectAllMethodInfo ,
#endif
terminalUnselectAll ,
#if defined(ENABLE_OVERLOADING)
TerminalWatchChildMethodInfo ,
#endif
terminalWatchChild ,
#if defined(ENABLE_OVERLOADING)
TerminalWriteContentsSyncMethodInfo ,
#endif
terminalWriteContentsSync ,
#if defined(ENABLE_OVERLOADING)
TerminalAllowBoldPropertyInfo ,
#endif
constructTerminalAllowBold ,
getTerminalAllowBold ,
setTerminalAllowBold ,
#if defined(ENABLE_OVERLOADING)
terminalAllowBold ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalAllowHyperlinkPropertyInfo ,
#endif
constructTerminalAllowHyperlink ,
getTerminalAllowHyperlink ,
setTerminalAllowHyperlink ,
#if defined(ENABLE_OVERLOADING)
terminalAllowHyperlink ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalAudibleBellPropertyInfo ,
#endif
constructTerminalAudibleBell ,
getTerminalAudibleBell ,
setTerminalAudibleBell ,
#if defined(ENABLE_OVERLOADING)
terminalAudibleBell ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalBackspaceBindingPropertyInfo ,
#endif
constructTerminalBackspaceBinding ,
getTerminalBackspaceBinding ,
setTerminalBackspaceBinding ,
#if defined(ENABLE_OVERLOADING)
terminalBackspaceBinding ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalBoldIsBrightPropertyInfo ,
#endif
constructTerminalBoldIsBright ,
getTerminalBoldIsBright ,
setTerminalBoldIsBright ,
#if defined(ENABLE_OVERLOADING)
terminalBoldIsBright ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCellHeightScalePropertyInfo ,
#endif
constructTerminalCellHeightScale ,
getTerminalCellHeightScale ,
setTerminalCellHeightScale ,
#if defined(ENABLE_OVERLOADING)
terminalCellHeightScale ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCellWidthScalePropertyInfo ,
#endif
constructTerminalCellWidthScale ,
getTerminalCellWidthScale ,
setTerminalCellWidthScale ,
#if defined(ENABLE_OVERLOADING)
terminalCellWidthScale ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCjkAmbiguousWidthPropertyInfo ,
#endif
constructTerminalCjkAmbiguousWidth ,
getTerminalCjkAmbiguousWidth ,
setTerminalCjkAmbiguousWidth ,
#if defined(ENABLE_OVERLOADING)
terminalCjkAmbiguousWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalContextMenuPropertyInfo ,
#endif
clearTerminalContextMenu ,
constructTerminalContextMenu ,
getTerminalContextMenu ,
setTerminalContextMenu ,
#if defined(ENABLE_OVERLOADING)
terminalContextMenu ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalContextMenuModelPropertyInfo ,
#endif
clearTerminalContextMenuModel ,
constructTerminalContextMenuModel ,
getTerminalContextMenuModel ,
setTerminalContextMenuModel ,
#if defined(ENABLE_OVERLOADING)
terminalContextMenuModel ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCurrentDirectoryUriPropertyInfo ,
#endif
getTerminalCurrentDirectoryUri ,
#if defined(ENABLE_OVERLOADING)
terminalCurrentDirectoryUri ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCurrentFileUriPropertyInfo ,
#endif
getTerminalCurrentFileUri ,
#if defined(ENABLE_OVERLOADING)
terminalCurrentFileUri ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCursorBlinkModePropertyInfo ,
#endif
constructTerminalCursorBlinkMode ,
getTerminalCursorBlinkMode ,
setTerminalCursorBlinkMode ,
#if defined(ENABLE_OVERLOADING)
terminalCursorBlinkMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCursorShapePropertyInfo ,
#endif
constructTerminalCursorShape ,
getTerminalCursorShape ,
setTerminalCursorShape ,
#if defined(ENABLE_OVERLOADING)
terminalCursorShape ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalDeleteBindingPropertyInfo ,
#endif
constructTerminalDeleteBinding ,
getTerminalDeleteBinding ,
setTerminalDeleteBinding ,
#if defined(ENABLE_OVERLOADING)
terminalDeleteBinding ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableA11yPropertyInfo ,
#endif
constructTerminalEnableA11y ,
getTerminalEnableA11y ,
setTerminalEnableA11y ,
#if defined(ENABLE_OVERLOADING)
terminalEnableA11y ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableBidiPropertyInfo ,
#endif
constructTerminalEnableBidi ,
getTerminalEnableBidi ,
setTerminalEnableBidi ,
#if defined(ENABLE_OVERLOADING)
terminalEnableBidi ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableFallbackScrollingPropertyInfo,
#endif
constructTerminalEnableFallbackScrolling,
getTerminalEnableFallbackScrolling ,
setTerminalEnableFallbackScrolling ,
#if defined(ENABLE_OVERLOADING)
terminalEnableFallbackScrolling ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableLegacyOsc777PropertyInfo ,
#endif
constructTerminalEnableLegacyOsc777 ,
getTerminalEnableLegacyOsc777 ,
setTerminalEnableLegacyOsc777 ,
#if defined(ENABLE_OVERLOADING)
terminalEnableLegacyOsc777 ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableShapingPropertyInfo ,
#endif
constructTerminalEnableShaping ,
getTerminalEnableShaping ,
setTerminalEnableShaping ,
#if defined(ENABLE_OVERLOADING)
terminalEnableShaping ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableSixelPropertyInfo ,
#endif
constructTerminalEnableSixel ,
getTerminalEnableSixel ,
setTerminalEnableSixel ,
#if defined(ENABLE_OVERLOADING)
terminalEnableSixel ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEncodingPropertyInfo ,
#endif
clearTerminalEncoding ,
constructTerminalEncoding ,
getTerminalEncoding ,
setTerminalEncoding ,
#if defined(ENABLE_OVERLOADING)
terminalEncoding ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalFontDescPropertyInfo ,
#endif
clearTerminalFontDesc ,
constructTerminalFontDesc ,
getTerminalFontDesc ,
setTerminalFontDesc ,
#if defined(ENABLE_OVERLOADING)
terminalFontDesc ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalFontOptionsPropertyInfo ,
#endif
clearTerminalFontOptions ,
constructTerminalFontOptions ,
getTerminalFontOptions ,
setTerminalFontOptions ,
#if defined(ENABLE_OVERLOADING)
terminalFontOptions ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalFontScalePropertyInfo ,
#endif
constructTerminalFontScale ,
getTerminalFontScale ,
setTerminalFontScale ,
#if defined(ENABLE_OVERLOADING)
terminalFontScale ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalHyperlinkHoverUriPropertyInfo ,
#endif
getTerminalHyperlinkHoverUri ,
#if defined(ENABLE_OVERLOADING)
terminalHyperlinkHoverUri ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalIconTitlePropertyInfo ,
#endif
getTerminalIconTitle ,
#if defined(ENABLE_OVERLOADING)
terminalIconTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalInputEnabledPropertyInfo ,
#endif
constructTerminalInputEnabled ,
getTerminalInputEnabled ,
setTerminalInputEnabled ,
#if defined(ENABLE_OVERLOADING)
terminalInputEnabled ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalPointerAutohidePropertyInfo ,
#endif
constructTerminalPointerAutohide ,
getTerminalPointerAutohide ,
setTerminalPointerAutohide ,
#if defined(ENABLE_OVERLOADING)
terminalPointerAutohide ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalPtyPropertyInfo ,
#endif
clearTerminalPty ,
constructTerminalPty ,
getTerminalPty ,
setTerminalPty ,
#if defined(ENABLE_OVERLOADING)
terminalPty ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalRewrapOnResizePropertyInfo ,
#endif
constructTerminalRewrapOnResize ,
getTerminalRewrapOnResize ,
setTerminalRewrapOnResize ,
#if defined(ENABLE_OVERLOADING)
terminalRewrapOnResize ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalScrollOnInsertPropertyInfo ,
#endif
constructTerminalScrollOnInsert ,
getTerminalScrollOnInsert ,
setTerminalScrollOnInsert ,
#if defined(ENABLE_OVERLOADING)
terminalScrollOnInsert ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalScrollOnKeystrokePropertyInfo ,
#endif
constructTerminalScrollOnKeystroke ,
getTerminalScrollOnKeystroke ,
setTerminalScrollOnKeystroke ,
#if defined(ENABLE_OVERLOADING)
terminalScrollOnKeystroke ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalScrollOnOutputPropertyInfo ,
#endif
constructTerminalScrollOnOutput ,
getTerminalScrollOnOutput ,
setTerminalScrollOnOutput ,
#if defined(ENABLE_OVERLOADING)
terminalScrollOnOutput ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalScrollUnitIsPixelsPropertyInfo ,
#endif
constructTerminalScrollUnitIsPixels ,
getTerminalScrollUnitIsPixels ,
setTerminalScrollUnitIsPixels ,
#if defined(ENABLE_OVERLOADING)
terminalScrollUnitIsPixels ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalScrollbackLinesPropertyInfo ,
#endif
constructTerminalScrollbackLines ,
getTerminalScrollbackLines ,
setTerminalScrollbackLines ,
#if defined(ENABLE_OVERLOADING)
terminalScrollbackLines ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalTextBlinkModePropertyInfo ,
#endif
constructTerminalTextBlinkMode ,
getTerminalTextBlinkMode ,
setTerminalTextBlinkMode ,
#if defined(ENABLE_OVERLOADING)
terminalTextBlinkMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalWindowTitlePropertyInfo ,
#endif
getTerminalWindowTitle ,
#if defined(ENABLE_OVERLOADING)
terminalWindowTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalWordCharExceptionsPropertyInfo ,
#endif
getTerminalWordCharExceptions ,
#if defined(ENABLE_OVERLOADING)
terminalWordCharExceptions ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalXalignPropertyInfo ,
#endif
constructTerminalXalign ,
getTerminalXalign ,
setTerminalXalign ,
#if defined(ENABLE_OVERLOADING)
terminalXalign ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalXfillPropertyInfo ,
#endif
constructTerminalXfill ,
getTerminalXfill ,
setTerminalXfill ,
#if defined(ENABLE_OVERLOADING)
terminalXfill ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalYalignPropertyInfo ,
#endif
constructTerminalYalign ,
getTerminalYalign ,
setTerminalYalign ,
#if defined(ENABLE_OVERLOADING)
terminalYalign ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalYfillPropertyInfo ,
#endif
constructTerminalYfill ,
getTerminalYfill ,
setTerminalYfill ,
#if defined(ENABLE_OVERLOADING)
terminalYfill ,
#endif
TerminalBellCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalBellSignalInfo ,
#endif
afterTerminalBell ,
onTerminalBell ,
TerminalCharSizeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCharSizeChangedSignalInfo ,
#endif
afterTerminalCharSizeChanged ,
onTerminalCharSizeChanged ,
TerminalChildExitedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalChildExitedSignalInfo ,
#endif
afterTerminalChildExited ,
onTerminalChildExited ,
TerminalCommitCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCommitSignalInfo ,
#endif
afterTerminalCommit ,
onTerminalCommit ,
TerminalContentsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalContentsChangedSignalInfo ,
#endif
afterTerminalContentsChanged ,
onTerminalContentsChanged ,
TerminalCopyClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCopyClipboardSignalInfo ,
#endif
afterTerminalCopyClipboard ,
onTerminalCopyClipboard ,
TerminalCurrentDirectoryUriChangedCallback,
#if defined(ENABLE_OVERLOADING)
TerminalCurrentDirectoryUriChangedSignalInfo,
#endif
afterTerminalCurrentDirectoryUriChanged ,
onTerminalCurrentDirectoryUriChanged ,
TerminalCurrentFileUriChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCurrentFileUriChangedSignalInfo ,
#endif
afterTerminalCurrentFileUriChanged ,
onTerminalCurrentFileUriChanged ,
TerminalCursorMovedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCursorMovedSignalInfo ,
#endif
afterTerminalCursorMoved ,
onTerminalCursorMoved ,
TerminalDecreaseFontSizeCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalDecreaseFontSizeSignalInfo ,
#endif
afterTerminalDecreaseFontSize ,
onTerminalDecreaseFontSize ,
TerminalDeiconifyWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalDeiconifyWindowSignalInfo ,
#endif
afterTerminalDeiconifyWindow ,
onTerminalDeiconifyWindow ,
TerminalEncodingChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalEncodingChangedSignalInfo ,
#endif
afterTerminalEncodingChanged ,
onTerminalEncodingChanged ,
TerminalEofCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalEofSignalInfo ,
#endif
afterTerminalEof ,
onTerminalEof ,
TerminalHyperlinkHoverUriChangedCallback,
#if defined(ENABLE_OVERLOADING)
TerminalHyperlinkHoverUriChangedSignalInfo,
#endif
afterTerminalHyperlinkHoverUriChanged ,
onTerminalHyperlinkHoverUriChanged ,
TerminalIconTitleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIconTitleChangedSignalInfo ,
#endif
afterTerminalIconTitleChanged ,
onTerminalIconTitleChanged ,
TerminalIconifyWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIconifyWindowSignalInfo ,
#endif
afterTerminalIconifyWindow ,
onTerminalIconifyWindow ,
TerminalIncreaseFontSizeCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIncreaseFontSizeSignalInfo ,
#endif
afterTerminalIncreaseFontSize ,
onTerminalIncreaseFontSize ,
TerminalLowerWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalLowerWindowSignalInfo ,
#endif
afterTerminalLowerWindow ,
onTerminalLowerWindow ,
TerminalMaximizeWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalMaximizeWindowSignalInfo ,
#endif
afterTerminalMaximizeWindow ,
onTerminalMaximizeWindow ,
TerminalMoveWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalMoveWindowSignalInfo ,
#endif
afterTerminalMoveWindow ,
onTerminalMoveWindow ,
TerminalPasteClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalPasteClipboardSignalInfo ,
#endif
afterTerminalPasteClipboard ,
onTerminalPasteClipboard ,
TerminalRaiseWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRaiseWindowSignalInfo ,
#endif
afterTerminalRaiseWindow ,
onTerminalRaiseWindow ,
TerminalRefreshWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRefreshWindowSignalInfo ,
#endif
afterTerminalRefreshWindow ,
onTerminalRefreshWindow ,
TerminalResizeWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalResizeWindowSignalInfo ,
#endif
afterTerminalResizeWindow ,
onTerminalResizeWindow ,
TerminalRestoreWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRestoreWindowSignalInfo ,
#endif
afterTerminalRestoreWindow ,
onTerminalRestoreWindow ,
TerminalSelectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalSelectionChangedSignalInfo ,
#endif
afterTerminalSelectionChanged ,
onTerminalSelectionChanged ,
TerminalSetupContextMenuCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalSetupContextMenuSignalInfo ,
#endif
afterTerminalSetupContextMenu ,
onTerminalSetupContextMenu ,
TerminalTermpropChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTermpropChangedSignalInfo ,
#endif
afterTerminalTermpropChanged ,
onTerminalTermpropChanged ,
TerminalTermpropsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTermpropsChangedSignalInfo ,
#endif
afterTerminalTermpropsChanged ,
onTerminalTermpropsChanged ,
TerminalTextDeletedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextDeletedSignalInfo ,
#endif
afterTerminalTextDeleted ,
onTerminalTextDeleted ,
TerminalTextInsertedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextInsertedSignalInfo ,
#endif
afterTerminalTextInserted ,
onTerminalTextInserted ,
TerminalTextModifiedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextModifiedSignalInfo ,
#endif
afterTerminalTextModified ,
onTerminalTextModified ,
TerminalTextScrolledCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextScrolledSignalInfo ,
#endif
afterTerminalTextScrolled ,
onTerminalTextScrolled ,
TerminalWindowTitleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalWindowTitleChangedSignalInfo ,
#endif
afterTerminalWindowTitleChanged ,
onTerminalWindowTitleChanged ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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 Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Flags as GLib.Flags
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.Regex as GLib.Regex
import qualified GI.GLib.Structs.Uri as GLib.Uri
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Structs.Geometry as Gdk.Geometry
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import qualified GI.Gtk.Objects.Menu as Gtk.Menu
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Gtk.Objects.Window as Gtk.Window
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
import qualified GI.Vte.Callbacks as Vte.Callbacks
import {-# SOURCE #-} qualified GI.Vte.Enums as Vte.Enums
import {-# SOURCE #-} qualified GI.Vte.Flags as Vte.Flags
import {-# SOURCE #-} qualified GI.Vte.Objects.Pty as Vte.Pty
import {-# SOURCE #-} qualified GI.Vte.Structs.CharAttributes as Vte.CharAttributes
import {-# SOURCE #-} qualified GI.Vte.Structs.EventContext as Vte.EventContext
import {-# SOURCE #-} qualified GI.Vte.Structs.Regex as Vte.Regex
import {-# SOURCE #-} qualified GI.Vte.Structs.Uuid as Vte.Uuid
#else
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.Cairo.Structs.FontOptions as Cairo.FontOptions
import qualified GI.Cairo.Structs.Surface as Cairo.Surface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Flags as GLib.Flags
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.GLib.Structs.Regex as GLib.Regex
import qualified GI.GLib.Structs.Uri as GLib.Uri
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Enums as Gdk.Enums
import qualified GI.Gdk.Objects.Cursor as Gdk.Cursor
import qualified GI.Gdk.Structs.Geometry as Gdk.Geometry
import qualified GI.Gdk.Structs.RGBA as Gdk.RGBA
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gdk.Unions.Event as Gdk.Event
import qualified GI.GdkPixbuf.Objects.Pixbuf as GdkPixbuf.Pixbuf
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
import qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import qualified GI.Gtk.Interfaces.Scrollable as Gtk.Scrollable
import qualified GI.Gtk.Objects.Menu as Gtk.Menu
import qualified GI.Gtk.Objects.Widget as Gtk.Widget
import qualified GI.Gtk.Objects.Window as Gtk.Window
import qualified GI.Pango.Structs.FontDescription as Pango.FontDescription
import qualified GI.Vte.Callbacks as Vte.Callbacks
import {-# SOURCE #-} qualified GI.Vte.Enums as Vte.Enums
import {-# SOURCE #-} qualified GI.Vte.Flags as Vte.Flags
import {-# SOURCE #-} qualified GI.Vte.Objects.Pty as Vte.Pty
import {-# SOURCE #-} qualified GI.Vte.Structs.CharAttributes as Vte.CharAttributes
import {-# SOURCE #-} qualified GI.Vte.Structs.EventContext as Vte.EventContext
import {-# SOURCE #-} qualified GI.Vte.Structs.Regex as Vte.Regex
import {-# SOURCE #-} qualified GI.Vte.Structs.Uuid as Vte.Uuid
#endif
newtype Terminal = Terminal (SP.ManagedPtr Terminal)
deriving (Terminal -> Terminal -> Bool
(Terminal -> Terminal -> Bool)
-> (Terminal -> Terminal -> Bool) -> Eq Terminal
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Terminal -> Terminal -> Bool
== :: Terminal -> Terminal -> Bool
$c/= :: Terminal -> Terminal -> Bool
/= :: Terminal -> Terminal -> Bool
Eq)
instance SP.ManagedPtrNewtype Terminal where
toManagedPtr :: Terminal -> ManagedPtr Terminal
toManagedPtr (Terminal ManagedPtr Terminal
p) = ManagedPtr Terminal
p
foreign import ccall "vte_terminal_get_type"
c_vte_terminal_get_type :: IO B.Types.GType
instance B.Types.TypedObject Terminal where
glibType :: IO GType
glibType = IO GType
c_vte_terminal_get_type
instance B.Types.GObject Terminal
class (SP.GObject o, O.IsDescendantOf Terminal o) => IsTerminal o
instance (SP.GObject o, O.IsDescendantOf Terminal o) => IsTerminal o
instance O.HasParentTypes Terminal
type instance O.ParentTypes Terminal = '[Gtk.Widget.Widget, GObject.Object.Object, Atk.ImplementorIface.ImplementorIface, Gtk.Buildable.Buildable, Gtk.Scrollable.Scrollable]
toTerminal :: (MIO.MonadIO m, IsTerminal o) => o -> m Terminal
toTerminal :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m Terminal
toTerminal = IO Terminal -> m Terminal
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Terminal -> m Terminal)
-> (o -> IO Terminal) -> o -> m Terminal
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Terminal -> Terminal) -> o -> IO Terminal
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Terminal -> Terminal
Terminal
instance B.GValue.IsGValue (Maybe Terminal) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_vte_terminal_get_type
gvalueSet_ :: Ptr GValue -> Maybe Terminal -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Terminal
P.Nothing = Ptr GValue -> Ptr Terminal -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Terminal
forall a. Ptr a
FP.nullPtr :: FP.Ptr Terminal)
gvalueSet_ Ptr GValue
gv (P.Just Terminal
obj) = Terminal -> (Ptr Terminal -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Terminal
obj (Ptr GValue -> Ptr Terminal -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Terminal)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr Terminal)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Terminal)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newObject Terminal ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTerminalMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveTerminalMethod "activate" o = Gtk.Widget.WidgetActivateMethodInfo
ResolveTerminalMethod "addAccelerator" o = Gtk.Widget.WidgetAddAcceleratorMethodInfo
ResolveTerminalMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveTerminalMethod "addDeviceEvents" o = Gtk.Widget.WidgetAddDeviceEventsMethodInfo
ResolveTerminalMethod "addEvents" o = Gtk.Widget.WidgetAddEventsMethodInfo
ResolveTerminalMethod "addMnemonicLabel" o = Gtk.Widget.WidgetAddMnemonicLabelMethodInfo
ResolveTerminalMethod "addTickCallback" o = Gtk.Widget.WidgetAddTickCallbackMethodInfo
ResolveTerminalMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTerminalMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTerminalMethod "canActivateAccel" o = Gtk.Widget.WidgetCanActivateAccelMethodInfo
ResolveTerminalMethod "childFocus" o = Gtk.Widget.WidgetChildFocusMethodInfo
ResolveTerminalMethod "childNotify" o = Gtk.Widget.WidgetChildNotifyMethodInfo
ResolveTerminalMethod "classPath" o = Gtk.Widget.WidgetClassPathMethodInfo
ResolveTerminalMethod "computeExpand" o = Gtk.Widget.WidgetComputeExpandMethodInfo
ResolveTerminalMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveTerminalMethod "copyClipboard" o = TerminalCopyClipboardMethodInfo
ResolveTerminalMethod "copyClipboardFormat" o = TerminalCopyClipboardFormatMethodInfo
ResolveTerminalMethod "copyPrimary" o = TerminalCopyPrimaryMethodInfo
ResolveTerminalMethod "createPangoContext" o = Gtk.Widget.WidgetCreatePangoContextMethodInfo
ResolveTerminalMethod "createPangoLayout" o = Gtk.Widget.WidgetCreatePangoLayoutMethodInfo
ResolveTerminalMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveTerminalMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveTerminalMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveTerminalMethod "destroy" o = Gtk.Widget.WidgetDestroyMethodInfo
ResolveTerminalMethod "destroyed" o = Gtk.Widget.WidgetDestroyedMethodInfo
ResolveTerminalMethod "deviceIsShadowed" o = Gtk.Widget.WidgetDeviceIsShadowedMethodInfo
ResolveTerminalMethod "dragBegin" o = Gtk.Widget.WidgetDragBeginMethodInfo
ResolveTerminalMethod "dragBeginWithCoordinates" o = Gtk.Widget.WidgetDragBeginWithCoordinatesMethodInfo
ResolveTerminalMethod "dragCheckThreshold" o = Gtk.Widget.WidgetDragCheckThresholdMethodInfo
ResolveTerminalMethod "dragDestAddImageTargets" o = Gtk.Widget.WidgetDragDestAddImageTargetsMethodInfo
ResolveTerminalMethod "dragDestAddTextTargets" o = Gtk.Widget.WidgetDragDestAddTextTargetsMethodInfo
ResolveTerminalMethod "dragDestAddUriTargets" o = Gtk.Widget.WidgetDragDestAddUriTargetsMethodInfo
ResolveTerminalMethod "dragDestFindTarget" o = Gtk.Widget.WidgetDragDestFindTargetMethodInfo
ResolveTerminalMethod "dragDestGetTargetList" o = Gtk.Widget.WidgetDragDestGetTargetListMethodInfo
ResolveTerminalMethod "dragDestGetTrackMotion" o = Gtk.Widget.WidgetDragDestGetTrackMotionMethodInfo
ResolveTerminalMethod "dragDestSet" o = Gtk.Widget.WidgetDragDestSetMethodInfo
ResolveTerminalMethod "dragDestSetProxy" o = Gtk.Widget.WidgetDragDestSetProxyMethodInfo
ResolveTerminalMethod "dragDestSetTargetList" o = Gtk.Widget.WidgetDragDestSetTargetListMethodInfo
ResolveTerminalMethod "dragDestSetTrackMotion" o = Gtk.Widget.WidgetDragDestSetTrackMotionMethodInfo
ResolveTerminalMethod "dragDestUnset" o = Gtk.Widget.WidgetDragDestUnsetMethodInfo
ResolveTerminalMethod "dragGetData" o = Gtk.Widget.WidgetDragGetDataMethodInfo
ResolveTerminalMethod "dragHighlight" o = Gtk.Widget.WidgetDragHighlightMethodInfo
ResolveTerminalMethod "dragSourceAddImageTargets" o = Gtk.Widget.WidgetDragSourceAddImageTargetsMethodInfo
ResolveTerminalMethod "dragSourceAddTextTargets" o = Gtk.Widget.WidgetDragSourceAddTextTargetsMethodInfo
ResolveTerminalMethod "dragSourceAddUriTargets" o = Gtk.Widget.WidgetDragSourceAddUriTargetsMethodInfo
ResolveTerminalMethod "dragSourceGetTargetList" o = Gtk.Widget.WidgetDragSourceGetTargetListMethodInfo
ResolveTerminalMethod "dragSourceSet" o = Gtk.Widget.WidgetDragSourceSetMethodInfo
ResolveTerminalMethod "dragSourceSetIconGicon" o = Gtk.Widget.WidgetDragSourceSetIconGiconMethodInfo
ResolveTerminalMethod "dragSourceSetIconName" o = Gtk.Widget.WidgetDragSourceSetIconNameMethodInfo
ResolveTerminalMethod "dragSourceSetIconPixbuf" o = Gtk.Widget.WidgetDragSourceSetIconPixbufMethodInfo
ResolveTerminalMethod "dragSourceSetIconStock" o = Gtk.Widget.WidgetDragSourceSetIconStockMethodInfo
ResolveTerminalMethod "dragSourceSetTargetList" o = Gtk.Widget.WidgetDragSourceSetTargetListMethodInfo
ResolveTerminalMethod "dragSourceUnset" o = Gtk.Widget.WidgetDragSourceUnsetMethodInfo
ResolveTerminalMethod "dragUnhighlight" o = Gtk.Widget.WidgetDragUnhighlightMethodInfo
ResolveTerminalMethod "draw" o = Gtk.Widget.WidgetDrawMethodInfo
ResolveTerminalMethod "dupTermpropString" o = TerminalDupTermpropStringMethodInfo
ResolveTerminalMethod "dupTermpropStringById" o = TerminalDupTermpropStringByIdMethodInfo
ResolveTerminalMethod "dupTermpropUuid" o = TerminalDupTermpropUuidMethodInfo
ResolveTerminalMethod "dupTermpropUuidById" o = TerminalDupTermpropUuidByIdMethodInfo
ResolveTerminalMethod "ensureStyle" o = Gtk.Widget.WidgetEnsureStyleMethodInfo
ResolveTerminalMethod "errorBell" o = Gtk.Widget.WidgetErrorBellMethodInfo
ResolveTerminalMethod "event" o = Gtk.Widget.WidgetEventMethodInfo
ResolveTerminalMethod "feed" o = TerminalFeedMethodInfo
ResolveTerminalMethod "feedChild" o = TerminalFeedChildMethodInfo
ResolveTerminalMethod "feedChildBinary" o = TerminalFeedChildBinaryMethodInfo
ResolveTerminalMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTerminalMethod "freezeChildNotify" o = Gtk.Widget.WidgetFreezeChildNotifyMethodInfo
ResolveTerminalMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTerminalMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTerminalMethod "grabAdd" o = Gtk.Widget.WidgetGrabAddMethodInfo
ResolveTerminalMethod "grabDefault" o = Gtk.Widget.WidgetGrabDefaultMethodInfo
ResolveTerminalMethod "grabFocus" o = Gtk.Widget.WidgetGrabFocusMethodInfo
ResolveTerminalMethod "grabRemove" o = Gtk.Widget.WidgetGrabRemoveMethodInfo
ResolveTerminalMethod "hasDefault" o = Gtk.Widget.WidgetHasDefaultMethodInfo
ResolveTerminalMethod "hasFocus" o = Gtk.Widget.WidgetHasFocusMethodInfo
ResolveTerminalMethod "hasGrab" o = Gtk.Widget.WidgetHasGrabMethodInfo
ResolveTerminalMethod "hasRcStyle" o = Gtk.Widget.WidgetHasRcStyleMethodInfo
ResolveTerminalMethod "hasScreen" o = Gtk.Widget.WidgetHasScreenMethodInfo
ResolveTerminalMethod "hasVisibleFocus" o = Gtk.Widget.WidgetHasVisibleFocusMethodInfo
ResolveTerminalMethod "hide" o = Gtk.Widget.WidgetHideMethodInfo
ResolveTerminalMethod "hideOnDelete" o = Gtk.Widget.WidgetHideOnDeleteMethodInfo
ResolveTerminalMethod "hyperlinkCheckEvent" o = TerminalHyperlinkCheckEventMethodInfo
ResolveTerminalMethod "inDestruction" o = Gtk.Widget.WidgetInDestructionMethodInfo
ResolveTerminalMethod "initTemplate" o = Gtk.Widget.WidgetInitTemplateMethodInfo
ResolveTerminalMethod "inputShapeCombineRegion" o = Gtk.Widget.WidgetInputShapeCombineRegionMethodInfo
ResolveTerminalMethod "insertActionGroup" o = Gtk.Widget.WidgetInsertActionGroupMethodInfo
ResolveTerminalMethod "intersect" o = Gtk.Widget.WidgetIntersectMethodInfo
ResolveTerminalMethod "isAncestor" o = Gtk.Widget.WidgetIsAncestorMethodInfo
ResolveTerminalMethod "isComposited" o = Gtk.Widget.WidgetIsCompositedMethodInfo
ResolveTerminalMethod "isDrawable" o = Gtk.Widget.WidgetIsDrawableMethodInfo
ResolveTerminalMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTerminalMethod "isFocus" o = Gtk.Widget.WidgetIsFocusMethodInfo
ResolveTerminalMethod "isSensitive" o = Gtk.Widget.WidgetIsSensitiveMethodInfo
ResolveTerminalMethod "isToplevel" o = Gtk.Widget.WidgetIsToplevelMethodInfo
ResolveTerminalMethod "isVisible" o = Gtk.Widget.WidgetIsVisibleMethodInfo
ResolveTerminalMethod "keynavFailed" o = Gtk.Widget.WidgetKeynavFailedMethodInfo
ResolveTerminalMethod "listAccelClosures" o = Gtk.Widget.WidgetListAccelClosuresMethodInfo
ResolveTerminalMethod "listActionPrefixes" o = Gtk.Widget.WidgetListActionPrefixesMethodInfo
ResolveTerminalMethod "listMnemonicLabels" o = Gtk.Widget.WidgetListMnemonicLabelsMethodInfo
ResolveTerminalMethod "map" o = Gtk.Widget.WidgetMapMethodInfo
ResolveTerminalMethod "matchAddGregex" o = TerminalMatchAddGregexMethodInfo
ResolveTerminalMethod "matchAddRegex" o = TerminalMatchAddRegexMethodInfo
ResolveTerminalMethod "matchCheck" o = TerminalMatchCheckMethodInfo
ResolveTerminalMethod "matchCheckEvent" o = TerminalMatchCheckEventMethodInfo
ResolveTerminalMethod "matchRemove" o = TerminalMatchRemoveMethodInfo
ResolveTerminalMethod "matchRemoveAll" o = TerminalMatchRemoveAllMethodInfo
ResolveTerminalMethod "matchSetCursor" o = TerminalMatchSetCursorMethodInfo
ResolveTerminalMethod "matchSetCursorName" o = TerminalMatchSetCursorNameMethodInfo
ResolveTerminalMethod "matchSetCursorType" o = TerminalMatchSetCursorTypeMethodInfo
ResolveTerminalMethod "mnemonicActivate" o = Gtk.Widget.WidgetMnemonicActivateMethodInfo
ResolveTerminalMethod "modifyBase" o = Gtk.Widget.WidgetModifyBaseMethodInfo
ResolveTerminalMethod "modifyBg" o = Gtk.Widget.WidgetModifyBgMethodInfo
ResolveTerminalMethod "modifyCursor" o = Gtk.Widget.WidgetModifyCursorMethodInfo
ResolveTerminalMethod "modifyFg" o = Gtk.Widget.WidgetModifyFgMethodInfo
ResolveTerminalMethod "modifyFont" o = Gtk.Widget.WidgetModifyFontMethodInfo
ResolveTerminalMethod "modifyStyle" o = Gtk.Widget.WidgetModifyStyleMethodInfo
ResolveTerminalMethod "modifyText" o = Gtk.Widget.WidgetModifyTextMethodInfo
ResolveTerminalMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTerminalMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTerminalMethod "overrideBackgroundColor" o = Gtk.Widget.WidgetOverrideBackgroundColorMethodInfo
ResolveTerminalMethod "overrideColor" o = Gtk.Widget.WidgetOverrideColorMethodInfo
ResolveTerminalMethod "overrideCursor" o = Gtk.Widget.WidgetOverrideCursorMethodInfo
ResolveTerminalMethod "overrideFont" o = Gtk.Widget.WidgetOverrideFontMethodInfo
ResolveTerminalMethod "overrideSymbolicColor" o = Gtk.Widget.WidgetOverrideSymbolicColorMethodInfo
ResolveTerminalMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveTerminalMethod "pasteClipboard" o = TerminalPasteClipboardMethodInfo
ResolveTerminalMethod "pastePrimary" o = TerminalPastePrimaryMethodInfo
ResolveTerminalMethod "pasteText" o = TerminalPasteTextMethodInfo
ResolveTerminalMethod "path" o = Gtk.Widget.WidgetPathMethodInfo
ResolveTerminalMethod "ptyNewSync" o = TerminalPtyNewSyncMethodInfo
ResolveTerminalMethod "queueAllocate" o = Gtk.Widget.WidgetQueueAllocateMethodInfo
ResolveTerminalMethod "queueComputeExpand" o = Gtk.Widget.WidgetQueueComputeExpandMethodInfo
ResolveTerminalMethod "queueDraw" o = Gtk.Widget.WidgetQueueDrawMethodInfo
ResolveTerminalMethod "queueDrawArea" o = Gtk.Widget.WidgetQueueDrawAreaMethodInfo
ResolveTerminalMethod "queueDrawRegion" o = Gtk.Widget.WidgetQueueDrawRegionMethodInfo
ResolveTerminalMethod "queueResize" o = Gtk.Widget.WidgetQueueResizeMethodInfo
ResolveTerminalMethod "queueResizeNoRedraw" o = Gtk.Widget.WidgetQueueResizeNoRedrawMethodInfo
ResolveTerminalMethod "realize" o = Gtk.Widget.WidgetRealizeMethodInfo
ResolveTerminalMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTerminalMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTerminalMethod "refTermpropDataBytes" o = TerminalRefTermpropDataBytesMethodInfo
ResolveTerminalMethod "refTermpropDataBytesById" o = TerminalRefTermpropDataBytesByIdMethodInfo
ResolveTerminalMethod "refTermpropImagePixbuf" o = TerminalRefTermpropImagePixbufMethodInfo
ResolveTerminalMethod "refTermpropImagePixbufById" o = TerminalRefTermpropImagePixbufByIdMethodInfo
ResolveTerminalMethod "refTermpropImageSurface" o = TerminalRefTermpropImageSurfaceMethodInfo
ResolveTerminalMethod "refTermpropImageSurfaceById" o = TerminalRefTermpropImageSurfaceByIdMethodInfo
ResolveTerminalMethod "refTermpropUri" o = TerminalRefTermpropUriMethodInfo
ResolveTerminalMethod "refTermpropUriById" o = TerminalRefTermpropUriByIdMethodInfo
ResolveTerminalMethod "refTermpropVariant" o = TerminalRefTermpropVariantMethodInfo
ResolveTerminalMethod "refTermpropVariantById" o = TerminalRefTermpropVariantByIdMethodInfo
ResolveTerminalMethod "regionIntersect" o = Gtk.Widget.WidgetRegionIntersectMethodInfo
ResolveTerminalMethod "registerWindow" o = Gtk.Widget.WidgetRegisterWindowMethodInfo
ResolveTerminalMethod "removeAccelerator" o = Gtk.Widget.WidgetRemoveAcceleratorMethodInfo
ResolveTerminalMethod "removeMnemonicLabel" o = Gtk.Widget.WidgetRemoveMnemonicLabelMethodInfo
ResolveTerminalMethod "removeTickCallback" o = Gtk.Widget.WidgetRemoveTickCallbackMethodInfo
ResolveTerminalMethod "renderIcon" o = Gtk.Widget.WidgetRenderIconMethodInfo
ResolveTerminalMethod "renderIconPixbuf" o = Gtk.Widget.WidgetRenderIconPixbufMethodInfo
ResolveTerminalMethod "reparent" o = Gtk.Widget.WidgetReparentMethodInfo
ResolveTerminalMethod "reset" o = TerminalResetMethodInfo
ResolveTerminalMethod "resetRcStyles" o = Gtk.Widget.WidgetResetRcStylesMethodInfo
ResolveTerminalMethod "resetStyle" o = Gtk.Widget.WidgetResetStyleMethodInfo
ResolveTerminalMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTerminalMethod "searchFindNext" o = TerminalSearchFindNextMethodInfo
ResolveTerminalMethod "searchFindPrevious" o = TerminalSearchFindPreviousMethodInfo
ResolveTerminalMethod "searchGetGregex" o = TerminalSearchGetGregexMethodInfo
ResolveTerminalMethod "searchGetRegex" o = TerminalSearchGetRegexMethodInfo
ResolveTerminalMethod "searchGetWrapAround" o = TerminalSearchGetWrapAroundMethodInfo
ResolveTerminalMethod "searchSetGregex" o = TerminalSearchSetGregexMethodInfo
ResolveTerminalMethod "searchSetRegex" o = TerminalSearchSetRegexMethodInfo
ResolveTerminalMethod "searchSetWrapAround" o = TerminalSearchSetWrapAroundMethodInfo
ResolveTerminalMethod "selectAll" o = TerminalSelectAllMethodInfo
ResolveTerminalMethod "sendExpose" o = Gtk.Widget.WidgetSendExposeMethodInfo
ResolveTerminalMethod "sendFocusChange" o = Gtk.Widget.WidgetSendFocusChangeMethodInfo
ResolveTerminalMethod "shapeCombineRegion" o = Gtk.Widget.WidgetShapeCombineRegionMethodInfo
ResolveTerminalMethod "show" o = Gtk.Widget.WidgetShowMethodInfo
ResolveTerminalMethod "showAll" o = Gtk.Widget.WidgetShowAllMethodInfo
ResolveTerminalMethod "showNow" o = Gtk.Widget.WidgetShowNowMethodInfo
ResolveTerminalMethod "sizeAllocate" o = Gtk.Widget.WidgetSizeAllocateMethodInfo
ResolveTerminalMethod "sizeAllocateWithBaseline" o = Gtk.Widget.WidgetSizeAllocateWithBaselineMethodInfo
ResolveTerminalMethod "sizeRequest" o = Gtk.Widget.WidgetSizeRequestMethodInfo
ResolveTerminalMethod "spawnAsync" o = TerminalSpawnAsyncMethodInfo
ResolveTerminalMethod "spawnSync" o = TerminalSpawnSyncMethodInfo
ResolveTerminalMethod "spawnWithFdsAsync" o = TerminalSpawnWithFdsAsyncMethodInfo
ResolveTerminalMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTerminalMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTerminalMethod "styleAttach" o = Gtk.Widget.WidgetStyleAttachMethodInfo
ResolveTerminalMethod "styleGetProperty" o = Gtk.Widget.WidgetStyleGetPropertyMethodInfo
ResolveTerminalMethod "thawChildNotify" o = Gtk.Widget.WidgetThawChildNotifyMethodInfo
ResolveTerminalMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTerminalMethod "translateCoordinates" o = Gtk.Widget.WidgetTranslateCoordinatesMethodInfo
ResolveTerminalMethod "triggerTooltipQuery" o = Gtk.Widget.WidgetTriggerTooltipQueryMethodInfo
ResolveTerminalMethod "unmap" o = Gtk.Widget.WidgetUnmapMethodInfo
ResolveTerminalMethod "unparent" o = Gtk.Widget.WidgetUnparentMethodInfo
ResolveTerminalMethod "unrealize" o = Gtk.Widget.WidgetUnrealizeMethodInfo
ResolveTerminalMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTerminalMethod "unregisterWindow" o = Gtk.Widget.WidgetUnregisterWindowMethodInfo
ResolveTerminalMethod "unselectAll" o = TerminalUnselectAllMethodInfo
ResolveTerminalMethod "unsetStateFlags" o = Gtk.Widget.WidgetUnsetStateFlagsMethodInfo
ResolveTerminalMethod "watchChild" o = TerminalWatchChildMethodInfo
ResolveTerminalMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTerminalMethod "writeContentsSync" o = TerminalWriteContentsSyncMethodInfo
ResolveTerminalMethod "getAccessible" o = Gtk.Widget.WidgetGetAccessibleMethodInfo
ResolveTerminalMethod "getActionGroup" o = Gtk.Widget.WidgetGetActionGroupMethodInfo
ResolveTerminalMethod "getAllocatedBaseline" o = Gtk.Widget.WidgetGetAllocatedBaselineMethodInfo
ResolveTerminalMethod "getAllocatedHeight" o = Gtk.Widget.WidgetGetAllocatedHeightMethodInfo
ResolveTerminalMethod "getAllocatedSize" o = Gtk.Widget.WidgetGetAllocatedSizeMethodInfo
ResolveTerminalMethod "getAllocatedWidth" o = Gtk.Widget.WidgetGetAllocatedWidthMethodInfo
ResolveTerminalMethod "getAllocation" o = Gtk.Widget.WidgetGetAllocationMethodInfo
ResolveTerminalMethod "getAllowBold" o = TerminalGetAllowBoldMethodInfo
ResolveTerminalMethod "getAllowHyperlink" o = TerminalGetAllowHyperlinkMethodInfo
ResolveTerminalMethod "getAncestor" o = Gtk.Widget.WidgetGetAncestorMethodInfo
ResolveTerminalMethod "getAppPaintable" o = Gtk.Widget.WidgetGetAppPaintableMethodInfo
ResolveTerminalMethod "getAudibleBell" o = TerminalGetAudibleBellMethodInfo
ResolveTerminalMethod "getBoldIsBright" o = TerminalGetBoldIsBrightMethodInfo
ResolveTerminalMethod "getBorder" o = Gtk.Scrollable.ScrollableGetBorderMethodInfo
ResolveTerminalMethod "getCanDefault" o = Gtk.Widget.WidgetGetCanDefaultMethodInfo
ResolveTerminalMethod "getCanFocus" o = Gtk.Widget.WidgetGetCanFocusMethodInfo
ResolveTerminalMethod "getCellHeightScale" o = TerminalGetCellHeightScaleMethodInfo
ResolveTerminalMethod "getCellWidthScale" o = TerminalGetCellWidthScaleMethodInfo
ResolveTerminalMethod "getCharHeight" o = TerminalGetCharHeightMethodInfo
ResolveTerminalMethod "getCharWidth" o = TerminalGetCharWidthMethodInfo
ResolveTerminalMethod "getChildRequisition" o = Gtk.Widget.WidgetGetChildRequisitionMethodInfo
ResolveTerminalMethod "getChildVisible" o = Gtk.Widget.WidgetGetChildVisibleMethodInfo
ResolveTerminalMethod "getCjkAmbiguousWidth" o = TerminalGetCjkAmbiguousWidthMethodInfo
ResolveTerminalMethod "getClip" o = Gtk.Widget.WidgetGetClipMethodInfo
ResolveTerminalMethod "getClipboard" o = Gtk.Widget.WidgetGetClipboardMethodInfo
ResolveTerminalMethod "getColorBackgroundForDraw" o = TerminalGetColorBackgroundForDrawMethodInfo
ResolveTerminalMethod "getColumnCount" o = TerminalGetColumnCountMethodInfo
ResolveTerminalMethod "getCompositeName" o = Gtk.Widget.WidgetGetCompositeNameMethodInfo
ResolveTerminalMethod "getContextMenu" o = TerminalGetContextMenuMethodInfo
ResolveTerminalMethod "getContextMenuModel" o = TerminalGetContextMenuModelMethodInfo
ResolveTerminalMethod "getCurrentDirectoryUri" o = TerminalGetCurrentDirectoryUriMethodInfo
ResolveTerminalMethod "getCurrentFileUri" o = TerminalGetCurrentFileUriMethodInfo
ResolveTerminalMethod "getCursorBlinkMode" o = TerminalGetCursorBlinkModeMethodInfo
ResolveTerminalMethod "getCursorPosition" o = TerminalGetCursorPositionMethodInfo
ResolveTerminalMethod "getCursorShape" o = TerminalGetCursorShapeMethodInfo
ResolveTerminalMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTerminalMethod "getDeviceEnabled" o = Gtk.Widget.WidgetGetDeviceEnabledMethodInfo
ResolveTerminalMethod "getDeviceEvents" o = Gtk.Widget.WidgetGetDeviceEventsMethodInfo
ResolveTerminalMethod "getDirection" o = Gtk.Widget.WidgetGetDirectionMethodInfo
ResolveTerminalMethod "getDisplay" o = Gtk.Widget.WidgetGetDisplayMethodInfo
ResolveTerminalMethod "getDoubleBuffered" o = Gtk.Widget.WidgetGetDoubleBufferedMethodInfo
ResolveTerminalMethod "getEnableA11y" o = TerminalGetEnableA11yMethodInfo
ResolveTerminalMethod "getEnableBidi" o = TerminalGetEnableBidiMethodInfo
ResolveTerminalMethod "getEnableFallbackScrolling" o = TerminalGetEnableFallbackScrollingMethodInfo
ResolveTerminalMethod "getEnableLegacyOsc777" o = TerminalGetEnableLegacyOsc777MethodInfo
ResolveTerminalMethod "getEnableShaping" o = TerminalGetEnableShapingMethodInfo
ResolveTerminalMethod "getEnableSixel" o = TerminalGetEnableSixelMethodInfo
ResolveTerminalMethod "getEncoding" o = TerminalGetEncodingMethodInfo
ResolveTerminalMethod "getEvents" o = Gtk.Widget.WidgetGetEventsMethodInfo
ResolveTerminalMethod "getFocusOnClick" o = Gtk.Widget.WidgetGetFocusOnClickMethodInfo
ResolveTerminalMethod "getFont" o = TerminalGetFontMethodInfo
ResolveTerminalMethod "getFontMap" o = Gtk.Widget.WidgetGetFontMapMethodInfo
ResolveTerminalMethod "getFontOptions" o = TerminalGetFontOptionsMethodInfo
ResolveTerminalMethod "getFontScale" o = TerminalGetFontScaleMethodInfo
ResolveTerminalMethod "getFrameClock" o = Gtk.Widget.WidgetGetFrameClockMethodInfo
ResolveTerminalMethod "getGeometryHints" o = TerminalGetGeometryHintsMethodInfo
ResolveTerminalMethod "getHadjustment" o = Gtk.Scrollable.ScrollableGetHadjustmentMethodInfo
ResolveTerminalMethod "getHalign" o = Gtk.Widget.WidgetGetHalignMethodInfo
ResolveTerminalMethod "getHasSelection" o = TerminalGetHasSelectionMethodInfo
ResolveTerminalMethod "getHasTooltip" o = Gtk.Widget.WidgetGetHasTooltipMethodInfo
ResolveTerminalMethod "getHasWindow" o = Gtk.Widget.WidgetGetHasWindowMethodInfo
ResolveTerminalMethod "getHexpand" o = Gtk.Widget.WidgetGetHexpandMethodInfo
ResolveTerminalMethod "getHexpandSet" o = Gtk.Widget.WidgetGetHexpandSetMethodInfo
ResolveTerminalMethod "getHscrollPolicy" o = Gtk.Scrollable.ScrollableGetHscrollPolicyMethodInfo
ResolveTerminalMethod "getIconTitle" o = TerminalGetIconTitleMethodInfo
ResolveTerminalMethod "getInputEnabled" o = TerminalGetInputEnabledMethodInfo
ResolveTerminalMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveTerminalMethod "getMapped" o = Gtk.Widget.WidgetGetMappedMethodInfo
ResolveTerminalMethod "getMarginBottom" o = Gtk.Widget.WidgetGetMarginBottomMethodInfo
ResolveTerminalMethod "getMarginEnd" o = Gtk.Widget.WidgetGetMarginEndMethodInfo
ResolveTerminalMethod "getMarginLeft" o = Gtk.Widget.WidgetGetMarginLeftMethodInfo
ResolveTerminalMethod "getMarginRight" o = Gtk.Widget.WidgetGetMarginRightMethodInfo
ResolveTerminalMethod "getMarginStart" o = Gtk.Widget.WidgetGetMarginStartMethodInfo
ResolveTerminalMethod "getMarginTop" o = Gtk.Widget.WidgetGetMarginTopMethodInfo
ResolveTerminalMethod "getModifierMask" o = Gtk.Widget.WidgetGetModifierMaskMethodInfo
ResolveTerminalMethod "getModifierStyle" o = Gtk.Widget.WidgetGetModifierStyleMethodInfo
ResolveTerminalMethod "getMouseAutohide" o = TerminalGetMouseAutohideMethodInfo
ResolveTerminalMethod "getName" o = Gtk.Widget.WidgetGetNameMethodInfo
ResolveTerminalMethod "getNoShowAll" o = Gtk.Widget.WidgetGetNoShowAllMethodInfo
ResolveTerminalMethod "getOpacity" o = Gtk.Widget.WidgetGetOpacityMethodInfo
ResolveTerminalMethod "getPangoContext" o = Gtk.Widget.WidgetGetPangoContextMethodInfo
ResolveTerminalMethod "getParent" o = Gtk.Widget.WidgetGetParentMethodInfo
ResolveTerminalMethod "getParentWindow" o = Gtk.Widget.WidgetGetParentWindowMethodInfo
ResolveTerminalMethod "getPath" o = Gtk.Widget.WidgetGetPathMethodInfo
ResolveTerminalMethod "getPointer" o = Gtk.Widget.WidgetGetPointerMethodInfo
ResolveTerminalMethod "getPreferredHeight" o = Gtk.Widget.WidgetGetPreferredHeightMethodInfo
ResolveTerminalMethod "getPreferredHeightAndBaselineForWidth" o = Gtk.Widget.WidgetGetPreferredHeightAndBaselineForWidthMethodInfo
ResolveTerminalMethod "getPreferredHeightForWidth" o = Gtk.Widget.WidgetGetPreferredHeightForWidthMethodInfo
ResolveTerminalMethod "getPreferredSize" o = Gtk.Widget.WidgetGetPreferredSizeMethodInfo
ResolveTerminalMethod "getPreferredWidth" o = Gtk.Widget.WidgetGetPreferredWidthMethodInfo
ResolveTerminalMethod "getPreferredWidthForHeight" o = Gtk.Widget.WidgetGetPreferredWidthForHeightMethodInfo
ResolveTerminalMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTerminalMethod "getPty" o = TerminalGetPtyMethodInfo
ResolveTerminalMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTerminalMethod "getRealized" o = Gtk.Widget.WidgetGetRealizedMethodInfo
ResolveTerminalMethod "getReceivesDefault" o = Gtk.Widget.WidgetGetReceivesDefaultMethodInfo
ResolveTerminalMethod "getRequestMode" o = Gtk.Widget.WidgetGetRequestModeMethodInfo
ResolveTerminalMethod "getRequisition" o = Gtk.Widget.WidgetGetRequisitionMethodInfo
ResolveTerminalMethod "getRewrapOnResize" o = TerminalGetRewrapOnResizeMethodInfo
ResolveTerminalMethod "getRootWindow" o = Gtk.Widget.WidgetGetRootWindowMethodInfo
ResolveTerminalMethod "getRowCount" o = TerminalGetRowCountMethodInfo
ResolveTerminalMethod "getScaleFactor" o = Gtk.Widget.WidgetGetScaleFactorMethodInfo
ResolveTerminalMethod "getScreen" o = Gtk.Widget.WidgetGetScreenMethodInfo
ResolveTerminalMethod "getScrollOnInsert" o = TerminalGetScrollOnInsertMethodInfo
ResolveTerminalMethod "getScrollOnKeystroke" o = TerminalGetScrollOnKeystrokeMethodInfo
ResolveTerminalMethod "getScrollOnOutput" o = TerminalGetScrollOnOutputMethodInfo
ResolveTerminalMethod "getScrollUnitIsPixels" o = TerminalGetScrollUnitIsPixelsMethodInfo
ResolveTerminalMethod "getScrollbackLines" o = TerminalGetScrollbackLinesMethodInfo
ResolveTerminalMethod "getSensitive" o = Gtk.Widget.WidgetGetSensitiveMethodInfo
ResolveTerminalMethod "getSettings" o = Gtk.Widget.WidgetGetSettingsMethodInfo
ResolveTerminalMethod "getSizeRequest" o = Gtk.Widget.WidgetGetSizeRequestMethodInfo
ResolveTerminalMethod "getState" o = Gtk.Widget.WidgetGetStateMethodInfo
ResolveTerminalMethod "getStateFlags" o = Gtk.Widget.WidgetGetStateFlagsMethodInfo
ResolveTerminalMethod "getStyle" o = Gtk.Widget.WidgetGetStyleMethodInfo
ResolveTerminalMethod "getStyleContext" o = Gtk.Widget.WidgetGetStyleContextMethodInfo
ResolveTerminalMethod "getSupportMultidevice" o = Gtk.Widget.WidgetGetSupportMultideviceMethodInfo
ResolveTerminalMethod "getTemplateChild" o = Gtk.Widget.WidgetGetTemplateChildMethodInfo
ResolveTerminalMethod "getTermpropBool" o = TerminalGetTermpropBoolMethodInfo
ResolveTerminalMethod "getTermpropBoolById" o = TerminalGetTermpropBoolByIdMethodInfo
ResolveTerminalMethod "getTermpropData" o = TerminalGetTermpropDataMethodInfo
ResolveTerminalMethod "getTermpropDataById" o = TerminalGetTermpropDataByIdMethodInfo
ResolveTerminalMethod "getTermpropDouble" o = TerminalGetTermpropDoubleMethodInfo
ResolveTerminalMethod "getTermpropDoubleById" o = TerminalGetTermpropDoubleByIdMethodInfo
ResolveTerminalMethod "getTermpropEnum" o = TerminalGetTermpropEnumMethodInfo
ResolveTerminalMethod "getTermpropEnumById" o = TerminalGetTermpropEnumByIdMethodInfo
ResolveTerminalMethod "getTermpropFlags" o = TerminalGetTermpropFlagsMethodInfo
ResolveTerminalMethod "getTermpropFlagsById" o = TerminalGetTermpropFlagsByIdMethodInfo
ResolveTerminalMethod "getTermpropInt" o = TerminalGetTermpropIntMethodInfo
ResolveTerminalMethod "getTermpropIntById" o = TerminalGetTermpropIntByIdMethodInfo
ResolveTerminalMethod "getTermpropRgba" o = TerminalGetTermpropRgbaMethodInfo
ResolveTerminalMethod "getTermpropRgbaById" o = TerminalGetTermpropRgbaByIdMethodInfo
ResolveTerminalMethod "getTermpropString" o = TerminalGetTermpropStringMethodInfo
ResolveTerminalMethod "getTermpropStringById" o = TerminalGetTermpropStringByIdMethodInfo
ResolveTerminalMethod "getTermpropUint" o = TerminalGetTermpropUintMethodInfo
ResolveTerminalMethod "getTermpropUintById" o = TerminalGetTermpropUintByIdMethodInfo
ResolveTerminalMethod "getTermpropValue" o = TerminalGetTermpropValueMethodInfo
ResolveTerminalMethod "getTermpropValueById" o = TerminalGetTermpropValueByIdMethodInfo
ResolveTerminalMethod "getText" o = TerminalGetTextMethodInfo
ResolveTerminalMethod "getTextBlinkMode" o = TerminalGetTextBlinkModeMethodInfo
ResolveTerminalMethod "getTextFormat" o = TerminalGetTextFormatMethodInfo
ResolveTerminalMethod "getTextIncludeTrailingSpaces" o = TerminalGetTextIncludeTrailingSpacesMethodInfo
ResolveTerminalMethod "getTextRange" o = TerminalGetTextRangeMethodInfo
ResolveTerminalMethod "getTextRangeFormat" o = TerminalGetTextRangeFormatMethodInfo
ResolveTerminalMethod "getTextSelected" o = TerminalGetTextSelectedMethodInfo
ResolveTerminalMethod "getTextSelectedFull" o = TerminalGetTextSelectedFullMethodInfo
ResolveTerminalMethod "getTooltipMarkup" o = Gtk.Widget.WidgetGetTooltipMarkupMethodInfo
ResolveTerminalMethod "getTooltipText" o = Gtk.Widget.WidgetGetTooltipTextMethodInfo
ResolveTerminalMethod "getTooltipWindow" o = Gtk.Widget.WidgetGetTooltipWindowMethodInfo
ResolveTerminalMethod "getToplevel" o = Gtk.Widget.WidgetGetToplevelMethodInfo
ResolveTerminalMethod "getVadjustment" o = Gtk.Scrollable.ScrollableGetVadjustmentMethodInfo
ResolveTerminalMethod "getValign" o = Gtk.Widget.WidgetGetValignMethodInfo
ResolveTerminalMethod "getValignWithBaseline" o = Gtk.Widget.WidgetGetValignWithBaselineMethodInfo
ResolveTerminalMethod "getVexpand" o = Gtk.Widget.WidgetGetVexpandMethodInfo
ResolveTerminalMethod "getVexpandSet" o = Gtk.Widget.WidgetGetVexpandSetMethodInfo
ResolveTerminalMethod "getVisible" o = Gtk.Widget.WidgetGetVisibleMethodInfo
ResolveTerminalMethod "getVisual" o = Gtk.Widget.WidgetGetVisualMethodInfo
ResolveTerminalMethod "getVscrollPolicy" o = Gtk.Scrollable.ScrollableGetVscrollPolicyMethodInfo
ResolveTerminalMethod "getWindow" o = Gtk.Widget.WidgetGetWindowMethodInfo
ResolveTerminalMethod "getWindowTitle" o = TerminalGetWindowTitleMethodInfo
ResolveTerminalMethod "getWordCharExceptions" o = TerminalGetWordCharExceptionsMethodInfo
ResolveTerminalMethod "getXalign" o = TerminalGetXalignMethodInfo
ResolveTerminalMethod "getXfill" o = TerminalGetXfillMethodInfo
ResolveTerminalMethod "getYalign" o = TerminalGetYalignMethodInfo
ResolveTerminalMethod "getYfill" o = TerminalGetYfillMethodInfo
ResolveTerminalMethod "setAccelPath" o = Gtk.Widget.WidgetSetAccelPathMethodInfo
ResolveTerminalMethod "setAllocation" o = Gtk.Widget.WidgetSetAllocationMethodInfo
ResolveTerminalMethod "setAllowBold" o = TerminalSetAllowBoldMethodInfo
ResolveTerminalMethod "setAllowHyperlink" o = TerminalSetAllowHyperlinkMethodInfo
ResolveTerminalMethod "setAppPaintable" o = Gtk.Widget.WidgetSetAppPaintableMethodInfo
ResolveTerminalMethod "setAudibleBell" o = TerminalSetAudibleBellMethodInfo
ResolveTerminalMethod "setBackspaceBinding" o = TerminalSetBackspaceBindingMethodInfo
ResolveTerminalMethod "setBoldIsBright" o = TerminalSetBoldIsBrightMethodInfo
ResolveTerminalMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveTerminalMethod "setCanDefault" o = Gtk.Widget.WidgetSetCanDefaultMethodInfo
ResolveTerminalMethod "setCanFocus" o = Gtk.Widget.WidgetSetCanFocusMethodInfo
ResolveTerminalMethod "setCellHeightScale" o = TerminalSetCellHeightScaleMethodInfo
ResolveTerminalMethod "setCellWidthScale" o = TerminalSetCellWidthScaleMethodInfo
ResolveTerminalMethod "setChildVisible" o = Gtk.Widget.WidgetSetChildVisibleMethodInfo
ResolveTerminalMethod "setCjkAmbiguousWidth" o = TerminalSetCjkAmbiguousWidthMethodInfo
ResolveTerminalMethod "setClearBackground" o = TerminalSetClearBackgroundMethodInfo
ResolveTerminalMethod "setClip" o = Gtk.Widget.WidgetSetClipMethodInfo
ResolveTerminalMethod "setColorBackground" o = TerminalSetColorBackgroundMethodInfo
ResolveTerminalMethod "setColorBold" o = TerminalSetColorBoldMethodInfo
ResolveTerminalMethod "setColorCursor" o = TerminalSetColorCursorMethodInfo
ResolveTerminalMethod "setColorCursorForeground" o = TerminalSetColorCursorForegroundMethodInfo
ResolveTerminalMethod "setColorForeground" o = TerminalSetColorForegroundMethodInfo
ResolveTerminalMethod "setColorHighlight" o = TerminalSetColorHighlightMethodInfo
ResolveTerminalMethod "setColorHighlightForeground" o = TerminalSetColorHighlightForegroundMethodInfo
ResolveTerminalMethod "setColors" o = TerminalSetColorsMethodInfo
ResolveTerminalMethod "setCompositeName" o = Gtk.Widget.WidgetSetCompositeNameMethodInfo
ResolveTerminalMethod "setContextMenu" o = TerminalSetContextMenuMethodInfo
ResolveTerminalMethod "setContextMenuModel" o = TerminalSetContextMenuModelMethodInfo
ResolveTerminalMethod "setCursorBlinkMode" o = TerminalSetCursorBlinkModeMethodInfo
ResolveTerminalMethod "setCursorShape" o = TerminalSetCursorShapeMethodInfo
ResolveTerminalMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTerminalMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTerminalMethod "setDefaultColors" o = TerminalSetDefaultColorsMethodInfo
ResolveTerminalMethod "setDeleteBinding" o = TerminalSetDeleteBindingMethodInfo
ResolveTerminalMethod "setDeviceEnabled" o = Gtk.Widget.WidgetSetDeviceEnabledMethodInfo
ResolveTerminalMethod "setDeviceEvents" o = Gtk.Widget.WidgetSetDeviceEventsMethodInfo
ResolveTerminalMethod "setDirection" o = Gtk.Widget.WidgetSetDirectionMethodInfo
ResolveTerminalMethod "setDoubleBuffered" o = Gtk.Widget.WidgetSetDoubleBufferedMethodInfo
ResolveTerminalMethod "setEnableA11y" o = TerminalSetEnableA11yMethodInfo
ResolveTerminalMethod "setEnableBidi" o = TerminalSetEnableBidiMethodInfo
ResolveTerminalMethod "setEnableFallbackScrolling" o = TerminalSetEnableFallbackScrollingMethodInfo
ResolveTerminalMethod "setEnableLegacyOsc777" o = TerminalSetEnableLegacyOsc777MethodInfo
ResolveTerminalMethod "setEnableShaping" o = TerminalSetEnableShapingMethodInfo
ResolveTerminalMethod "setEnableSixel" o = TerminalSetEnableSixelMethodInfo
ResolveTerminalMethod "setEncoding" o = TerminalSetEncodingMethodInfo
ResolveTerminalMethod "setEvents" o = Gtk.Widget.WidgetSetEventsMethodInfo
ResolveTerminalMethod "setFocusOnClick" o = Gtk.Widget.WidgetSetFocusOnClickMethodInfo
ResolveTerminalMethod "setFont" o = TerminalSetFontMethodInfo
ResolveTerminalMethod "setFontMap" o = Gtk.Widget.WidgetSetFontMapMethodInfo
ResolveTerminalMethod "setFontOptions" o = TerminalSetFontOptionsMethodInfo
ResolveTerminalMethod "setFontScale" o = TerminalSetFontScaleMethodInfo
ResolveTerminalMethod "setGeometryHintsForWindow" o = TerminalSetGeometryHintsForWindowMethodInfo
ResolveTerminalMethod "setHadjustment" o = Gtk.Scrollable.ScrollableSetHadjustmentMethodInfo
ResolveTerminalMethod "setHalign" o = Gtk.Widget.WidgetSetHalignMethodInfo
ResolveTerminalMethod "setHasTooltip" o = Gtk.Widget.WidgetSetHasTooltipMethodInfo
ResolveTerminalMethod "setHasWindow" o = Gtk.Widget.WidgetSetHasWindowMethodInfo
ResolveTerminalMethod "setHexpand" o = Gtk.Widget.WidgetSetHexpandMethodInfo
ResolveTerminalMethod "setHexpandSet" o = Gtk.Widget.WidgetSetHexpandSetMethodInfo
ResolveTerminalMethod "setHscrollPolicy" o = Gtk.Scrollable.ScrollableSetHscrollPolicyMethodInfo
ResolveTerminalMethod "setInputEnabled" o = TerminalSetInputEnabledMethodInfo
ResolveTerminalMethod "setMapped" o = Gtk.Widget.WidgetSetMappedMethodInfo
ResolveTerminalMethod "setMarginBottom" o = Gtk.Widget.WidgetSetMarginBottomMethodInfo
ResolveTerminalMethod "setMarginEnd" o = Gtk.Widget.WidgetSetMarginEndMethodInfo
ResolveTerminalMethod "setMarginLeft" o = Gtk.Widget.WidgetSetMarginLeftMethodInfo
ResolveTerminalMethod "setMarginRight" o = Gtk.Widget.WidgetSetMarginRightMethodInfo
ResolveTerminalMethod "setMarginStart" o = Gtk.Widget.WidgetSetMarginStartMethodInfo
ResolveTerminalMethod "setMarginTop" o = Gtk.Widget.WidgetSetMarginTopMethodInfo
ResolveTerminalMethod "setMouseAutohide" o = TerminalSetMouseAutohideMethodInfo
ResolveTerminalMethod "setName" o = Gtk.Widget.WidgetSetNameMethodInfo
ResolveTerminalMethod "setNoShowAll" o = Gtk.Widget.WidgetSetNoShowAllMethodInfo
ResolveTerminalMethod "setOpacity" o = Gtk.Widget.WidgetSetOpacityMethodInfo
ResolveTerminalMethod "setParent" o = Gtk.Widget.WidgetSetParentMethodInfo
ResolveTerminalMethod "setParentWindow" o = Gtk.Widget.WidgetSetParentWindowMethodInfo
ResolveTerminalMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTerminalMethod "setPty" o = TerminalSetPtyMethodInfo
ResolveTerminalMethod "setRealized" o = Gtk.Widget.WidgetSetRealizedMethodInfo
ResolveTerminalMethod "setReceivesDefault" o = Gtk.Widget.WidgetSetReceivesDefaultMethodInfo
ResolveTerminalMethod "setRedrawOnAllocate" o = Gtk.Widget.WidgetSetRedrawOnAllocateMethodInfo
ResolveTerminalMethod "setRewrapOnResize" o = TerminalSetRewrapOnResizeMethodInfo
ResolveTerminalMethod "setScrollOnInsert" o = TerminalSetScrollOnInsertMethodInfo
ResolveTerminalMethod "setScrollOnKeystroke" o = TerminalSetScrollOnKeystrokeMethodInfo
ResolveTerminalMethod "setScrollOnOutput" o = TerminalSetScrollOnOutputMethodInfo
ResolveTerminalMethod "setScrollUnitIsPixels" o = TerminalSetScrollUnitIsPixelsMethodInfo
ResolveTerminalMethod "setScrollbackLines" o = TerminalSetScrollbackLinesMethodInfo
ResolveTerminalMethod "setSensitive" o = Gtk.Widget.WidgetSetSensitiveMethodInfo
ResolveTerminalMethod "setSize" o = TerminalSetSizeMethodInfo
ResolveTerminalMethod "setSizeRequest" o = Gtk.Widget.WidgetSetSizeRequestMethodInfo
ResolveTerminalMethod "setState" o = Gtk.Widget.WidgetSetStateMethodInfo
ResolveTerminalMethod "setStateFlags" o = Gtk.Widget.WidgetSetStateFlagsMethodInfo
ResolveTerminalMethod "setStyle" o = Gtk.Widget.WidgetSetStyleMethodInfo
ResolveTerminalMethod "setSupportMultidevice" o = Gtk.Widget.WidgetSetSupportMultideviceMethodInfo
ResolveTerminalMethod "setSuppressLegacySignals" o = TerminalSetSuppressLegacySignalsMethodInfo
ResolveTerminalMethod "setTextBlinkMode" o = TerminalSetTextBlinkModeMethodInfo
ResolveTerminalMethod "setTooltipMarkup" o = Gtk.Widget.WidgetSetTooltipMarkupMethodInfo
ResolveTerminalMethod "setTooltipText" o = Gtk.Widget.WidgetSetTooltipTextMethodInfo
ResolveTerminalMethod "setTooltipWindow" o = Gtk.Widget.WidgetSetTooltipWindowMethodInfo
ResolveTerminalMethod "setVadjustment" o = Gtk.Scrollable.ScrollableSetVadjustmentMethodInfo
ResolveTerminalMethod "setValign" o = Gtk.Widget.WidgetSetValignMethodInfo
ResolveTerminalMethod "setVexpand" o = Gtk.Widget.WidgetSetVexpandMethodInfo
ResolveTerminalMethod "setVexpandSet" o = Gtk.Widget.WidgetSetVexpandSetMethodInfo
ResolveTerminalMethod "setVisible" o = Gtk.Widget.WidgetSetVisibleMethodInfo
ResolveTerminalMethod "setVisual" o = Gtk.Widget.WidgetSetVisualMethodInfo
ResolveTerminalMethod "setVscrollPolicy" o = Gtk.Scrollable.ScrollableSetVscrollPolicyMethodInfo
ResolveTerminalMethod "setWindow" o = Gtk.Widget.WidgetSetWindowMethodInfo
ResolveTerminalMethod "setWordCharExceptions" o = TerminalSetWordCharExceptionsMethodInfo
ResolveTerminalMethod "setXalign" o = TerminalSetXalignMethodInfo
ResolveTerminalMethod "setXfill" o = TerminalSetXfillMethodInfo
ResolveTerminalMethod "setYalign" o = TerminalSetYalignMethodInfo
ResolveTerminalMethod "setYfill" o = TerminalSetYfillMethodInfo
ResolveTerminalMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTerminalMethod t Terminal, O.OverloadedMethod info Terminal p) => OL.IsLabel t (Terminal -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveTerminalMethod t Terminal, O.OverloadedMethod info Terminal p, R.HasField t Terminal p) => R.HasField t Terminal p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTerminalMethod t Terminal, O.OverloadedMethodInfo info Terminal) => OL.IsLabel t (O.MethodProxy info Terminal) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TerminalBellCallback =
IO ()
type C_TerminalBellCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalBellCallback :: C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
wrap_TerminalBellCallback ::
GObject a => (a -> TerminalBellCallback) ->
C_TerminalBellCallback
wrap_TerminalBellCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalBellCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalBell :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalBellCallback) -> m SignalHandlerId
onTerminalBell :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalBell a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalBellCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "bell" wrapped'' SignalConnectBefore Nothing
afterTerminalBell :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalBellCallback) -> m SignalHandlerId
afterTerminalBell :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalBell a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalBellCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "bell" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalBellSignalInfo
instance SignalInfo TerminalBellSignalInfo where
type HaskellCallbackType TerminalBellSignalInfo = TerminalBellCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalBellCallback cb
cb'' <- mk_TerminalBellCallback cb'
connectSignalFunPtr obj "bell" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::bell"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:bell"})
#endif
type TerminalCharSizeChangedCallback =
Word32
-> Word32
-> IO ()
type C_TerminalCharSizeChangedCallback =
Ptr Terminal ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCharSizeChangedCallback :: C_TerminalCharSizeChangedCallback -> IO (FunPtr C_TerminalCharSizeChangedCallback)
wrap_TerminalCharSizeChangedCallback ::
GObject a => (a -> TerminalCharSizeChangedCallback) ->
C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback :: forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback a -> TerminalCharSizeChangedCallback
gi'cb Ptr Terminal
gi'selfPtr Word32
width Word32
height Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalCharSizeChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Word32
width Word32
height
onTerminalCharSizeChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCharSizeChangedCallback) -> m SignalHandlerId
onTerminalCharSizeChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
onTerminalCharSizeChanged a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "char-size-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalCharSizeChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCharSizeChangedCallback) -> m SignalHandlerId
afterTerminalCharSizeChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
afterTerminalCharSizeChanged a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "char-size-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCharSizeChangedSignalInfo
instance SignalInfo TerminalCharSizeChangedSignalInfo where
type HaskellCallbackType TerminalCharSizeChangedSignalInfo = TerminalCharSizeChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCharSizeChangedCallback cb
cb'' <- mk_TerminalCharSizeChangedCallback cb'
connectSignalFunPtr obj "char-size-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::char-size-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:charSizeChanged"})
#endif
type TerminalChildExitedCallback =
Int32
-> IO ()
type C_TerminalChildExitedCallback =
Ptr Terminal ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalChildExitedCallback :: C_TerminalChildExitedCallback -> IO (FunPtr C_TerminalChildExitedCallback)
wrap_TerminalChildExitedCallback ::
GObject a => (a -> TerminalChildExitedCallback) ->
C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback :: forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback a -> TerminalChildExitedCallback
gi'cb Ptr Terminal
gi'selfPtr Int32
status Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalChildExitedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Int32
status
onTerminalChildExited :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalChildExitedCallback) -> m SignalHandlerId
onTerminalChildExited :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalChildExitedCallback) -> m SignalHandlerId
onTerminalChildExited a
obj (?self::a) => TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalChildExitedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalChildExitedCallback
TerminalChildExitedCallback
cb
let wrapped' :: C_TerminalChildExitedCallback
wrapped' = (a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback a -> TerminalChildExitedCallback
wrapped
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
wrapped'
connectSignalFunPtr obj "child-exited" wrapped'' SignalConnectBefore Nothing
afterTerminalChildExited :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalChildExitedCallback) -> m SignalHandlerId
afterTerminalChildExited :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalChildExitedCallback) -> m SignalHandlerId
afterTerminalChildExited a
obj (?self::a) => TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalChildExitedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalChildExitedCallback
TerminalChildExitedCallback
cb
let wrapped' :: C_TerminalChildExitedCallback
wrapped' = (a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback a -> TerminalChildExitedCallback
wrapped
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
wrapped'
connectSignalFunPtr obj "child-exited" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalChildExitedSignalInfo
instance SignalInfo TerminalChildExitedSignalInfo where
type HaskellCallbackType TerminalChildExitedSignalInfo = TerminalChildExitedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalChildExitedCallback cb
cb'' <- mk_TerminalChildExitedCallback cb'
connectSignalFunPtr obj "child-exited" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::child-exited"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:childExited"})
#endif
type TerminalCommitCallback =
T.Text
-> Word32
-> IO ()
type C_TerminalCommitCallback =
Ptr Terminal ->
CString ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCommitCallback :: C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
wrap_TerminalCommitCallback ::
GObject a => (a -> TerminalCommitCallback) ->
C_TerminalCommitCallback
wrap_TerminalCommitCallback :: forall a.
GObject a =>
(a -> TerminalCommitCallback) -> C_TerminalCommitCallback
wrap_TerminalCommitCallback a -> TerminalCommitCallback
gi'cb Ptr Terminal
gi'selfPtr CString
text Word32
size Ptr ()
_ = do
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
B.ManagedPtr.withNewObject gi'selfPtr $ \Terminal
gi'self -> a -> TerminalCommitCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Text
text' Word32
size
onTerminalCommit :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCommitCallback) -> m SignalHandlerId
onTerminalCommit :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => TerminalCommitCallback) -> m SignalHandlerId
onTerminalCommit a
obj (?self::a) => TerminalCommitCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCommitCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCommitCallback
TerminalCommitCallback
cb
let wrapped' :: C_TerminalCommitCallback
wrapped' = (a -> TerminalCommitCallback) -> C_TerminalCommitCallback
forall a.
GObject a =>
(a -> TerminalCommitCallback) -> C_TerminalCommitCallback
wrap_TerminalCommitCallback a -> TerminalCommitCallback
wrapped
wrapped'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
wrapped'
connectSignalFunPtr obj "commit" wrapped'' SignalConnectBefore Nothing
afterTerminalCommit :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCommitCallback) -> m SignalHandlerId
afterTerminalCommit :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => TerminalCommitCallback) -> m SignalHandlerId
afterTerminalCommit a
obj (?self::a) => TerminalCommitCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCommitCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCommitCallback
TerminalCommitCallback
cb
let wrapped' :: C_TerminalCommitCallback
wrapped' = (a -> TerminalCommitCallback) -> C_TerminalCommitCallback
forall a.
GObject a =>
(a -> TerminalCommitCallback) -> C_TerminalCommitCallback
wrap_TerminalCommitCallback a -> TerminalCommitCallback
wrapped
wrapped'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
wrapped'
connectSignalFunPtr obj "commit" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCommitSignalInfo
instance SignalInfo TerminalCommitSignalInfo where
type HaskellCallbackType TerminalCommitSignalInfo = TerminalCommitCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCommitCallback cb
cb'' <- mk_TerminalCommitCallback cb'
connectSignalFunPtr obj "commit" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::commit"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:commit"})
#endif
type TerminalContentsChangedCallback =
IO ()
type C_TerminalContentsChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalContentsChangedCallback :: C_TerminalContentsChangedCallback -> IO (FunPtr C_TerminalContentsChangedCallback)
wrap_TerminalContentsChangedCallback ::
GObject a => (a -> TerminalContentsChangedCallback) ->
C_TerminalContentsChangedCallback
wrap_TerminalContentsChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalContentsChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalContentsChangedCallback) -> m SignalHandlerId
onTerminalContentsChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalContentsChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "contents-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalContentsChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalContentsChangedCallback) -> m SignalHandlerId
afterTerminalContentsChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalContentsChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "contents-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalContentsChangedSignalInfo
instance SignalInfo TerminalContentsChangedSignalInfo where
type HaskellCallbackType TerminalContentsChangedSignalInfo = TerminalContentsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalContentsChangedCallback cb
cb'' <- mk_TerminalContentsChangedCallback cb'
connectSignalFunPtr obj "contents-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::contents-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:contentsChanged"})
#endif
type TerminalCopyClipboardCallback =
IO ()
type C_TerminalCopyClipboardCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCopyClipboardCallback :: C_TerminalCopyClipboardCallback -> IO (FunPtr C_TerminalCopyClipboardCallback)
wrap_TerminalCopyClipboardCallback ::
GObject a => (a -> TerminalCopyClipboardCallback) ->
C_TerminalCopyClipboardCallback
wrap_TerminalCopyClipboardCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalCopyClipboard :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCopyClipboardCallback) -> m SignalHandlerId
onTerminalCopyClipboard :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalCopyClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "copy-clipboard" wrapped'' SignalConnectBefore Nothing
afterTerminalCopyClipboard :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCopyClipboardCallback) -> m SignalHandlerId
afterTerminalCopyClipboard :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalCopyClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "copy-clipboard" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCopyClipboardSignalInfo
instance SignalInfo TerminalCopyClipboardSignalInfo where
type HaskellCallbackType TerminalCopyClipboardSignalInfo = TerminalCopyClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCopyClipboardCallback cb
cb'' <- mk_TerminalCopyClipboardCallback cb'
connectSignalFunPtr obj "copy-clipboard" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::copy-clipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:copyClipboard"})
#endif
{-# DEPRECATED TerminalCurrentDirectoryUriChangedCallback ["(Since version 0.78)","Use the t'GI.Vte.Objects.Terminal.Terminal':@/termprop-changed/@ signal"," for the 'GI.Vte.Constants.TERMPROP_CURRENT_DIRECTORY_URI' termprop."] #-}
type TerminalCurrentDirectoryUriChangedCallback =
IO ()
type C_TerminalCurrentDirectoryUriChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCurrentDirectoryUriChangedCallback :: C_TerminalCurrentDirectoryUriChangedCallback -> IO (FunPtr C_TerminalCurrentDirectoryUriChangedCallback)
wrap_TerminalCurrentDirectoryUriChangedCallback ::
GObject a => (a -> TerminalCurrentDirectoryUriChangedCallback) ->
C_TerminalCurrentDirectoryUriChangedCallback
wrap_TerminalCurrentDirectoryUriChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalCurrentDirectoryUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCurrentDirectoryUriChangedCallback) -> m SignalHandlerId
onTerminalCurrentDirectoryUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalCurrentDirectoryUriChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "current-directory-uri-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalCurrentDirectoryUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCurrentDirectoryUriChangedCallback) -> m SignalHandlerId
afterTerminalCurrentDirectoryUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalCurrentDirectoryUriChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "current-directory-uri-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentDirectoryUriChangedSignalInfo
instance SignalInfo TerminalCurrentDirectoryUriChangedSignalInfo where
type HaskellCallbackType TerminalCurrentDirectoryUriChangedSignalInfo = TerminalCurrentDirectoryUriChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCurrentDirectoryUriChangedCallback cb
cb'' <- mk_TerminalCurrentDirectoryUriChangedCallback cb'
connectSignalFunPtr obj "current-directory-uri-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::current-directory-uri-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:currentDirectoryUriChanged"})
#endif
{-# DEPRECATED TerminalCurrentFileUriChangedCallback ["(Since version 0.78)","Use the t'GI.Vte.Objects.Terminal.Terminal':@/termprop-changed/@ signal"," for the 'GI.Vte.Constants.TERMPROP_CURRENT_FILE_URI' termprop."] #-}
type TerminalCurrentFileUriChangedCallback =
IO ()
type C_TerminalCurrentFileUriChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCurrentFileUriChangedCallback :: C_TerminalCurrentFileUriChangedCallback -> IO (FunPtr C_TerminalCurrentFileUriChangedCallback)
wrap_TerminalCurrentFileUriChangedCallback ::
GObject a => (a -> TerminalCurrentFileUriChangedCallback) ->
C_TerminalCurrentFileUriChangedCallback
wrap_TerminalCurrentFileUriChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalCurrentFileUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCurrentFileUriChangedCallback) -> m SignalHandlerId
onTerminalCurrentFileUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalCurrentFileUriChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "current-file-uri-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalCurrentFileUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCurrentFileUriChangedCallback) -> m SignalHandlerId
afterTerminalCurrentFileUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalCurrentFileUriChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "current-file-uri-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentFileUriChangedSignalInfo
instance SignalInfo TerminalCurrentFileUriChangedSignalInfo where
type HaskellCallbackType TerminalCurrentFileUriChangedSignalInfo = TerminalCurrentFileUriChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCurrentFileUriChangedCallback cb
cb'' <- mk_TerminalCurrentFileUriChangedCallback cb'
connectSignalFunPtr obj "current-file-uri-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::current-file-uri-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:currentFileUriChanged"})
#endif
type TerminalCursorMovedCallback =
IO ()
type C_TerminalCursorMovedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCursorMovedCallback :: C_TerminalCursorMovedCallback -> IO (FunPtr C_TerminalCursorMovedCallback)
wrap_TerminalCursorMovedCallback ::
GObject a => (a -> TerminalCursorMovedCallback) ->
C_TerminalCursorMovedCallback
wrap_TerminalCursorMovedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalCursorMoved :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCursorMovedCallback) -> m SignalHandlerId
onTerminalCursorMoved :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalCursorMoved a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "cursor-moved" wrapped'' SignalConnectBefore Nothing
afterTerminalCursorMoved :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalCursorMovedCallback) -> m SignalHandlerId
afterTerminalCursorMoved :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalCursorMoved a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "cursor-moved" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalCursorMovedSignalInfo
instance SignalInfo TerminalCursorMovedSignalInfo where
type HaskellCallbackType TerminalCursorMovedSignalInfo = TerminalCursorMovedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalCursorMovedCallback cb
cb'' <- mk_TerminalCursorMovedCallback cb'
connectSignalFunPtr obj "cursor-moved" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::cursor-moved"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:cursorMoved"})
#endif
type TerminalDecreaseFontSizeCallback =
IO ()
type C_TerminalDecreaseFontSizeCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalDecreaseFontSizeCallback :: C_TerminalDecreaseFontSizeCallback -> IO (FunPtr C_TerminalDecreaseFontSizeCallback)
wrap_TerminalDecreaseFontSizeCallback ::
GObject a => (a -> TerminalDecreaseFontSizeCallback) ->
C_TerminalDecreaseFontSizeCallback
wrap_TerminalDecreaseFontSizeCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalDecreaseFontSize :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalDecreaseFontSizeCallback) -> m SignalHandlerId
onTerminalDecreaseFontSize :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalDecreaseFontSize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "decrease-font-size" wrapped'' SignalConnectBefore Nothing
afterTerminalDecreaseFontSize :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalDecreaseFontSizeCallback) -> m SignalHandlerId
afterTerminalDecreaseFontSize :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalDecreaseFontSize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "decrease-font-size" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalDecreaseFontSizeSignalInfo
instance SignalInfo TerminalDecreaseFontSizeSignalInfo where
type HaskellCallbackType TerminalDecreaseFontSizeSignalInfo = TerminalDecreaseFontSizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalDecreaseFontSizeCallback cb
cb'' <- mk_TerminalDecreaseFontSizeCallback cb'
connectSignalFunPtr obj "decrease-font-size" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::decrease-font-size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:decreaseFontSize"})
#endif
{-# DEPRECATED TerminalDeiconifyWindowCallback ["(Since version 0.60)"] #-}
type TerminalDeiconifyWindowCallback =
IO ()
type C_TerminalDeiconifyWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalDeiconifyWindowCallback :: C_TerminalDeiconifyWindowCallback -> IO (FunPtr C_TerminalDeiconifyWindowCallback)
wrap_TerminalDeiconifyWindowCallback ::
GObject a => (a -> TerminalDeiconifyWindowCallback) ->
C_TerminalDeiconifyWindowCallback
wrap_TerminalDeiconifyWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalDeiconifyWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalDeiconifyWindowCallback) -> m SignalHandlerId
onTerminalDeiconifyWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalDeiconifyWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "deiconify-window" wrapped'' SignalConnectBefore Nothing
afterTerminalDeiconifyWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalDeiconifyWindowCallback) -> m SignalHandlerId
afterTerminalDeiconifyWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalDeiconifyWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "deiconify-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalDeiconifyWindowSignalInfo
instance SignalInfo TerminalDeiconifyWindowSignalInfo where
type HaskellCallbackType TerminalDeiconifyWindowSignalInfo = TerminalDeiconifyWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalDeiconifyWindowCallback cb
cb'' <- mk_TerminalDeiconifyWindowCallback cb'
connectSignalFunPtr obj "deiconify-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::deiconify-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:deiconifyWindow"})
#endif
type TerminalEncodingChangedCallback =
IO ()
type C_TerminalEncodingChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalEncodingChangedCallback :: C_TerminalEncodingChangedCallback -> IO (FunPtr C_TerminalEncodingChangedCallback)
wrap_TerminalEncodingChangedCallback ::
GObject a => (a -> TerminalEncodingChangedCallback) ->
C_TerminalEncodingChangedCallback
wrap_TerminalEncodingChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalEncodingChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalEncodingChangedCallback) -> m SignalHandlerId
onTerminalEncodingChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalEncodingChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "encoding-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalEncodingChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalEncodingChangedCallback) -> m SignalHandlerId
afterTerminalEncodingChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalEncodingChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "encoding-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalEncodingChangedSignalInfo
instance SignalInfo TerminalEncodingChangedSignalInfo where
type HaskellCallbackType TerminalEncodingChangedSignalInfo = TerminalEncodingChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalEncodingChangedCallback cb
cb'' <- mk_TerminalEncodingChangedCallback cb'
connectSignalFunPtr obj "encoding-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::encoding-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:encodingChanged"})
#endif
type TerminalEofCallback =
IO ()
type C_TerminalEofCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalEofCallback :: C_TerminalEofCallback -> IO (FunPtr C_TerminalEofCallback)
wrap_TerminalEofCallback ::
GObject a => (a -> TerminalEofCallback) ->
C_TerminalEofCallback
wrap_TerminalEofCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEofCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalEof :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalEofCallback) -> m SignalHandlerId
onTerminalEof :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalEof a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEofCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "eof" wrapped'' SignalConnectBefore Nothing
afterTerminalEof :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalEofCallback) -> m SignalHandlerId
afterTerminalEof :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalEof a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalEofCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "eof" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalEofSignalInfo
instance SignalInfo TerminalEofSignalInfo where
type HaskellCallbackType TerminalEofSignalInfo = TerminalEofCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalEofCallback cb
cb'' <- mk_TerminalEofCallback cb'
connectSignalFunPtr obj "eof" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::eof"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:eof"})
#endif
type TerminalHyperlinkHoverUriChangedCallback =
T.Text
-> Gdk.Rectangle.Rectangle
-> IO ()
type C_TerminalHyperlinkHoverUriChangedCallback =
Ptr Terminal ->
CString ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalHyperlinkHoverUriChangedCallback :: C_TerminalHyperlinkHoverUriChangedCallback -> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
wrap_TerminalHyperlinkHoverUriChangedCallback ::
GObject a => (a -> TerminalHyperlinkHoverUriChangedCallback) ->
C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback :: forall a.
GObject a =>
(a -> TerminalHyperlinkHoverUriChangedCallback)
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback a -> TerminalHyperlinkHoverUriChangedCallback
gi'cb Ptr Terminal
gi'selfPtr CString
object Ptr Rectangle
p0 Ptr ()
_ = do
object' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
object
B.ManagedPtr.withTransient p0 $ \Rectangle
p0' -> do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalHyperlinkHoverUriChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Text
object' Rectangle
p0'
onTerminalHyperlinkHoverUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalHyperlinkHoverUriChangedCallback) -> m SignalHandlerId
onTerminalHyperlinkHoverUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalHyperlinkHoverUriChangedCallback)
-> m SignalHandlerId
onTerminalHyperlinkHoverUriChanged a
obj (?self::a) => TerminalHyperlinkHoverUriChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalHyperlinkHoverUriChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalHyperlinkHoverUriChangedCallback
TerminalHyperlinkHoverUriChangedCallback
cb
let wrapped' :: C_TerminalHyperlinkHoverUriChangedCallback
wrapped' = (a -> TerminalHyperlinkHoverUriChangedCallback)
-> C_TerminalHyperlinkHoverUriChangedCallback
forall a.
GObject a =>
(a -> TerminalHyperlinkHoverUriChangedCallback)
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback a -> TerminalHyperlinkHoverUriChangedCallback
wrapped
wrapped'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
wrapped'
connectSignalFunPtr obj "hyperlink-hover-uri-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalHyperlinkHoverUriChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalHyperlinkHoverUriChangedCallback) -> m SignalHandlerId
afterTerminalHyperlinkHoverUriChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalHyperlinkHoverUriChangedCallback)
-> m SignalHandlerId
afterTerminalHyperlinkHoverUriChanged a
obj (?self::a) => TerminalHyperlinkHoverUriChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalHyperlinkHoverUriChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalHyperlinkHoverUriChangedCallback
TerminalHyperlinkHoverUriChangedCallback
cb
let wrapped' :: C_TerminalHyperlinkHoverUriChangedCallback
wrapped' = (a -> TerminalHyperlinkHoverUriChangedCallback)
-> C_TerminalHyperlinkHoverUriChangedCallback
forall a.
GObject a =>
(a -> TerminalHyperlinkHoverUriChangedCallback)
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback a -> TerminalHyperlinkHoverUriChangedCallback
wrapped
wrapped'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
wrapped'
connectSignalFunPtr obj "hyperlink-hover-uri-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalHyperlinkHoverUriChangedSignalInfo
instance SignalInfo TerminalHyperlinkHoverUriChangedSignalInfo where
type HaskellCallbackType TerminalHyperlinkHoverUriChangedSignalInfo = TerminalHyperlinkHoverUriChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalHyperlinkHoverUriChangedCallback cb
cb'' <- mk_TerminalHyperlinkHoverUriChangedCallback cb'
connectSignalFunPtr obj "hyperlink-hover-uri-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::hyperlink-hover-uri-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:hyperlinkHoverUriChanged"})
#endif
{-# DEPRECATED TerminalIconTitleChangedCallback ["(Since version 0.54)","This signal is never emitted."] #-}
type TerminalIconTitleChangedCallback =
IO ()
type C_TerminalIconTitleChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIconTitleChangedCallback :: C_TerminalIconTitleChangedCallback -> IO (FunPtr C_TerminalIconTitleChangedCallback)
wrap_TerminalIconTitleChangedCallback ::
GObject a => (a -> TerminalIconTitleChangedCallback) ->
C_TerminalIconTitleChangedCallback
wrap_TerminalIconTitleChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalIconTitleChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIconTitleChangedCallback) -> m SignalHandlerId
onTerminalIconTitleChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalIconTitleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "icon-title-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalIconTitleChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIconTitleChangedCallback) -> m SignalHandlerId
afterTerminalIconTitleChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalIconTitleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "icon-title-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalIconTitleChangedSignalInfo
instance SignalInfo TerminalIconTitleChangedSignalInfo where
type HaskellCallbackType TerminalIconTitleChangedSignalInfo = TerminalIconTitleChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalIconTitleChangedCallback cb
cb'' <- mk_TerminalIconTitleChangedCallback cb'
connectSignalFunPtr obj "icon-title-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::icon-title-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:iconTitleChanged"})
#endif
{-# DEPRECATED TerminalIconifyWindowCallback ["(Since version 0.60)"] #-}
type TerminalIconifyWindowCallback =
IO ()
type C_TerminalIconifyWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIconifyWindowCallback :: C_TerminalIconifyWindowCallback -> IO (FunPtr C_TerminalIconifyWindowCallback)
wrap_TerminalIconifyWindowCallback ::
GObject a => (a -> TerminalIconifyWindowCallback) ->
C_TerminalIconifyWindowCallback
wrap_TerminalIconifyWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalIconifyWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIconifyWindowCallback) -> m SignalHandlerId
onTerminalIconifyWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalIconifyWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "iconify-window" wrapped'' SignalConnectBefore Nothing
afterTerminalIconifyWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIconifyWindowCallback) -> m SignalHandlerId
afterTerminalIconifyWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalIconifyWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "iconify-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalIconifyWindowSignalInfo
instance SignalInfo TerminalIconifyWindowSignalInfo where
type HaskellCallbackType TerminalIconifyWindowSignalInfo = TerminalIconifyWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalIconifyWindowCallback cb
cb'' <- mk_TerminalIconifyWindowCallback cb'
connectSignalFunPtr obj "iconify-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::iconify-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:iconifyWindow"})
#endif
type TerminalIncreaseFontSizeCallback =
IO ()
type C_TerminalIncreaseFontSizeCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIncreaseFontSizeCallback :: C_TerminalIncreaseFontSizeCallback -> IO (FunPtr C_TerminalIncreaseFontSizeCallback)
wrap_TerminalIncreaseFontSizeCallback ::
GObject a => (a -> TerminalIncreaseFontSizeCallback) ->
C_TerminalIncreaseFontSizeCallback
wrap_TerminalIncreaseFontSizeCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalIncreaseFontSize :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIncreaseFontSizeCallback) -> m SignalHandlerId
onTerminalIncreaseFontSize :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalIncreaseFontSize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "increase-font-size" wrapped'' SignalConnectBefore Nothing
afterTerminalIncreaseFontSize :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalIncreaseFontSizeCallback) -> m SignalHandlerId
afterTerminalIncreaseFontSize :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalIncreaseFontSize a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "increase-font-size" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalIncreaseFontSizeSignalInfo
instance SignalInfo TerminalIncreaseFontSizeSignalInfo where
type HaskellCallbackType TerminalIncreaseFontSizeSignalInfo = TerminalIncreaseFontSizeCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalIncreaseFontSizeCallback cb
cb'' <- mk_TerminalIncreaseFontSizeCallback cb'
connectSignalFunPtr obj "increase-font-size" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::increase-font-size"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:increaseFontSize"})
#endif
{-# DEPRECATED TerminalLowerWindowCallback ["(Since version 0.60)"] #-}
type TerminalLowerWindowCallback =
IO ()
type C_TerminalLowerWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalLowerWindowCallback :: C_TerminalLowerWindowCallback -> IO (FunPtr C_TerminalLowerWindowCallback)
wrap_TerminalLowerWindowCallback ::
GObject a => (a -> TerminalLowerWindowCallback) ->
C_TerminalLowerWindowCallback
wrap_TerminalLowerWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalLowerWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalLowerWindowCallback) -> m SignalHandlerId
onTerminalLowerWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalLowerWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "lower-window" wrapped'' SignalConnectBefore Nothing
afterTerminalLowerWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalLowerWindowCallback) -> m SignalHandlerId
afterTerminalLowerWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalLowerWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "lower-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalLowerWindowSignalInfo
instance SignalInfo TerminalLowerWindowSignalInfo where
type HaskellCallbackType TerminalLowerWindowSignalInfo = TerminalLowerWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalLowerWindowCallback cb
cb'' <- mk_TerminalLowerWindowCallback cb'
connectSignalFunPtr obj "lower-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::lower-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:lowerWindow"})
#endif
{-# DEPRECATED TerminalMaximizeWindowCallback ["(Since version 0.60)"] #-}
type TerminalMaximizeWindowCallback =
IO ()
type C_TerminalMaximizeWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalMaximizeWindowCallback :: C_TerminalMaximizeWindowCallback -> IO (FunPtr C_TerminalMaximizeWindowCallback)
wrap_TerminalMaximizeWindowCallback ::
GObject a => (a -> TerminalMaximizeWindowCallback) ->
C_TerminalMaximizeWindowCallback
wrap_TerminalMaximizeWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalMaximizeWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalMaximizeWindowCallback) -> m SignalHandlerId
onTerminalMaximizeWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalMaximizeWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "maximize-window" wrapped'' SignalConnectBefore Nothing
afterTerminalMaximizeWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalMaximizeWindowCallback) -> m SignalHandlerId
afterTerminalMaximizeWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalMaximizeWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "maximize-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalMaximizeWindowSignalInfo
instance SignalInfo TerminalMaximizeWindowSignalInfo where
type HaskellCallbackType TerminalMaximizeWindowSignalInfo = TerminalMaximizeWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalMaximizeWindowCallback cb
cb'' <- mk_TerminalMaximizeWindowCallback cb'
connectSignalFunPtr obj "maximize-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::maximize-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:maximizeWindow"})
#endif
{-# DEPRECATED TerminalMoveWindowCallback ["(Since version 0.60)"] #-}
type TerminalMoveWindowCallback =
Word32
-> Word32
-> IO ()
type C_TerminalMoveWindowCallback =
Ptr Terminal ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalMoveWindowCallback :: C_TerminalMoveWindowCallback -> IO (FunPtr C_TerminalMoveWindowCallback)
wrap_TerminalMoveWindowCallback ::
GObject a => (a -> TerminalMoveWindowCallback) ->
C_TerminalMoveWindowCallback
wrap_TerminalMoveWindowCallback :: forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback a -> TerminalCharSizeChangedCallback
gi'cb Ptr Terminal
gi'selfPtr Word32
x Word32
y Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalCharSizeChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Word32
x Word32
y
onTerminalMoveWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalMoveWindowCallback) -> m SignalHandlerId
onTerminalMoveWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
onTerminalMoveWindow a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "move-window" wrapped'' SignalConnectBefore Nothing
afterTerminalMoveWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalMoveWindowCallback) -> m SignalHandlerId
afterTerminalMoveWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
afterTerminalMoveWindow a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "move-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalMoveWindowSignalInfo
instance SignalInfo TerminalMoveWindowSignalInfo where
type HaskellCallbackType TerminalMoveWindowSignalInfo = TerminalMoveWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalMoveWindowCallback cb
cb'' <- mk_TerminalMoveWindowCallback cb'
connectSignalFunPtr obj "move-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::move-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:moveWindow"})
#endif
type TerminalPasteClipboardCallback =
IO ()
type C_TerminalPasteClipboardCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalPasteClipboardCallback :: C_TerminalPasteClipboardCallback -> IO (FunPtr C_TerminalPasteClipboardCallback)
wrap_TerminalPasteClipboardCallback ::
GObject a => (a -> TerminalPasteClipboardCallback) ->
C_TerminalPasteClipboardCallback
wrap_TerminalPasteClipboardCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalPasteClipboard :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalPasteClipboardCallback) -> m SignalHandlerId
onTerminalPasteClipboard :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalPasteClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "paste-clipboard" wrapped'' SignalConnectBefore Nothing
afterTerminalPasteClipboard :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalPasteClipboardCallback) -> m SignalHandlerId
afterTerminalPasteClipboard :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalPasteClipboard a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "paste-clipboard" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalPasteClipboardSignalInfo
instance SignalInfo TerminalPasteClipboardSignalInfo where
type HaskellCallbackType TerminalPasteClipboardSignalInfo = TerminalPasteClipboardCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalPasteClipboardCallback cb
cb'' <- mk_TerminalPasteClipboardCallback cb'
connectSignalFunPtr obj "paste-clipboard" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::paste-clipboard"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:pasteClipboard"})
#endif
{-# DEPRECATED TerminalRaiseWindowCallback ["(Since version 0.60)"] #-}
type TerminalRaiseWindowCallback =
IO ()
type C_TerminalRaiseWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRaiseWindowCallback :: C_TerminalRaiseWindowCallback -> IO (FunPtr C_TerminalRaiseWindowCallback)
wrap_TerminalRaiseWindowCallback ::
GObject a => (a -> TerminalRaiseWindowCallback) ->
C_TerminalRaiseWindowCallback
wrap_TerminalRaiseWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalRaiseWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRaiseWindowCallback) -> m SignalHandlerId
onTerminalRaiseWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalRaiseWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "raise-window" wrapped'' SignalConnectBefore Nothing
afterTerminalRaiseWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRaiseWindowCallback) -> m SignalHandlerId
afterTerminalRaiseWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalRaiseWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "raise-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalRaiseWindowSignalInfo
instance SignalInfo TerminalRaiseWindowSignalInfo where
type HaskellCallbackType TerminalRaiseWindowSignalInfo = TerminalRaiseWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalRaiseWindowCallback cb
cb'' <- mk_TerminalRaiseWindowCallback cb'
connectSignalFunPtr obj "raise-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::raise-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:raiseWindow"})
#endif
{-# DEPRECATED TerminalRefreshWindowCallback ["(Since version 0.60)"] #-}
type TerminalRefreshWindowCallback =
IO ()
type C_TerminalRefreshWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRefreshWindowCallback :: C_TerminalRefreshWindowCallback -> IO (FunPtr C_TerminalRefreshWindowCallback)
wrap_TerminalRefreshWindowCallback ::
GObject a => (a -> TerminalRefreshWindowCallback) ->
C_TerminalRefreshWindowCallback
wrap_TerminalRefreshWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalRefreshWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRefreshWindowCallback) -> m SignalHandlerId
onTerminalRefreshWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalRefreshWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "refresh-window" wrapped'' SignalConnectBefore Nothing
afterTerminalRefreshWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRefreshWindowCallback) -> m SignalHandlerId
afterTerminalRefreshWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalRefreshWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "refresh-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalRefreshWindowSignalInfo
instance SignalInfo TerminalRefreshWindowSignalInfo where
type HaskellCallbackType TerminalRefreshWindowSignalInfo = TerminalRefreshWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalRefreshWindowCallback cb
cb'' <- mk_TerminalRefreshWindowCallback cb'
connectSignalFunPtr obj "refresh-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::refresh-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:refreshWindow"})
#endif
type TerminalResizeWindowCallback =
Word32
-> Word32
-> IO ()
type C_TerminalResizeWindowCallback =
Ptr Terminal ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalResizeWindowCallback :: C_TerminalResizeWindowCallback -> IO (FunPtr C_TerminalResizeWindowCallback)
wrap_TerminalResizeWindowCallback ::
GObject a => (a -> TerminalResizeWindowCallback) ->
C_TerminalResizeWindowCallback
wrap_TerminalResizeWindowCallback :: forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback a -> TerminalCharSizeChangedCallback
gi'cb Ptr Terminal
gi'selfPtr Word32
width Word32
height Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalCharSizeChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Word32
width Word32
height
onTerminalResizeWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalResizeWindowCallback) -> m SignalHandlerId
onTerminalResizeWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
onTerminalResizeWindow a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "resize-window" wrapped'' SignalConnectBefore Nothing
afterTerminalResizeWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalResizeWindowCallback) -> m SignalHandlerId
afterTerminalResizeWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalCharSizeChangedCallback)
-> m SignalHandlerId
afterTerminalResizeWindow a
obj (?self::a) => TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalCharSizeChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalCharSizeChangedCallback
TerminalCharSizeChangedCallback
cb
let wrapped' :: C_TerminalCharSizeChangedCallback
wrapped' = (a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
forall a.
GObject a =>
(a -> TerminalCharSizeChangedCallback)
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback a -> TerminalCharSizeChangedCallback
wrapped
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
connectSignalFunPtr obj "resize-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalResizeWindowSignalInfo
instance SignalInfo TerminalResizeWindowSignalInfo where
type HaskellCallbackType TerminalResizeWindowSignalInfo = TerminalResizeWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalResizeWindowCallback cb
cb'' <- mk_TerminalResizeWindowCallback cb'
connectSignalFunPtr obj "resize-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::resize-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:resizeWindow"})
#endif
{-# DEPRECATED TerminalRestoreWindowCallback ["(Since version 0.60)"] #-}
type TerminalRestoreWindowCallback =
IO ()
type C_TerminalRestoreWindowCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRestoreWindowCallback :: C_TerminalRestoreWindowCallback -> IO (FunPtr C_TerminalRestoreWindowCallback)
wrap_TerminalRestoreWindowCallback ::
GObject a => (a -> TerminalRestoreWindowCallback) ->
C_TerminalRestoreWindowCallback
wrap_TerminalRestoreWindowCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalRestoreWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRestoreWindowCallback) -> m SignalHandlerId
onTerminalRestoreWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalRestoreWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "restore-window" wrapped'' SignalConnectBefore Nothing
afterTerminalRestoreWindow :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalRestoreWindowCallback) -> m SignalHandlerId
afterTerminalRestoreWindow :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalRestoreWindow a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "restore-window" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalRestoreWindowSignalInfo
instance SignalInfo TerminalRestoreWindowSignalInfo where
type HaskellCallbackType TerminalRestoreWindowSignalInfo = TerminalRestoreWindowCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalRestoreWindowCallback cb
cb'' <- mk_TerminalRestoreWindowCallback cb'
connectSignalFunPtr obj "restore-window" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::restore-window"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:restoreWindow"})
#endif
type TerminalSelectionChangedCallback =
IO ()
type C_TerminalSelectionChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalSelectionChangedCallback :: C_TerminalSelectionChangedCallback -> IO (FunPtr C_TerminalSelectionChangedCallback)
wrap_TerminalSelectionChangedCallback ::
GObject a => (a -> TerminalSelectionChangedCallback) ->
C_TerminalSelectionChangedCallback
wrap_TerminalSelectionChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalSelectionChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalSelectionChangedCallback) -> m SignalHandlerId
onTerminalSelectionChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalSelectionChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "selection-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalSelectionChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalSelectionChangedCallback) -> m SignalHandlerId
afterTerminalSelectionChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalSelectionChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "selection-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalSelectionChangedSignalInfo
instance SignalInfo TerminalSelectionChangedSignalInfo where
type HaskellCallbackType TerminalSelectionChangedSignalInfo = TerminalSelectionChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalSelectionChangedCallback cb
cb'' <- mk_TerminalSelectionChangedCallback cb'
connectSignalFunPtr obj "selection-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::selection-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:selectionChanged"})
#endif
type =
Maybe Vte.EventContext.EventContext
-> IO ()
type =
Ptr Terminal ->
Ptr Vte.EventContext.EventContext ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
:: C_TerminalSetupContextMenuCallback -> IO (FunPtr C_TerminalSetupContextMenuCallback)
wrap_TerminalSetupContextMenuCallback ::
GObject a => (a -> TerminalSetupContextMenuCallback) ->
C_TerminalSetupContextMenuCallback
a -> TerminalSetupContextMenuCallback
gi'cb Ptr Terminal
gi'selfPtr Ptr EventContext
context Ptr ()
_ = do
maybeContext <-
if Ptr EventContext
context Ptr EventContext -> Ptr EventContext -> Bool
forall a. Eq a => a -> a -> Bool
== Ptr EventContext
forall a. Ptr a
FP.nullPtr
then Maybe EventContext -> IO (Maybe EventContext)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe EventContext
forall a. Maybe a
Nothing
else do
context' <- ((ManagedPtr EventContext -> EventContext)
-> Ptr EventContext -> IO EventContext
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr EventContext -> EventContext
Vte.EventContext.EventContext) Ptr EventContext
context
return $ Just context'
B.ManagedPtr.withNewObject gi'selfPtr $ \Terminal
gi'self -> a -> TerminalSetupContextMenuCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Maybe EventContext
maybeContext
onTerminalSetupContextMenu :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalSetupContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => TerminalSetupContextMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalSetupContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalSetupContextMenuCallback
TerminalSetupContextMenuCallback
cb
let wrapped' :: C_TerminalSetupContextMenuCallback
wrapped' = (a -> TerminalSetupContextMenuCallback)
-> C_TerminalSetupContextMenuCallback
forall a.
GObject a =>
(a -> TerminalSetupContextMenuCallback)
-> C_TerminalSetupContextMenuCallback
wrap_TerminalSetupContextMenuCallback a -> TerminalSetupContextMenuCallback
wrapped
wrapped'' <- C_TerminalSetupContextMenuCallback
-> IO (FunPtr C_TerminalSetupContextMenuCallback)
mk_TerminalSetupContextMenuCallback C_TerminalSetupContextMenuCallback
wrapped'
connectSignalFunPtr obj "setup-context-menu" wrapped'' SignalConnectBefore Nothing
afterTerminalSetupContextMenu :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalSetupContextMenuCallback) -> m SignalHandlerId
a
obj (?self::a) => TerminalSetupContextMenuCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalSetupContextMenuCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalSetupContextMenuCallback
TerminalSetupContextMenuCallback
cb
let wrapped' :: C_TerminalSetupContextMenuCallback
wrapped' = (a -> TerminalSetupContextMenuCallback)
-> C_TerminalSetupContextMenuCallback
forall a.
GObject a =>
(a -> TerminalSetupContextMenuCallback)
-> C_TerminalSetupContextMenuCallback
wrap_TerminalSetupContextMenuCallback a -> TerminalSetupContextMenuCallback
wrapped
wrapped'' <- C_TerminalSetupContextMenuCallback
-> IO (FunPtr C_TerminalSetupContextMenuCallback)
mk_TerminalSetupContextMenuCallback C_TerminalSetupContextMenuCallback
wrapped'
connectSignalFunPtr obj "setup-context-menu" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalSetupContextMenuSignalInfo
instance SignalInfo TerminalSetupContextMenuSignalInfo where
type HaskellCallbackType TerminalSetupContextMenuSignalInfo = TerminalSetupContextMenuCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalSetupContextMenuCallback cb
cb'' <- mk_TerminalSetupContextMenuCallback cb'
connectSignalFunPtr obj "setup-context-menu" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::setup-context-menu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:setupContextMenu"})
#endif
type TerminalTermpropChangedCallback =
T.Text
-> IO ()
type C_TerminalTermpropChangedCallback =
Ptr Terminal ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTermpropChangedCallback :: C_TerminalTermpropChangedCallback -> IO (FunPtr C_TerminalTermpropChangedCallback)
wrap_TerminalTermpropChangedCallback ::
GObject a => (a -> TerminalTermpropChangedCallback) ->
C_TerminalTermpropChangedCallback
wrap_TerminalTermpropChangedCallback :: forall a.
GObject a =>
(a -> TerminalTermpropChangedCallback)
-> C_TerminalTermpropChangedCallback
wrap_TerminalTermpropChangedCallback a -> TerminalTermpropChangedCallback
gi'cb Ptr Terminal
gi'selfPtr CString
name Ptr ()
_ = do
name' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
name
B.ManagedPtr.withNewObject gi'selfPtr $ \Terminal
gi'self -> a -> TerminalTermpropChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Text
name'
onTerminalTermpropChanged :: (IsTerminal a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => TerminalTermpropChangedCallback) -> m SignalHandlerId
onTerminalTermpropChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => TerminalTermpropChangedCallback)
-> m SignalHandlerId
onTerminalTermpropChanged a
obj Maybe Text
detail (?self::a) => TerminalTermpropChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalTermpropChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalTermpropChangedCallback
TerminalTermpropChangedCallback
cb
let wrapped' :: C_TerminalTermpropChangedCallback
wrapped' = (a -> TerminalTermpropChangedCallback)
-> C_TerminalTermpropChangedCallback
forall a.
GObject a =>
(a -> TerminalTermpropChangedCallback)
-> C_TerminalTermpropChangedCallback
wrap_TerminalTermpropChangedCallback a -> TerminalTermpropChangedCallback
wrapped
wrapped'' <- C_TerminalTermpropChangedCallback
-> IO (FunPtr C_TerminalTermpropChangedCallback)
mk_TerminalTermpropChangedCallback C_TerminalTermpropChangedCallback
wrapped'
connectSignalFunPtr obj "termprop-changed" wrapped'' SignalConnectBefore detail
afterTerminalTermpropChanged :: (IsTerminal a, MonadIO m) => a -> P.Maybe T.Text -> ((?self :: a) => TerminalTermpropChangedCallback) -> m SignalHandlerId
afterTerminalTermpropChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> Maybe Text
-> ((?self::a) => TerminalTermpropChangedCallback)
-> m SignalHandlerId
afterTerminalTermpropChanged a
obj Maybe Text
detail (?self::a) => TerminalTermpropChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalTermpropChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalTermpropChangedCallback
TerminalTermpropChangedCallback
cb
let wrapped' :: C_TerminalTermpropChangedCallback
wrapped' = (a -> TerminalTermpropChangedCallback)
-> C_TerminalTermpropChangedCallback
forall a.
GObject a =>
(a -> TerminalTermpropChangedCallback)
-> C_TerminalTermpropChangedCallback
wrap_TerminalTermpropChangedCallback a -> TerminalTermpropChangedCallback
wrapped
wrapped'' <- C_TerminalTermpropChangedCallback
-> IO (FunPtr C_TerminalTermpropChangedCallback)
mk_TerminalTermpropChangedCallback C_TerminalTermpropChangedCallback
wrapped'
connectSignalFunPtr obj "termprop-changed" wrapped'' SignalConnectAfter detail
#if defined(ENABLE_OVERLOADING)
data TerminalTermpropChangedSignalInfo
instance SignalInfo TerminalTermpropChangedSignalInfo where
type HaskellCallbackType TerminalTermpropChangedSignalInfo = TerminalTermpropChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTermpropChangedCallback cb
cb'' <- mk_TerminalTermpropChangedCallback cb'
connectSignalFunPtr obj "termprop-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::termprop-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:termpropChanged"})
#endif
type TerminalTermpropsChangedCallback =
[Int32]
-> IO Bool
type C_TerminalTermpropsChangedCallback =
Ptr Terminal ->
Ptr Int32 ->
Int32 ->
Ptr () ->
IO CInt
foreign import ccall "wrapper"
mk_TerminalTermpropsChangedCallback :: C_TerminalTermpropsChangedCallback -> IO (FunPtr C_TerminalTermpropsChangedCallback)
wrap_TerminalTermpropsChangedCallback ::
GObject a => (a -> TerminalTermpropsChangedCallback) ->
C_TerminalTermpropsChangedCallback
wrap_TerminalTermpropsChangedCallback :: forall a.
GObject a =>
(a -> TerminalTermpropsChangedCallback)
-> C_TerminalTermpropsChangedCallback
wrap_TerminalTermpropsChangedCallback a -> TerminalTermpropsChangedCallback
gi'cb Ptr Terminal
gi'selfPtr Ptr Int32
props Int32
nProps Ptr ()
_ = do
props' <- (Int32 -> Ptr Int32 -> IO [Int32]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength Int32
nProps) Ptr Int32
props
result <- B.ManagedPtr.withNewObject gi'selfPtr $ \Terminal
gi'self -> a -> TerminalTermpropsChangedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) [Int32]
props'
let result' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
result
return result'
onTerminalTermpropsChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTermpropsChangedCallback) -> m SignalHandlerId
onTerminalTermpropsChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalTermpropsChangedCallback)
-> m SignalHandlerId
onTerminalTermpropsChanged a
obj (?self::a) => TerminalTermpropsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalTermpropsChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalTermpropsChangedCallback
TerminalTermpropsChangedCallback
cb
let wrapped' :: C_TerminalTermpropsChangedCallback
wrapped' = (a -> TerminalTermpropsChangedCallback)
-> C_TerminalTermpropsChangedCallback
forall a.
GObject a =>
(a -> TerminalTermpropsChangedCallback)
-> C_TerminalTermpropsChangedCallback
wrap_TerminalTermpropsChangedCallback a -> TerminalTermpropsChangedCallback
wrapped
wrapped'' <- C_TerminalTermpropsChangedCallback
-> IO (FunPtr C_TerminalTermpropsChangedCallback)
mk_TerminalTermpropsChangedCallback C_TerminalTermpropsChangedCallback
wrapped'
connectSignalFunPtr obj "termprops-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalTermpropsChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTermpropsChangedCallback) -> m SignalHandlerId
afterTerminalTermpropsChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalTermpropsChangedCallback)
-> m SignalHandlerId
afterTerminalTermpropsChanged a
obj (?self::a) => TerminalTermpropsChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalTermpropsChangedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalTermpropsChangedCallback
TerminalTermpropsChangedCallback
cb
let wrapped' :: C_TerminalTermpropsChangedCallback
wrapped' = (a -> TerminalTermpropsChangedCallback)
-> C_TerminalTermpropsChangedCallback
forall a.
GObject a =>
(a -> TerminalTermpropsChangedCallback)
-> C_TerminalTermpropsChangedCallback
wrap_TerminalTermpropsChangedCallback a -> TerminalTermpropsChangedCallback
wrapped
wrapped'' <- C_TerminalTermpropsChangedCallback
-> IO (FunPtr C_TerminalTermpropsChangedCallback)
mk_TerminalTermpropsChangedCallback C_TerminalTermpropsChangedCallback
wrapped'
connectSignalFunPtr obj "termprops-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalTermpropsChangedSignalInfo
instance SignalInfo TerminalTermpropsChangedSignalInfo where
type HaskellCallbackType TerminalTermpropsChangedSignalInfo = TerminalTermpropsChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTermpropsChangedCallback cb
cb'' <- mk_TerminalTermpropsChangedCallback cb'
connectSignalFunPtr obj "termprops-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::termprops-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:termpropsChanged"})
#endif
{-# DEPRECATED TerminalTextDeletedCallback ["(Since version 0.66)","This signal is never emitted."] #-}
type TerminalTextDeletedCallback =
IO ()
type C_TerminalTextDeletedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextDeletedCallback :: C_TerminalTextDeletedCallback -> IO (FunPtr C_TerminalTextDeletedCallback)
wrap_TerminalTextDeletedCallback ::
GObject a => (a -> TerminalTextDeletedCallback) ->
C_TerminalTextDeletedCallback
wrap_TerminalTextDeletedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalTextDeleted :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextDeletedCallback) -> m SignalHandlerId
onTerminalTextDeleted :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalTextDeleted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-deleted" wrapped'' SignalConnectBefore Nothing
afterTerminalTextDeleted :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextDeletedCallback) -> m SignalHandlerId
afterTerminalTextDeleted :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalTextDeleted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-deleted" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalTextDeletedSignalInfo
instance SignalInfo TerminalTextDeletedSignalInfo where
type HaskellCallbackType TerminalTextDeletedSignalInfo = TerminalTextDeletedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTextDeletedCallback cb
cb'' <- mk_TerminalTextDeletedCallback cb'
connectSignalFunPtr obj "text-deleted" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::text-deleted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:textDeleted"})
#endif
{-# DEPRECATED TerminalTextInsertedCallback ["(Since version 0.66)","This signal is never emitted."] #-}
type TerminalTextInsertedCallback =
IO ()
type C_TerminalTextInsertedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextInsertedCallback :: C_TerminalTextInsertedCallback -> IO (FunPtr C_TerminalTextInsertedCallback)
wrap_TerminalTextInsertedCallback ::
GObject a => (a -> TerminalTextInsertedCallback) ->
C_TerminalTextInsertedCallback
wrap_TerminalTextInsertedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalTextInserted :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextInsertedCallback) -> m SignalHandlerId
onTerminalTextInserted :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalTextInserted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-inserted" wrapped'' SignalConnectBefore Nothing
afterTerminalTextInserted :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextInsertedCallback) -> m SignalHandlerId
afterTerminalTextInserted :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalTextInserted a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-inserted" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalTextInsertedSignalInfo
instance SignalInfo TerminalTextInsertedSignalInfo where
type HaskellCallbackType TerminalTextInsertedSignalInfo = TerminalTextInsertedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTextInsertedCallback cb
cb'' <- mk_TerminalTextInsertedCallback cb'
connectSignalFunPtr obj "text-inserted" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::text-inserted"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:textInserted"})
#endif
{-# DEPRECATED TerminalTextModifiedCallback ["(Since version 0.66)","This signal is never emitted."] #-}
type TerminalTextModifiedCallback =
IO ()
type C_TerminalTextModifiedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextModifiedCallback :: C_TerminalTextModifiedCallback -> IO (FunPtr C_TerminalTextModifiedCallback)
wrap_TerminalTextModifiedCallback ::
GObject a => (a -> TerminalTextModifiedCallback) ->
C_TerminalTextModifiedCallback
wrap_TerminalTextModifiedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalTextModified :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextModifiedCallback) -> m SignalHandlerId
onTerminalTextModified :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalTextModified a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-modified" wrapped'' SignalConnectBefore Nothing
afterTerminalTextModified :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextModifiedCallback) -> m SignalHandlerId
afterTerminalTextModified :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalTextModified a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "text-modified" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalTextModifiedSignalInfo
instance SignalInfo TerminalTextModifiedSignalInfo where
type HaskellCallbackType TerminalTextModifiedSignalInfo = TerminalTextModifiedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTextModifiedCallback cb
cb'' <- mk_TerminalTextModifiedCallback cb'
connectSignalFunPtr obj "text-modified" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::text-modified"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:textModified"})
#endif
{-# DEPRECATED TerminalTextScrolledCallback ["(Since version 0.66)","This signal is never emitted."] #-}
type TerminalTextScrolledCallback =
Int32
-> IO ()
type C_TerminalTextScrolledCallback =
Ptr Terminal ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextScrolledCallback :: C_TerminalTextScrolledCallback -> IO (FunPtr C_TerminalTextScrolledCallback)
wrap_TerminalTextScrolledCallback ::
GObject a => (a -> TerminalTextScrolledCallback) ->
C_TerminalTextScrolledCallback
wrap_TerminalTextScrolledCallback :: forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback a -> TerminalChildExitedCallback
gi'cb Ptr Terminal
gi'selfPtr Int32
delta Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> TerminalChildExitedCallback
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self) Int32
delta
onTerminalTextScrolled :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextScrolledCallback) -> m SignalHandlerId
onTerminalTextScrolled :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalChildExitedCallback) -> m SignalHandlerId
onTerminalTextScrolled a
obj (?self::a) => TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalChildExitedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalChildExitedCallback
TerminalChildExitedCallback
cb
let wrapped' :: C_TerminalChildExitedCallback
wrapped' = (a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback a -> TerminalChildExitedCallback
wrapped
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
wrapped'
connectSignalFunPtr obj "text-scrolled" wrapped'' SignalConnectBefore Nothing
afterTerminalTextScrolled :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalTextScrolledCallback) -> m SignalHandlerId
afterTerminalTextScrolled :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a
-> ((?self::a) => TerminalChildExitedCallback) -> m SignalHandlerId
afterTerminalTextScrolled a
obj (?self::a) => TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> TerminalChildExitedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => TerminalChildExitedCallback
TerminalChildExitedCallback
cb
let wrapped' :: C_TerminalChildExitedCallback
wrapped' = (a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
forall a.
GObject a =>
(a -> TerminalChildExitedCallback) -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback a -> TerminalChildExitedCallback
wrapped
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
wrapped'
connectSignalFunPtr obj "text-scrolled" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalTextScrolledSignalInfo
instance SignalInfo TerminalTextScrolledSignalInfo where
type HaskellCallbackType TerminalTextScrolledSignalInfo = TerminalTextScrolledCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalTextScrolledCallback cb
cb'' <- mk_TerminalTextScrolledCallback cb'
connectSignalFunPtr obj "text-scrolled" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::text-scrolled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:textScrolled"})
#endif
{-# DEPRECATED TerminalWindowTitleChangedCallback ["(Since version 0.78)","Use the t'GI.Vte.Objects.Terminal.Terminal':@/termprop-changed/@ signal"," for the 'GI.Vte.Constants.TERMPROP_XTERM_TITLE' termprop."] #-}
type TerminalWindowTitleChangedCallback =
IO ()
type C_TerminalWindowTitleChangedCallback =
Ptr Terminal ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalWindowTitleChangedCallback :: C_TerminalWindowTitleChangedCallback -> IO (FunPtr C_TerminalWindowTitleChangedCallback)
wrap_TerminalWindowTitleChangedCallback ::
GObject a => (a -> TerminalWindowTitleChangedCallback) ->
C_TerminalWindowTitleChangedCallback
wrap_TerminalWindowTitleChangedCallback :: forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback a -> IO ()
gi'cb Ptr Terminal
gi'selfPtr Ptr ()
_ = do
Ptr Terminal -> (Terminal -> IO ()) -> IO ()
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO ()) -> IO ()) -> (Terminal -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Terminal
gi'self -> a -> IO ()
gi'cb (Terminal -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Terminal
gi'self)
onTerminalWindowTitleChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalWindowTitleChangedCallback) -> m SignalHandlerId
onTerminalWindowTitleChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onTerminalWindowTitleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "window-title-changed" wrapped'' SignalConnectBefore Nothing
afterTerminalWindowTitleChanged :: (IsTerminal a, MonadIO m) => a -> ((?self :: a) => TerminalWindowTitleChangedCallback) -> m SignalHandlerId
afterTerminalWindowTitleChanged :: forall a (m :: * -> *).
(IsTerminal a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterTerminalWindowTitleChanged a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_TerminalBellCallback
wrapped' = (a -> IO ()) -> C_TerminalBellCallback
forall a. GObject a => (a -> IO ()) -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback a -> IO ()
wrapped
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
wrapped'
connectSignalFunPtr obj "window-title-changed" wrapped'' SignalConnectAfter Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalWindowTitleChangedSignalInfo
instance SignalInfo TerminalWindowTitleChangedSignalInfo where
type HaskellCallbackType TerminalWindowTitleChangedSignalInfo = TerminalWindowTitleChangedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalWindowTitleChangedCallback cb
cb'' <- mk_TerminalWindowTitleChangedCallback cb'
connectSignalFunPtr obj "window-title-changed" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal::window-title-changed"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:signal:windowTitleChanged"})
#endif
getTerminalAllowBold :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowBold :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowBold o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-bold"
setTerminalAllowBold :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAllowBold :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalAllowBold o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-bold" Bool
val
constructTerminalAllowBold :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAllowBold :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalAllowBold Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-bold" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalAllowBoldPropertyInfo
instance AttrInfo TerminalAllowBoldPropertyInfo where
type AttrAllowedOps TerminalAllowBoldPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalAllowBoldPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalAllowBoldPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalAllowBoldPropertyInfo = (~) Bool
type AttrTransferType TerminalAllowBoldPropertyInfo = Bool
type AttrGetType TerminalAllowBoldPropertyInfo = Bool
type AttrLabel TerminalAllowBoldPropertyInfo = "allow-bold"
type AttrOrigin TerminalAllowBoldPropertyInfo = Terminal
attrGet = getTerminalAllowBold
attrSet = setTerminalAllowBold
attrPut = setTerminalAllowBold
attrTransfer _ v = do
return v
attrConstruct = constructTerminalAllowBold
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.allowBold"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:allowBold"
})
#endif
getTerminalAllowHyperlink :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowHyperlink :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowHyperlink o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"allow-hyperlink"
setTerminalAllowHyperlink :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAllowHyperlink :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalAllowHyperlink o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-hyperlink" Bool
val
constructTerminalAllowHyperlink :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAllowHyperlink :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalAllowHyperlink Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"allow-hyperlink" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalAllowHyperlinkPropertyInfo
instance AttrInfo TerminalAllowHyperlinkPropertyInfo where
type AttrAllowedOps TerminalAllowHyperlinkPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalAllowHyperlinkPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalAllowHyperlinkPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalAllowHyperlinkPropertyInfo = (~) Bool
type AttrTransferType TerminalAllowHyperlinkPropertyInfo = Bool
type AttrGetType TerminalAllowHyperlinkPropertyInfo = Bool
type AttrLabel TerminalAllowHyperlinkPropertyInfo = "allow-hyperlink"
type AttrOrigin TerminalAllowHyperlinkPropertyInfo = Terminal
attrGet = getTerminalAllowHyperlink
attrSet = setTerminalAllowHyperlink
attrPut = setTerminalAllowHyperlink
attrTransfer _ v = do
return v
attrConstruct = constructTerminalAllowHyperlink
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.allowHyperlink"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:allowHyperlink"
})
#endif
getTerminalAudibleBell :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAudibleBell :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAudibleBell o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"audible-bell"
setTerminalAudibleBell :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAudibleBell :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalAudibleBell o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"audible-bell" Bool
val
constructTerminalAudibleBell :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAudibleBell :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalAudibleBell Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"audible-bell" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalAudibleBellPropertyInfo
instance AttrInfo TerminalAudibleBellPropertyInfo where
type AttrAllowedOps TerminalAudibleBellPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalAudibleBellPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalAudibleBellPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalAudibleBellPropertyInfo = (~) Bool
type AttrTransferType TerminalAudibleBellPropertyInfo = Bool
type AttrGetType TerminalAudibleBellPropertyInfo = Bool
type AttrLabel TerminalAudibleBellPropertyInfo = "audible-bell"
type AttrOrigin TerminalAudibleBellPropertyInfo = Terminal
attrGet = getTerminalAudibleBell
attrSet = setTerminalAudibleBell
attrPut = setTerminalAudibleBell
attrTransfer _ v = do
return v
attrConstruct = constructTerminalAudibleBell
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.audibleBell"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:audibleBell"
})
#endif
getTerminalBackspaceBinding :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.EraseBinding
getTerminalBackspaceBinding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m EraseBinding
getTerminalBackspaceBinding o
obj = IO EraseBinding -> m EraseBinding
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EraseBinding -> m EraseBinding)
-> IO EraseBinding -> m EraseBinding
forall a b. (a -> b) -> a -> b
$ o -> String -> IO EraseBinding
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"backspace-binding"
setTerminalBackspaceBinding :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.EraseBinding -> m ()
setTerminalBackspaceBinding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> EraseBinding -> m ()
setTerminalBackspaceBinding o
obj EraseBinding
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> EraseBinding -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"backspace-binding" EraseBinding
val
constructTerminalBackspaceBinding :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.EraseBinding -> m (GValueConstruct o)
constructTerminalBackspaceBinding :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
EraseBinding -> m (GValueConstruct o)
constructTerminalBackspaceBinding EraseBinding
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> EraseBinding -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"backspace-binding" EraseBinding
val
#if defined(ENABLE_OVERLOADING)
data TerminalBackspaceBindingPropertyInfo
instance AttrInfo TerminalBackspaceBindingPropertyInfo where
type AttrAllowedOps TerminalBackspaceBindingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalBackspaceBindingPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalBackspaceBindingPropertyInfo = (~) Vte.Enums.EraseBinding
type AttrTransferTypeConstraint TerminalBackspaceBindingPropertyInfo = (~) Vte.Enums.EraseBinding
type AttrTransferType TerminalBackspaceBindingPropertyInfo = Vte.Enums.EraseBinding
type AttrGetType TerminalBackspaceBindingPropertyInfo = Vte.Enums.EraseBinding
type AttrLabel TerminalBackspaceBindingPropertyInfo = "backspace-binding"
type AttrOrigin TerminalBackspaceBindingPropertyInfo = Terminal
attrGet = getTerminalBackspaceBinding
attrSet = setTerminalBackspaceBinding
attrPut = setTerminalBackspaceBinding
attrTransfer _ v = do
return v
attrConstruct = constructTerminalBackspaceBinding
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.backspaceBinding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:backspaceBinding"
})
#endif
getTerminalBoldIsBright :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalBoldIsBright :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalBoldIsBright o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"bold-is-bright"
setTerminalBoldIsBright :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalBoldIsBright :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalBoldIsBright o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"bold-is-bright" Bool
val
constructTerminalBoldIsBright :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalBoldIsBright :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalBoldIsBright Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"bold-is-bright" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalBoldIsBrightPropertyInfo
instance AttrInfo TerminalBoldIsBrightPropertyInfo where
type AttrAllowedOps TerminalBoldIsBrightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalBoldIsBrightPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalBoldIsBrightPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalBoldIsBrightPropertyInfo = (~) Bool
type AttrTransferType TerminalBoldIsBrightPropertyInfo = Bool
type AttrGetType TerminalBoldIsBrightPropertyInfo = Bool
type AttrLabel TerminalBoldIsBrightPropertyInfo = "bold-is-bright"
type AttrOrigin TerminalBoldIsBrightPropertyInfo = Terminal
attrGet = getTerminalBoldIsBright
attrSet = setTerminalBoldIsBright
attrPut = setTerminalBoldIsBright
attrTransfer _ v = do
return v
attrConstruct = constructTerminalBoldIsBright
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.boldIsBright"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:boldIsBright"
})
#endif
getTerminalCellHeightScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellHeightScale :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellHeightScale o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"cell-height-scale"
setTerminalCellHeightScale :: (MonadIO m, IsTerminal o) => o -> Double -> m ()
setTerminalCellHeightScale :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Double -> m ()
setTerminalCellHeightScale o
obj Double
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"cell-height-scale" Double
val
constructTerminalCellHeightScale :: (IsTerminal o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTerminalCellHeightScale :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTerminalCellHeightScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"cell-height-scale" Double
val
#if defined(ENABLE_OVERLOADING)
data TerminalCellHeightScalePropertyInfo
instance AttrInfo TerminalCellHeightScalePropertyInfo where
type AttrAllowedOps TerminalCellHeightScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalCellHeightScalePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCellHeightScalePropertyInfo = (~) Double
type AttrTransferTypeConstraint TerminalCellHeightScalePropertyInfo = (~) Double
type AttrTransferType TerminalCellHeightScalePropertyInfo = Double
type AttrGetType TerminalCellHeightScalePropertyInfo = Double
type AttrLabel TerminalCellHeightScalePropertyInfo = "cell-height-scale"
type AttrOrigin TerminalCellHeightScalePropertyInfo = Terminal
attrGet = getTerminalCellHeightScale
attrSet = setTerminalCellHeightScale
attrPut = setTerminalCellHeightScale
attrTransfer _ v = do
return v
attrConstruct = constructTerminalCellHeightScale
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.cellHeightScale"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:cellHeightScale"
})
#endif
getTerminalCellWidthScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellWidthScale :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellWidthScale o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"cell-width-scale"
setTerminalCellWidthScale :: (MonadIO m, IsTerminal o) => o -> Double -> m ()
setTerminalCellWidthScale :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Double -> m ()
setTerminalCellWidthScale o
obj Double
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"cell-width-scale" Double
val
constructTerminalCellWidthScale :: (IsTerminal o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTerminalCellWidthScale :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTerminalCellWidthScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"cell-width-scale" Double
val
#if defined(ENABLE_OVERLOADING)
data TerminalCellWidthScalePropertyInfo
instance AttrInfo TerminalCellWidthScalePropertyInfo where
type AttrAllowedOps TerminalCellWidthScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalCellWidthScalePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCellWidthScalePropertyInfo = (~) Double
type AttrTransferTypeConstraint TerminalCellWidthScalePropertyInfo = (~) Double
type AttrTransferType TerminalCellWidthScalePropertyInfo = Double
type AttrGetType TerminalCellWidthScalePropertyInfo = Double
type AttrLabel TerminalCellWidthScalePropertyInfo = "cell-width-scale"
type AttrOrigin TerminalCellWidthScalePropertyInfo = Terminal
attrGet = getTerminalCellWidthScale
attrSet = setTerminalCellWidthScale
attrPut = setTerminalCellWidthScale
attrTransfer _ v = do
return v
attrConstruct = constructTerminalCellWidthScale
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.cellWidthScale"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:cellWidthScale"
})
#endif
getTerminalCjkAmbiguousWidth :: (MonadIO m, IsTerminal o) => o -> m Int32
getTerminalCjkAmbiguousWidth :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Int32
getTerminalCjkAmbiguousWidth o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"cjk-ambiguous-width"
setTerminalCjkAmbiguousWidth :: (MonadIO m, IsTerminal o) => o -> Int32 -> m ()
setTerminalCjkAmbiguousWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Int32 -> m ()
setTerminalCjkAmbiguousWidth o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> TerminalChildExitedCallback
forall a. GObject a => a -> String -> TerminalChildExitedCallback
B.Properties.setObjectPropertyInt32 o
obj String
"cjk-ambiguous-width" Int32
val
constructTerminalCjkAmbiguousWidth :: (IsTerminal o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTerminalCjkAmbiguousWidth :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTerminalCjkAmbiguousWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"cjk-ambiguous-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TerminalCjkAmbiguousWidthPropertyInfo
instance AttrInfo TerminalCjkAmbiguousWidthPropertyInfo where
type AttrAllowedOps TerminalCjkAmbiguousWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalCjkAmbiguousWidthPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCjkAmbiguousWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TerminalCjkAmbiguousWidthPropertyInfo = (~) Int32
type AttrTransferType TerminalCjkAmbiguousWidthPropertyInfo = Int32
type AttrGetType TerminalCjkAmbiguousWidthPropertyInfo = Int32
type AttrLabel TerminalCjkAmbiguousWidthPropertyInfo = "cjk-ambiguous-width"
type AttrOrigin TerminalCjkAmbiguousWidthPropertyInfo = Terminal
attrGet = getTerminalCjkAmbiguousWidth
attrSet = setTerminalCjkAmbiguousWidth
attrPut = setTerminalCjkAmbiguousWidth
attrTransfer _ v = do
return v
attrConstruct = constructTerminalCjkAmbiguousWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.cjkAmbiguousWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:cjkAmbiguousWidth"
})
#endif
getTerminalContextMenu :: (MonadIO m, IsTerminal o) => o -> m (Maybe Gtk.Menu.Menu)
o
obj = IO (Maybe Menu) -> m (Maybe Menu)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Menu) -> m (Maybe Menu))
-> IO (Maybe Menu) -> m (Maybe Menu)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Menu -> Menu) -> IO (Maybe Menu)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"context-menu" ManagedPtr Menu -> Menu
Gtk.Menu.Menu
setTerminalContextMenu :: (MonadIO m, IsTerminal o, Gtk.Menu.IsMenu a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context-menu" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTerminalContextMenu :: (IsTerminal o, MIO.MonadIO m, Gtk.Menu.IsMenu a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"context-menu" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTerminalContextMenu :: (MonadIO m, IsTerminal o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Menu -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context-menu" (Maybe Menu
forall a. Maybe a
Nothing :: Maybe Gtk.Menu.Menu)
#if defined(ENABLE_OVERLOADING)
data TerminalContextMenuPropertyInfo
instance AttrInfo TerminalContextMenuPropertyInfo where
type AttrAllowedOps TerminalContextMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalContextMenuPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalContextMenuPropertyInfo = Gtk.Menu.IsMenu
type AttrTransferTypeConstraint TerminalContextMenuPropertyInfo = Gtk.Menu.IsMenu
type AttrTransferType TerminalContextMenuPropertyInfo = Gtk.Menu.Menu
type AttrGetType TerminalContextMenuPropertyInfo = (Maybe Gtk.Menu.Menu)
type AttrLabel TerminalContextMenuPropertyInfo = "context-menu"
type AttrOrigin TerminalContextMenuPropertyInfo = Terminal
attrGet = getTerminalContextMenu
attrSet = setTerminalContextMenu
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.Menu.Menu v
attrConstruct = constructTerminalContextMenu
attrClear = clearTerminalContextMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.contextMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:contextMenu"
})
#endif
getTerminalContextMenuModel :: (MonadIO m, IsTerminal o) => o -> m (Maybe Gio.MenuModel.MenuModel)
o
obj = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MenuModel -> MenuModel)
-> IO (Maybe MenuModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"context-menu-model" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setTerminalContextMenuModel :: (MonadIO m, IsTerminal o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context-menu-model" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTerminalContextMenuModel :: (IsTerminal o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"context-menu-model" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTerminalContextMenuModel :: (MonadIO m, IsTerminal o) => o -> m ()
o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe MenuModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"context-menu-model" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data TerminalContextMenuModelPropertyInfo
instance AttrInfo TerminalContextMenuModelPropertyInfo where
type AttrAllowedOps TerminalContextMenuModelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalContextMenuModelPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalContextMenuModelPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint TerminalContextMenuModelPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType TerminalContextMenuModelPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType TerminalContextMenuModelPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel TerminalContextMenuModelPropertyInfo = "context-menu-model"
type AttrOrigin TerminalContextMenuModelPropertyInfo = Terminal
attrGet = getTerminalContextMenuModel
attrSet = setTerminalContextMenuModel
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructTerminalContextMenuModel
attrClear = clearTerminalContextMenuModel
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.contextMenuModel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:contextMenuModel"
})
#endif
getTerminalCurrentDirectoryUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentDirectoryUri :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalCurrentDirectoryUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"current-directory-uri"
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentDirectoryUriPropertyInfo
instance AttrInfo TerminalCurrentDirectoryUriPropertyInfo where
type AttrAllowedOps TerminalCurrentDirectoryUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalCurrentDirectoryUriPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCurrentDirectoryUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalCurrentDirectoryUriPropertyInfo = (~) ()
type AttrTransferType TerminalCurrentDirectoryUriPropertyInfo = ()
type AttrGetType TerminalCurrentDirectoryUriPropertyInfo = (Maybe T.Text)
type AttrLabel TerminalCurrentDirectoryUriPropertyInfo = "current-directory-uri"
type AttrOrigin TerminalCurrentDirectoryUriPropertyInfo = Terminal
attrGet = getTerminalCurrentDirectoryUri
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.currentDirectoryUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:currentDirectoryUri"
})
#endif
getTerminalCurrentFileUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentFileUri :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalCurrentFileUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"current-file-uri"
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentFileUriPropertyInfo
instance AttrInfo TerminalCurrentFileUriPropertyInfo where
type AttrAllowedOps TerminalCurrentFileUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalCurrentFileUriPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCurrentFileUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalCurrentFileUriPropertyInfo = (~) ()
type AttrTransferType TerminalCurrentFileUriPropertyInfo = ()
type AttrGetType TerminalCurrentFileUriPropertyInfo = (Maybe T.Text)
type AttrLabel TerminalCurrentFileUriPropertyInfo = "current-file-uri"
type AttrOrigin TerminalCurrentFileUriPropertyInfo = Terminal
attrGet = getTerminalCurrentFileUri
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.currentFileUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:currentFileUri"
})
#endif
getTerminalCursorBlinkMode :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.CursorBlinkMode
getTerminalCursorBlinkMode :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m CursorBlinkMode
getTerminalCursorBlinkMode o
obj = IO CursorBlinkMode -> m CursorBlinkMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CursorBlinkMode -> m CursorBlinkMode)
-> IO CursorBlinkMode -> m CursorBlinkMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CursorBlinkMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"cursor-blink-mode"
setTerminalCursorBlinkMode :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.CursorBlinkMode -> m ()
setTerminalCursorBlinkMode :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> CursorBlinkMode -> m ()
setTerminalCursorBlinkMode o
obj CursorBlinkMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> CursorBlinkMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"cursor-blink-mode" CursorBlinkMode
val
constructTerminalCursorBlinkMode :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.CursorBlinkMode -> m (GValueConstruct o)
constructTerminalCursorBlinkMode :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
CursorBlinkMode -> m (GValueConstruct o)
constructTerminalCursorBlinkMode CursorBlinkMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> CursorBlinkMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"cursor-blink-mode" CursorBlinkMode
val
#if defined(ENABLE_OVERLOADING)
data TerminalCursorBlinkModePropertyInfo
instance AttrInfo TerminalCursorBlinkModePropertyInfo where
type AttrAllowedOps TerminalCursorBlinkModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalCursorBlinkModePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCursorBlinkModePropertyInfo = (~) Vte.Enums.CursorBlinkMode
type AttrTransferTypeConstraint TerminalCursorBlinkModePropertyInfo = (~) Vte.Enums.CursorBlinkMode
type AttrTransferType TerminalCursorBlinkModePropertyInfo = Vte.Enums.CursorBlinkMode
type AttrGetType TerminalCursorBlinkModePropertyInfo = Vte.Enums.CursorBlinkMode
type AttrLabel TerminalCursorBlinkModePropertyInfo = "cursor-blink-mode"
type AttrOrigin TerminalCursorBlinkModePropertyInfo = Terminal
attrGet = getTerminalCursorBlinkMode
attrSet = setTerminalCursorBlinkMode
attrPut = setTerminalCursorBlinkMode
attrTransfer _ v = do
return v
attrConstruct = constructTerminalCursorBlinkMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.cursorBlinkMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:cursorBlinkMode"
})
#endif
getTerminalCursorShape :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.CursorShape
getTerminalCursorShape :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m CursorShape
getTerminalCursorShape o
obj = IO CursorShape -> m CursorShape
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CursorShape -> m CursorShape)
-> IO CursorShape -> m CursorShape
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CursorShape
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"cursor-shape"
setTerminalCursorShape :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.CursorShape -> m ()
setTerminalCursorShape :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> CursorShape -> m ()
setTerminalCursorShape o
obj CursorShape
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> CursorShape -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"cursor-shape" CursorShape
val
constructTerminalCursorShape :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.CursorShape -> m (GValueConstruct o)
constructTerminalCursorShape :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
CursorShape -> m (GValueConstruct o)
constructTerminalCursorShape CursorShape
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> CursorShape -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"cursor-shape" CursorShape
val
#if defined(ENABLE_OVERLOADING)
data TerminalCursorShapePropertyInfo
instance AttrInfo TerminalCursorShapePropertyInfo where
type AttrAllowedOps TerminalCursorShapePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalCursorShapePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCursorShapePropertyInfo = (~) Vte.Enums.CursorShape
type AttrTransferTypeConstraint TerminalCursorShapePropertyInfo = (~) Vte.Enums.CursorShape
type AttrTransferType TerminalCursorShapePropertyInfo = Vte.Enums.CursorShape
type AttrGetType TerminalCursorShapePropertyInfo = Vte.Enums.CursorShape
type AttrLabel TerminalCursorShapePropertyInfo = "cursor-shape"
type AttrOrigin TerminalCursorShapePropertyInfo = Terminal
attrGet = getTerminalCursorShape
attrSet = setTerminalCursorShape
attrPut = setTerminalCursorShape
attrTransfer _ v = do
return v
attrConstruct = constructTerminalCursorShape
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.cursorShape"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:cursorShape"
})
#endif
getTerminalDeleteBinding :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.EraseBinding
getTerminalDeleteBinding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m EraseBinding
getTerminalDeleteBinding o
obj = IO EraseBinding -> m EraseBinding
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO EraseBinding -> m EraseBinding)
-> IO EraseBinding -> m EraseBinding
forall a b. (a -> b) -> a -> b
$ o -> String -> IO EraseBinding
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"delete-binding"
setTerminalDeleteBinding :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.EraseBinding -> m ()
setTerminalDeleteBinding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> EraseBinding -> m ()
setTerminalDeleteBinding o
obj EraseBinding
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> EraseBinding -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"delete-binding" EraseBinding
val
constructTerminalDeleteBinding :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.EraseBinding -> m (GValueConstruct o)
constructTerminalDeleteBinding :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
EraseBinding -> m (GValueConstruct o)
constructTerminalDeleteBinding EraseBinding
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> EraseBinding -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"delete-binding" EraseBinding
val
#if defined(ENABLE_OVERLOADING)
data TerminalDeleteBindingPropertyInfo
instance AttrInfo TerminalDeleteBindingPropertyInfo where
type AttrAllowedOps TerminalDeleteBindingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalDeleteBindingPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalDeleteBindingPropertyInfo = (~) Vte.Enums.EraseBinding
type AttrTransferTypeConstraint TerminalDeleteBindingPropertyInfo = (~) Vte.Enums.EraseBinding
type AttrTransferType TerminalDeleteBindingPropertyInfo = Vte.Enums.EraseBinding
type AttrGetType TerminalDeleteBindingPropertyInfo = Vte.Enums.EraseBinding
type AttrLabel TerminalDeleteBindingPropertyInfo = "delete-binding"
type AttrOrigin TerminalDeleteBindingPropertyInfo = Terminal
attrGet = getTerminalDeleteBinding
attrSet = setTerminalDeleteBinding
attrPut = setTerminalDeleteBinding
attrTransfer _ v = do
return v
attrConstruct = constructTerminalDeleteBinding
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.deleteBinding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:deleteBinding"
})
#endif
getTerminalEnableA11y :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableA11y :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableA11y o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-a11y"
setTerminalEnableA11y :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableA11y :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableA11y o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-a11y" Bool
val
constructTerminalEnableA11y :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableA11y :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableA11y Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-a11y" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableA11yPropertyInfo
instance AttrInfo TerminalEnableA11yPropertyInfo where
type AttrAllowedOps TerminalEnableA11yPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableA11yPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableA11yPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableA11yPropertyInfo = (~) Bool
type AttrTransferType TerminalEnableA11yPropertyInfo = Bool
type AttrGetType TerminalEnableA11yPropertyInfo = Bool
type AttrLabel TerminalEnableA11yPropertyInfo = "enable-a11y"
type AttrOrigin TerminalEnableA11yPropertyInfo = Terminal
attrGet = getTerminalEnableA11y
attrSet = setTerminalEnableA11y
attrPut = setTerminalEnableA11y
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableA11y
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableA11y"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableA11y"
})
#endif
getTerminalEnableBidi :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableBidi :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableBidi o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-bidi"
setTerminalEnableBidi :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableBidi :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableBidi o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-bidi" Bool
val
constructTerminalEnableBidi :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableBidi :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableBidi Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-bidi" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableBidiPropertyInfo
instance AttrInfo TerminalEnableBidiPropertyInfo where
type AttrAllowedOps TerminalEnableBidiPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableBidiPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableBidiPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableBidiPropertyInfo = (~) Bool
type AttrTransferType TerminalEnableBidiPropertyInfo = Bool
type AttrGetType TerminalEnableBidiPropertyInfo = Bool
type AttrLabel TerminalEnableBidiPropertyInfo = "enable-bidi"
type AttrOrigin TerminalEnableBidiPropertyInfo = Terminal
attrGet = getTerminalEnableBidi
attrSet = setTerminalEnableBidi
attrPut = setTerminalEnableBidi
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableBidi
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableBidi"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableBidi"
})
#endif
getTerminalEnableFallbackScrolling :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableFallbackScrolling :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableFallbackScrolling o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-fallback-scrolling"
setTerminalEnableFallbackScrolling :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableFallbackScrolling :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableFallbackScrolling o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-fallback-scrolling" Bool
val
constructTerminalEnableFallbackScrolling :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableFallbackScrolling :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableFallbackScrolling Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-fallback-scrolling" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableFallbackScrollingPropertyInfo
instance AttrInfo TerminalEnableFallbackScrollingPropertyInfo where
type AttrAllowedOps TerminalEnableFallbackScrollingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableFallbackScrollingPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableFallbackScrollingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableFallbackScrollingPropertyInfo = (~) Bool
type AttrTransferType TerminalEnableFallbackScrollingPropertyInfo = Bool
type AttrGetType TerminalEnableFallbackScrollingPropertyInfo = Bool
type AttrLabel TerminalEnableFallbackScrollingPropertyInfo = "enable-fallback-scrolling"
type AttrOrigin TerminalEnableFallbackScrollingPropertyInfo = Terminal
attrGet = getTerminalEnableFallbackScrolling
attrSet = setTerminalEnableFallbackScrolling
attrPut = setTerminalEnableFallbackScrolling
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableFallbackScrolling
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableFallbackScrolling"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableFallbackScrolling"
})
#endif
getTerminalEnableLegacyOsc777 :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableLegacyOsc777 :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableLegacyOsc777 o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-legacy-osc777"
setTerminalEnableLegacyOsc777 :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableLegacyOsc777 :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableLegacyOsc777 o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-legacy-osc777" Bool
val
constructTerminalEnableLegacyOsc777 :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableLegacyOsc777 :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableLegacyOsc777 Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-legacy-osc777" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableLegacyOsc777PropertyInfo
instance AttrInfo TerminalEnableLegacyOsc777PropertyInfo where
type AttrAllowedOps TerminalEnableLegacyOsc777PropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableLegacyOsc777PropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableLegacyOsc777PropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableLegacyOsc777PropertyInfo = (~) Bool
type AttrTransferType TerminalEnableLegacyOsc777PropertyInfo = Bool
type AttrGetType TerminalEnableLegacyOsc777PropertyInfo = Bool
type AttrLabel TerminalEnableLegacyOsc777PropertyInfo = "enable-legacy-osc777"
type AttrOrigin TerminalEnableLegacyOsc777PropertyInfo = Terminal
attrGet = getTerminalEnableLegacyOsc777
attrSet = setTerminalEnableLegacyOsc777
attrPut = setTerminalEnableLegacyOsc777
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableLegacyOsc777
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableLegacyOsc777"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableLegacyOsc777"
})
#endif
getTerminalEnableShaping :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableShaping :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableShaping o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-shaping"
setTerminalEnableShaping :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableShaping :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableShaping o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-shaping" Bool
val
constructTerminalEnableShaping :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableShaping :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableShaping Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-shaping" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableShapingPropertyInfo
instance AttrInfo TerminalEnableShapingPropertyInfo where
type AttrAllowedOps TerminalEnableShapingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableShapingPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableShapingPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableShapingPropertyInfo = (~) Bool
type AttrTransferType TerminalEnableShapingPropertyInfo = Bool
type AttrGetType TerminalEnableShapingPropertyInfo = Bool
type AttrLabel TerminalEnableShapingPropertyInfo = "enable-shaping"
type AttrOrigin TerminalEnableShapingPropertyInfo = Terminal
attrGet = getTerminalEnableShaping
attrSet = setTerminalEnableShaping
attrPut = setTerminalEnableShaping
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableShaping
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableShaping"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableShaping"
})
#endif
getTerminalEnableSixel :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableSixel :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableSixel o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"enable-sixel"
setTerminalEnableSixel :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableSixel :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalEnableSixel o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-sixel" Bool
val
constructTerminalEnableSixel :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableSixel :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalEnableSixel Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"enable-sixel" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalEnableSixelPropertyInfo
instance AttrInfo TerminalEnableSixelPropertyInfo where
type AttrAllowedOps TerminalEnableSixelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalEnableSixelPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEnableSixelPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalEnableSixelPropertyInfo = (~) Bool
type AttrTransferType TerminalEnableSixelPropertyInfo = Bool
type AttrGetType TerminalEnableSixelPropertyInfo = Bool
type AttrLabel TerminalEnableSixelPropertyInfo = "enable-sixel"
type AttrOrigin TerminalEnableSixelPropertyInfo = Terminal
attrGet = getTerminalEnableSixel
attrSet = setTerminalEnableSixel
attrPut = setTerminalEnableSixel
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEnableSixel
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.enableSixel"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:enableSixel"
})
#endif
getTerminalEncoding :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalEncoding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalEncoding o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"encoding"
setTerminalEncoding :: (MonadIO m, IsTerminal o) => o -> T.Text -> m ()
setTerminalEncoding :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Text -> m ()
setTerminalEncoding o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"encoding" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTerminalEncoding :: (IsTerminal o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTerminalEncoding :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTerminalEncoding Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"encoding" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearTerminalEncoding :: (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalEncoding :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalEncoding o
obj = IO () -> m ()
forall a. IO a -> m a
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 String
"encoding" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data TerminalEncodingPropertyInfo
instance AttrInfo TerminalEncodingPropertyInfo where
type AttrAllowedOps TerminalEncodingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalEncodingPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalEncodingPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TerminalEncodingPropertyInfo = (~) T.Text
type AttrTransferType TerminalEncodingPropertyInfo = T.Text
type AttrGetType TerminalEncodingPropertyInfo = (Maybe T.Text)
type AttrLabel TerminalEncodingPropertyInfo = "encoding"
type AttrOrigin TerminalEncodingPropertyInfo = Terminal
attrGet = getTerminalEncoding
attrSet = setTerminalEncoding
attrPut = undefined
attrTransfer _ v = do
return v
attrConstruct = constructTerminalEncoding
attrClear = clearTerminalEncoding
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.encoding"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:encoding"
})
#endif
getTerminalFontDesc :: (MonadIO m, IsTerminal o) => o -> m (Maybe Pango.FontDescription.FontDescription)
getTerminalFontDesc :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe FontDescription)
getTerminalFontDesc o
obj = IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FontDescription) -> m (Maybe FontDescription))
-> IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FontDescription -> FontDescription)
-> IO (Maybe FontDescription)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"font-desc" ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription
setTerminalFontDesc :: (MonadIO m, IsTerminal o) => o -> Pango.FontDescription.FontDescription -> m ()
setTerminalFontDesc :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> FontDescription -> m ()
setTerminalFontDesc o
obj FontDescription
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe FontDescription -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-desc" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
Just FontDescription
val)
constructTerminalFontDesc :: (IsTerminal o, MIO.MonadIO m) => Pango.FontDescription.FontDescription -> m (GValueConstruct o)
constructTerminalFontDesc :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
FontDescription -> m (GValueConstruct o)
constructTerminalFontDesc FontDescription
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe FontDescription -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"font-desc" (FontDescription -> Maybe FontDescription
forall a. a -> Maybe a
P.Just FontDescription
val)
clearTerminalFontDesc :: (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalFontDesc :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalFontDesc o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe FontDescription -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-desc" (Maybe FontDescription
forall a. Maybe a
Nothing :: Maybe Pango.FontDescription.FontDescription)
#if defined(ENABLE_OVERLOADING)
data TerminalFontDescPropertyInfo
instance AttrInfo TerminalFontDescPropertyInfo where
type AttrAllowedOps TerminalFontDescPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalFontDescPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalFontDescPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferTypeConstraint TerminalFontDescPropertyInfo = (~) Pango.FontDescription.FontDescription
type AttrTransferType TerminalFontDescPropertyInfo = Pango.FontDescription.FontDescription
type AttrGetType TerminalFontDescPropertyInfo = (Maybe Pango.FontDescription.FontDescription)
type AttrLabel TerminalFontDescPropertyInfo = "font-desc"
type AttrOrigin TerminalFontDescPropertyInfo = Terminal
attrGet = getTerminalFontDesc
attrSet = setTerminalFontDesc
attrPut = undefined
attrTransfer _ v = do
return v
attrConstruct = constructTerminalFontDesc
attrClear = clearTerminalFontDesc
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.fontDesc"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:fontDesc"
})
#endif
getTerminalFontOptions :: (MonadIO m, IsTerminal o) => o -> m (Maybe Cairo.FontOptions.FontOptions)
getTerminalFontOptions :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe FontOptions)
getTerminalFontOptions o
obj = IO (Maybe FontOptions) -> m (Maybe FontOptions)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FontOptions) -> m (Maybe FontOptions))
-> IO (Maybe FontOptions) -> m (Maybe FontOptions)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FontOptions -> FontOptions)
-> IO (Maybe FontOptions)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"font-options" ManagedPtr FontOptions -> FontOptions
Cairo.FontOptions.FontOptions
setTerminalFontOptions :: (MonadIO m, IsTerminal o) => o -> Cairo.FontOptions.FontOptions -> m ()
setTerminalFontOptions :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> FontOptions -> m ()
setTerminalFontOptions o
obj FontOptions
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe FontOptions -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-options" (FontOptions -> Maybe FontOptions
forall a. a -> Maybe a
Just FontOptions
val)
constructTerminalFontOptions :: (IsTerminal o, MIO.MonadIO m) => Cairo.FontOptions.FontOptions -> m (GValueConstruct o)
constructTerminalFontOptions :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
FontOptions -> m (GValueConstruct o)
constructTerminalFontOptions FontOptions
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe FontOptions -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"font-options" (FontOptions -> Maybe FontOptions
forall a. a -> Maybe a
P.Just FontOptions
val)
clearTerminalFontOptions :: (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalFontOptions :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalFontOptions o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe FontOptions -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"font-options" (Maybe FontOptions
forall a. Maybe a
Nothing :: Maybe Cairo.FontOptions.FontOptions)
#if defined(ENABLE_OVERLOADING)
data TerminalFontOptionsPropertyInfo
instance AttrInfo TerminalFontOptionsPropertyInfo where
type AttrAllowedOps TerminalFontOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalFontOptionsPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalFontOptionsPropertyInfo = (~) Cairo.FontOptions.FontOptions
type AttrTransferTypeConstraint TerminalFontOptionsPropertyInfo = (~) Cairo.FontOptions.FontOptions
type AttrTransferType TerminalFontOptionsPropertyInfo = Cairo.FontOptions.FontOptions
type AttrGetType TerminalFontOptionsPropertyInfo = (Maybe Cairo.FontOptions.FontOptions)
type AttrLabel TerminalFontOptionsPropertyInfo = "font-options"
type AttrOrigin TerminalFontOptionsPropertyInfo = Terminal
attrGet = getTerminalFontOptions
attrSet = setTerminalFontOptions
attrPut = undefined
attrTransfer _ v = do
return v
attrConstruct = constructTerminalFontOptions
attrClear = clearTerminalFontOptions
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.fontOptions"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:fontOptions"
})
#endif
getTerminalFontScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalFontScale :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Double
getTerminalFontScale o
obj = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Double
forall a. GObject a => a -> String -> IO Double
B.Properties.getObjectPropertyDouble o
obj String
"font-scale"
setTerminalFontScale :: (MonadIO m, IsTerminal o) => o -> Double -> m ()
setTerminalFontScale :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Double -> m ()
setTerminalFontScale o
obj Double
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Double -> IO ()
forall a. GObject a => a -> String -> Double -> IO ()
B.Properties.setObjectPropertyDouble o
obj String
"font-scale" Double
val
constructTerminalFontScale :: (IsTerminal o, MIO.MonadIO m) => Double -> m (GValueConstruct o)
constructTerminalFontScale :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Double -> m (GValueConstruct o)
constructTerminalFontScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Double -> IO (GValueConstruct o)
forall o. String -> Double -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyDouble String
"font-scale" Double
val
#if defined(ENABLE_OVERLOADING)
data TerminalFontScalePropertyInfo
instance AttrInfo TerminalFontScalePropertyInfo where
type AttrAllowedOps TerminalFontScalePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalFontScalePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalFontScalePropertyInfo = (~) Double
type AttrTransferTypeConstraint TerminalFontScalePropertyInfo = (~) Double
type AttrTransferType TerminalFontScalePropertyInfo = Double
type AttrGetType TerminalFontScalePropertyInfo = Double
type AttrLabel TerminalFontScalePropertyInfo = "font-scale"
type AttrOrigin TerminalFontScalePropertyInfo = Terminal
attrGet = getTerminalFontScale
attrSet = setTerminalFontScale
attrPut = setTerminalFontScale
attrTransfer _ v = do
return v
attrConstruct = constructTerminalFontScale
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.fontScale"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:fontScale"
})
#endif
getTerminalHyperlinkHoverUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalHyperlinkHoverUri :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalHyperlinkHoverUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"hyperlink-hover-uri"
#if defined(ENABLE_OVERLOADING)
data TerminalHyperlinkHoverUriPropertyInfo
instance AttrInfo TerminalHyperlinkHoverUriPropertyInfo where
type AttrAllowedOps TerminalHyperlinkHoverUriPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalHyperlinkHoverUriPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalHyperlinkHoverUriPropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalHyperlinkHoverUriPropertyInfo = (~) ()
type AttrTransferType TerminalHyperlinkHoverUriPropertyInfo = ()
type AttrGetType TerminalHyperlinkHoverUriPropertyInfo = (Maybe T.Text)
type AttrLabel TerminalHyperlinkHoverUriPropertyInfo = "hyperlink-hover-uri"
type AttrOrigin TerminalHyperlinkHoverUriPropertyInfo = Terminal
attrGet = getTerminalHyperlinkHoverUri
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.hyperlinkHoverUri"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:hyperlinkHoverUri"
})
#endif
getTerminalIconTitle :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalIconTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalIconTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"icon-title"
#if defined(ENABLE_OVERLOADING)
data TerminalIconTitlePropertyInfo
instance AttrInfo TerminalIconTitlePropertyInfo where
type AttrAllowedOps TerminalIconTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalIconTitlePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalIconTitlePropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalIconTitlePropertyInfo = (~) ()
type AttrTransferType TerminalIconTitlePropertyInfo = ()
type AttrGetType TerminalIconTitlePropertyInfo = (Maybe T.Text)
type AttrLabel TerminalIconTitlePropertyInfo = "icon-title"
type AttrOrigin TerminalIconTitlePropertyInfo = Terminal
attrGet = getTerminalIconTitle
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.iconTitle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:iconTitle"
})
#endif
getTerminalInputEnabled :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalInputEnabled :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalInputEnabled o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"input-enabled"
setTerminalInputEnabled :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalInputEnabled :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalInputEnabled o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"input-enabled" Bool
val
constructTerminalInputEnabled :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalInputEnabled :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalInputEnabled Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"input-enabled" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalInputEnabledPropertyInfo
instance AttrInfo TerminalInputEnabledPropertyInfo where
type AttrAllowedOps TerminalInputEnabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalInputEnabledPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalInputEnabledPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalInputEnabledPropertyInfo = (~) Bool
type AttrTransferType TerminalInputEnabledPropertyInfo = Bool
type AttrGetType TerminalInputEnabledPropertyInfo = Bool
type AttrLabel TerminalInputEnabledPropertyInfo = "input-enabled"
type AttrOrigin TerminalInputEnabledPropertyInfo = Terminal
attrGet = getTerminalInputEnabled
attrSet = setTerminalInputEnabled
attrPut = setTerminalInputEnabled
attrTransfer _ v = do
return v
attrConstruct = constructTerminalInputEnabled
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.inputEnabled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:inputEnabled"
})
#endif
getTerminalPointerAutohide :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalPointerAutohide :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalPointerAutohide o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"pointer-autohide"
setTerminalPointerAutohide :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalPointerAutohide :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalPointerAutohide o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"pointer-autohide" Bool
val
constructTerminalPointerAutohide :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalPointerAutohide :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalPointerAutohide Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"pointer-autohide" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalPointerAutohidePropertyInfo
instance AttrInfo TerminalPointerAutohidePropertyInfo where
type AttrAllowedOps TerminalPointerAutohidePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalPointerAutohidePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalPointerAutohidePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalPointerAutohidePropertyInfo = (~) Bool
type AttrTransferType TerminalPointerAutohidePropertyInfo = Bool
type AttrGetType TerminalPointerAutohidePropertyInfo = Bool
type AttrLabel TerminalPointerAutohidePropertyInfo = "pointer-autohide"
type AttrOrigin TerminalPointerAutohidePropertyInfo = Terminal
attrGet = getTerminalPointerAutohide
attrSet = setTerminalPointerAutohide
attrPut = setTerminalPointerAutohide
attrTransfer _ v = do
return v
attrConstruct = constructTerminalPointerAutohide
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.pointerAutohide"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:pointerAutohide"
})
#endif
getTerminalPty :: (MonadIO m, IsTerminal o) => o -> m (Maybe Vte.Pty.Pty)
getTerminalPty :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Pty)
getTerminalPty o
obj = IO (Maybe Pty) -> m (Maybe Pty)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Pty) -> m (Maybe Pty))
-> IO (Maybe Pty) -> m (Maybe Pty)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Pty -> Pty) -> IO (Maybe Pty)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"pty" ManagedPtr Pty -> Pty
Vte.Pty.Pty
setTerminalPty :: (MonadIO m, IsTerminal o, Vte.Pty.IsPty a) => o -> a -> m ()
setTerminalPty :: forall (m :: * -> *) o a.
(MonadIO m, IsTerminal o, IsPty a) =>
o -> a -> m ()
setTerminalPty o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"pty" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTerminalPty :: (IsTerminal o, MIO.MonadIO m, Vte.Pty.IsPty a) => a -> m (GValueConstruct o)
constructTerminalPty :: forall o (m :: * -> *) a.
(IsTerminal o, MonadIO m, IsPty a) =>
a -> m (GValueConstruct o)
constructTerminalPty a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"pty" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTerminalPty :: (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalPty :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m ()
clearTerminalPty o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Pty -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"pty" (Maybe Pty
forall a. Maybe a
Nothing :: Maybe Vte.Pty.Pty)
#if defined(ENABLE_OVERLOADING)
data TerminalPtyPropertyInfo
instance AttrInfo TerminalPtyPropertyInfo where
type AttrAllowedOps TerminalPtyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalPtyPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalPtyPropertyInfo = Vte.Pty.IsPty
type AttrTransferTypeConstraint TerminalPtyPropertyInfo = Vte.Pty.IsPty
type AttrTransferType TerminalPtyPropertyInfo = Vte.Pty.Pty
type AttrGetType TerminalPtyPropertyInfo = (Maybe Vte.Pty.Pty)
type AttrLabel TerminalPtyPropertyInfo = "pty"
type AttrOrigin TerminalPtyPropertyInfo = Terminal
attrGet = getTerminalPty
attrSet = setTerminalPty
attrPut = undefined
attrTransfer _ v = do
unsafeCastTo Vte.Pty.Pty v
attrConstruct = constructTerminalPty
attrClear = clearTerminalPty
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.pty"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:pty"
})
#endif
getTerminalRewrapOnResize :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalRewrapOnResize :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalRewrapOnResize o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"rewrap-on-resize"
setTerminalRewrapOnResize :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalRewrapOnResize :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalRewrapOnResize o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rewrap-on-resize" Bool
val
constructTerminalRewrapOnResize :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalRewrapOnResize :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalRewrapOnResize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"rewrap-on-resize" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalRewrapOnResizePropertyInfo
instance AttrInfo TerminalRewrapOnResizePropertyInfo where
type AttrAllowedOps TerminalRewrapOnResizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalRewrapOnResizePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalRewrapOnResizePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalRewrapOnResizePropertyInfo = (~) Bool
type AttrTransferType TerminalRewrapOnResizePropertyInfo = Bool
type AttrGetType TerminalRewrapOnResizePropertyInfo = Bool
type AttrLabel TerminalRewrapOnResizePropertyInfo = "rewrap-on-resize"
type AttrOrigin TerminalRewrapOnResizePropertyInfo = Terminal
attrGet = getTerminalRewrapOnResize
attrSet = setTerminalRewrapOnResize
attrPut = setTerminalRewrapOnResize
attrTransfer _ v = do
return v
attrConstruct = constructTerminalRewrapOnResize
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.rewrapOnResize"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:rewrapOnResize"
})
#endif
getTerminalScrollOnInsert :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnInsert :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnInsert o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scroll-on-insert"
setTerminalScrollOnInsert :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollOnInsert :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalScrollOnInsert o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-on-insert" Bool
val
constructTerminalScrollOnInsert :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollOnInsert :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalScrollOnInsert Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scroll-on-insert" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollOnInsertPropertyInfo
instance AttrInfo TerminalScrollOnInsertPropertyInfo where
type AttrAllowedOps TerminalScrollOnInsertPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalScrollOnInsertPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollOnInsertPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalScrollOnInsertPropertyInfo = (~) Bool
type AttrTransferType TerminalScrollOnInsertPropertyInfo = Bool
type AttrGetType TerminalScrollOnInsertPropertyInfo = Bool
type AttrLabel TerminalScrollOnInsertPropertyInfo = "scroll-on-insert"
type AttrOrigin TerminalScrollOnInsertPropertyInfo = Terminal
attrGet = getTerminalScrollOnInsert
attrSet = setTerminalScrollOnInsert
attrPut = setTerminalScrollOnInsert
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollOnInsert
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.scrollOnInsert"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:scrollOnInsert"
})
#endif
getTerminalScrollOnKeystroke :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnKeystroke :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnKeystroke o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scroll-on-keystroke"
setTerminalScrollOnKeystroke :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollOnKeystroke :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalScrollOnKeystroke o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-on-keystroke" Bool
val
constructTerminalScrollOnKeystroke :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollOnKeystroke :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalScrollOnKeystroke Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scroll-on-keystroke" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollOnKeystrokePropertyInfo
instance AttrInfo TerminalScrollOnKeystrokePropertyInfo where
type AttrAllowedOps TerminalScrollOnKeystrokePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalScrollOnKeystrokePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollOnKeystrokePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalScrollOnKeystrokePropertyInfo = (~) Bool
type AttrTransferType TerminalScrollOnKeystrokePropertyInfo = Bool
type AttrGetType TerminalScrollOnKeystrokePropertyInfo = Bool
type AttrLabel TerminalScrollOnKeystrokePropertyInfo = "scroll-on-keystroke"
type AttrOrigin TerminalScrollOnKeystrokePropertyInfo = Terminal
attrGet = getTerminalScrollOnKeystroke
attrSet = setTerminalScrollOnKeystroke
attrPut = setTerminalScrollOnKeystroke
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollOnKeystroke
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.scrollOnKeystroke"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:scrollOnKeystroke"
})
#endif
getTerminalScrollOnOutput :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnOutput :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnOutput o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scroll-on-output"
setTerminalScrollOnOutput :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollOnOutput :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalScrollOnOutput o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-on-output" Bool
val
constructTerminalScrollOnOutput :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollOnOutput :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalScrollOnOutput Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scroll-on-output" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollOnOutputPropertyInfo
instance AttrInfo TerminalScrollOnOutputPropertyInfo where
type AttrAllowedOps TerminalScrollOnOutputPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalScrollOnOutputPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollOnOutputPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalScrollOnOutputPropertyInfo = (~) Bool
type AttrTransferType TerminalScrollOnOutputPropertyInfo = Bool
type AttrGetType TerminalScrollOnOutputPropertyInfo = Bool
type AttrLabel TerminalScrollOnOutputPropertyInfo = "scroll-on-output"
type AttrOrigin TerminalScrollOnOutputPropertyInfo = Terminal
attrGet = getTerminalScrollOnOutput
attrSet = setTerminalScrollOnOutput
attrPut = setTerminalScrollOnOutput
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollOnOutput
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.scrollOnOutput"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:scrollOnOutput"
})
#endif
getTerminalScrollUnitIsPixels :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollUnitIsPixels :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollUnitIsPixels o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scroll-unit-is-pixels"
setTerminalScrollUnitIsPixels :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollUnitIsPixels :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalScrollUnitIsPixels o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-unit-is-pixels" Bool
val
constructTerminalScrollUnitIsPixels :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollUnitIsPixels :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalScrollUnitIsPixels Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"scroll-unit-is-pixels" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollUnitIsPixelsPropertyInfo
instance AttrInfo TerminalScrollUnitIsPixelsPropertyInfo where
type AttrAllowedOps TerminalScrollUnitIsPixelsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalScrollUnitIsPixelsPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollUnitIsPixelsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalScrollUnitIsPixelsPropertyInfo = (~) Bool
type AttrTransferType TerminalScrollUnitIsPixelsPropertyInfo = Bool
type AttrGetType TerminalScrollUnitIsPixelsPropertyInfo = Bool
type AttrLabel TerminalScrollUnitIsPixelsPropertyInfo = "scroll-unit-is-pixels"
type AttrOrigin TerminalScrollUnitIsPixelsPropertyInfo = Terminal
attrGet = getTerminalScrollUnitIsPixels
attrSet = setTerminalScrollUnitIsPixels
attrPut = setTerminalScrollUnitIsPixels
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollUnitIsPixels
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.scrollUnitIsPixels"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:scrollUnitIsPixels"
})
#endif
getTerminalScrollbackLines :: (MonadIO m, IsTerminal o) => o -> m Word32
getTerminalScrollbackLines :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Word32
getTerminalScrollbackLines o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"scrollback-lines"
setTerminalScrollbackLines :: (MonadIO m, IsTerminal o) => o -> Word32 -> m ()
setTerminalScrollbackLines :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Word32 -> m ()
setTerminalScrollbackLines o
obj Word32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"scrollback-lines" Word32
val
constructTerminalScrollbackLines :: (IsTerminal o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTerminalScrollbackLines :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTerminalScrollbackLines Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"scrollback-lines" Word32
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollbackLinesPropertyInfo
instance AttrInfo TerminalScrollbackLinesPropertyInfo where
type AttrAllowedOps TerminalScrollbackLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalScrollbackLinesPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollbackLinesPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TerminalScrollbackLinesPropertyInfo = (~) Word32
type AttrTransferType TerminalScrollbackLinesPropertyInfo = Word32
type AttrGetType TerminalScrollbackLinesPropertyInfo = Word32
type AttrLabel TerminalScrollbackLinesPropertyInfo = "scrollback-lines"
type AttrOrigin TerminalScrollbackLinesPropertyInfo = Terminal
attrGet = getTerminalScrollbackLines
attrSet = setTerminalScrollbackLines
attrPut = setTerminalScrollbackLines
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollbackLines
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.scrollbackLines"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:scrollbackLines"
})
#endif
getTerminalTextBlinkMode :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.TextBlinkMode
getTerminalTextBlinkMode :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m TextBlinkMode
getTerminalTextBlinkMode o
obj = IO TextBlinkMode -> m TextBlinkMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TextBlinkMode -> m TextBlinkMode)
-> IO TextBlinkMode -> m TextBlinkMode
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TextBlinkMode
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"text-blink-mode"
setTerminalTextBlinkMode :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.TextBlinkMode -> m ()
setTerminalTextBlinkMode :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> TextBlinkMode -> m ()
setTerminalTextBlinkMode o
obj TextBlinkMode
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> TextBlinkMode -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"text-blink-mode" TextBlinkMode
val
constructTerminalTextBlinkMode :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.TextBlinkMode -> m (GValueConstruct o)
constructTerminalTextBlinkMode :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
TextBlinkMode -> m (GValueConstruct o)
constructTerminalTextBlinkMode TextBlinkMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TextBlinkMode -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"text-blink-mode" TextBlinkMode
val
#if defined(ENABLE_OVERLOADING)
data TerminalTextBlinkModePropertyInfo
instance AttrInfo TerminalTextBlinkModePropertyInfo where
type AttrAllowedOps TerminalTextBlinkModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalTextBlinkModePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalTextBlinkModePropertyInfo = (~) Vte.Enums.TextBlinkMode
type AttrTransferTypeConstraint TerminalTextBlinkModePropertyInfo = (~) Vte.Enums.TextBlinkMode
type AttrTransferType TerminalTextBlinkModePropertyInfo = Vte.Enums.TextBlinkMode
type AttrGetType TerminalTextBlinkModePropertyInfo = Vte.Enums.TextBlinkMode
type AttrLabel TerminalTextBlinkModePropertyInfo = "text-blink-mode"
type AttrOrigin TerminalTextBlinkModePropertyInfo = Terminal
attrGet = getTerminalTextBlinkMode
attrSet = setTerminalTextBlinkMode
attrPut = setTerminalTextBlinkMode
attrTransfer _ v = do
return v
attrConstruct = constructTerminalTextBlinkMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.textBlinkMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:textBlinkMode"
})
#endif
getTerminalWindowTitle :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalWindowTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalWindowTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"window-title"
#if defined(ENABLE_OVERLOADING)
data TerminalWindowTitlePropertyInfo
instance AttrInfo TerminalWindowTitlePropertyInfo where
type AttrAllowedOps TerminalWindowTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalWindowTitlePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalWindowTitlePropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalWindowTitlePropertyInfo = (~) ()
type AttrTransferType TerminalWindowTitlePropertyInfo = ()
type AttrGetType TerminalWindowTitlePropertyInfo = (Maybe T.Text)
type AttrLabel TerminalWindowTitlePropertyInfo = "window-title"
type AttrOrigin TerminalWindowTitlePropertyInfo = Terminal
attrGet = getTerminalWindowTitle
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.windowTitle"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:windowTitle"
})
#endif
getTerminalWordCharExceptions :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalWordCharExceptions :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> m (Maybe Text)
getTerminalWordCharExceptions o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"word-char-exceptions"
#if defined(ENABLE_OVERLOADING)
data TerminalWordCharExceptionsPropertyInfo
instance AttrInfo TerminalWordCharExceptionsPropertyInfo where
type AttrAllowedOps TerminalWordCharExceptionsPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TerminalWordCharExceptionsPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalWordCharExceptionsPropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalWordCharExceptionsPropertyInfo = (~) ()
type AttrTransferType TerminalWordCharExceptionsPropertyInfo = ()
type AttrGetType TerminalWordCharExceptionsPropertyInfo = (Maybe T.Text)
type AttrLabel TerminalWordCharExceptionsPropertyInfo = "word-char-exceptions"
type AttrOrigin TerminalWordCharExceptionsPropertyInfo = Terminal
attrGet = getTerminalWordCharExceptions
attrSet = undefined
attrPut = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.wordCharExceptions"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:wordCharExceptions"
})
#endif
getTerminalXalign :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.Align
getTerminalXalign :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Align
getTerminalXalign o
obj = IO Align -> m Align
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"xalign"
setTerminalXalign :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.Align -> m ()
setTerminalXalign :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Align -> m ()
setTerminalXalign o
obj Align
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"xalign" Align
val
constructTerminalXalign :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.Align -> m (GValueConstruct o)
constructTerminalXalign :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Align -> m (GValueConstruct o)
constructTerminalXalign Align
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"xalign" Align
val
#if defined(ENABLE_OVERLOADING)
data TerminalXalignPropertyInfo
instance AttrInfo TerminalXalignPropertyInfo where
type AttrAllowedOps TerminalXalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalXalignPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalXalignPropertyInfo = (~) Vte.Enums.Align
type AttrTransferTypeConstraint TerminalXalignPropertyInfo = (~) Vte.Enums.Align
type AttrTransferType TerminalXalignPropertyInfo = Vte.Enums.Align
type AttrGetType TerminalXalignPropertyInfo = Vte.Enums.Align
type AttrLabel TerminalXalignPropertyInfo = "xalign"
type AttrOrigin TerminalXalignPropertyInfo = Terminal
attrGet = getTerminalXalign
attrSet = setTerminalXalign
attrPut = setTerminalXalign
attrTransfer _ v = do
return v
attrConstruct = constructTerminalXalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.xalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:xalign"
})
#endif
getTerminalXfill :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalXfill :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalXfill o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"xfill"
setTerminalXfill :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalXfill :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalXfill o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"xfill" Bool
val
constructTerminalXfill :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalXfill :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalXfill Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"xfill" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalXfillPropertyInfo
instance AttrInfo TerminalXfillPropertyInfo where
type AttrAllowedOps TerminalXfillPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalXfillPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalXfillPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalXfillPropertyInfo = (~) Bool
type AttrTransferType TerminalXfillPropertyInfo = Bool
type AttrGetType TerminalXfillPropertyInfo = Bool
type AttrLabel TerminalXfillPropertyInfo = "xfill"
type AttrOrigin TerminalXfillPropertyInfo = Terminal
attrGet = getTerminalXfill
attrSet = setTerminalXfill
attrPut = setTerminalXfill
attrTransfer _ v = do
return v
attrConstruct = constructTerminalXfill
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.xfill"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:xfill"
})
#endif
getTerminalYalign :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.Align
getTerminalYalign :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Align
getTerminalYalign o
obj = IO Align -> m Align
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Align
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"yalign"
setTerminalYalign :: (MonadIO m, IsTerminal o) => o -> Vte.Enums.Align -> m ()
setTerminalYalign :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Align -> m ()
setTerminalYalign o
obj Align
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Align -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"yalign" Align
val
constructTerminalYalign :: (IsTerminal o, MIO.MonadIO m) => Vte.Enums.Align -> m (GValueConstruct o)
constructTerminalYalign :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Align -> m (GValueConstruct o)
constructTerminalYalign Align
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Align -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"yalign" Align
val
#if defined(ENABLE_OVERLOADING)
data TerminalYalignPropertyInfo
instance AttrInfo TerminalYalignPropertyInfo where
type AttrAllowedOps TerminalYalignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalYalignPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalYalignPropertyInfo = (~) Vte.Enums.Align
type AttrTransferTypeConstraint TerminalYalignPropertyInfo = (~) Vte.Enums.Align
type AttrTransferType TerminalYalignPropertyInfo = Vte.Enums.Align
type AttrGetType TerminalYalignPropertyInfo = Vte.Enums.Align
type AttrLabel TerminalYalignPropertyInfo = "yalign"
type AttrOrigin TerminalYalignPropertyInfo = Terminal
attrGet = getTerminalYalign
attrSet = setTerminalYalign
attrPut = setTerminalYalign
attrTransfer _ v = do
return v
attrConstruct = constructTerminalYalign
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.yalign"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:yalign"
})
#endif
getTerminalYfill :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalYfill :: forall (m :: * -> *) o. (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalYfill o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"yfill"
setTerminalYfill :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalYfill :: forall (m :: * -> *) o.
(MonadIO m, IsTerminal o) =>
o -> Bool -> m ()
setTerminalYfill o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"yfill" Bool
val
constructTerminalYfill :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalYfill :: forall o (m :: * -> *).
(IsTerminal o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTerminalYfill Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"yfill" Bool
val
#if defined(ENABLE_OVERLOADING)
data TerminalYfillPropertyInfo
instance AttrInfo TerminalYfillPropertyInfo where
type AttrAllowedOps TerminalYfillPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrPut]
type AttrBaseTypeConstraint TerminalYfillPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalYfillPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TerminalYfillPropertyInfo = (~) Bool
type AttrTransferType TerminalYfillPropertyInfo = Bool
type AttrGetType TerminalYfillPropertyInfo = Bool
type AttrLabel TerminalYfillPropertyInfo = "yfill"
type AttrOrigin TerminalYfillPropertyInfo = Terminal
attrGet = getTerminalYfill
attrSet = setTerminalYfill
attrPut = setTerminalYfill
attrTransfer _ v = do
return v
attrConstruct = constructTerminalYfill
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.yfill"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#g:attr:yfill"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Terminal
type instance O.AttributeList Terminal = TerminalAttributeList
type TerminalAttributeList = ('[ '("allowBold", TerminalAllowBoldPropertyInfo), '("allowHyperlink", TerminalAllowHyperlinkPropertyInfo), '("appPaintable", Gtk.Widget.WidgetAppPaintablePropertyInfo), '("audibleBell", TerminalAudibleBellPropertyInfo), '("backspaceBinding", TerminalBackspaceBindingPropertyInfo), '("boldIsBright", TerminalBoldIsBrightPropertyInfo), '("canDefault", Gtk.Widget.WidgetCanDefaultPropertyInfo), '("canFocus", Gtk.Widget.WidgetCanFocusPropertyInfo), '("cellHeightScale", TerminalCellHeightScalePropertyInfo), '("cellWidthScale", TerminalCellWidthScalePropertyInfo), '("cjkAmbiguousWidth", TerminalCjkAmbiguousWidthPropertyInfo), '("compositeChild", Gtk.Widget.WidgetCompositeChildPropertyInfo), '("contextMenu", TerminalContextMenuPropertyInfo), '("contextMenuModel", TerminalContextMenuModelPropertyInfo), '("currentDirectoryUri", TerminalCurrentDirectoryUriPropertyInfo), '("currentFileUri", TerminalCurrentFileUriPropertyInfo), '("cursorBlinkMode", TerminalCursorBlinkModePropertyInfo), '("cursorShape", TerminalCursorShapePropertyInfo), '("deleteBinding", TerminalDeleteBindingPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("enableA11y", TerminalEnableA11yPropertyInfo), '("enableBidi", TerminalEnableBidiPropertyInfo), '("enableFallbackScrolling", TerminalEnableFallbackScrollingPropertyInfo), '("enableLegacyOsc777", TerminalEnableLegacyOsc777PropertyInfo), '("enableShaping", TerminalEnableShapingPropertyInfo), '("enableSixel", TerminalEnableSixelPropertyInfo), '("encoding", TerminalEncodingPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("fontDesc", TerminalFontDescPropertyInfo), '("fontOptions", TerminalFontOptionsPropertyInfo), '("fontScale", TerminalFontScalePropertyInfo), '("hadjustment", Gtk.Scrollable.ScrollableHadjustmentPropertyInfo), '("halign", Gtk.Widget.WidgetHalignPropertyInfo), '("hasDefault", Gtk.Widget.WidgetHasDefaultPropertyInfo), '("hasFocus", Gtk.Widget.WidgetHasFocusPropertyInfo), '("hasTooltip", Gtk.Widget.WidgetHasTooltipPropertyInfo), '("heightRequest", Gtk.Widget.WidgetHeightRequestPropertyInfo), '("hexpand", Gtk.Widget.WidgetHexpandPropertyInfo), '("hexpandSet", Gtk.Widget.WidgetHexpandSetPropertyInfo), '("hscrollPolicy", Gtk.Scrollable.ScrollableHscrollPolicyPropertyInfo), '("hyperlinkHoverUri", TerminalHyperlinkHoverUriPropertyInfo), '("iconTitle", TerminalIconTitlePropertyInfo), '("inputEnabled", TerminalInputEnabledPropertyInfo), '("isFocus", Gtk.Widget.WidgetIsFocusPropertyInfo), '("margin", Gtk.Widget.WidgetMarginPropertyInfo), '("marginBottom", Gtk.Widget.WidgetMarginBottomPropertyInfo), '("marginEnd", Gtk.Widget.WidgetMarginEndPropertyInfo), '("marginLeft", Gtk.Widget.WidgetMarginLeftPropertyInfo), '("marginRight", Gtk.Widget.WidgetMarginRightPropertyInfo), '("marginStart", Gtk.Widget.WidgetMarginStartPropertyInfo), '("marginTop", Gtk.Widget.WidgetMarginTopPropertyInfo), '("name", Gtk.Widget.WidgetNamePropertyInfo), '("noShowAll", Gtk.Widget.WidgetNoShowAllPropertyInfo), '("opacity", Gtk.Widget.WidgetOpacityPropertyInfo), '("parent", Gtk.Widget.WidgetParentPropertyInfo), '("pointerAutohide", TerminalPointerAutohidePropertyInfo), '("pty", TerminalPtyPropertyInfo), '("receivesDefault", Gtk.Widget.WidgetReceivesDefaultPropertyInfo), '("rewrapOnResize", TerminalRewrapOnResizePropertyInfo), '("scaleFactor", Gtk.Widget.WidgetScaleFactorPropertyInfo), '("scrollOnInsert", TerminalScrollOnInsertPropertyInfo), '("scrollOnKeystroke", TerminalScrollOnKeystrokePropertyInfo), '("scrollOnOutput", TerminalScrollOnOutputPropertyInfo), '("scrollUnitIsPixels", TerminalScrollUnitIsPixelsPropertyInfo), '("scrollbackLines", TerminalScrollbackLinesPropertyInfo), '("sensitive", Gtk.Widget.WidgetSensitivePropertyInfo), '("style", Gtk.Widget.WidgetStylePropertyInfo), '("textBlinkMode", TerminalTextBlinkModePropertyInfo), '("tooltipMarkup", Gtk.Widget.WidgetTooltipMarkupPropertyInfo), '("tooltipText", Gtk.Widget.WidgetTooltipTextPropertyInfo), '("vadjustment", Gtk.Scrollable.ScrollableVadjustmentPropertyInfo), '("valign", Gtk.Widget.WidgetValignPropertyInfo), '("vexpand", Gtk.Widget.WidgetVexpandPropertyInfo), '("vexpandSet", Gtk.Widget.WidgetVexpandSetPropertyInfo), '("visible", Gtk.Widget.WidgetVisiblePropertyInfo), '("vscrollPolicy", Gtk.Scrollable.ScrollableVscrollPolicyPropertyInfo), '("widthRequest", Gtk.Widget.WidgetWidthRequestPropertyInfo), '("window", Gtk.Widget.WidgetWindowPropertyInfo), '("windowTitle", TerminalWindowTitlePropertyInfo), '("wordCharExceptions", TerminalWordCharExceptionsPropertyInfo), '("xalign", TerminalXalignPropertyInfo), '("xfill", TerminalXfillPropertyInfo), '("yalign", TerminalYalignPropertyInfo), '("yfill", TerminalYfillPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
terminalAllowBold :: AttrLabelProxy "allowBold"
terminalAllowBold = AttrLabelProxy
terminalAllowHyperlink :: AttrLabelProxy "allowHyperlink"
terminalAllowHyperlink = AttrLabelProxy
terminalAudibleBell :: AttrLabelProxy "audibleBell"
terminalAudibleBell = AttrLabelProxy
terminalBackspaceBinding :: AttrLabelProxy "backspaceBinding"
terminalBackspaceBinding = AttrLabelProxy
terminalBoldIsBright :: AttrLabelProxy "boldIsBright"
terminalBoldIsBright = AttrLabelProxy
terminalCellHeightScale :: AttrLabelProxy "cellHeightScale"
terminalCellHeightScale = AttrLabelProxy
terminalCellWidthScale :: AttrLabelProxy "cellWidthScale"
terminalCellWidthScale = AttrLabelProxy
terminalCjkAmbiguousWidth :: AttrLabelProxy "cjkAmbiguousWidth"
terminalCjkAmbiguousWidth = AttrLabelProxy
terminalContextMenu :: AttrLabelProxy "contextMenu"
terminalContextMenu = AttrLabelProxy
terminalContextMenuModel :: AttrLabelProxy "contextMenuModel"
terminalContextMenuModel = AttrLabelProxy
terminalCurrentDirectoryUri :: AttrLabelProxy "currentDirectoryUri"
terminalCurrentDirectoryUri = AttrLabelProxy
terminalCurrentFileUri :: AttrLabelProxy "currentFileUri"
terminalCurrentFileUri = AttrLabelProxy
terminalCursorBlinkMode :: AttrLabelProxy "cursorBlinkMode"
terminalCursorBlinkMode = AttrLabelProxy
terminalCursorShape :: AttrLabelProxy "cursorShape"
terminalCursorShape = AttrLabelProxy
terminalDeleteBinding :: AttrLabelProxy "deleteBinding"
terminalDeleteBinding = AttrLabelProxy
terminalEnableA11y :: AttrLabelProxy "enableA11y"
terminalEnableA11y = AttrLabelProxy
terminalEnableBidi :: AttrLabelProxy "enableBidi"
terminalEnableBidi = AttrLabelProxy
terminalEnableFallbackScrolling :: AttrLabelProxy "enableFallbackScrolling"
terminalEnableFallbackScrolling = AttrLabelProxy
terminalEnableLegacyOsc777 :: AttrLabelProxy "enableLegacyOsc777"
terminalEnableLegacyOsc777 = AttrLabelProxy
terminalEnableShaping :: AttrLabelProxy "enableShaping"
terminalEnableShaping = AttrLabelProxy
terminalEnableSixel :: AttrLabelProxy "enableSixel"
terminalEnableSixel = AttrLabelProxy
terminalEncoding :: AttrLabelProxy "encoding"
terminalEncoding = AttrLabelProxy
terminalFontDesc :: AttrLabelProxy "fontDesc"
terminalFontDesc = AttrLabelProxy
terminalFontOptions :: AttrLabelProxy "fontOptions"
terminalFontOptions = AttrLabelProxy
terminalFontScale :: AttrLabelProxy "fontScale"
terminalFontScale = AttrLabelProxy
terminalHyperlinkHoverUri :: AttrLabelProxy "hyperlinkHoverUri"
terminalHyperlinkHoverUri = AttrLabelProxy
terminalIconTitle :: AttrLabelProxy "iconTitle"
terminalIconTitle = AttrLabelProxy
terminalInputEnabled :: AttrLabelProxy "inputEnabled"
terminalInputEnabled = AttrLabelProxy
terminalPointerAutohide :: AttrLabelProxy "pointerAutohide"
terminalPointerAutohide = AttrLabelProxy
terminalPty :: AttrLabelProxy "pty"
terminalPty = AttrLabelProxy
terminalRewrapOnResize :: AttrLabelProxy "rewrapOnResize"
terminalRewrapOnResize = AttrLabelProxy
terminalScrollOnInsert :: AttrLabelProxy "scrollOnInsert"
terminalScrollOnInsert = AttrLabelProxy
terminalScrollOnKeystroke :: AttrLabelProxy "scrollOnKeystroke"
terminalScrollOnKeystroke = AttrLabelProxy
terminalScrollOnOutput :: AttrLabelProxy "scrollOnOutput"
terminalScrollOnOutput = AttrLabelProxy
terminalScrollUnitIsPixels :: AttrLabelProxy "scrollUnitIsPixels"
terminalScrollUnitIsPixels = AttrLabelProxy
terminalScrollbackLines :: AttrLabelProxy "scrollbackLines"
terminalScrollbackLines = AttrLabelProxy
terminalTextBlinkMode :: AttrLabelProxy "textBlinkMode"
terminalTextBlinkMode = AttrLabelProxy
terminalWindowTitle :: AttrLabelProxy "windowTitle"
terminalWindowTitle = AttrLabelProxy
terminalWordCharExceptions :: AttrLabelProxy "wordCharExceptions"
terminalWordCharExceptions = AttrLabelProxy
terminalXalign :: AttrLabelProxy "xalign"
terminalXalign = AttrLabelProxy
terminalXfill :: AttrLabelProxy "xfill"
terminalXfill = AttrLabelProxy
terminalYalign :: AttrLabelProxy "yalign"
terminalYalign = AttrLabelProxy
terminalYfill :: AttrLabelProxy "yfill"
terminalYfill = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Terminal = TerminalSignalList
type TerminalSignalList = ('[ '("accelClosuresChanged", Gtk.Widget.WidgetAccelClosuresChangedSignalInfo), '("bell", TerminalBellSignalInfo), '("buttonPressEvent", Gtk.Widget.WidgetButtonPressEventSignalInfo), '("buttonReleaseEvent", Gtk.Widget.WidgetButtonReleaseEventSignalInfo), '("canActivateAccel", Gtk.Widget.WidgetCanActivateAccelSignalInfo), '("charSizeChanged", TerminalCharSizeChangedSignalInfo), '("childExited", TerminalChildExitedSignalInfo), '("childNotify", Gtk.Widget.WidgetChildNotifySignalInfo), '("commit", TerminalCommitSignalInfo), '("compositedChanged", Gtk.Widget.WidgetCompositedChangedSignalInfo), '("configureEvent", Gtk.Widget.WidgetConfigureEventSignalInfo), '("contentsChanged", TerminalContentsChangedSignalInfo), '("copyClipboard", TerminalCopyClipboardSignalInfo), '("currentDirectoryUriChanged", TerminalCurrentDirectoryUriChangedSignalInfo), '("currentFileUriChanged", TerminalCurrentFileUriChangedSignalInfo), '("cursorMoved", TerminalCursorMovedSignalInfo), '("damageEvent", Gtk.Widget.WidgetDamageEventSignalInfo), '("decreaseFontSize", TerminalDecreaseFontSizeSignalInfo), '("deiconifyWindow", TerminalDeiconifyWindowSignalInfo), '("deleteEvent", Gtk.Widget.WidgetDeleteEventSignalInfo), '("destroy", Gtk.Widget.WidgetDestroySignalInfo), '("destroyEvent", Gtk.Widget.WidgetDestroyEventSignalInfo), '("directionChanged", Gtk.Widget.WidgetDirectionChangedSignalInfo), '("dragBegin", Gtk.Widget.WidgetDragBeginSignalInfo), '("dragDataDelete", Gtk.Widget.WidgetDragDataDeleteSignalInfo), '("dragDataGet", Gtk.Widget.WidgetDragDataGetSignalInfo), '("dragDataReceived", Gtk.Widget.WidgetDragDataReceivedSignalInfo), '("dragDrop", Gtk.Widget.WidgetDragDropSignalInfo), '("dragEnd", Gtk.Widget.WidgetDragEndSignalInfo), '("dragFailed", Gtk.Widget.WidgetDragFailedSignalInfo), '("dragLeave", Gtk.Widget.WidgetDragLeaveSignalInfo), '("dragMotion", Gtk.Widget.WidgetDragMotionSignalInfo), '("draw", Gtk.Widget.WidgetDrawSignalInfo), '("encodingChanged", TerminalEncodingChangedSignalInfo), '("enterNotifyEvent", Gtk.Widget.WidgetEnterNotifyEventSignalInfo), '("eof", TerminalEofSignalInfo), '("event", Gtk.Widget.WidgetEventSignalInfo), '("eventAfter", Gtk.Widget.WidgetEventAfterSignalInfo), '("focus", Gtk.Widget.WidgetFocusSignalInfo), '("focusInEvent", Gtk.Widget.WidgetFocusInEventSignalInfo), '("focusOutEvent", Gtk.Widget.WidgetFocusOutEventSignalInfo), '("grabBrokenEvent", Gtk.Widget.WidgetGrabBrokenEventSignalInfo), '("grabFocus", Gtk.Widget.WidgetGrabFocusSignalInfo), '("grabNotify", Gtk.Widget.WidgetGrabNotifySignalInfo), '("hide", Gtk.Widget.WidgetHideSignalInfo), '("hierarchyChanged", Gtk.Widget.WidgetHierarchyChangedSignalInfo), '("hyperlinkHoverUriChanged", TerminalHyperlinkHoverUriChangedSignalInfo), '("iconTitleChanged", TerminalIconTitleChangedSignalInfo), '("iconifyWindow", TerminalIconifyWindowSignalInfo), '("increaseFontSize", TerminalIncreaseFontSizeSignalInfo), '("keyPressEvent", Gtk.Widget.WidgetKeyPressEventSignalInfo), '("keyReleaseEvent", Gtk.Widget.WidgetKeyReleaseEventSignalInfo), '("keynavFailed", Gtk.Widget.WidgetKeynavFailedSignalInfo), '("leaveNotifyEvent", Gtk.Widget.WidgetLeaveNotifyEventSignalInfo), '("lowerWindow", TerminalLowerWindowSignalInfo), '("map", Gtk.Widget.WidgetMapSignalInfo), '("mapEvent", Gtk.Widget.WidgetMapEventSignalInfo), '("maximizeWindow", TerminalMaximizeWindowSignalInfo), '("mnemonicActivate", Gtk.Widget.WidgetMnemonicActivateSignalInfo), '("motionNotifyEvent", Gtk.Widget.WidgetMotionNotifyEventSignalInfo), '("moveFocus", Gtk.Widget.WidgetMoveFocusSignalInfo), '("moveWindow", TerminalMoveWindowSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("parentSet", Gtk.Widget.WidgetParentSetSignalInfo), '("pasteClipboard", TerminalPasteClipboardSignalInfo), '("popupMenu", Gtk.Widget.WidgetPopupMenuSignalInfo), '("propertyNotifyEvent", Gtk.Widget.WidgetPropertyNotifyEventSignalInfo), '("proximityInEvent", Gtk.Widget.WidgetProximityInEventSignalInfo), '("proximityOutEvent", Gtk.Widget.WidgetProximityOutEventSignalInfo), '("queryTooltip", Gtk.Widget.WidgetQueryTooltipSignalInfo), '("raiseWindow", TerminalRaiseWindowSignalInfo), '("realize", Gtk.Widget.WidgetRealizeSignalInfo), '("refreshWindow", TerminalRefreshWindowSignalInfo), '("resizeWindow", TerminalResizeWindowSignalInfo), '("restoreWindow", TerminalRestoreWindowSignalInfo), '("screenChanged", Gtk.Widget.WidgetScreenChangedSignalInfo), '("scrollEvent", Gtk.Widget.WidgetScrollEventSignalInfo), '("selectionChanged", TerminalSelectionChangedSignalInfo), '("selectionClearEvent", Gtk.Widget.WidgetSelectionClearEventSignalInfo), '("selectionGet", Gtk.Widget.WidgetSelectionGetSignalInfo), '("selectionNotifyEvent", Gtk.Widget.WidgetSelectionNotifyEventSignalInfo), '("selectionReceived", Gtk.Widget.WidgetSelectionReceivedSignalInfo), '("selectionRequestEvent", Gtk.Widget.WidgetSelectionRequestEventSignalInfo), '("setupContextMenu", TerminalSetupContextMenuSignalInfo), '("show", Gtk.Widget.WidgetShowSignalInfo), '("showHelp", Gtk.Widget.WidgetShowHelpSignalInfo), '("sizeAllocate", Gtk.Widget.WidgetSizeAllocateSignalInfo), '("stateChanged", Gtk.Widget.WidgetStateChangedSignalInfo), '("stateFlagsChanged", Gtk.Widget.WidgetStateFlagsChangedSignalInfo), '("styleSet", Gtk.Widget.WidgetStyleSetSignalInfo), '("styleUpdated", Gtk.Widget.WidgetStyleUpdatedSignalInfo), '("termpropChanged", TerminalTermpropChangedSignalInfo), '("termpropsChanged", TerminalTermpropsChangedSignalInfo), '("textDeleted", TerminalTextDeletedSignalInfo), '("textInserted", TerminalTextInsertedSignalInfo), '("textModified", TerminalTextModifiedSignalInfo), '("textScrolled", TerminalTextScrolledSignalInfo), '("touchEvent", Gtk.Widget.WidgetTouchEventSignalInfo), '("unmap", Gtk.Widget.WidgetUnmapSignalInfo), '("unmapEvent", Gtk.Widget.WidgetUnmapEventSignalInfo), '("unrealize", Gtk.Widget.WidgetUnrealizeSignalInfo), '("visibilityNotifyEvent", Gtk.Widget.WidgetVisibilityNotifyEventSignalInfo), '("windowStateEvent", Gtk.Widget.WidgetWindowStateEventSignalInfo), '("windowTitleChanged", TerminalWindowTitleChangedSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "vte_terminal_new" vte_terminal_new ::
IO (Ptr Terminal)
terminalNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Terminal
terminalNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Terminal
terminalNew = IO Terminal -> m Terminal
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Terminal -> m Terminal) -> IO Terminal -> m Terminal
forall a b. (a -> b) -> a -> b
$ do
result <- IO (Ptr Terminal)
vte_terminal_new
checkUnexpectedReturnNULL "terminalNew" result
result' <- (newObject Terminal) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vte_terminal_copy_clipboard" vte_terminal_copy_clipboard ::
Ptr Terminal ->
IO ()
{-# DEPRECATED terminalCopyClipboard ["(Since version 0.50)","Use 'GI.Vte.Objects.Terminal.terminalCopyClipboardFormat' with 'GI.Vte.Enums.FormatText'"," instead."] #-}
terminalCopyClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalCopyClipboard :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalCopyClipboard a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_copy_clipboard terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalCopyClipboardMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalCopyClipboardMethodInfo a signature where
overloadedMethod = terminalCopyClipboard
instance O.OverloadedMethodInfo TerminalCopyClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalCopyClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalCopyClipboard"
})
#endif
foreign import ccall "vte_terminal_copy_clipboard_format" vte_terminal_copy_clipboard_format ::
Ptr Terminal ->
CUInt ->
IO ()
terminalCopyClipboardFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Format
-> m ()
terminalCopyClipboardFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Format -> m ()
terminalCopyClipboardFormat a
terminal Format
format = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
format
vte_terminal_copy_clipboard_format terminal' format'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalCopyClipboardFormatMethodInfo
instance (signature ~ (Vte.Enums.Format -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalCopyClipboardFormatMethodInfo a signature where
overloadedMethod = terminalCopyClipboardFormat
instance O.OverloadedMethodInfo TerminalCopyClipboardFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalCopyClipboardFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalCopyClipboardFormat"
})
#endif
foreign import ccall "vte_terminal_copy_primary" vte_terminal_copy_primary ::
Ptr Terminal ->
IO ()
terminalCopyPrimary ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalCopyPrimary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalCopyPrimary a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_copy_primary terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalCopyPrimaryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalCopyPrimaryMethodInfo a signature where
overloadedMethod = terminalCopyPrimary
instance O.OverloadedMethodInfo TerminalCopyPrimaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalCopyPrimary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalCopyPrimary"
})
#endif
foreign import ccall "vte_terminal_dup_termprop_string" vte_terminal_dup_termprop_string ::
Ptr Terminal ->
CString ->
Ptr FCT.CSize ->
IO CString
terminalDupTermpropString ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Maybe T.Text, FCT.CSize))
terminalDupTermpropString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Text, CSize)
terminalDupTermpropString a
terminal Text
prop = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_dup_termprop_string terminal' prop' size
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
size' <- peek size
touchManagedPtr terminal
freeMem prop'
freeMem size
return (maybeResult, size')
#if defined(ENABLE_OVERLOADING)
data TerminalDupTermpropStringMethodInfo
instance (signature ~ (T.Text -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalDupTermpropStringMethodInfo a signature where
overloadedMethod = terminalDupTermpropString
instance O.OverloadedMethodInfo TerminalDupTermpropStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalDupTermpropString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalDupTermpropString"
})
#endif
foreign import ccall "vte_terminal_dup_termprop_string_by_id" vte_terminal_dup_termprop_string_by_id ::
Ptr Terminal ->
Int32 ->
Ptr FCT.CSize ->
IO CString
terminalDupTermpropStringById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Maybe T.Text, FCT.CSize))
terminalDupTermpropStringById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Text, CSize)
terminalDupTermpropStringById a
terminal Int32
prop = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_dup_termprop_string_by_id terminal' prop size
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
size' <- peek size
touchManagedPtr terminal
freeMem size
return (maybeResult, size')
#if defined(ENABLE_OVERLOADING)
data TerminalDupTermpropStringByIdMethodInfo
instance (signature ~ (Int32 -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalDupTermpropStringByIdMethodInfo a signature where
overloadedMethod = terminalDupTermpropStringById
instance O.OverloadedMethodInfo TerminalDupTermpropStringByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalDupTermpropStringById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalDupTermpropStringById"
})
#endif
foreign import ccall "vte_terminal_dup_termprop_uuid" vte_terminal_dup_termprop_uuid ::
Ptr Terminal ->
CString ->
IO (Ptr Vte.Uuid.Uuid)
terminalDupTermpropUuid ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe Vte.Uuid.Uuid)
terminalDupTermpropUuid :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Uuid)
terminalDupTermpropUuid a
terminal Text
prop = IO (Maybe Uuid) -> m (Maybe Uuid)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Uuid) -> m (Maybe Uuid))
-> IO (Maybe Uuid) -> m (Maybe Uuid)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_dup_termprop_uuid terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr Uuid
result' -> do
result'' <- ((ManagedPtr Uuid -> Uuid) -> Ptr Uuid -> IO Uuid
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Uuid -> Uuid
Vte.Uuid.Uuid) Ptr Uuid
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalDupTermpropUuidMethodInfo
instance (signature ~ (T.Text -> m (Maybe Vte.Uuid.Uuid)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalDupTermpropUuidMethodInfo a signature where
overloadedMethod = terminalDupTermpropUuid
instance O.OverloadedMethodInfo TerminalDupTermpropUuidMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalDupTermpropUuid",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalDupTermpropUuid"
})
#endif
foreign import ccall "vte_terminal_dup_termprop_uuid_by_id" vte_terminal_dup_termprop_uuid_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr Vte.Uuid.Uuid)
terminalDupTermpropUuidById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe Vte.Uuid.Uuid)
terminalDupTermpropUuidById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Uuid)
terminalDupTermpropUuidById a
terminal Int32
prop = IO (Maybe Uuid) -> m (Maybe Uuid)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Uuid) -> m (Maybe Uuid))
-> IO (Maybe Uuid) -> m (Maybe Uuid)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_dup_termprop_uuid_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr Uuid
result' -> do
result'' <- ((ManagedPtr Uuid -> Uuid) -> Ptr Uuid -> IO Uuid
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Uuid -> Uuid
Vte.Uuid.Uuid) Ptr Uuid
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalDupTermpropUuidByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe Vte.Uuid.Uuid)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalDupTermpropUuidByIdMethodInfo a signature where
overloadedMethod = terminalDupTermpropUuidById
instance O.OverloadedMethodInfo TerminalDupTermpropUuidByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalDupTermpropUuidById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalDupTermpropUuidById"
})
#endif
foreign import ccall "vte_terminal_feed" vte_terminal_feed ::
Ptr Terminal ->
Ptr Word8 ->
DI.Int64 ->
IO ()
terminalFeed ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (ByteString)
-> m ()
terminalFeed :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe ByteString -> m ()
terminalFeed a
terminal Maybe ByteString
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let length_ :: Int64
length_ = case Maybe ByteString
data_ of
Maybe ByteString
Nothing -> Int64
0
Just ByteString
jData_ -> Int -> Int64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int64) -> Int -> Int64
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
jData_
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeData_ <- case data_ of
Maybe ByteString
Nothing -> Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
FP.nullPtr
Just ByteString
jData_ -> do
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
return jData_'
vte_terminal_feed terminal' maybeData_ length_
touchManagedPtr terminal
freeMem maybeData_
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalFeedMethodInfo a signature where
overloadedMethod = terminalFeed
instance O.OverloadedMethodInfo TerminalFeedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalFeed",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalFeed"
})
#endif
foreign import ccall "vte_terminal_feed_child" vte_terminal_feed_child ::
Ptr Terminal ->
Ptr Word8 ->
DI.Int64 ->
IO ()
terminalFeedChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (ByteString)
-> m ()
terminalFeedChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe ByteString -> m ()
terminalFeedChild a
terminal Maybe ByteString
text = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let length_ :: Int64
length_ = case Maybe ByteString
text of
Maybe ByteString
Nothing -> Int64
0
Just ByteString
jText -> Int -> Int64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int64) -> Int -> Int64
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
jText
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeText <- case text of
Maybe ByteString
Nothing -> Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
FP.nullPtr
Just ByteString
jText -> do
jText' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jText
return jText'
vte_terminal_feed_child terminal' maybeText length_
touchManagedPtr terminal
freeMem maybeText
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedChildMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalFeedChildMethodInfo a signature where
overloadedMethod = terminalFeedChild
instance O.OverloadedMethodInfo TerminalFeedChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalFeedChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalFeedChild"
})
#endif
foreign import ccall "vte_terminal_feed_child_binary" vte_terminal_feed_child_binary ::
Ptr Terminal ->
Ptr Word8 ->
FCT.CSize ->
IO ()
{-# DEPRECATED terminalFeedChildBinary ["(Since version 0.60)","Don\\'t send binary data. Use 'GI.Vte.Objects.Terminal.terminalFeedChild' instead to send"," UTF-8 text"] #-}
terminalFeedChildBinary ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (ByteString)
-> m ()
terminalFeedChildBinary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe ByteString -> m ()
terminalFeedChildBinary a
terminal Maybe ByteString
data_ = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let length_ :: CSize
length_ = case Maybe ByteString
data_ of
Maybe ByteString
Nothing -> CSize
0
Just ByteString
jData_ -> Int -> CSize
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CSize) -> Int -> CSize
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
B.length ByteString
jData_
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeData_ <- case data_ of
Maybe ByteString
Nothing -> Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
FP.nullPtr
Just ByteString
jData_ -> do
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
return jData_'
vte_terminal_feed_child_binary terminal' maybeData_ length_
touchManagedPtr terminal
freeMem maybeData_
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedChildBinaryMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalFeedChildBinaryMethodInfo a signature where
overloadedMethod = terminalFeedChildBinary
instance O.OverloadedMethodInfo TerminalFeedChildBinaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalFeedChildBinary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalFeedChildBinary"
})
#endif
foreign import ccall "vte_terminal_get_allow_bold" vte_terminal_get_allow_bold ::
Ptr Terminal ->
IO CInt
{-# DEPRECATED terminalGetAllowBold ["(Since version 0.60)","There\\'s probably no reason for this feature to exist."] #-}
terminalGetAllowBold ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetAllowBold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetAllowBold a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_allow_bold terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetAllowBoldMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetAllowBoldMethodInfo a signature where
overloadedMethod = terminalGetAllowBold
instance O.OverloadedMethodInfo TerminalGetAllowBoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetAllowBold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetAllowBold"
})
#endif
foreign import ccall "vte_terminal_get_allow_hyperlink" vte_terminal_get_allow_hyperlink ::
Ptr Terminal ->
IO CInt
terminalGetAllowHyperlink ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetAllowHyperlink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetAllowHyperlink a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_allow_hyperlink terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetAllowHyperlinkMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetAllowHyperlinkMethodInfo a signature where
overloadedMethod = terminalGetAllowHyperlink
instance O.OverloadedMethodInfo TerminalGetAllowHyperlinkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetAllowHyperlink",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetAllowHyperlink"
})
#endif
foreign import ccall "vte_terminal_get_audible_bell" vte_terminal_get_audible_bell ::
Ptr Terminal ->
IO CInt
terminalGetAudibleBell ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetAudibleBell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetAudibleBell a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_audible_bell terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetAudibleBellMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetAudibleBellMethodInfo a signature where
overloadedMethod = terminalGetAudibleBell
instance O.OverloadedMethodInfo TerminalGetAudibleBellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetAudibleBell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetAudibleBell"
})
#endif
foreign import ccall "vte_terminal_get_bold_is_bright" vte_terminal_get_bold_is_bright ::
Ptr Terminal ->
IO CInt
terminalGetBoldIsBright ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetBoldIsBright :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetBoldIsBright a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_bold_is_bright terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetBoldIsBrightMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetBoldIsBrightMethodInfo a signature where
overloadedMethod = terminalGetBoldIsBright
instance O.OverloadedMethodInfo TerminalGetBoldIsBrightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetBoldIsBright",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetBoldIsBright"
})
#endif
foreign import ccall "vte_terminal_get_cell_height_scale" vte_terminal_get_cell_height_scale ::
Ptr Terminal ->
IO CDouble
terminalGetCellHeightScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Double
terminalGetCellHeightScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Double
terminalGetCellHeightScale a
terminal = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_cell_height_scale terminal'
let result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetCellHeightScaleMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCellHeightScaleMethodInfo a signature where
overloadedMethod = terminalGetCellHeightScale
instance O.OverloadedMethodInfo TerminalGetCellHeightScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCellHeightScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCellHeightScale"
})
#endif
foreign import ccall "vte_terminal_get_cell_width_scale" vte_terminal_get_cell_width_scale ::
Ptr Terminal ->
IO CDouble
terminalGetCellWidthScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Double
terminalGetCellWidthScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Double
terminalGetCellWidthScale a
terminal = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_cell_width_scale terminal'
let result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetCellWidthScaleMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCellWidthScaleMethodInfo a signature where
overloadedMethod = terminalGetCellWidthScale
instance O.OverloadedMethodInfo TerminalGetCellWidthScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCellWidthScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCellWidthScale"
})
#endif
foreign import ccall "vte_terminal_get_char_height" vte_terminal_get_char_height ::
Ptr Terminal ->
IO FCT.CLong
terminalGetCharHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m FCT.CLong
terminalGetCharHeight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CLong
terminalGetCharHeight a
terminal = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_char_height terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetCharHeightMethodInfo
instance (signature ~ (m FCT.CLong), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCharHeightMethodInfo a signature where
overloadedMethod = terminalGetCharHeight
instance O.OverloadedMethodInfo TerminalGetCharHeightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCharHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCharHeight"
})
#endif
foreign import ccall "vte_terminal_get_char_width" vte_terminal_get_char_width ::
Ptr Terminal ->
IO FCT.CLong
terminalGetCharWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m FCT.CLong
terminalGetCharWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CLong
terminalGetCharWidth a
terminal = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_char_width terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetCharWidthMethodInfo
instance (signature ~ (m FCT.CLong), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCharWidthMethodInfo a signature where
overloadedMethod = terminalGetCharWidth
instance O.OverloadedMethodInfo TerminalGetCharWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCharWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCharWidth"
})
#endif
foreign import ccall "vte_terminal_get_cjk_ambiguous_width" vte_terminal_get_cjk_ambiguous_width ::
Ptr Terminal ->
IO Int32
terminalGetCjkAmbiguousWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Int32
terminalGetCjkAmbiguousWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Int32
terminalGetCjkAmbiguousWidth a
terminal = IO Int32 -> m Int32
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_cjk_ambiguous_width terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetCjkAmbiguousWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCjkAmbiguousWidthMethodInfo a signature where
overloadedMethod = terminalGetCjkAmbiguousWidth
instance O.OverloadedMethodInfo TerminalGetCjkAmbiguousWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCjkAmbiguousWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCjkAmbiguousWidth"
})
#endif
foreign import ccall "vte_terminal_get_color_background_for_draw" vte_terminal_get_color_background_for_draw ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalGetColorBackgroundForDraw ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Gdk.RGBA.RGBA)
terminalGetColorBackgroundForDraw :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m RGBA
terminalGetColorBackgroundForDraw a
terminal = IO RGBA -> m RGBA
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RGBA -> m RGBA) -> IO RGBA -> m RGBA
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
color <- SP.callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
vte_terminal_get_color_background_for_draw terminal' color
color' <- (wrapBoxed Gdk.RGBA.RGBA) color
touchManagedPtr terminal
return color'
#if defined(ENABLE_OVERLOADING)
data TerminalGetColorBackgroundForDrawMethodInfo
instance (signature ~ (m (Gdk.RGBA.RGBA)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetColorBackgroundForDrawMethodInfo a signature where
overloadedMethod = terminalGetColorBackgroundForDraw
instance O.OverloadedMethodInfo TerminalGetColorBackgroundForDrawMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetColorBackgroundForDraw",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetColorBackgroundForDraw"
})
#endif
foreign import ccall "vte_terminal_get_column_count" vte_terminal_get_column_count ::
Ptr Terminal ->
IO FCT.CLong
terminalGetColumnCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m FCT.CLong
terminalGetColumnCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CLong
terminalGetColumnCount a
terminal = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_column_count terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetColumnCountMethodInfo
instance (signature ~ (m FCT.CLong), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetColumnCountMethodInfo a signature where
overloadedMethod = terminalGetColumnCount
instance O.OverloadedMethodInfo TerminalGetColumnCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetColumnCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetColumnCount"
})
#endif
foreign import ccall "vte_terminal_get_context_menu" ::
Ptr Terminal ->
IO (Ptr Gtk.Widget.Widget)
terminalGetContextMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe Gtk.Widget.Widget)
a
terminal = IO (Maybe Widget) -> m (Maybe Widget)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_context_menu terminal'
maybeResult <- convertIfNonNull result $ \Ptr Widget
result' -> do
result'' <- ((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
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetContextMenuMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetContextMenuMethodInfo a signature where
overloadedMethod = terminalGetContextMenu
instance O.OverloadedMethodInfo TerminalGetContextMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetContextMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetContextMenu"
})
#endif
foreign import ccall "vte_terminal_get_context_menu_model" ::
Ptr Terminal ->
IO (Ptr Gio.MenuModel.MenuModel)
terminalGetContextMenuModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
a
terminal = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_context_menu_model terminal'
maybeResult <- convertIfNonNull result $ \Ptr MenuModel
result' -> do
result'' <- ((ManagedPtr MenuModel -> MenuModel)
-> Ptr MenuModel -> IO MenuModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetContextMenuModelMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetContextMenuModelMethodInfo a signature where
overloadedMethod = terminalGetContextMenuModel
instance O.OverloadedMethodInfo TerminalGetContextMenuModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetContextMenuModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetContextMenuModel"
})
#endif
foreign import ccall "vte_terminal_get_current_directory_uri" vte_terminal_get_current_directory_uri ::
Ptr Terminal ->
IO CString
{-# DEPRECATED terminalGetCurrentDirectoryUri ["(Since version 0.78)","Use the @/VTE_TERMPROP_CURRENT_FILE_URI_STRING/@ termprop."] #-}
terminalGetCurrentDirectoryUri ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentDirectoryUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetCurrentDirectoryUri a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_current_directory_uri terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetCurrentDirectoryUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCurrentDirectoryUriMethodInfo a signature where
overloadedMethod = terminalGetCurrentDirectoryUri
instance O.OverloadedMethodInfo TerminalGetCurrentDirectoryUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCurrentDirectoryUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCurrentDirectoryUri"
})
#endif
foreign import ccall "vte_terminal_get_current_file_uri" vte_terminal_get_current_file_uri ::
Ptr Terminal ->
IO CString
{-# DEPRECATED terminalGetCurrentFileUri ["(Since version 0.78)","Use the @/VTE_TERMPROP_CURRENT_FILE_URI_STRING/@ termprop."] #-}
terminalGetCurrentFileUri ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentFileUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetCurrentFileUri a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_current_file_uri terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetCurrentFileUriMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCurrentFileUriMethodInfo a signature where
overloadedMethod = terminalGetCurrentFileUri
instance O.OverloadedMethodInfo TerminalGetCurrentFileUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCurrentFileUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCurrentFileUri"
})
#endif
foreign import ccall "vte_terminal_get_cursor_blink_mode" vte_terminal_get_cursor_blink_mode ::
Ptr Terminal ->
IO CUInt
terminalGetCursorBlinkMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Enums.CursorBlinkMode
terminalGetCursorBlinkMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CursorBlinkMode
terminalGetCursorBlinkMode a
terminal = IO CursorBlinkMode -> m CursorBlinkMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CursorBlinkMode -> m CursorBlinkMode)
-> IO CursorBlinkMode -> m CursorBlinkMode
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_cursor_blink_mode terminal'
let result' = (Int -> CursorBlinkMode
forall a. Enum a => Int -> a
toEnum (Int -> CursorBlinkMode)
-> (CUInt -> Int) -> CUInt -> CursorBlinkMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetCursorBlinkModeMethodInfo
instance (signature ~ (m Vte.Enums.CursorBlinkMode), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCursorBlinkModeMethodInfo a signature where
overloadedMethod = terminalGetCursorBlinkMode
instance O.OverloadedMethodInfo TerminalGetCursorBlinkModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCursorBlinkMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCursorBlinkMode"
})
#endif
foreign import ccall "vte_terminal_get_cursor_position" vte_terminal_get_cursor_position ::
Ptr Terminal ->
Ptr FCT.CLong ->
Ptr FCT.CLong ->
IO ()
terminalGetCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ((FCT.CLong, FCT.CLong))
terminalGetCursorPosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (CLong, CLong)
terminalGetCursorPosition a
terminal = IO (CLong, CLong) -> m (CLong, CLong)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (CLong, CLong) -> m (CLong, CLong))
-> IO (CLong, CLong) -> m (CLong, CLong)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
column <- allocMem :: IO (Ptr FCT.CLong)
row <- allocMem :: IO (Ptr FCT.CLong)
vte_terminal_get_cursor_position terminal' column row
column' <- peek column
row' <- peek row
touchManagedPtr terminal
freeMem column
freeMem row
return (column', row')
#if defined(ENABLE_OVERLOADING)
data TerminalGetCursorPositionMethodInfo
instance (signature ~ (m ((FCT.CLong, FCT.CLong))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCursorPositionMethodInfo a signature where
overloadedMethod = terminalGetCursorPosition
instance O.OverloadedMethodInfo TerminalGetCursorPositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCursorPosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCursorPosition"
})
#endif
foreign import ccall "vte_terminal_get_cursor_shape" vte_terminal_get_cursor_shape ::
Ptr Terminal ->
IO CUInt
terminalGetCursorShape ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Enums.CursorShape
terminalGetCursorShape :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CursorShape
terminalGetCursorShape a
terminal = IO CursorShape -> m CursorShape
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CursorShape -> m CursorShape)
-> IO CursorShape -> m CursorShape
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_cursor_shape terminal'
let result' = (Int -> CursorShape
forall a. Enum a => Int -> a
toEnum (Int -> CursorShape) -> (CUInt -> Int) -> CUInt -> CursorShape
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetCursorShapeMethodInfo
instance (signature ~ (m Vte.Enums.CursorShape), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetCursorShapeMethodInfo a signature where
overloadedMethod = terminalGetCursorShape
instance O.OverloadedMethodInfo TerminalGetCursorShapeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetCursorShape",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetCursorShape"
})
#endif
foreign import ccall "vte_terminal_get_enable_a11y" vte_terminal_get_enable_a11y ::
Ptr Terminal ->
IO CInt
terminalGetEnableA11y ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableA11y :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableA11y a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_a11y terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableA11yMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableA11yMethodInfo a signature where
overloadedMethod = terminalGetEnableA11y
instance O.OverloadedMethodInfo TerminalGetEnableA11yMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableA11y",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableA11y"
})
#endif
foreign import ccall "vte_terminal_get_enable_bidi" vte_terminal_get_enable_bidi ::
Ptr Terminal ->
IO CInt
terminalGetEnableBidi ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableBidi :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableBidi a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_bidi terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableBidiMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableBidiMethodInfo a signature where
overloadedMethod = terminalGetEnableBidi
instance O.OverloadedMethodInfo TerminalGetEnableBidiMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableBidi",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableBidi"
})
#endif
foreign import ccall "vte_terminal_get_enable_fallback_scrolling" vte_terminal_get_enable_fallback_scrolling ::
Ptr Terminal ->
IO CInt
terminalGetEnableFallbackScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableFallbackScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableFallbackScrolling a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_fallback_scrolling terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableFallbackScrollingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableFallbackScrollingMethodInfo a signature where
overloadedMethod = terminalGetEnableFallbackScrolling
instance O.OverloadedMethodInfo TerminalGetEnableFallbackScrollingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableFallbackScrolling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableFallbackScrolling"
})
#endif
foreign import ccall "vte_terminal_get_enable_legacy_osc777" vte_terminal_get_enable_legacy_osc777 ::
Ptr Terminal ->
IO CInt
terminalGetEnableLegacyOsc777 ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableLegacyOsc777 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableLegacyOsc777 a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_legacy_osc777 terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableLegacyOsc777MethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableLegacyOsc777MethodInfo a signature where
overloadedMethod = terminalGetEnableLegacyOsc777
instance O.OverloadedMethodInfo TerminalGetEnableLegacyOsc777MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableLegacyOsc777",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableLegacyOsc777"
})
#endif
foreign import ccall "vte_terminal_get_enable_shaping" vte_terminal_get_enable_shaping ::
Ptr Terminal ->
IO CInt
terminalGetEnableShaping ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableShaping :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableShaping a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_shaping terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableShapingMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableShapingMethodInfo a signature where
overloadedMethod = terminalGetEnableShaping
instance O.OverloadedMethodInfo TerminalGetEnableShapingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableShaping",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableShaping"
})
#endif
foreign import ccall "vte_terminal_get_enable_sixel" vte_terminal_get_enable_sixel ::
Ptr Terminal ->
IO CInt
terminalGetEnableSixel ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetEnableSixel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetEnableSixel a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_enable_sixel terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetEnableSixelMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEnableSixelMethodInfo a signature where
overloadedMethod = terminalGetEnableSixel
instance O.OverloadedMethodInfo TerminalGetEnableSixelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEnableSixel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEnableSixel"
})
#endif
foreign import ccall "vte_terminal_get_encoding" vte_terminal_get_encoding ::
Ptr Terminal ->
IO CString
{-# DEPRECATED terminalGetEncoding ["(Since version 0.54)","Support for non-UTF-8 is deprecated."] #-}
terminalGetEncoding ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetEncoding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetEncoding a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_encoding terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetEncodingMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetEncodingMethodInfo a signature where
overloadedMethod = terminalGetEncoding
instance O.OverloadedMethodInfo TerminalGetEncodingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetEncoding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetEncoding"
})
#endif
foreign import ccall "vte_terminal_get_font" vte_terminal_get_font ::
Ptr Terminal ->
IO (Ptr Pango.FontDescription.FontDescription)
terminalGetFont ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Pango.FontDescription.FontDescription
terminalGetFont :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m FontDescription
terminalGetFont a
terminal = IO FontDescription -> m FontDescription
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FontDescription -> m FontDescription)
-> IO FontDescription -> m FontDescription
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_font terminal'
checkUnexpectedReturnNULL "terminalGetFont" result
result' <- (newBoxed Pango.FontDescription.FontDescription) result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetFontMethodInfo
instance (signature ~ (m Pango.FontDescription.FontDescription), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetFontMethodInfo a signature where
overloadedMethod = terminalGetFont
instance O.OverloadedMethodInfo TerminalGetFontMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetFont",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetFont"
})
#endif
foreign import ccall "vte_terminal_get_font_options" vte_terminal_get_font_options ::
Ptr Terminal ->
IO (Ptr Cairo.FontOptions.FontOptions)
terminalGetFontOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe Cairo.FontOptions.FontOptions)
terminalGetFontOptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe FontOptions)
terminalGetFontOptions a
terminal = IO (Maybe FontOptions) -> m (Maybe FontOptions)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe FontOptions) -> m (Maybe FontOptions))
-> IO (Maybe FontOptions) -> m (Maybe FontOptions)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_font_options terminal'
maybeResult <- convertIfNonNull result $ \Ptr FontOptions
result' -> do
result'' <- ((ManagedPtr FontOptions -> FontOptions)
-> Ptr FontOptions -> IO FontOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr FontOptions -> FontOptions
Cairo.FontOptions.FontOptions) Ptr FontOptions
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetFontOptionsMethodInfo
instance (signature ~ (m (Maybe Cairo.FontOptions.FontOptions)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetFontOptionsMethodInfo a signature where
overloadedMethod = terminalGetFontOptions
instance O.OverloadedMethodInfo TerminalGetFontOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetFontOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetFontOptions"
})
#endif
foreign import ccall "vte_terminal_get_font_scale" vte_terminal_get_font_scale ::
Ptr Terminal ->
IO CDouble
terminalGetFontScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Double
terminalGetFontScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Double
terminalGetFontScale a
terminal = IO Double -> m Double
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_font_scale terminal'
let result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetFontScaleMethodInfo
instance (signature ~ (m Double), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetFontScaleMethodInfo a signature where
overloadedMethod = terminalGetFontScale
instance O.OverloadedMethodInfo TerminalGetFontScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetFontScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetFontScale"
})
#endif
foreign import ccall "vte_terminal_get_geometry_hints" vte_terminal_get_geometry_hints ::
Ptr Terminal ->
Ptr Gdk.Geometry.Geometry ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED terminalGetGeometryHints ["(Since version 0.52)"] #-}
terminalGetGeometryHints ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> Int32
-> m (Gdk.Geometry.Geometry)
terminalGetGeometryHints :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> Int32 -> m Geometry
terminalGetGeometryHints a
terminal Int32
minRows Int32
minColumns = IO Geometry -> m Geometry
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Geometry -> m Geometry) -> IO Geometry -> m Geometry
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
hints <- SP.callocBytes 56 :: IO (Ptr Gdk.Geometry.Geometry)
vte_terminal_get_geometry_hints terminal' hints minRows minColumns
hints' <- (wrapPtr Gdk.Geometry.Geometry) hints
touchManagedPtr terminal
return hints'
#if defined(ENABLE_OVERLOADING)
data TerminalGetGeometryHintsMethodInfo
instance (signature ~ (Int32 -> Int32 -> m (Gdk.Geometry.Geometry)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetGeometryHintsMethodInfo a signature where
overloadedMethod = terminalGetGeometryHints
instance O.OverloadedMethodInfo TerminalGetGeometryHintsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetGeometryHints",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetGeometryHints"
})
#endif
foreign import ccall "vte_terminal_get_has_selection" vte_terminal_get_has_selection ::
Ptr Terminal ->
IO CInt
terminalGetHasSelection ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetHasSelection :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetHasSelection a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_has_selection terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetHasSelectionMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetHasSelectionMethodInfo a signature where
overloadedMethod = terminalGetHasSelection
instance O.OverloadedMethodInfo TerminalGetHasSelectionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetHasSelection",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetHasSelection"
})
#endif
foreign import ccall "vte_terminal_get_icon_title" vte_terminal_get_icon_title ::
Ptr Terminal ->
IO CString
{-# DEPRECATED terminalGetIconTitle ["(Since version 0.54)"] #-}
terminalGetIconTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetIconTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetIconTitle a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_icon_title terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetIconTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetIconTitleMethodInfo a signature where
overloadedMethod = terminalGetIconTitle
instance O.OverloadedMethodInfo TerminalGetIconTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetIconTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetIconTitle"
})
#endif
foreign import ccall "vte_terminal_get_input_enabled" vte_terminal_get_input_enabled ::
Ptr Terminal ->
IO CInt
terminalGetInputEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetInputEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetInputEnabled a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_input_enabled terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetInputEnabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetInputEnabledMethodInfo a signature where
overloadedMethod = terminalGetInputEnabled
instance O.OverloadedMethodInfo TerminalGetInputEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetInputEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetInputEnabled"
})
#endif
foreign import ccall "vte_terminal_get_mouse_autohide" vte_terminal_get_mouse_autohide ::
Ptr Terminal ->
IO CInt
terminalGetMouseAutohide ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetMouseAutohide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetMouseAutohide a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_mouse_autohide terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetMouseAutohideMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetMouseAutohideMethodInfo a signature where
overloadedMethod = terminalGetMouseAutohide
instance O.OverloadedMethodInfo TerminalGetMouseAutohideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetMouseAutohide",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetMouseAutohide"
})
#endif
foreign import ccall "vte_terminal_get_pty" vte_terminal_get_pty ::
Ptr Terminal ->
IO (Ptr Vte.Pty.Pty)
terminalGetPty ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe Vte.Pty.Pty)
terminalGetPty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Pty)
terminalGetPty a
terminal = IO (Maybe Pty) -> m (Maybe Pty)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Pty) -> m (Maybe Pty))
-> IO (Maybe Pty) -> m (Maybe Pty)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_pty terminal'
maybeResult <- convertIfNonNull result $ \Ptr Pty
result' -> do
result'' <- ((ManagedPtr Pty -> Pty) -> Ptr Pty -> IO Pty
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Pty -> Pty
Vte.Pty.Pty) Ptr Pty
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetPtyMethodInfo
instance (signature ~ (m (Maybe Vte.Pty.Pty)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetPtyMethodInfo a signature where
overloadedMethod = terminalGetPty
instance O.OverloadedMethodInfo TerminalGetPtyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetPty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetPty"
})
#endif
foreign import ccall "vte_terminal_get_rewrap_on_resize" vte_terminal_get_rewrap_on_resize ::
Ptr Terminal ->
IO CInt
{-# DEPRECATED terminalGetRewrapOnResize ["(Since version 0.58)"] #-}
terminalGetRewrapOnResize ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetRewrapOnResize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetRewrapOnResize a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_rewrap_on_resize terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetRewrapOnResizeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetRewrapOnResizeMethodInfo a signature where
overloadedMethod = terminalGetRewrapOnResize
instance O.OverloadedMethodInfo TerminalGetRewrapOnResizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetRewrapOnResize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetRewrapOnResize"
})
#endif
foreign import ccall "vte_terminal_get_row_count" vte_terminal_get_row_count ::
Ptr Terminal ->
IO FCT.CLong
terminalGetRowCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m FCT.CLong
terminalGetRowCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CLong
terminalGetRowCount a
terminal = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_row_count terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetRowCountMethodInfo
instance (signature ~ (m FCT.CLong), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetRowCountMethodInfo a signature where
overloadedMethod = terminalGetRowCount
instance O.OverloadedMethodInfo TerminalGetRowCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetRowCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetRowCount"
})
#endif
foreign import ccall "vte_terminal_get_scroll_on_insert" vte_terminal_get_scroll_on_insert ::
Ptr Terminal ->
IO CInt
terminalGetScrollOnInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetScrollOnInsert :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetScrollOnInsert a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_scroll_on_insert terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollOnInsertMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetScrollOnInsertMethodInfo a signature where
overloadedMethod = terminalGetScrollOnInsert
instance O.OverloadedMethodInfo TerminalGetScrollOnInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetScrollOnInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetScrollOnInsert"
})
#endif
foreign import ccall "vte_terminal_get_scroll_on_keystroke" vte_terminal_get_scroll_on_keystroke ::
Ptr Terminal ->
IO CInt
terminalGetScrollOnKeystroke ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetScrollOnKeystroke :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetScrollOnKeystroke a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_scroll_on_keystroke terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollOnKeystrokeMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetScrollOnKeystrokeMethodInfo a signature where
overloadedMethod = terminalGetScrollOnKeystroke
instance O.OverloadedMethodInfo TerminalGetScrollOnKeystrokeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetScrollOnKeystroke",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetScrollOnKeystroke"
})
#endif
foreign import ccall "vte_terminal_get_scroll_on_output" vte_terminal_get_scroll_on_output ::
Ptr Terminal ->
IO CInt
terminalGetScrollOnOutput ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetScrollOnOutput :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetScrollOnOutput a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_scroll_on_output terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollOnOutputMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetScrollOnOutputMethodInfo a signature where
overloadedMethod = terminalGetScrollOnOutput
instance O.OverloadedMethodInfo TerminalGetScrollOnOutputMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetScrollOnOutput",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetScrollOnOutput"
})
#endif
foreign import ccall "vte_terminal_get_scroll_unit_is_pixels" vte_terminal_get_scroll_unit_is_pixels ::
Ptr Terminal ->
IO CInt
terminalGetScrollUnitIsPixels ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetScrollUnitIsPixels :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetScrollUnitIsPixels a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_scroll_unit_is_pixels terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollUnitIsPixelsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetScrollUnitIsPixelsMethodInfo a signature where
overloadedMethod = terminalGetScrollUnitIsPixels
instance O.OverloadedMethodInfo TerminalGetScrollUnitIsPixelsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetScrollUnitIsPixels",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetScrollUnitIsPixels"
})
#endif
foreign import ccall "vte_terminal_get_scrollback_lines" vte_terminal_get_scrollback_lines ::
Ptr Terminal ->
IO FCT.CLong
terminalGetScrollbackLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m FCT.CLong
terminalGetScrollbackLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m CLong
terminalGetScrollbackLines a
terminal = IO CLong -> m CLong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_scrollback_lines terminal'
touchManagedPtr terminal
return result
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollbackLinesMethodInfo
instance (signature ~ (m FCT.CLong), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetScrollbackLinesMethodInfo a signature where
overloadedMethod = terminalGetScrollbackLines
instance O.OverloadedMethodInfo TerminalGetScrollbackLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetScrollbackLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetScrollbackLines"
})
#endif
foreign import ccall "vte_terminal_get_termprop_bool" vte_terminal_get_termprop_bool ::
Ptr Terminal ->
CString ->
Ptr CInt ->
IO CInt
terminalGetTermpropBool ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, Bool))
terminalGetTermpropBool :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, Bool)
terminalGetTermpropBool a
terminal Text
prop = IO (Bool, Bool) -> m (Bool, Bool)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool) -> m (Bool, Bool))
-> IO (Bool, Bool) -> m (Bool, Bool)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
valuep <- allocMem :: IO (Ptr CInt)
result <- vte_terminal_get_termprop_bool terminal' prop' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
let valuep'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
valuep'
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep'')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropBoolMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Bool))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropBoolMethodInfo a signature where
overloadedMethod = terminalGetTermpropBool
instance O.OverloadedMethodInfo TerminalGetTermpropBoolMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropBool",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropBool"
})
#endif
foreign import ccall "vte_terminal_get_termprop_bool_by_id" vte_terminal_get_termprop_bool_by_id ::
Ptr Terminal ->
Int32 ->
Ptr CInt ->
IO CInt
terminalGetTermpropBoolById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, Bool))
terminalGetTermpropBoolById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, Bool)
terminalGetTermpropBoolById a
terminal Int32
prop = IO (Bool, Bool) -> m (Bool, Bool)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool) -> m (Bool, Bool))
-> IO (Bool, Bool) -> m (Bool, Bool)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
valuep <- allocMem :: IO (Ptr CInt)
result <- vte_terminal_get_termprop_bool_by_id terminal' prop valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
let valuep'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
valuep'
touchManagedPtr terminal
freeMem valuep
return (result', valuep'')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropBoolByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Bool))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropBoolByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropBoolById
instance O.OverloadedMethodInfo TerminalGetTermpropBoolByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropBoolById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropBoolById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_data" vte_terminal_get_termprop_data ::
Ptr Terminal ->
CString ->
Ptr FCT.CSize ->
IO (Ptr Word8)
terminalGetTermpropData ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe ByteString)
terminalGetTermpropData :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe ByteString)
terminalGetTermpropData a
terminal Text
prop = IO (Maybe ByteString) -> m (Maybe ByteString)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ByteString) -> m (Maybe ByteString))
-> IO (Maybe ByteString) -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_termprop_data terminal' prop' size
size' <- peek size
maybeResult <- convertIfNonNull result $ \Ptr Word8
result' -> do
result'' <- (CSize -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength CSize
size') Ptr Word8
result'
return result''
touchManagedPtr terminal
freeMem prop'
freeMem size
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropDataMethodInfo
instance (signature ~ (T.Text -> m (Maybe ByteString)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropDataMethodInfo a signature where
overloadedMethod = terminalGetTermpropData
instance O.OverloadedMethodInfo TerminalGetTermpropDataMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropData",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropData"
})
#endif
foreign import ccall "vte_terminal_get_termprop_data_by_id" vte_terminal_get_termprop_data_by_id ::
Ptr Terminal ->
Int32 ->
Ptr FCT.CSize ->
IO (Ptr Word8)
terminalGetTermpropDataById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe ByteString)
terminalGetTermpropDataById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe ByteString)
terminalGetTermpropDataById a
terminal Int32
prop = IO (Maybe ByteString) -> m (Maybe ByteString)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ByteString) -> m (Maybe ByteString))
-> IO (Maybe ByteString) -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_termprop_data_by_id terminal' prop size
size' <- peek size
maybeResult <- convertIfNonNull result $ \Ptr Word8
result' -> do
result'' <- (CSize -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength CSize
size') Ptr Word8
result'
return result''
touchManagedPtr terminal
freeMem size
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropDataByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe ByteString)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropDataByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropDataById
instance O.OverloadedMethodInfo TerminalGetTermpropDataByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropDataById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropDataById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_double" vte_terminal_get_termprop_double ::
Ptr Terminal ->
CString ->
Ptr CDouble ->
IO CInt
terminalGetTermpropDouble ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, Double))
terminalGetTermpropDouble :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, Double)
terminalGetTermpropDouble a
terminal Text
prop = IO (Bool, Double) -> m (Bool, Double)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Double) -> m (Bool, Double))
-> IO (Bool, Double) -> m (Bool, Double)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
valuep <- allocMem :: IO (Ptr CDouble)
result <- vte_terminal_get_termprop_double terminal' prop' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
let valuep'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
valuep'
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep'')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropDoubleMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Double))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropDoubleMethodInfo a signature where
overloadedMethod = terminalGetTermpropDouble
instance O.OverloadedMethodInfo TerminalGetTermpropDoubleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropDouble",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropDouble"
})
#endif
foreign import ccall "vte_terminal_get_termprop_double_by_id" vte_terminal_get_termprop_double_by_id ::
Ptr Terminal ->
Int32 ->
Ptr CDouble ->
IO CInt
terminalGetTermpropDoubleById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, Double))
terminalGetTermpropDoubleById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, Double)
terminalGetTermpropDoubleById a
terminal Int32
prop = IO (Bool, Double) -> m (Bool, Double)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Double) -> m (Bool, Double))
-> IO (Bool, Double) -> m (Bool, Double)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
valuep <- allocMem :: IO (Ptr CDouble)
result <- vte_terminal_get_termprop_double_by_id terminal' prop valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
let valuep'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
valuep'
touchManagedPtr terminal
freeMem valuep
return (result', valuep'')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropDoubleByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Double))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropDoubleByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropDoubleById
instance O.OverloadedMethodInfo TerminalGetTermpropDoubleByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropDoubleById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropDoubleById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_enum" vte_terminal_get_termprop_enum ::
Ptr Terminal ->
CString ->
CGType ->
Ptr Int64 ->
IO CInt
terminalGetTermpropEnum ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> GType
-> m ((Bool, Int64))
terminalGetTermpropEnum :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> GType -> m (Bool, Int64)
terminalGetTermpropEnum a
terminal Text
prop GType
gtype = IO (Bool, Int64) -> m (Bool, Int64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int64) -> m (Bool, Int64))
-> IO (Bool, Int64) -> m (Bool, Int64)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
let gtype' = GType -> CGType
gtypeToCGType GType
gtype
valuep <- allocMem :: IO (Ptr Int64)
result <- vte_terminal_get_termprop_enum terminal' prop' gtype' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropEnumMethodInfo
instance (signature ~ (T.Text -> GType -> m ((Bool, Int64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropEnumMethodInfo a signature where
overloadedMethod = terminalGetTermpropEnum
instance O.OverloadedMethodInfo TerminalGetTermpropEnumMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropEnum",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropEnum"
})
#endif
foreign import ccall "vte_terminal_get_termprop_enum_by_id" vte_terminal_get_termprop_enum_by_id ::
Ptr Terminal ->
Int32 ->
CGType ->
Ptr Int64 ->
IO CInt
terminalGetTermpropEnumById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> GType
-> m ((Bool, Int64))
terminalGetTermpropEnumById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> GType -> m (Bool, Int64)
terminalGetTermpropEnumById a
terminal Int32
prop GType
gtype = IO (Bool, Int64) -> m (Bool, Int64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int64) -> m (Bool, Int64))
-> IO (Bool, Int64) -> m (Bool, Int64)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let gtype' = GType -> CGType
gtypeToCGType GType
gtype
valuep <- allocMem :: IO (Ptr Int64)
result <- vte_terminal_get_termprop_enum_by_id terminal' prop gtype' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropEnumByIdMethodInfo
instance (signature ~ (Int32 -> GType -> m ((Bool, Int64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropEnumByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropEnumById
instance O.OverloadedMethodInfo TerminalGetTermpropEnumByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropEnumById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropEnumById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_flags" vte_terminal_get_termprop_flags ::
Ptr Terminal ->
CString ->
CGType ->
CInt ->
Ptr Word64 ->
IO CInt
terminalGetTermpropFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> GType
-> Bool
-> m ((Bool, Word64))
terminalGetTermpropFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> GType -> Bool -> m (Bool, CGType)
terminalGetTermpropFlags a
terminal Text
prop GType
gtype Bool
ignoreUnknownFlags = IO (Bool, CGType) -> m (Bool, CGType)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, CGType) -> m (Bool, CGType))
-> IO (Bool, CGType) -> m (Bool, CGType)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
let gtype' = GType -> CGType
gtypeToCGType GType
gtype
let ignoreUnknownFlags' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
ignoreUnknownFlags
valuep <- allocMem :: IO (Ptr Word64)
result <- vte_terminal_get_termprop_flags terminal' prop' gtype' ignoreUnknownFlags' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropFlagsMethodInfo
instance (signature ~ (T.Text -> GType -> Bool -> m ((Bool, Word64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropFlagsMethodInfo a signature where
overloadedMethod = terminalGetTermpropFlags
instance O.OverloadedMethodInfo TerminalGetTermpropFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropFlags"
})
#endif
foreign import ccall "vte_terminal_get_termprop_flags_by_id" vte_terminal_get_termprop_flags_by_id ::
Ptr Terminal ->
Int32 ->
CGType ->
CInt ->
Ptr Word64 ->
IO CInt
terminalGetTermpropFlagsById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> GType
-> Bool
-> m ((Bool, Word64))
terminalGetTermpropFlagsById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> GType -> Bool -> m (Bool, CGType)
terminalGetTermpropFlagsById a
terminal Int32
prop GType
gtype Bool
ignoreUnknownFlags = IO (Bool, CGType) -> m (Bool, CGType)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, CGType) -> m (Bool, CGType))
-> IO (Bool, CGType) -> m (Bool, CGType)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let gtype' = GType -> CGType
gtypeToCGType GType
gtype
let ignoreUnknownFlags' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
ignoreUnknownFlags
valuep <- allocMem :: IO (Ptr Word64)
result <- vte_terminal_get_termprop_flags_by_id terminal' prop gtype' ignoreUnknownFlags' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropFlagsByIdMethodInfo
instance (signature ~ (Int32 -> GType -> Bool -> m ((Bool, Word64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropFlagsByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropFlagsById
instance O.OverloadedMethodInfo TerminalGetTermpropFlagsByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropFlagsById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropFlagsById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_int" vte_terminal_get_termprop_int ::
Ptr Terminal ->
CString ->
Ptr Int64 ->
IO CInt
terminalGetTermpropInt ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, Int64))
terminalGetTermpropInt :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, Int64)
terminalGetTermpropInt a
terminal Text
prop = IO (Bool, Int64) -> m (Bool, Int64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int64) -> m (Bool, Int64))
-> IO (Bool, Int64) -> m (Bool, Int64)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
valuep <- allocMem :: IO (Ptr Int64)
result <- vte_terminal_get_termprop_int terminal' prop' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropIntMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Int64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropIntMethodInfo a signature where
overloadedMethod = terminalGetTermpropInt
instance O.OverloadedMethodInfo TerminalGetTermpropIntMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropInt",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropInt"
})
#endif
foreign import ccall "vte_terminal_get_termprop_int_by_id" vte_terminal_get_termprop_int_by_id ::
Ptr Terminal ->
Int32 ->
Ptr Int64 ->
IO CInt
terminalGetTermpropIntById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, Int64))
terminalGetTermpropIntById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, Int64)
terminalGetTermpropIntById a
terminal Int32
prop = IO (Bool, Int64) -> m (Bool, Int64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int64) -> m (Bool, Int64))
-> IO (Bool, Int64) -> m (Bool, Int64)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
valuep <- allocMem :: IO (Ptr Int64)
result <- vte_terminal_get_termprop_int_by_id terminal' prop valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropIntByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Int64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropIntByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropIntById
instance O.OverloadedMethodInfo TerminalGetTermpropIntByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropIntById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropIntById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_rgba" vte_terminal_get_termprop_rgba ::
Ptr Terminal ->
CString ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
terminalGetTermpropRgba ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, Gdk.RGBA.RGBA))
terminalGetTermpropRgba :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, RGBA)
terminalGetTermpropRgba a
terminal Text
prop = IO (Bool, RGBA) -> m (Bool, RGBA)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, RGBA) -> m (Bool, RGBA))
-> IO (Bool, RGBA) -> m (Bool, RGBA)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
color <- SP.callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
result <- vte_terminal_get_termprop_rgba terminal' prop' color
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
color' <- (wrapBoxed Gdk.RGBA.RGBA) color
touchManagedPtr terminal
freeMem prop'
return (result', color')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropRgbaMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropRgbaMethodInfo a signature where
overloadedMethod = terminalGetTermpropRgba
instance O.OverloadedMethodInfo TerminalGetTermpropRgbaMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropRgba",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropRgba"
})
#endif
foreign import ccall "vte_terminal_get_termprop_rgba_by_id" vte_terminal_get_termprop_rgba_by_id ::
Ptr Terminal ->
Int32 ->
Ptr Gdk.RGBA.RGBA ->
IO CInt
terminalGetTermpropRgbaById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, Gdk.RGBA.RGBA))
terminalGetTermpropRgbaById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, RGBA)
terminalGetTermpropRgbaById a
terminal Int32
prop = IO (Bool, RGBA) -> m (Bool, RGBA)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, RGBA) -> m (Bool, RGBA))
-> IO (Bool, RGBA) -> m (Bool, RGBA)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
color <- SP.callocBoxedBytes 32 :: IO (Ptr Gdk.RGBA.RGBA)
result <- vte_terminal_get_termprop_rgba_by_id terminal' prop color
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
color' <- (wrapBoxed Gdk.RGBA.RGBA) color
touchManagedPtr terminal
return (result', color')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropRgbaByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Gdk.RGBA.RGBA))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropRgbaByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropRgbaById
instance O.OverloadedMethodInfo TerminalGetTermpropRgbaByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropRgbaById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropRgbaById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_string" vte_terminal_get_termprop_string ::
Ptr Terminal ->
CString ->
Ptr FCT.CSize ->
IO CString
terminalGetTermpropString ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Maybe T.Text, FCT.CSize))
terminalGetTermpropString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Text, CSize)
terminalGetTermpropString a
terminal Text
prop = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_termprop_string terminal' prop' size
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
size' <- peek size
touchManagedPtr terminal
freeMem prop'
freeMem size
return (maybeResult, size')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropStringMethodInfo
instance (signature ~ (T.Text -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropStringMethodInfo a signature where
overloadedMethod = terminalGetTermpropString
instance O.OverloadedMethodInfo TerminalGetTermpropStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropString"
})
#endif
foreign import ccall "vte_terminal_get_termprop_string_by_id" vte_terminal_get_termprop_string_by_id ::
Ptr Terminal ->
Int32 ->
Ptr FCT.CSize ->
IO CString
terminalGetTermpropStringById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Maybe T.Text, FCT.CSize))
terminalGetTermpropStringById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Text, CSize)
terminalGetTermpropStringById a
terminal Int32
prop = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
size <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_termprop_string_by_id terminal' prop size
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
size' <- peek size
touchManagedPtr terminal
freeMem size
return (maybeResult, size')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropStringByIdMethodInfo
instance (signature ~ (Int32 -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropStringByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropStringById
instance O.OverloadedMethodInfo TerminalGetTermpropStringByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropStringById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropStringById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_uint" vte_terminal_get_termprop_uint ::
Ptr Terminal ->
CString ->
Ptr Word64 ->
IO CInt
terminalGetTermpropUint ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, Word64))
terminalGetTermpropUint :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, CGType)
terminalGetTermpropUint a
terminal Text
prop = IO (Bool, CGType) -> m (Bool, CGType)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, CGType) -> m (Bool, CGType))
-> IO (Bool, CGType) -> m (Bool, CGType)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
valuep <- allocMem :: IO (Ptr Word64)
result <- vte_terminal_get_termprop_uint terminal' prop' valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem prop'
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropUintMethodInfo
instance (signature ~ (T.Text -> m ((Bool, Word64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropUintMethodInfo a signature where
overloadedMethod = terminalGetTermpropUint
instance O.OverloadedMethodInfo TerminalGetTermpropUintMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropUint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropUint"
})
#endif
foreign import ccall "vte_terminal_get_termprop_uint_by_id" vte_terminal_get_termprop_uint_by_id ::
Ptr Terminal ->
Int32 ->
Ptr Word64 ->
IO CInt
terminalGetTermpropUintById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, Word64))
terminalGetTermpropUintById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, CGType)
terminalGetTermpropUintById a
terminal Int32
prop = IO (Bool, CGType) -> m (Bool, CGType)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, CGType) -> m (Bool, CGType))
-> IO (Bool, CGType) -> m (Bool, CGType)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
valuep <- allocMem :: IO (Ptr Word64)
result <- vte_terminal_get_termprop_uint_by_id terminal' prop valuep
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
valuep' <- peek valuep
touchManagedPtr terminal
freeMem valuep
return (result', valuep')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropUintByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Word64))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropUintByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropUintById
instance O.OverloadedMethodInfo TerminalGetTermpropUintByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropUintById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropUintById"
})
#endif
foreign import ccall "vte_terminal_get_termprop_value" vte_terminal_get_termprop_value ::
Ptr Terminal ->
CString ->
Ptr GValue ->
IO CInt
terminalGetTermpropValue ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ((Bool, GValue))
terminalGetTermpropValue :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Bool, GValue)
terminalGetTermpropValue a
terminal Text
prop = IO (Bool, GValue) -> m (Bool, GValue)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, GValue) -> m (Bool, GValue))
-> IO (Bool, GValue) -> m (Bool, GValue)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
gvalue <- SP.callocBytes 24 :: IO (Ptr GValue)
result <- vte_terminal_get_termprop_value terminal' prop' gvalue
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
gvalue' <- B.GValue.wrapGValuePtr gvalue
touchManagedPtr terminal
freeMem prop'
return (result', gvalue')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropValueMethodInfo
instance (signature ~ (T.Text -> m ((Bool, GValue))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropValueMethodInfo a signature where
overloadedMethod = terminalGetTermpropValue
instance O.OverloadedMethodInfo TerminalGetTermpropValueMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropValue"
})
#endif
foreign import ccall "vte_terminal_get_termprop_value_by_id" vte_terminal_get_termprop_value_by_id ::
Ptr Terminal ->
Int32 ->
Ptr GValue ->
IO CInt
terminalGetTermpropValueById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ((Bool, GValue))
terminalGetTermpropValueById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Bool, GValue)
terminalGetTermpropValueById a
terminal Int32
prop = IO (Bool, GValue) -> m (Bool, GValue)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, GValue) -> m (Bool, GValue))
-> IO (Bool, GValue) -> m (Bool, GValue)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
gvalue <- SP.callocBytes 24 :: IO (Ptr GValue)
result <- vte_terminal_get_termprop_value_by_id terminal' prop gvalue
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
gvalue' <- B.GValue.wrapGValuePtr gvalue
touchManagedPtr terminal
return (result', gvalue')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTermpropValueByIdMethodInfo
instance (signature ~ (Int32 -> m ((Bool, GValue))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTermpropValueByIdMethodInfo a signature where
overloadedMethod = terminalGetTermpropValueById
instance O.OverloadedMethodInfo TerminalGetTermpropValueByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTermpropValueById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropValueById"
})
#endif
foreign import ccall "vte_terminal_get_text" vte_terminal_get_text ::
Ptr Terminal ->
FunPtr Vte.Callbacks.C_SelectionFunc ->
Ptr () ->
Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)) ->
IO CString
{-# DEPRECATED terminalGetText ["(Since version 0.76)","Use 'GI.Vte.Objects.Terminal.terminalGetTextFormat' instead"] #-}
terminalGetText ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Vte.Callbacks.SelectionFunc)
-> m ((Maybe T.Text, Maybe [Vte.CharAttributes.CharAttributes]))
terminalGetText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe SelectionFunc -> m (Maybe Text, Maybe [CharAttributes])
terminalGetText a
terminal Maybe SelectionFunc
isSelected = IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes]))
-> IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeIsSelected <- case isSelected of
Maybe SelectionFunc
Nothing -> FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
forall a. FunPtr a
FP.nullFunPtr
Just SelectionFunc
jIsSelected -> do
jIsSelected' <- C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
Vte.Callbacks.mk_SelectionFunc (Maybe (Ptr (FunPtr C_SelectionFunc))
-> SelectionFunc_WithClosures -> C_SelectionFunc
Vte.Callbacks.wrap_SelectionFunc Maybe (Ptr (FunPtr C_SelectionFunc))
forall a. Maybe a
Nothing (SelectionFunc -> SelectionFunc_WithClosures
Vte.Callbacks.drop_closures_SelectionFunc SelectionFunc
jIsSelected))
return jIsSelected'
attributes <- B.GArray.allocGArray 40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData = Ptr a
forall a. Ptr a
nullPtr
result <- vte_terminal_get_text terminal' maybeIsSelected userData attributes
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
maybeAttributes <- convertIfNonNull attributes $ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
attributes''' <- mapM (wrapPtr Vte.CharAttributes.CharAttributes) attributes''
return attributes'''
unrefGArray attributes
safeFreeFunPtr $ castFunPtrToPtr maybeIsSelected
touchManagedPtr terminal
return (maybeResult, maybeAttributes)
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextMethodInfo
instance (signature ~ (Maybe (Vte.Callbacks.SelectionFunc) -> m ((Maybe T.Text, Maybe [Vte.CharAttributes.CharAttributes]))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextMethodInfo a signature where
overloadedMethod = terminalGetText
instance O.OverloadedMethodInfo TerminalGetTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetText"
})
#endif
foreign import ccall "vte_terminal_get_text_blink_mode" vte_terminal_get_text_blink_mode ::
Ptr Terminal ->
IO CUInt
terminalGetTextBlinkMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Enums.TextBlinkMode
terminalGetTextBlinkMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m TextBlinkMode
terminalGetTextBlinkMode a
terminal = IO TextBlinkMode -> m TextBlinkMode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TextBlinkMode -> m TextBlinkMode)
-> IO TextBlinkMode -> m TextBlinkMode
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_text_blink_mode terminal'
let result' = (Int -> TextBlinkMode
forall a. Enum a => Int -> a
toEnum (Int -> TextBlinkMode) -> (CUInt -> Int) -> CUInt -> TextBlinkMode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextBlinkModeMethodInfo
instance (signature ~ (m Vte.Enums.TextBlinkMode), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextBlinkModeMethodInfo a signature where
overloadedMethod = terminalGetTextBlinkMode
instance O.OverloadedMethodInfo TerminalGetTextBlinkModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextBlinkMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextBlinkMode"
})
#endif
foreign import ccall "vte_terminal_get_text_format" vte_terminal_get_text_format ::
Ptr Terminal ->
CUInt ->
IO CString
terminalGetTextFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Format
-> m (Maybe T.Text)
terminalGetTextFormat :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Format -> m (Maybe Text)
terminalGetTextFormat a
terminal Format
format = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
format
result <- vte_terminal_get_text_format terminal' format'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextFormatMethodInfo
instance (signature ~ (Vte.Enums.Format -> m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextFormatMethodInfo a signature where
overloadedMethod = terminalGetTextFormat
instance O.OverloadedMethodInfo TerminalGetTextFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextFormat"
})
#endif
foreign import ccall "vte_terminal_get_text_include_trailing_spaces" vte_terminal_get_text_include_trailing_spaces ::
Ptr Terminal ->
FunPtr Vte.Callbacks.C_SelectionFunc ->
Ptr () ->
Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)) ->
IO CString
{-# DEPRECATED terminalGetTextIncludeTrailingSpaces ["(Since version 0.56)","Use 'GI.Vte.Objects.Terminal.terminalGetTextFormat' instead."] #-}
terminalGetTextIncludeTrailingSpaces ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Vte.Callbacks.SelectionFunc)
-> m ((T.Text, Maybe [Vte.CharAttributes.CharAttributes]))
terminalGetTextIncludeTrailingSpaces :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe SelectionFunc -> m (Text, Maybe [CharAttributes])
terminalGetTextIncludeTrailingSpaces a
terminal Maybe SelectionFunc
isSelected = IO (Text, Maybe [CharAttributes])
-> m (Text, Maybe [CharAttributes])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Text, Maybe [CharAttributes])
-> m (Text, Maybe [CharAttributes]))
-> IO (Text, Maybe [CharAttributes])
-> m (Text, Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeIsSelected <- case isSelected of
Maybe SelectionFunc
Nothing -> FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
forall a. FunPtr a
FP.nullFunPtr
Just SelectionFunc
jIsSelected -> do
jIsSelected' <- C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
Vte.Callbacks.mk_SelectionFunc (Maybe (Ptr (FunPtr C_SelectionFunc))
-> SelectionFunc_WithClosures -> C_SelectionFunc
Vte.Callbacks.wrap_SelectionFunc Maybe (Ptr (FunPtr C_SelectionFunc))
forall a. Maybe a
Nothing (SelectionFunc -> SelectionFunc_WithClosures
Vte.Callbacks.drop_closures_SelectionFunc SelectionFunc
jIsSelected))
return jIsSelected'
attributes <- B.GArray.allocGArray 40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData = Ptr a
forall a. Ptr a
nullPtr
result <- vte_terminal_get_text_include_trailing_spaces terminal' maybeIsSelected userData attributes
checkUnexpectedReturnNULL "terminalGetTextIncludeTrailingSpaces" result
result' <- cstringToText result
freeMem result
maybeAttributes <- convertIfNonNull attributes $ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
attributes''' <- mapM (wrapPtr Vte.CharAttributes.CharAttributes) attributes''
return attributes'''
unrefGArray attributes
safeFreeFunPtr $ castFunPtrToPtr maybeIsSelected
touchManagedPtr terminal
return (result', maybeAttributes)
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextIncludeTrailingSpacesMethodInfo
instance (signature ~ (Maybe (Vte.Callbacks.SelectionFunc) -> m ((T.Text, Maybe [Vte.CharAttributes.CharAttributes]))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextIncludeTrailingSpacesMethodInfo a signature where
overloadedMethod = terminalGetTextIncludeTrailingSpaces
instance O.OverloadedMethodInfo TerminalGetTextIncludeTrailingSpacesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextIncludeTrailingSpaces",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextIncludeTrailingSpaces"
})
#endif
foreign import ccall "vte_terminal_get_text_range" vte_terminal_get_text_range ::
Ptr Terminal ->
FCT.CLong ->
FCT.CLong ->
FCT.CLong ->
FCT.CLong ->
FunPtr Vte.Callbacks.C_SelectionFunc ->
Ptr () ->
Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)) ->
IO CString
{-# DEPRECATED terminalGetTextRange ["(Since version 0.76)","Use 'GI.Vte.Objects.Terminal.terminalGetTextRangeFormat' instead"] #-}
terminalGetTextRange ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> FCT.CLong
-> FCT.CLong
-> FCT.CLong
-> FCT.CLong
-> Maybe (Vte.Callbacks.SelectionFunc)
-> m ((Maybe T.Text, Maybe [Vte.CharAttributes.CharAttributes]))
a
terminal CLong
startRow CLong
startCol CLong
endRow CLong
endCol Maybe SelectionFunc
isSelected = IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes])
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes]))
-> IO (Maybe Text, Maybe [CharAttributes])
-> m (Maybe Text, Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeIsSelected <- case isSelected of
Maybe SelectionFunc
Nothing -> FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
forall a. FunPtr a
FP.nullFunPtr
Just SelectionFunc
jIsSelected -> do
jIsSelected' <- C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
Vte.Callbacks.mk_SelectionFunc (Maybe (Ptr (FunPtr C_SelectionFunc))
-> SelectionFunc_WithClosures -> C_SelectionFunc
Vte.Callbacks.wrap_SelectionFunc Maybe (Ptr (FunPtr C_SelectionFunc))
forall a. Maybe a
Nothing (SelectionFunc -> SelectionFunc_WithClosures
Vte.Callbacks.drop_closures_SelectionFunc SelectionFunc
jIsSelected))
return jIsSelected'
attributes <- B.GArray.allocGArray 40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData = Ptr a
forall a. Ptr a
nullPtr
result <- vte_terminal_get_text_range terminal' startRow startCol endRow endCol maybeIsSelected userData attributes
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
maybeAttributes <- convertIfNonNull attributes $ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
attributes''' <- mapM (wrapPtr Vte.CharAttributes.CharAttributes) attributes''
return attributes'''
unrefGArray attributes
safeFreeFunPtr $ castFunPtrToPtr maybeIsSelected
touchManagedPtr terminal
return (maybeResult, maybeAttributes)
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextRangeMethodInfo
instance (signature ~ (FCT.CLong -> FCT.CLong -> FCT.CLong -> FCT.CLong -> Maybe (Vte.Callbacks.SelectionFunc) -> m ((Maybe T.Text, Maybe [Vte.CharAttributes.CharAttributes]))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextRangeMethodInfo a signature where
overloadedMethod = terminalGetTextRange
instance O.OverloadedMethodInfo TerminalGetTextRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextRange"
})
#endif
foreign import ccall "vte_terminal_get_text_range_format" vte_terminal_get_text_range_format ::
Ptr Terminal ->
CUInt ->
FCT.CLong ->
FCT.CLong ->
FCT.CLong ->
FCT.CLong ->
Ptr FCT.CSize ->
IO CString
terminalGetTextRangeFormat ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Format
-> FCT.CLong
-> FCT.CLong
-> FCT.CLong
-> FCT.CLong
-> m ((Maybe T.Text, FCT.CSize))
a
terminal Format
format CLong
startRow CLong
startCol CLong
endRow CLong
endCol = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
format
length_ <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_text_range_format terminal' format' startRow startCol endRow endCol length_
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
length_' <- peek length_
touchManagedPtr terminal
freeMem length_
return (maybeResult, length_')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextRangeFormatMethodInfo
instance (signature ~ (Vte.Enums.Format -> FCT.CLong -> FCT.CLong -> FCT.CLong -> FCT.CLong -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextRangeFormatMethodInfo a signature where
overloadedMethod = terminalGetTextRangeFormat
instance O.OverloadedMethodInfo TerminalGetTextRangeFormatMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextRangeFormat",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextRangeFormat"
})
#endif
foreign import ccall "vte_terminal_get_text_selected" vte_terminal_get_text_selected ::
Ptr Terminal ->
CUInt ->
IO CString
terminalGetTextSelected ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Format
-> m (Maybe T.Text)
terminalGetTextSelected :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Format -> m (Maybe Text)
terminalGetTextSelected a
terminal Format
format = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
format
result <- vte_terminal_get_text_selected terminal' format'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextSelectedMethodInfo
instance (signature ~ (Vte.Enums.Format -> m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextSelectedMethodInfo a signature where
overloadedMethod = terminalGetTextSelected
instance O.OverloadedMethodInfo TerminalGetTextSelectedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextSelected",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextSelected"
})
#endif
foreign import ccall "vte_terminal_get_text_selected_full" vte_terminal_get_text_selected_full ::
Ptr Terminal ->
CUInt ->
Ptr FCT.CSize ->
IO CString
terminalGetTextSelectedFull ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Format
-> m ((Maybe T.Text, FCT.CSize))
terminalGetTextSelectedFull :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Format -> m (Maybe Text, CSize)
terminalGetTextSelectedFull a
terminal Format
format = IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, CSize) -> m (Maybe Text, CSize))
-> IO (Maybe Text, CSize) -> m (Maybe Text, CSize)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Format -> Int) -> Format -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Format -> Int
forall a. Enum a => a -> Int
fromEnum) Format
format
length_ <- allocMem :: IO (Ptr FCT.CSize)
result <- vte_terminal_get_text_selected_full terminal' format' length_
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
length_' <- peek length_
touchManagedPtr terminal
freeMem length_
return (maybeResult, length_')
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextSelectedFullMethodInfo
instance (signature ~ (Vte.Enums.Format -> m ((Maybe T.Text, FCT.CSize))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetTextSelectedFullMethodInfo a signature where
overloadedMethod = terminalGetTextSelectedFull
instance O.OverloadedMethodInfo TerminalGetTextSelectedFullMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetTextSelectedFull",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTextSelectedFull"
})
#endif
foreign import ccall "vte_terminal_get_window_title" vte_terminal_get_window_title ::
Ptr Terminal ->
IO CString
{-# DEPRECATED terminalGetWindowTitle ["(Since version 0.78)","Use the 'GI.Vte.Constants.TERMPROP_XTERM_TITLE' termprop."] #-}
terminalGetWindowTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetWindowTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetWindowTitle a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_window_title terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetWindowTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetWindowTitleMethodInfo a signature where
overloadedMethod = terminalGetWindowTitle
instance O.OverloadedMethodInfo TerminalGetWindowTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetWindowTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetWindowTitle"
})
#endif
foreign import ccall "vte_terminal_get_word_char_exceptions" vte_terminal_get_word_char_exceptions ::
Ptr Terminal ->
IO CString
terminalGetWordCharExceptions ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetWordCharExceptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m (Maybe Text)
terminalGetWordCharExceptions a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_word_char_exceptions terminal'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetWordCharExceptionsMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetWordCharExceptionsMethodInfo a signature where
overloadedMethod = terminalGetWordCharExceptions
instance O.OverloadedMethodInfo TerminalGetWordCharExceptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetWordCharExceptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetWordCharExceptions"
})
#endif
foreign import ccall "vte_terminal_get_xalign" vte_terminal_get_xalign ::
Ptr Terminal ->
IO CUInt
terminalGetXalign ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Enums.Align
terminalGetXalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Align
terminalGetXalign a
terminal = IO Align -> m Align
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_xalign terminal'
let result' = (Int -> Align
forall a. Enum a => Int -> a
toEnum (Int -> Align) -> (CUInt -> Int) -> CUInt -> Align
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetXalignMethodInfo
instance (signature ~ (m Vte.Enums.Align), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetXalignMethodInfo a signature where
overloadedMethod = terminalGetXalign
instance O.OverloadedMethodInfo TerminalGetXalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetXalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetXalign"
})
#endif
foreign import ccall "vte_terminal_get_xfill" vte_terminal_get_xfill ::
Ptr Terminal ->
IO CInt
terminalGetXfill ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetXfill :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetXfill a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_xfill terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetXfillMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetXfillMethodInfo a signature where
overloadedMethod = terminalGetXfill
instance O.OverloadedMethodInfo TerminalGetXfillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetXfill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetXfill"
})
#endif
foreign import ccall "vte_terminal_get_yalign" vte_terminal_get_yalign ::
Ptr Terminal ->
IO CUInt
terminalGetYalign ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Enums.Align
terminalGetYalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Align
terminalGetYalign a
terminal = IO Align -> m Align
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Align -> m Align) -> IO Align -> m Align
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_yalign terminal'
let result' = (Int -> Align
forall a. Enum a => Int -> a
toEnum (Int -> Align) -> (CUInt -> Int) -> CUInt -> Align
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetYalignMethodInfo
instance (signature ~ (m Vte.Enums.Align), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetYalignMethodInfo a signature where
overloadedMethod = terminalGetYalign
instance O.OverloadedMethodInfo TerminalGetYalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetYalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetYalign"
})
#endif
foreign import ccall "vte_terminal_get_yfill" vte_terminal_get_yfill ::
Ptr Terminal ->
IO CInt
terminalGetYfill ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalGetYfill :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalGetYfill a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_get_yfill terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetYfillMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalGetYfillMethodInfo a signature where
overloadedMethod = terminalGetYfill
instance O.OverloadedMethodInfo TerminalGetYfillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalGetYfill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalGetYfill"
})
#endif
foreign import ccall "vte_terminal_hyperlink_check_event" vte_terminal_hyperlink_check_event ::
Ptr Terminal ->
Ptr Gdk.Event.Event ->
IO CString
terminalHyperlinkCheckEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Gdk.Event.Event
-> m (Maybe T.Text)
terminalHyperlinkCheckEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Event -> m (Maybe Text)
terminalHyperlinkCheckEvent a
terminal Event
event = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
event' <- unsafeManagedPtrGetPtr event
result <- vte_terminal_hyperlink_check_event terminal' event'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
touchManagedPtr terminal
touchManagedPtr event
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalHyperlinkCheckEventMethodInfo
instance (signature ~ (Gdk.Event.Event -> m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalHyperlinkCheckEventMethodInfo a signature where
overloadedMethod = terminalHyperlinkCheckEvent
instance O.OverloadedMethodInfo TerminalHyperlinkCheckEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalHyperlinkCheckEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalHyperlinkCheckEvent"
})
#endif
foreign import ccall "vte_terminal_match_add_gregex" vte_terminal_match_add_gregex ::
Ptr Terminal ->
Ptr GLib.Regex.Regex ->
CUInt ->
IO Int32
{-# DEPRECATED terminalMatchAddGregex ["(Since version 0.46)","Use 'GI.Vte.Objects.Terminal.terminalMatchAddRegex' instead."] #-}
terminalMatchAddGregex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> GLib.Regex.Regex
-> [GLib.Flags.RegexMatchFlags]
-> m Int32
terminalMatchAddGregex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Regex -> [RegexMatchFlags] -> m Int32
terminalMatchAddGregex a
terminal Regex
gregex [RegexMatchFlags]
gflags = IO Int32 -> m Int32
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
gregex' <- unsafeManagedPtrGetPtr gregex
let gflags' = [RegexMatchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RegexMatchFlags]
gflags
result <- vte_terminal_match_add_gregex terminal' gregex' gflags'
touchManagedPtr terminal
touchManagedPtr gregex
return result
#if defined(ENABLE_OVERLOADING)
data TerminalMatchAddGregexMethodInfo
instance (signature ~ (GLib.Regex.Regex -> [GLib.Flags.RegexMatchFlags] -> m Int32), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchAddGregexMethodInfo a signature where
overloadedMethod = terminalMatchAddGregex
instance O.OverloadedMethodInfo TerminalMatchAddGregexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchAddGregex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchAddGregex"
})
#endif
foreign import ccall "vte_terminal_match_add_regex" vte_terminal_match_add_regex ::
Ptr Terminal ->
Ptr Vte.Regex.Regex ->
Word32 ->
IO Int32
terminalMatchAddRegex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Regex.Regex
-> Word32
-> m Int32
terminalMatchAddRegex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Regex -> Word32 -> m Int32
terminalMatchAddRegex a
terminal Regex
regex Word32
flags = IO Int32 -> m Int32
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
regex' <- unsafeManagedPtrGetPtr regex
result <- vte_terminal_match_add_regex terminal' regex' flags
touchManagedPtr terminal
touchManagedPtr regex
return result
#if defined(ENABLE_OVERLOADING)
data TerminalMatchAddRegexMethodInfo
instance (signature ~ (Vte.Regex.Regex -> Word32 -> m Int32), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchAddRegexMethodInfo a signature where
overloadedMethod = terminalMatchAddRegex
instance O.OverloadedMethodInfo TerminalMatchAddRegexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchAddRegex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchAddRegex"
})
#endif
foreign import ccall "vte_terminal_match_check" vte_terminal_match_check ::
Ptr Terminal ->
FCT.CLong ->
FCT.CLong ->
Ptr Int32 ->
IO CString
{-# DEPRECATED terminalMatchCheck ["(Since version 0.46)","Use 'GI.Vte.Objects.Terminal.terminalMatchCheckEvent' instead."] #-}
terminalMatchCheck ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> FCT.CLong
-> FCT.CLong
-> m ((Maybe T.Text, Int32))
terminalMatchCheck :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> CLong -> CLong -> m (Maybe Text, Int32)
terminalMatchCheck a
terminal CLong
column CLong
row = IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, Int32) -> m (Maybe Text, Int32))
-> IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
tag <- allocMem :: IO (Ptr Int32)
result <- vte_terminal_match_check terminal' column row tag
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
tag' <- peek tag
touchManagedPtr terminal
freeMem tag
return (maybeResult, tag')
#if defined(ENABLE_OVERLOADING)
data TerminalMatchCheckMethodInfo
instance (signature ~ (FCT.CLong -> FCT.CLong -> m ((Maybe T.Text, Int32))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchCheckMethodInfo a signature where
overloadedMethod = terminalMatchCheck
instance O.OverloadedMethodInfo TerminalMatchCheckMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchCheck",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchCheck"
})
#endif
foreign import ccall "vte_terminal_match_check_event" vte_terminal_match_check_event ::
Ptr Terminal ->
Ptr Gdk.Event.Event ->
Ptr Int32 ->
IO CString
terminalMatchCheckEvent ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Gdk.Event.Event
-> m ((Maybe T.Text, Int32))
terminalMatchCheckEvent :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Event -> m (Maybe Text, Int32)
terminalMatchCheckEvent a
terminal Event
event = IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text, Int32) -> m (Maybe Text, Int32))
-> IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
event' <- unsafeManagedPtrGetPtr event
tag <- allocMem :: IO (Ptr Int32)
result <- vte_terminal_match_check_event terminal' event' tag
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
freeMem result'
return result''
tag' <- peek tag
touchManagedPtr terminal
touchManagedPtr event
freeMem tag
return (maybeResult, tag')
#if defined(ENABLE_OVERLOADING)
data TerminalMatchCheckEventMethodInfo
instance (signature ~ (Gdk.Event.Event -> m ((Maybe T.Text, Int32))), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchCheckEventMethodInfo a signature where
overloadedMethod = terminalMatchCheckEvent
instance O.OverloadedMethodInfo TerminalMatchCheckEventMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchCheckEvent",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchCheckEvent"
})
#endif
foreign import ccall "vte_terminal_match_remove" vte_terminal_match_remove ::
Ptr Terminal ->
Int32 ->
IO ()
terminalMatchRemove ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ()
terminalMatchRemove :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m ()
terminalMatchRemove a
terminal Int32
tag = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_match_remove terminal' tag
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchRemoveMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchRemoveMethodInfo a signature where
overloadedMethod = terminalMatchRemove
instance O.OverloadedMethodInfo TerminalMatchRemoveMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchRemove",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchRemove"
})
#endif
foreign import ccall "vte_terminal_match_remove_all" vte_terminal_match_remove_all ::
Ptr Terminal ->
IO ()
terminalMatchRemoveAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalMatchRemoveAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalMatchRemoveAll a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_match_remove_all terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchRemoveAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchRemoveAllMethodInfo a signature where
overloadedMethod = terminalMatchRemoveAll
instance O.OverloadedMethodInfo TerminalMatchRemoveAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchRemoveAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchRemoveAll"
})
#endif
foreign import ccall "vte_terminal_match_set_cursor" vte_terminal_match_set_cursor ::
Ptr Terminal ->
Int32 ->
Ptr Gdk.Cursor.Cursor ->
IO ()
{-# DEPRECATED terminalMatchSetCursor ["(Since version 0.40)","Use 'GI.Vte.Objects.Terminal.terminalMatchSetCursorName' instead."] #-}
terminalMatchSetCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gdk.Cursor.IsCursor b) =>
a
-> Int32
-> Maybe (b)
-> m ()
terminalMatchSetCursor :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsCursor b) =>
a -> Int32 -> Maybe b -> m ()
terminalMatchSetCursor a
terminal Int32
tag Maybe b
cursor = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeCursor <- case cursor of
Maybe b
Nothing -> Ptr Cursor -> IO (Ptr Cursor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
forall a. Ptr a
FP.nullPtr
Just b
jCursor -> do
jCursor' <- b -> IO (Ptr Cursor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCursor
return jCursor'
vte_terminal_match_set_cursor terminal' tag maybeCursor
touchManagedPtr terminal
whenJust cursor touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchSetCursorMethodInfo
instance (signature ~ (Int32 -> Maybe (b) -> m ()), MonadIO m, IsTerminal a, Gdk.Cursor.IsCursor b) => O.OverloadedMethod TerminalMatchSetCursorMethodInfo a signature where
overloadedMethod = terminalMatchSetCursor
instance O.OverloadedMethodInfo TerminalMatchSetCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchSetCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchSetCursor"
})
#endif
foreign import ccall "vte_terminal_match_set_cursor_name" vte_terminal_match_set_cursor_name ::
Ptr Terminal ->
Int32 ->
CString ->
IO ()
terminalMatchSetCursorName ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> T.Text
-> m ()
terminalMatchSetCursorName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> Text -> m ()
terminalMatchSetCursorName a
terminal Int32
tag Text
cursorName = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
cursorName' <- textToCString cursorName
vte_terminal_match_set_cursor_name terminal' tag cursorName'
touchManagedPtr terminal
freeMem cursorName'
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchSetCursorNameMethodInfo
instance (signature ~ (Int32 -> T.Text -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchSetCursorNameMethodInfo a signature where
overloadedMethod = terminalMatchSetCursorName
instance O.OverloadedMethodInfo TerminalMatchSetCursorNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchSetCursorName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchSetCursorName"
})
#endif
foreign import ccall "vte_terminal_match_set_cursor_type" vte_terminal_match_set_cursor_type ::
Ptr Terminal ->
Int32 ->
CInt ->
IO ()
{-# DEPRECATED terminalMatchSetCursorType ["(Since version 0.54)","Use 'GI.Vte.Objects.Terminal.terminalMatchSetCursorName' instead."] #-}
terminalMatchSetCursorType ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> Gdk.Enums.CursorType
-> m ()
terminalMatchSetCursorType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> CursorType -> m ()
terminalMatchSetCursorType a
terminal Int32
tag CursorType
cursorType = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let cursorType' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (CursorType -> Int) -> CursorType -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CursorType -> Int
forall a. Enum a => a -> Int
fromEnum) CursorType
cursorType
vte_terminal_match_set_cursor_type terminal' tag cursorType'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchSetCursorTypeMethodInfo
instance (signature ~ (Int32 -> Gdk.Enums.CursorType -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalMatchSetCursorTypeMethodInfo a signature where
overloadedMethod = terminalMatchSetCursorType
instance O.OverloadedMethodInfo TerminalMatchSetCursorTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalMatchSetCursorType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalMatchSetCursorType"
})
#endif
foreign import ccall "vte_terminal_paste_clipboard" vte_terminal_paste_clipboard ::
Ptr Terminal ->
IO ()
terminalPasteClipboard ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalPasteClipboard :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalPasteClipboard a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_paste_clipboard terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalPasteClipboardMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalPasteClipboardMethodInfo a signature where
overloadedMethod = terminalPasteClipboard
instance O.OverloadedMethodInfo TerminalPasteClipboardMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalPasteClipboard",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalPasteClipboard"
})
#endif
foreign import ccall "vte_terminal_paste_primary" vte_terminal_paste_primary ::
Ptr Terminal ->
IO ()
terminalPastePrimary ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalPastePrimary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalPastePrimary a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_paste_primary terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalPastePrimaryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalPastePrimaryMethodInfo a signature where
overloadedMethod = terminalPastePrimary
instance O.OverloadedMethodInfo TerminalPastePrimaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalPastePrimary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalPastePrimary"
})
#endif
foreign import ccall "vte_terminal_paste_text" vte_terminal_paste_text ::
Ptr Terminal ->
CString ->
IO ()
terminalPasteText ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ()
terminalPasteText :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m ()
terminalPasteText a
terminal Text
text = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
text' <- textToCString text
vte_terminal_paste_text terminal' text'
touchManagedPtr terminal
freeMem text'
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalPasteTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalPasteTextMethodInfo a signature where
overloadedMethod = terminalPasteText
instance O.OverloadedMethodInfo TerminalPasteTextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalPasteText",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalPasteText"
})
#endif
foreign import ccall "vte_terminal_pty_new_sync" vte_terminal_pty_new_sync ::
Ptr Terminal ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Vte.Pty.Pty)
terminalPtyNewSync ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) =>
a
-> [Vte.Flags.PtyFlags]
-> Maybe (b)
-> m Vte.Pty.Pty
terminalPtyNewSync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsCancellable b) =>
a -> [PtyFlags] -> Maybe b -> m Pty
terminalPtyNewSync a
terminal [PtyFlags]
flags Maybe b
cancellable = IO Pty -> m Pty
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Pty -> m Pty) -> IO Pty -> m Pty
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let flags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
flags
maybeCancellable <- case cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
return jCancellable'
onException (do
result <- propagateGError $ vte_terminal_pty_new_sync terminal' flags' maybeCancellable
checkUnexpectedReturnNULL "terminalPtyNewSync" result
result' <- (wrapObject Vte.Pty.Pty) result
touchManagedPtr terminal
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
#if defined(ENABLE_OVERLOADING)
data TerminalPtyNewSyncMethodInfo
instance (signature ~ ([Vte.Flags.PtyFlags] -> Maybe (b) -> m Vte.Pty.Pty), MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod TerminalPtyNewSyncMethodInfo a signature where
overloadedMethod = terminalPtyNewSync
instance O.OverloadedMethodInfo TerminalPtyNewSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalPtyNewSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalPtyNewSync"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_data_bytes" vte_terminal_ref_termprop_data_bytes ::
Ptr Terminal ->
CString ->
IO (Ptr GLib.Bytes.Bytes)
terminalRefTermpropDataBytes ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe GLib.Bytes.Bytes)
terminalRefTermpropDataBytes :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Bytes)
terminalRefTermpropDataBytes a
terminal Text
prop = IO (Maybe Bytes) -> m (Maybe Bytes)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Bytes) -> m (Maybe Bytes))
-> IO (Maybe Bytes) -> m (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_ref_termprop_data_bytes terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr Bytes
result' -> do
result'' <- ((ManagedPtr Bytes -> Bytes) -> Ptr Bytes -> IO Bytes
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes) Ptr Bytes
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropDataBytesMethodInfo
instance (signature ~ (T.Text -> m (Maybe GLib.Bytes.Bytes)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropDataBytesMethodInfo a signature where
overloadedMethod = terminalRefTermpropDataBytes
instance O.OverloadedMethodInfo TerminalRefTermpropDataBytesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropDataBytes",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropDataBytes"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_data_bytes_by_id" vte_terminal_ref_termprop_data_bytes_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr GLib.Bytes.Bytes)
terminalRefTermpropDataBytesById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe GLib.Bytes.Bytes)
terminalRefTermpropDataBytesById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Bytes)
terminalRefTermpropDataBytesById a
terminal Int32
prop = IO (Maybe Bytes) -> m (Maybe Bytes)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Bytes) -> m (Maybe Bytes))
-> IO (Maybe Bytes) -> m (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_ref_termprop_data_bytes_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr Bytes
result' -> do
result'' <- ((ManagedPtr Bytes -> Bytes) -> Ptr Bytes -> IO Bytes
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Bytes -> Bytes
GLib.Bytes.Bytes) Ptr Bytes
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropDataBytesByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe GLib.Bytes.Bytes)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropDataBytesByIdMethodInfo a signature where
overloadedMethod = terminalRefTermpropDataBytesById
instance O.OverloadedMethodInfo TerminalRefTermpropDataBytesByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropDataBytesById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropDataBytesById"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_image_pixbuf" vte_terminal_ref_termprop_image_pixbuf ::
Ptr Terminal ->
CString ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
terminalRefTermpropImagePixbuf ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
terminalRefTermpropImagePixbuf :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Pixbuf)
terminalRefTermpropImagePixbuf a
terminal Text
prop = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_ref_termprop_image_pixbuf terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr Pixbuf
result' -> do
result'' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropImagePixbufMethodInfo
instance (signature ~ (T.Text -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropImagePixbufMethodInfo a signature where
overloadedMethod = terminalRefTermpropImagePixbuf
instance O.OverloadedMethodInfo TerminalRefTermpropImagePixbufMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropImagePixbuf",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropImagePixbuf"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_image_pixbuf_by_id" vte_terminal_ref_termprop_image_pixbuf_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr GdkPixbuf.Pixbuf.Pixbuf)
terminalRefTermpropImagePixbufById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)
terminalRefTermpropImagePixbufById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Pixbuf)
terminalRefTermpropImagePixbufById a
terminal Int32
prop = IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Pixbuf) -> m (Maybe Pixbuf))
-> IO (Maybe Pixbuf) -> m (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_ref_termprop_image_pixbuf_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr Pixbuf
result' -> do
result'' <- ((ManagedPtr Pixbuf -> Pixbuf) -> Ptr Pixbuf -> IO Pixbuf
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Pixbuf -> Pixbuf
GdkPixbuf.Pixbuf.Pixbuf) Ptr Pixbuf
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropImagePixbufByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe GdkPixbuf.Pixbuf.Pixbuf)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropImagePixbufByIdMethodInfo a signature where
overloadedMethod = terminalRefTermpropImagePixbufById
instance O.OverloadedMethodInfo TerminalRefTermpropImagePixbufByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropImagePixbufById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropImagePixbufById"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_image_surface" vte_terminal_ref_termprop_image_surface ::
Ptr Terminal ->
CString ->
IO (Ptr Cairo.Surface.Surface)
terminalRefTermpropImageSurface ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe Cairo.Surface.Surface)
terminalRefTermpropImageSurface :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Surface)
terminalRefTermpropImageSurface a
terminal Text
prop = IO (Maybe Surface) -> m (Maybe Surface)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_ref_termprop_image_surface terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr Surface
result' -> do
result'' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropImageSurfaceMethodInfo
instance (signature ~ (T.Text -> m (Maybe Cairo.Surface.Surface)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropImageSurfaceMethodInfo a signature where
overloadedMethod = terminalRefTermpropImageSurface
instance O.OverloadedMethodInfo TerminalRefTermpropImageSurfaceMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropImageSurface",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropImageSurface"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_image_surface_by_id" vte_terminal_ref_termprop_image_surface_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr Cairo.Surface.Surface)
terminalRefTermpropImageSurfaceById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe Cairo.Surface.Surface)
terminalRefTermpropImageSurfaceById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Surface)
terminalRefTermpropImageSurfaceById a
terminal Int32
prop = IO (Maybe Surface) -> m (Maybe Surface)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Surface) -> m (Maybe Surface))
-> IO (Maybe Surface) -> m (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_ref_termprop_image_surface_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr Surface
result' -> do
result'' <- ((ManagedPtr Surface -> Surface) -> Ptr Surface -> IO Surface
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Surface -> Surface
Cairo.Surface.Surface) Ptr Surface
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropImageSurfaceByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe Cairo.Surface.Surface)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropImageSurfaceByIdMethodInfo a signature where
overloadedMethod = terminalRefTermpropImageSurfaceById
instance O.OverloadedMethodInfo TerminalRefTermpropImageSurfaceByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropImageSurfaceById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropImageSurfaceById"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_uri" vte_terminal_ref_termprop_uri ::
Ptr Terminal ->
CString ->
IO (Ptr GLib.Uri.Uri)
terminalRefTermpropUri ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe GLib.Uri.Uri)
terminalRefTermpropUri :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe Uri)
terminalRefTermpropUri a
terminal Text
prop = IO (Maybe Uri) -> m (Maybe Uri)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Uri) -> m (Maybe Uri))
-> IO (Maybe Uri) -> m (Maybe Uri)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_ref_termprop_uri terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr Uri
result' -> do
result'' <- ((ManagedPtr Uri -> Uri) -> Ptr Uri -> IO Uri
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Uri -> Uri
GLib.Uri.Uri) Ptr Uri
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropUriMethodInfo
instance (signature ~ (T.Text -> m (Maybe GLib.Uri.Uri)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropUriMethodInfo a signature where
overloadedMethod = terminalRefTermpropUri
instance O.OverloadedMethodInfo TerminalRefTermpropUriMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropUri",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropUri"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_uri_by_id" vte_terminal_ref_termprop_uri_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr GLib.Uri.Uri)
terminalRefTermpropUriById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe GLib.Uri.Uri)
terminalRefTermpropUriById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe Uri)
terminalRefTermpropUriById a
terminal Int32
prop = IO (Maybe Uri) -> m (Maybe Uri)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Uri) -> m (Maybe Uri))
-> IO (Maybe Uri) -> m (Maybe Uri)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_ref_termprop_uri_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr Uri
result' -> do
result'' <- ((ManagedPtr Uri -> Uri) -> Ptr Uri -> IO Uri
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Uri -> Uri
GLib.Uri.Uri) Ptr Uri
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropUriByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe GLib.Uri.Uri)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropUriByIdMethodInfo a signature where
overloadedMethod = terminalRefTermpropUriById
instance O.OverloadedMethodInfo TerminalRefTermpropUriByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropUriById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropUriById"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_variant" vte_terminal_ref_termprop_variant ::
Ptr Terminal ->
CString ->
IO (Ptr GVariant)
terminalRefTermpropVariant ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m (Maybe GVariant)
terminalRefTermpropVariant :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m (Maybe GVariant)
terminalRefTermpropVariant a
terminal Text
prop = IO (Maybe GVariant) -> m (Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
prop' <- textToCString prop
result <- vte_terminal_ref_termprop_variant terminal' prop'
maybeResult <- convertIfNonNull result $ \Ptr GVariant
result' -> do
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
return result''
touchManagedPtr terminal
freeMem prop'
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropVariantMethodInfo
instance (signature ~ (T.Text -> m (Maybe GVariant)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropVariantMethodInfo a signature where
overloadedMethod = terminalRefTermpropVariant
instance O.OverloadedMethodInfo TerminalRefTermpropVariantMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropVariant",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropVariant"
})
#endif
foreign import ccall "vte_terminal_ref_termprop_variant_by_id" vte_terminal_ref_termprop_variant_by_id ::
Ptr Terminal ->
Int32 ->
IO (Ptr GVariant)
terminalRefTermpropVariantById ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m (Maybe GVariant)
terminalRefTermpropVariantById :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m (Maybe GVariant)
terminalRefTermpropVariantById a
terminal Int32
prop = IO (Maybe GVariant) -> m (Maybe GVariant)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe GVariant) -> m (Maybe GVariant))
-> IO (Maybe GVariant) -> m (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_ref_termprop_variant_by_id terminal' prop
maybeResult <- convertIfNonNull result $ \Ptr GVariant
result' -> do
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
return result''
touchManagedPtr terminal
return maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalRefTermpropVariantByIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe GVariant)), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalRefTermpropVariantByIdMethodInfo a signature where
overloadedMethod = terminalRefTermpropVariantById
instance O.OverloadedMethodInfo TerminalRefTermpropVariantByIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalRefTermpropVariantById",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalRefTermpropVariantById"
})
#endif
foreign import ccall "vte_terminal_reset" vte_terminal_reset ::
Ptr Terminal ->
CInt ->
CInt ->
IO ()
terminalReset ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> Bool
-> m ()
terminalReset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> Bool -> m ()
terminalReset a
terminal Bool
clearTabstops Bool
clearHistory = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let clearTabstops' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
clearTabstops
let clearHistory' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
clearHistory
vte_terminal_reset terminal' clearTabstops' clearHistory'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalResetMethodInfo
instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalResetMethodInfo a signature where
overloadedMethod = terminalReset
instance O.OverloadedMethodInfo TerminalResetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalReset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalReset"
})
#endif
foreign import ccall "vte_terminal_search_find_next" vte_terminal_search_find_next ::
Ptr Terminal ->
IO CInt
terminalSearchFindNext ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalSearchFindNext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalSearchFindNext a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_search_find_next terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalSearchFindNextMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchFindNextMethodInfo a signature where
overloadedMethod = terminalSearchFindNext
instance O.OverloadedMethodInfo TerminalSearchFindNextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchFindNext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchFindNext"
})
#endif
foreign import ccall "vte_terminal_search_find_previous" vte_terminal_search_find_previous ::
Ptr Terminal ->
IO CInt
terminalSearchFindPrevious ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalSearchFindPrevious :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalSearchFindPrevious a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_search_find_previous terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalSearchFindPreviousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchFindPreviousMethodInfo a signature where
overloadedMethod = terminalSearchFindPrevious
instance O.OverloadedMethodInfo TerminalSearchFindPreviousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchFindPrevious",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchFindPrevious"
})
#endif
foreign import ccall "vte_terminal_search_get_gregex" vte_terminal_search_get_gregex ::
Ptr Terminal ->
IO (Ptr GLib.Regex.Regex)
{-# DEPRECATED terminalSearchGetGregex ["(Since version 0.46)","use 'GI.Vte.Objects.Terminal.terminalSearchGetRegex' instead."] #-}
terminalSearchGetGregex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m GLib.Regex.Regex
terminalSearchGetGregex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Regex
terminalSearchGetGregex a
terminal = IO Regex -> m Regex
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Regex -> m Regex) -> IO Regex -> m Regex
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_search_get_gregex terminal'
checkUnexpectedReturnNULL "terminalSearchGetGregex" result
result' <- (newBoxed GLib.Regex.Regex) result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalSearchGetGregexMethodInfo
instance (signature ~ (m GLib.Regex.Regex), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchGetGregexMethodInfo a signature where
overloadedMethod = terminalSearchGetGregex
instance O.OverloadedMethodInfo TerminalSearchGetGregexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchGetGregex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchGetGregex"
})
#endif
foreign import ccall "vte_terminal_search_get_regex" vte_terminal_search_get_regex ::
Ptr Terminal ->
IO (Ptr Vte.Regex.Regex)
terminalSearchGetRegex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Vte.Regex.Regex
terminalSearchGetRegex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Regex
terminalSearchGetRegex a
terminal = IO Regex -> m Regex
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Regex -> m Regex) -> IO Regex -> m Regex
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_search_get_regex terminal'
checkUnexpectedReturnNULL "terminalSearchGetRegex" result
result' <- (newBoxed Vte.Regex.Regex) result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalSearchGetRegexMethodInfo
instance (signature ~ (m Vte.Regex.Regex), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchGetRegexMethodInfo a signature where
overloadedMethod = terminalSearchGetRegex
instance O.OverloadedMethodInfo TerminalSearchGetRegexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchGetRegex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchGetRegex"
})
#endif
foreign import ccall "vte_terminal_search_get_wrap_around" vte_terminal_search_get_wrap_around ::
Ptr Terminal ->
IO CInt
terminalSearchGetWrapAround ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m Bool
terminalSearchGetWrapAround :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m Bool
terminalSearchGetWrapAround a
terminal = IO Bool -> m Bool
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
result <- vte_terminal_search_get_wrap_around terminal'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr terminal
return result'
#if defined(ENABLE_OVERLOADING)
data TerminalSearchGetWrapAroundMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchGetWrapAroundMethodInfo a signature where
overloadedMethod = terminalSearchGetWrapAround
instance O.OverloadedMethodInfo TerminalSearchGetWrapAroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchGetWrapAround",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchGetWrapAround"
})
#endif
foreign import ccall "vte_terminal_search_set_gregex" vte_terminal_search_set_gregex ::
Ptr Terminal ->
Ptr GLib.Regex.Regex ->
CUInt ->
IO ()
{-# DEPRECATED terminalSearchSetGregex ["(Since version 0.46)","use 'GI.Vte.Objects.Terminal.terminalSearchSetRegex' instead."] #-}
terminalSearchSetGregex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (GLib.Regex.Regex)
-> [GLib.Flags.RegexMatchFlags]
-> m ()
terminalSearchSetGregex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe Regex -> [RegexMatchFlags] -> m ()
terminalSearchSetGregex a
terminal Maybe Regex
gregex [RegexMatchFlags]
gflags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeGregex <- case gregex of
Maybe Regex
Nothing -> Ptr Regex -> IO (Ptr Regex)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
forall a. Ptr a
FP.nullPtr
Just Regex
jGregex -> do
jGregex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
jGregex
return jGregex'
let gflags' = [RegexMatchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RegexMatchFlags]
gflags
vte_terminal_search_set_gregex terminal' maybeGregex gflags'
touchManagedPtr terminal
whenJust gregex touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSearchSetGregexMethodInfo
instance (signature ~ (Maybe (GLib.Regex.Regex) -> [GLib.Flags.RegexMatchFlags] -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchSetGregexMethodInfo a signature where
overloadedMethod = terminalSearchSetGregex
instance O.OverloadedMethodInfo TerminalSearchSetGregexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchSetGregex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchSetGregex"
})
#endif
foreign import ccall "vte_terminal_search_set_regex" vte_terminal_search_set_regex ::
Ptr Terminal ->
Ptr Vte.Regex.Regex ->
Word32 ->
IO ()
terminalSearchSetRegex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Vte.Regex.Regex)
-> Word32
-> m ()
terminalSearchSetRegex :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe Regex -> Word32 -> m ()
terminalSearchSetRegex a
terminal Maybe Regex
regex Word32
flags = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeRegex <- case regex of
Maybe Regex
Nothing -> Ptr Regex -> IO (Ptr Regex)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
forall a. Ptr a
FP.nullPtr
Just Regex
jRegex -> do
jRegex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
jRegex
return jRegex'
vte_terminal_search_set_regex terminal' maybeRegex flags
touchManagedPtr terminal
whenJust regex touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSearchSetRegexMethodInfo
instance (signature ~ (Maybe (Vte.Regex.Regex) -> Word32 -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchSetRegexMethodInfo a signature where
overloadedMethod = terminalSearchSetRegex
instance O.OverloadedMethodInfo TerminalSearchSetRegexMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchSetRegex",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchSetRegex"
})
#endif
foreign import ccall "vte_terminal_search_set_wrap_around" vte_terminal_search_set_wrap_around ::
Ptr Terminal ->
CInt ->
IO ()
terminalSearchSetWrapAround ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSearchSetWrapAround :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSearchSetWrapAround a
terminal Bool
wrapAround = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let wrapAround' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
wrapAround
vte_terminal_search_set_wrap_around terminal' wrapAround'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSearchSetWrapAroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSearchSetWrapAroundMethodInfo a signature where
overloadedMethod = terminalSearchSetWrapAround
instance O.OverloadedMethodInfo TerminalSearchSetWrapAroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSearchSetWrapAround",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSearchSetWrapAround"
})
#endif
foreign import ccall "vte_terminal_select_all" vte_terminal_select_all ::
Ptr Terminal ->
IO ()
terminalSelectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalSelectAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalSelectAll a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_select_all terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSelectAllMethodInfo a signature where
overloadedMethod = terminalSelectAll
instance O.OverloadedMethodInfo TerminalSelectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSelectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSelectAll"
})
#endif
foreign import ccall "vte_terminal_set_allow_bold" vte_terminal_set_allow_bold ::
Ptr Terminal ->
CInt ->
IO ()
{-# DEPRECATED terminalSetAllowBold ["(Since version 0.60)","There\\'s probably no reason for this feature to exist."] #-}
terminalSetAllowBold ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetAllowBold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetAllowBold a
terminal Bool
allowBold = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let allowBold' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
allowBold
vte_terminal_set_allow_bold terminal' allowBold'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAllowBoldMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetAllowBoldMethodInfo a signature where
overloadedMethod = terminalSetAllowBold
instance O.OverloadedMethodInfo TerminalSetAllowBoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetAllowBold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetAllowBold"
})
#endif
foreign import ccall "vte_terminal_set_allow_hyperlink" vte_terminal_set_allow_hyperlink ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetAllowHyperlink ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetAllowHyperlink :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetAllowHyperlink a
terminal Bool
allowHyperlink = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let allowHyperlink' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
allowHyperlink
vte_terminal_set_allow_hyperlink terminal' allowHyperlink'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAllowHyperlinkMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetAllowHyperlinkMethodInfo a signature where
overloadedMethod = terminalSetAllowHyperlink
instance O.OverloadedMethodInfo TerminalSetAllowHyperlinkMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetAllowHyperlink",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetAllowHyperlink"
})
#endif
foreign import ccall "vte_terminal_set_audible_bell" vte_terminal_set_audible_bell ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetAudibleBell ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetAudibleBell :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetAudibleBell a
terminal Bool
isAudible = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let isAudible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
isAudible
vte_terminal_set_audible_bell terminal' isAudible'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAudibleBellMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetAudibleBellMethodInfo a signature where
overloadedMethod = terminalSetAudibleBell
instance O.OverloadedMethodInfo TerminalSetAudibleBellMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetAudibleBell",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetAudibleBell"
})
#endif
foreign import ccall "vte_terminal_set_backspace_binding" vte_terminal_set_backspace_binding ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetBackspaceBinding ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.EraseBinding
-> m ()
terminalSetBackspaceBinding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> EraseBinding -> m ()
terminalSetBackspaceBinding a
terminal EraseBinding
binding = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let binding' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (EraseBinding -> Int) -> EraseBinding -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EraseBinding -> Int
forall a. Enum a => a -> Int
fromEnum) EraseBinding
binding
vte_terminal_set_backspace_binding terminal' binding'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetBackspaceBindingMethodInfo
instance (signature ~ (Vte.Enums.EraseBinding -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetBackspaceBindingMethodInfo a signature where
overloadedMethod = terminalSetBackspaceBinding
instance O.OverloadedMethodInfo TerminalSetBackspaceBindingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetBackspaceBinding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetBackspaceBinding"
})
#endif
foreign import ccall "vte_terminal_set_bold_is_bright" vte_terminal_set_bold_is_bright ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetBoldIsBright ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetBoldIsBright :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetBoldIsBright a
terminal Bool
boldIsBright = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let boldIsBright' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
boldIsBright
vte_terminal_set_bold_is_bright terminal' boldIsBright'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetBoldIsBrightMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetBoldIsBrightMethodInfo a signature where
overloadedMethod = terminalSetBoldIsBright
instance O.OverloadedMethodInfo TerminalSetBoldIsBrightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetBoldIsBright",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetBoldIsBright"
})
#endif
foreign import ccall "vte_terminal_set_cell_height_scale" vte_terminal_set_cell_height_scale ::
Ptr Terminal ->
CDouble ->
IO ()
terminalSetCellHeightScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Double
-> m ()
terminalSetCellHeightScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Double -> m ()
terminalSetCellHeightScale a
terminal Double
scale = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
vte_terminal_set_cell_height_scale terminal' scale'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCellHeightScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetCellHeightScaleMethodInfo a signature where
overloadedMethod = terminalSetCellHeightScale
instance O.OverloadedMethodInfo TerminalSetCellHeightScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetCellHeightScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetCellHeightScale"
})
#endif
foreign import ccall "vte_terminal_set_cell_width_scale" vte_terminal_set_cell_width_scale ::
Ptr Terminal ->
CDouble ->
IO ()
terminalSetCellWidthScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Double
-> m ()
terminalSetCellWidthScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Double -> m ()
terminalSetCellWidthScale a
terminal Double
scale = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
vte_terminal_set_cell_width_scale terminal' scale'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCellWidthScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetCellWidthScaleMethodInfo a signature where
overloadedMethod = terminalSetCellWidthScale
instance O.OverloadedMethodInfo TerminalSetCellWidthScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetCellWidthScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetCellWidthScale"
})
#endif
foreign import ccall "vte_terminal_set_cjk_ambiguous_width" vte_terminal_set_cjk_ambiguous_width ::
Ptr Terminal ->
Int32 ->
IO ()
terminalSetCjkAmbiguousWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ()
terminalSetCjkAmbiguousWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m ()
terminalSetCjkAmbiguousWidth a
terminal Int32
width = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_set_cjk_ambiguous_width terminal' width
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCjkAmbiguousWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetCjkAmbiguousWidthMethodInfo a signature where
overloadedMethod = terminalSetCjkAmbiguousWidth
instance O.OverloadedMethodInfo TerminalSetCjkAmbiguousWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetCjkAmbiguousWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetCjkAmbiguousWidth"
})
#endif
foreign import ccall "vte_terminal_set_clear_background" vte_terminal_set_clear_background ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetClearBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetClearBackground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetClearBackground a
terminal Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
vte_terminal_set_clear_background terminal' setting'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetClearBackgroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetClearBackgroundMethodInfo a signature where
overloadedMethod = terminalSetClearBackground
instance O.OverloadedMethodInfo TerminalSetClearBackgroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetClearBackground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetClearBackground"
})
#endif
foreign import ccall "vte_terminal_set_color_background" vte_terminal_set_color_background ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorBackground ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
terminalSetColorBackground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> RGBA -> m ()
terminalSetColorBackground a
terminal RGBA
background = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
background' <- unsafeManagedPtrGetPtr background
vte_terminal_set_color_background terminal' background'
touchManagedPtr terminal
touchManagedPtr background
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorBackgroundMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorBackgroundMethodInfo a signature where
overloadedMethod = terminalSetColorBackground
instance O.OverloadedMethodInfo TerminalSetColorBackgroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorBackground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorBackground"
})
#endif
foreign import ccall "vte_terminal_set_color_bold" vte_terminal_set_color_bold ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorBold ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
terminalSetColorBold :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> m ()
terminalSetColorBold a
terminal Maybe RGBA
bold = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeBold <- case bold of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jBold -> do
jBold' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jBold
return jBold'
vte_terminal_set_color_bold terminal' maybeBold
touchManagedPtr terminal
whenJust bold touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorBoldMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorBoldMethodInfo a signature where
overloadedMethod = terminalSetColorBold
instance O.OverloadedMethodInfo TerminalSetColorBoldMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorBold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorBold"
})
#endif
foreign import ccall "vte_terminal_set_color_cursor" vte_terminal_set_color_cursor ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorCursor ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
terminalSetColorCursor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> m ()
terminalSetColorCursor a
terminal Maybe RGBA
cursorBackground = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeCursorBackground <- case cursorBackground of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jCursorBackground -> do
jCursorBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jCursorBackground
return jCursorBackground'
vte_terminal_set_color_cursor terminal' maybeCursorBackground
touchManagedPtr terminal
whenJust cursorBackground touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorCursorMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorCursorMethodInfo a signature where
overloadedMethod = terminalSetColorCursor
instance O.OverloadedMethodInfo TerminalSetColorCursorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorCursor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorCursor"
})
#endif
foreign import ccall "vte_terminal_set_color_cursor_foreground" vte_terminal_set_color_cursor_foreground ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorCursorForeground ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
terminalSetColorCursorForeground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> m ()
terminalSetColorCursorForeground a
terminal Maybe RGBA
cursorForeground = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeCursorForeground <- case cursorForeground of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jCursorForeground -> do
jCursorForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jCursorForeground
return jCursorForeground'
vte_terminal_set_color_cursor_foreground terminal' maybeCursorForeground
touchManagedPtr terminal
whenJust cursorForeground touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorCursorForegroundMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorCursorForegroundMethodInfo a signature where
overloadedMethod = terminalSetColorCursorForeground
instance O.OverloadedMethodInfo TerminalSetColorCursorForegroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorCursorForeground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorCursorForeground"
})
#endif
foreign import ccall "vte_terminal_set_color_foreground" vte_terminal_set_color_foreground ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorForeground ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Gdk.RGBA.RGBA
-> m ()
terminalSetColorForeground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> RGBA -> m ()
terminalSetColorForeground a
terminal RGBA
foreground = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
foreground' <- unsafeManagedPtrGetPtr foreground
vte_terminal_set_color_foreground terminal' foreground'
touchManagedPtr terminal
touchManagedPtr foreground
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorForegroundMethodInfo
instance (signature ~ (Gdk.RGBA.RGBA -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorForegroundMethodInfo a signature where
overloadedMethod = terminalSetColorForeground
instance O.OverloadedMethodInfo TerminalSetColorForegroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorForeground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorForeground"
})
#endif
foreign import ccall "vte_terminal_set_color_highlight" vte_terminal_set_color_highlight ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorHighlight ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
terminalSetColorHighlight :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> m ()
terminalSetColorHighlight a
terminal Maybe RGBA
highlightBackground = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeHighlightBackground <- case highlightBackground of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jHighlightBackground -> do
jHighlightBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jHighlightBackground
return jHighlightBackground'
vte_terminal_set_color_highlight terminal' maybeHighlightBackground
touchManagedPtr terminal
whenJust highlightBackground touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorHighlightMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorHighlightMethodInfo a signature where
overloadedMethod = terminalSetColorHighlight
instance O.OverloadedMethodInfo TerminalSetColorHighlightMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorHighlight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorHighlight"
})
#endif
foreign import ccall "vte_terminal_set_color_highlight_foreground" vte_terminal_set_color_highlight_foreground ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
IO ()
terminalSetColorHighlightForeground ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> m ()
terminalSetColorHighlightForeground :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> m ()
terminalSetColorHighlightForeground a
terminal Maybe RGBA
highlightForeground = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeHighlightForeground <- case highlightForeground of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jHighlightForeground -> do
jHighlightForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jHighlightForeground
return jHighlightForeground'
vte_terminal_set_color_highlight_foreground terminal' maybeHighlightForeground
touchManagedPtr terminal
whenJust highlightForeground touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorHighlightForegroundMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorHighlightForegroundMethodInfo a signature where
overloadedMethod = terminalSetColorHighlightForeground
instance O.OverloadedMethodInfo TerminalSetColorHighlightForegroundMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColorHighlightForeground",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColorHighlightForeground"
})
#endif
foreign import ccall "vte_terminal_set_colors" vte_terminal_set_colors ::
Ptr Terminal ->
Ptr Gdk.RGBA.RGBA ->
Ptr Gdk.RGBA.RGBA ->
Ptr Gdk.RGBA.RGBA ->
FCT.CSize ->
IO ()
terminalSetColors ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> Maybe (Gdk.RGBA.RGBA)
-> Maybe ([Gdk.RGBA.RGBA])
-> m ()
terminalSetColors :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe RGBA -> Maybe RGBA -> Maybe [RGBA] -> m ()
terminalSetColors a
terminal Maybe RGBA
foreground Maybe RGBA
background Maybe [RGBA]
palette = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let paletteSize :: CSize
paletteSize = case Maybe [RGBA]
palette of
Maybe [RGBA]
Nothing -> CSize
0
Just [RGBA]
jPalette -> Int -> CSize
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CSize) -> Int -> CSize
forall a b. (a -> b) -> a -> b
$ [RGBA] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [RGBA]
jPalette
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeForeground <- case foreground of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jForeground -> do
jForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jForeground
return jForeground'
maybeBackground <- case background of
Maybe RGBA
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just RGBA
jBackground -> do
jBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jBackground
return jBackground'
maybePalette <- case palette of
Maybe [RGBA]
Nothing -> Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
FP.nullPtr
Just [RGBA]
jPalette -> do
jPalette' <- (RGBA -> IO (Ptr RGBA)) -> [RGBA] -> IO [Ptr RGBA]
forall (t :: * -> *) (m :: * -> *) a b.
(Traversable t, Monad m) =>
(a -> m b) -> t a -> m (t b)
forall (m :: * -> *) a b. Monad m => (a -> m b) -> [a] -> m [b]
mapM RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr [RGBA]
jPalette
jPalette'' <- packBlockArray 32 jPalette'
return jPalette''
vte_terminal_set_colors terminal' maybeForeground maybeBackground maybePalette paletteSize
touchManagedPtr terminal
whenJust foreground touchManagedPtr
whenJust background touchManagedPtr
whenJust palette (mapM_ touchManagedPtr)
freeMem maybePalette
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetColorsMethodInfo
instance (signature ~ (Maybe (Gdk.RGBA.RGBA) -> Maybe (Gdk.RGBA.RGBA) -> Maybe ([Gdk.RGBA.RGBA]) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetColorsMethodInfo a signature where
overloadedMethod = terminalSetColors
instance O.OverloadedMethodInfo TerminalSetColorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetColors",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetColors"
})
#endif
foreign import ccall "vte_terminal_set_context_menu" ::
Ptr Terminal ->
Ptr Gtk.Widget.Widget ->
IO ()
terminalSetContextMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
a
terminal Maybe b
menu = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeMenu <- case menu of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
FP.nullPtr
Just b
jMenu -> do
jMenu' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenu
return jMenu'
vte_terminal_set_context_menu terminal' maybeMenu
touchManagedPtr terminal
whenJust menu touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetContextMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTerminal a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TerminalSetContextMenuMethodInfo a signature where
overloadedMethod = terminalSetContextMenu
instance O.OverloadedMethodInfo TerminalSetContextMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetContextMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetContextMenu"
})
#endif
foreign import ccall "vte_terminal_set_context_menu_model" ::
Ptr Terminal ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
terminalSetContextMenuModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
a
terminal Maybe b
model = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeModel <- case model of
Maybe b
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
FP.nullPtr
Just b
jModel -> do
jModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
return jModel'
vte_terminal_set_context_menu_model terminal' maybeModel
touchManagedPtr terminal
whenJust model touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetContextMenuModelMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTerminal a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod TerminalSetContextMenuModelMethodInfo a signature where
overloadedMethod = terminalSetContextMenuModel
instance O.OverloadedMethodInfo TerminalSetContextMenuModelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetContextMenuModel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetContextMenuModel"
})
#endif
foreign import ccall "vte_terminal_set_cursor_blink_mode" vte_terminal_set_cursor_blink_mode ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetCursorBlinkMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.CursorBlinkMode
-> m ()
terminalSetCursorBlinkMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> CursorBlinkMode -> m ()
terminalSetCursorBlinkMode a
terminal CursorBlinkMode
mode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let mode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (CursorBlinkMode -> Int) -> CursorBlinkMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CursorBlinkMode -> Int
forall a. Enum a => a -> Int
fromEnum) CursorBlinkMode
mode
vte_terminal_set_cursor_blink_mode terminal' mode'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCursorBlinkModeMethodInfo
instance (signature ~ (Vte.Enums.CursorBlinkMode -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetCursorBlinkModeMethodInfo a signature where
overloadedMethod = terminalSetCursorBlinkMode
instance O.OverloadedMethodInfo TerminalSetCursorBlinkModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetCursorBlinkMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetCursorBlinkMode"
})
#endif
foreign import ccall "vte_terminal_set_cursor_shape" vte_terminal_set_cursor_shape ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetCursorShape ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.CursorShape
-> m ()
terminalSetCursorShape :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> CursorShape -> m ()
terminalSetCursorShape a
terminal CursorShape
shape = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let shape' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (CursorShape -> Int) -> CursorShape -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CursorShape -> Int
forall a. Enum a => a -> Int
fromEnum) CursorShape
shape
vte_terminal_set_cursor_shape terminal' shape'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCursorShapeMethodInfo
instance (signature ~ (Vte.Enums.CursorShape -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetCursorShapeMethodInfo a signature where
overloadedMethod = terminalSetCursorShape
instance O.OverloadedMethodInfo TerminalSetCursorShapeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetCursorShape",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetCursorShape"
})
#endif
foreign import ccall "vte_terminal_set_default_colors" vte_terminal_set_default_colors ::
Ptr Terminal ->
IO ()
terminalSetDefaultColors ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalSetDefaultColors :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalSetDefaultColors a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_set_default_colors terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetDefaultColorsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetDefaultColorsMethodInfo a signature where
overloadedMethod = terminalSetDefaultColors
instance O.OverloadedMethodInfo TerminalSetDefaultColorsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetDefaultColors",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetDefaultColors"
})
#endif
foreign import ccall "vte_terminal_set_delete_binding" vte_terminal_set_delete_binding ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetDeleteBinding ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.EraseBinding
-> m ()
terminalSetDeleteBinding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> EraseBinding -> m ()
terminalSetDeleteBinding a
terminal EraseBinding
binding = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let binding' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (EraseBinding -> Int) -> EraseBinding -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. EraseBinding -> Int
forall a. Enum a => a -> Int
fromEnum) EraseBinding
binding
vte_terminal_set_delete_binding terminal' binding'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetDeleteBindingMethodInfo
instance (signature ~ (Vte.Enums.EraseBinding -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetDeleteBindingMethodInfo a signature where
overloadedMethod = terminalSetDeleteBinding
instance O.OverloadedMethodInfo TerminalSetDeleteBindingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetDeleteBinding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetDeleteBinding"
})
#endif
foreign import ccall "vte_terminal_set_enable_a11y" vte_terminal_set_enable_a11y ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableA11y ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableA11y :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableA11y a
terminal Bool
enableA11y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableA11y' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enableA11y
vte_terminal_set_enable_a11y terminal' enableA11y'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableA11yMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableA11yMethodInfo a signature where
overloadedMethod = terminalSetEnableA11y
instance O.OverloadedMethodInfo TerminalSetEnableA11yMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableA11y",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableA11y"
})
#endif
foreign import ccall "vte_terminal_set_enable_bidi" vte_terminal_set_enable_bidi ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableBidi ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableBidi :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableBidi a
terminal Bool
enableBidi = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableBidi' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enableBidi
vte_terminal_set_enable_bidi terminal' enableBidi'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableBidiMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableBidiMethodInfo a signature where
overloadedMethod = terminalSetEnableBidi
instance O.OverloadedMethodInfo TerminalSetEnableBidiMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableBidi",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableBidi"
})
#endif
foreign import ccall "vte_terminal_set_enable_fallback_scrolling" vte_terminal_set_enable_fallback_scrolling ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableFallbackScrolling ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableFallbackScrolling :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableFallbackScrolling a
terminal Bool
enable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enable
vte_terminal_set_enable_fallback_scrolling terminal' enable'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableFallbackScrollingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableFallbackScrollingMethodInfo a signature where
overloadedMethod = terminalSetEnableFallbackScrolling
instance O.OverloadedMethodInfo TerminalSetEnableFallbackScrollingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableFallbackScrolling",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableFallbackScrolling"
})
#endif
foreign import ccall "vte_terminal_set_enable_legacy_osc777" vte_terminal_set_enable_legacy_osc777 ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableLegacyOsc777 ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableLegacyOsc777 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableLegacyOsc777 a
terminal Bool
enable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enable
vte_terminal_set_enable_legacy_osc777 terminal' enable'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableLegacyOsc777MethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableLegacyOsc777MethodInfo a signature where
overloadedMethod = terminalSetEnableLegacyOsc777
instance O.OverloadedMethodInfo TerminalSetEnableLegacyOsc777MethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableLegacyOsc777",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableLegacyOsc777"
})
#endif
foreign import ccall "vte_terminal_set_enable_shaping" vte_terminal_set_enable_shaping ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableShaping ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableShaping :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableShaping a
terminal Bool
enableShaping = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableShaping' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enableShaping
vte_terminal_set_enable_shaping terminal' enableShaping'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableShapingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableShapingMethodInfo a signature where
overloadedMethod = terminalSetEnableShaping
instance O.OverloadedMethodInfo TerminalSetEnableShapingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableShaping",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableShaping"
})
#endif
foreign import ccall "vte_terminal_set_enable_sixel" vte_terminal_set_enable_sixel ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetEnableSixel ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetEnableSixel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetEnableSixel a
terminal Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
vte_terminal_set_enable_sixel terminal' enabled'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableSixelMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEnableSixelMethodInfo a signature where
overloadedMethod = terminalSetEnableSixel
instance O.OverloadedMethodInfo TerminalSetEnableSixelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEnableSixel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEnableSixel"
})
#endif
foreign import ccall "vte_terminal_set_encoding" vte_terminal_set_encoding ::
Ptr Terminal ->
CString ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED terminalSetEncoding ["(Since version 0.54)","Support for non-UTF-8 is deprecated."] #-}
terminalSetEncoding ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (T.Text)
-> m ()
terminalSetEncoding :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe Text -> m ()
terminalSetEncoding a
terminal Maybe Text
codeset = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeCodeset <- case codeset of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jCodeset -> do
jCodeset' <- Text -> IO CString
textToCString Text
jCodeset
return jCodeset'
onException (do
_ <- propagateGError $ vte_terminal_set_encoding terminal' maybeCodeset
touchManagedPtr terminal
freeMem maybeCodeset
return ()
) (do
freeMem maybeCodeset
)
#if defined(ENABLE_OVERLOADING)
data TerminalSetEncodingMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetEncodingMethodInfo a signature where
overloadedMethod = terminalSetEncoding
instance O.OverloadedMethodInfo TerminalSetEncodingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetEncoding",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetEncoding"
})
#endif
foreign import ccall "vte_terminal_set_font" vte_terminal_set_font ::
Ptr Terminal ->
Ptr Pango.FontDescription.FontDescription ->
IO ()
terminalSetFont ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Pango.FontDescription.FontDescription)
-> m ()
terminalSetFont :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe FontDescription -> m ()
terminalSetFont a
terminal Maybe FontDescription
fontDesc = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeFontDesc <- case fontDesc of
Maybe FontDescription
Nothing -> Ptr FontDescription -> IO (Ptr FontDescription)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontDescription
forall a. Ptr a
FP.nullPtr
Just FontDescription
jFontDesc -> do
jFontDesc' <- FontDescription -> IO (Ptr FontDescription)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontDescription
jFontDesc
return jFontDesc'
vte_terminal_set_font terminal' maybeFontDesc
touchManagedPtr terminal
whenJust fontDesc touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetFontMethodInfo
instance (signature ~ (Maybe (Pango.FontDescription.FontDescription) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetFontMethodInfo a signature where
overloadedMethod = terminalSetFont
instance O.OverloadedMethodInfo TerminalSetFontMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetFont",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetFont"
})
#endif
foreign import ccall "vte_terminal_set_font_options" vte_terminal_set_font_options ::
Ptr Terminal ->
Ptr Cairo.FontOptions.FontOptions ->
IO ()
terminalSetFontOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Cairo.FontOptions.FontOptions)
-> m ()
terminalSetFontOptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Maybe FontOptions -> m ()
terminalSetFontOptions a
terminal Maybe FontOptions
fontOptions = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybeFontOptions <- case fontOptions of
Maybe FontOptions
Nothing -> Ptr FontOptions -> IO (Ptr FontOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontOptions
forall a. Ptr a
FP.nullPtr
Just FontOptions
jFontOptions -> do
jFontOptions' <- FontOptions -> IO (Ptr FontOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontOptions
jFontOptions
return jFontOptions'
vte_terminal_set_font_options terminal' maybeFontOptions
touchManagedPtr terminal
whenJust fontOptions touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetFontOptionsMethodInfo
instance (signature ~ (Maybe (Cairo.FontOptions.FontOptions) -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetFontOptionsMethodInfo a signature where
overloadedMethod = terminalSetFontOptions
instance O.OverloadedMethodInfo TerminalSetFontOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetFontOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetFontOptions"
})
#endif
foreign import ccall "vte_terminal_set_font_scale" vte_terminal_set_font_scale ::
Ptr Terminal ->
CDouble ->
IO ()
terminalSetFontScale ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Double
-> m ()
terminalSetFontScale :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Double -> m ()
terminalSetFontScale a
terminal Double
scale = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
vte_terminal_set_font_scale terminal' scale'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetFontScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetFontScaleMethodInfo a signature where
overloadedMethod = terminalSetFontScale
instance O.OverloadedMethodInfo TerminalSetFontScaleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetFontScale",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetFontScale"
})
#endif
foreign import ccall "vte_terminal_set_geometry_hints_for_window" vte_terminal_set_geometry_hints_for_window ::
Ptr Terminal ->
Ptr Gtk.Window.Window ->
IO ()
{-# DEPRECATED terminalSetGeometryHintsForWindow ["(Since version 0.52)"] #-}
terminalSetGeometryHintsForWindow ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gtk.Window.IsWindow b) =>
a
-> b
-> m ()
terminalSetGeometryHintsForWindow :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsWindow b) =>
a -> b -> m ()
terminalSetGeometryHintsForWindow a
terminal b
window = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
window' <- unsafeManagedPtrCastPtr window
vte_terminal_set_geometry_hints_for_window terminal' window'
touchManagedPtr terminal
touchManagedPtr window
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetGeometryHintsForWindowMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTerminal a, Gtk.Window.IsWindow b) => O.OverloadedMethod TerminalSetGeometryHintsForWindowMethodInfo a signature where
overloadedMethod = terminalSetGeometryHintsForWindow
instance O.OverloadedMethodInfo TerminalSetGeometryHintsForWindowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetGeometryHintsForWindow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetGeometryHintsForWindow"
})
#endif
foreign import ccall "vte_terminal_set_input_enabled" vte_terminal_set_input_enabled ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetInputEnabled ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetInputEnabled :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetInputEnabled a
terminal Bool
enabled = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enabled' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enabled
vte_terminal_set_input_enabled terminal' enabled'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetInputEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetInputEnabledMethodInfo a signature where
overloadedMethod = terminalSetInputEnabled
instance O.OverloadedMethodInfo TerminalSetInputEnabledMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetInputEnabled",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetInputEnabled"
})
#endif
foreign import ccall "vte_terminal_set_mouse_autohide" vte_terminal_set_mouse_autohide ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetMouseAutohide ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetMouseAutohide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetMouseAutohide a
terminal Bool
setting = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
setting
vte_terminal_set_mouse_autohide terminal' setting'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetMouseAutohideMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetMouseAutohideMethodInfo a signature where
overloadedMethod = terminalSetMouseAutohide
instance O.OverloadedMethodInfo TerminalSetMouseAutohideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetMouseAutohide",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetMouseAutohide"
})
#endif
foreign import ccall "vte_terminal_set_pty" vte_terminal_set_pty ::
Ptr Terminal ->
Ptr Vte.Pty.Pty ->
IO ()
terminalSetPty ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Vte.Pty.IsPty b) =>
a
-> Maybe (b)
-> m ()
terminalSetPty :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsPty b) =>
a -> Maybe b -> m ()
terminalSetPty a
terminal Maybe b
pty = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
maybePty <- case pty of
Maybe b
Nothing -> Ptr Pty -> IO (Ptr Pty)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pty
forall a. Ptr a
FP.nullPtr
Just b
jPty -> do
jPty' <- b -> IO (Ptr Pty)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPty
return jPty'
vte_terminal_set_pty terminal' maybePty
touchManagedPtr terminal
whenJust pty touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetPtyMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTerminal a, Vte.Pty.IsPty b) => O.OverloadedMethod TerminalSetPtyMethodInfo a signature where
overloadedMethod = terminalSetPty
instance O.OverloadedMethodInfo TerminalSetPtyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetPty",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetPty"
})
#endif
foreign import ccall "vte_terminal_set_rewrap_on_resize" vte_terminal_set_rewrap_on_resize ::
Ptr Terminal ->
CInt ->
IO ()
{-# DEPRECATED terminalSetRewrapOnResize ["(Since version 0.58)"] #-}
terminalSetRewrapOnResize ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetRewrapOnResize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetRewrapOnResize a
terminal Bool
rewrap = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let rewrap' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
rewrap
vte_terminal_set_rewrap_on_resize terminal' rewrap'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetRewrapOnResizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetRewrapOnResizeMethodInfo a signature where
overloadedMethod = terminalSetRewrapOnResize
instance O.OverloadedMethodInfo TerminalSetRewrapOnResizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetRewrapOnResize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetRewrapOnResize"
})
#endif
foreign import ccall "vte_terminal_set_scroll_on_insert" vte_terminal_set_scroll_on_insert ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetScrollOnInsert ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetScrollOnInsert :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetScrollOnInsert a
terminal Bool
scroll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
scroll
vte_terminal_set_scroll_on_insert terminal' scroll'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollOnInsertMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetScrollOnInsertMethodInfo a signature where
overloadedMethod = terminalSetScrollOnInsert
instance O.OverloadedMethodInfo TerminalSetScrollOnInsertMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetScrollOnInsert",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetScrollOnInsert"
})
#endif
foreign import ccall "vte_terminal_set_scroll_on_keystroke" vte_terminal_set_scroll_on_keystroke ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetScrollOnKeystroke ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetScrollOnKeystroke :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetScrollOnKeystroke a
terminal Bool
scroll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
scroll
vte_terminal_set_scroll_on_keystroke terminal' scroll'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollOnKeystrokeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetScrollOnKeystrokeMethodInfo a signature where
overloadedMethod = terminalSetScrollOnKeystroke
instance O.OverloadedMethodInfo TerminalSetScrollOnKeystrokeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetScrollOnKeystroke",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetScrollOnKeystroke"
})
#endif
foreign import ccall "vte_terminal_set_scroll_on_output" vte_terminal_set_scroll_on_output ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetScrollOnOutput ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetScrollOnOutput :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetScrollOnOutput a
terminal Bool
scroll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
scroll
vte_terminal_set_scroll_on_output terminal' scroll'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollOnOutputMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetScrollOnOutputMethodInfo a signature where
overloadedMethod = terminalSetScrollOnOutput
instance O.OverloadedMethodInfo TerminalSetScrollOnOutputMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetScrollOnOutput",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetScrollOnOutput"
})
#endif
foreign import ccall "vte_terminal_set_scroll_unit_is_pixels" vte_terminal_set_scroll_unit_is_pixels ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetScrollUnitIsPixels ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetScrollUnitIsPixels :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetScrollUnitIsPixels a
terminal Bool
enable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
enable
vte_terminal_set_scroll_unit_is_pixels terminal' enable'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollUnitIsPixelsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetScrollUnitIsPixelsMethodInfo a signature where
overloadedMethod = terminalSetScrollUnitIsPixels
instance O.OverloadedMethodInfo TerminalSetScrollUnitIsPixelsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetScrollUnitIsPixels",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetScrollUnitIsPixels"
})
#endif
foreign import ccall "vte_terminal_set_scrollback_lines" vte_terminal_set_scrollback_lines ::
Ptr Terminal ->
FCT.CLong ->
IO ()
terminalSetScrollbackLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> FCT.CLong
-> m ()
terminalSetScrollbackLines :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> CLong -> m ()
terminalSetScrollbackLines a
terminal CLong
lines = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_set_scrollback_lines terminal' lines
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollbackLinesMethodInfo
instance (signature ~ (FCT.CLong -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetScrollbackLinesMethodInfo a signature where
overloadedMethod = terminalSetScrollbackLines
instance O.OverloadedMethodInfo TerminalSetScrollbackLinesMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetScrollbackLines",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetScrollbackLines"
})
#endif
foreign import ccall "vte_terminal_set_size" vte_terminal_set_size ::
Ptr Terminal ->
FCT.CLong ->
FCT.CLong ->
IO ()
terminalSetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> FCT.CLong
-> FCT.CLong
-> m ()
terminalSetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> CLong -> CLong -> m ()
terminalSetSize a
terminal CLong
columns CLong
rows = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_set_size terminal' columns rows
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetSizeMethodInfo
instance (signature ~ (FCT.CLong -> FCT.CLong -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetSizeMethodInfo a signature where
overloadedMethod = terminalSetSize
instance O.OverloadedMethodInfo TerminalSetSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetSize"
})
#endif
foreign import ccall "vte_terminal_set_suppress_legacy_signals" vte_terminal_set_suppress_legacy_signals ::
Ptr Terminal ->
IO ()
terminalSetSuppressLegacySignals ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalSetSuppressLegacySignals :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalSetSuppressLegacySignals a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_set_suppress_legacy_signals terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetSuppressLegacySignalsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetSuppressLegacySignalsMethodInfo a signature where
overloadedMethod = terminalSetSuppressLegacySignals
instance O.OverloadedMethodInfo TerminalSetSuppressLegacySignalsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetSuppressLegacySignals",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetSuppressLegacySignals"
})
#endif
foreign import ccall "vte_terminal_set_text_blink_mode" vte_terminal_set_text_blink_mode ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetTextBlinkMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.TextBlinkMode
-> m ()
terminalSetTextBlinkMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> TextBlinkMode -> m ()
terminalSetTextBlinkMode a
terminal TextBlinkMode
textBlinkMode = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let textBlinkMode' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (TextBlinkMode -> Int) -> TextBlinkMode -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TextBlinkMode -> Int
forall a. Enum a => a -> Int
fromEnum) TextBlinkMode
textBlinkMode
vte_terminal_set_text_blink_mode terminal' textBlinkMode'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetTextBlinkModeMethodInfo
instance (signature ~ (Vte.Enums.TextBlinkMode -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetTextBlinkModeMethodInfo a signature where
overloadedMethod = terminalSetTextBlinkMode
instance O.OverloadedMethodInfo TerminalSetTextBlinkModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetTextBlinkMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetTextBlinkMode"
})
#endif
foreign import ccall "vte_terminal_set_word_char_exceptions" vte_terminal_set_word_char_exceptions ::
Ptr Terminal ->
CString ->
IO ()
terminalSetWordCharExceptions ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> T.Text
-> m ()
terminalSetWordCharExceptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Text -> m ()
terminalSetWordCharExceptions a
terminal Text
exceptions = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
exceptions' <- textToCString exceptions
vte_terminal_set_word_char_exceptions terminal' exceptions'
touchManagedPtr terminal
freeMem exceptions'
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetWordCharExceptionsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetWordCharExceptionsMethodInfo a signature where
overloadedMethod = terminalSetWordCharExceptions
instance O.OverloadedMethodInfo TerminalSetWordCharExceptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetWordCharExceptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetWordCharExceptions"
})
#endif
foreign import ccall "vte_terminal_set_xalign" vte_terminal_set_xalign ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetXalign ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Align
-> m ()
terminalSetXalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Align -> m ()
terminalSetXalign a
terminal Align
align = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let align' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Align -> Int) -> Align -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Align -> Int
forall a. Enum a => a -> Int
fromEnum) Align
align
vte_terminal_set_xalign terminal' align'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetXalignMethodInfo
instance (signature ~ (Vte.Enums.Align -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetXalignMethodInfo a signature where
overloadedMethod = terminalSetXalign
instance O.OverloadedMethodInfo TerminalSetXalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetXalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetXalign"
})
#endif
foreign import ccall "vte_terminal_set_xfill" vte_terminal_set_xfill ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetXfill ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetXfill :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetXfill a
terminal Bool
fill = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let fill' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
fill
vte_terminal_set_xfill terminal' fill'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetXfillMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetXfillMethodInfo a signature where
overloadedMethod = terminalSetXfill
instance O.OverloadedMethodInfo TerminalSetXfillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetXfill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetXfill"
})
#endif
foreign import ccall "vte_terminal_set_yalign" vte_terminal_set_yalign ::
Ptr Terminal ->
CUInt ->
IO ()
terminalSetYalign ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Vte.Enums.Align
-> m ()
terminalSetYalign :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Align -> m ()
terminalSetYalign a
terminal Align
align = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let align' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Align -> Int) -> Align -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Align -> Int
forall a. Enum a => a -> Int
fromEnum) Align
align
vte_terminal_set_yalign terminal' align'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetYalignMethodInfo
instance (signature ~ (Vte.Enums.Align -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetYalignMethodInfo a signature where
overloadedMethod = terminalSetYalign
instance O.OverloadedMethodInfo TerminalSetYalignMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetYalign",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetYalign"
})
#endif
foreign import ccall "vte_terminal_set_yfill" vte_terminal_set_yfill ::
Ptr Terminal ->
CInt ->
IO ()
terminalSetYfill ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Bool
-> m ()
terminalSetYfill :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Bool -> m ()
terminalSetYfill a
terminal Bool
fill = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let fill' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
fill
vte_terminal_set_yfill terminal' fill'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetYfillMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalSetYfillMethodInfo a signature where
overloadedMethod = terminalSetYfill
instance O.OverloadedMethodInfo TerminalSetYfillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSetYfill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSetYfill"
})
#endif
foreign import ccall "vte_terminal_spawn_async" vte_terminal_spawn_async ::
Ptr Terminal ->
CUInt ->
CString ->
Ptr CString ->
Ptr CString ->
CUInt ->
FunPtr GLib.Callbacks.C_SpawnChildSetupFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback ->
Ptr () ->
IO ()
terminalSpawnAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) =>
a
-> [Vte.Flags.PtyFlags]
-> Maybe (T.Text)
-> [[Char]]
-> Maybe ([[Char]])
-> [GLib.Flags.SpawnFlags]
-> Maybe (GLib.Callbacks.SpawnChildSetupFunc)
-> Int32
-> Maybe (b)
-> Maybe (Vte.Callbacks.TerminalSpawnAsyncCallback)
-> m ()
terminalSpawnAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsCancellable b) =>
a
-> [PtyFlags]
-> Maybe Text
-> [String]
-> Maybe [String]
-> [SpawnFlags]
-> Maybe SpawnChildSetupFunc
-> Int32
-> Maybe b
-> Maybe TerminalSpawnAsyncCallback
-> m ()
terminalSpawnAsync a
terminal [PtyFlags]
ptyFlags Maybe Text
workingDirectory [String]
argv Maybe [String]
envv [SpawnFlags]
spawnFlags Maybe SpawnChildSetupFunc
childSetup Int32
timeout Maybe b
cancellable Maybe TerminalSpawnAsyncCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
maybeWorkingDirectory <- case workingDirectory of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jWorkingDirectory -> do
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
return jWorkingDirectory'
argv' <- packZeroTerminatedFileNameArray argv
maybeEnvv <- case envv of
Maybe [String]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [String]
jEnvv -> do
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
return jEnvv'
let spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
maybeChildSetup <- case childSetup of
Maybe SpawnChildSetupFunc
Nothing -> FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
forall a. FunPtr a
FP.nullFunPtr
Just SpawnChildSetupFunc
jChildSetup -> do
ptrchildSetup <- IO (Ptr (FunPtr SpawnChildSetupFunc))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_SpawnChildSetupFunc))
jChildSetup' <- GLib.Callbacks.mk_SpawnChildSetupFunc (GLib.Callbacks.wrap_SpawnChildSetupFunc (Just ptrchildSetup) jChildSetup)
poke ptrchildSetup jChildSetup'
return jChildSetup'
maybeCancellable <- case cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
return jCancellable'
maybeCallback <- case callback of
Maybe TerminalSpawnAsyncCallback
Nothing -> FunPtr C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TerminalSpawnAsyncCallback
forall a. FunPtr a
FP.nullFunPtr
Just TerminalSpawnAsyncCallback
jCallback -> do
ptrcallback <- IO (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback))
jCallback' <- Vte.Callbacks.mk_TerminalSpawnAsyncCallback (Vte.Callbacks.wrap_TerminalSpawnAsyncCallback (Just ptrcallback) (Vte.Callbacks.drop_closures_TerminalSpawnAsyncCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let childSetupData = Ptr a
forall a. Ptr a
nullPtr
let childSetupDataDestroy = FunPtr a
forall a. FunPtr a
FP.nullFunPtr
let userData = Ptr a
forall a. Ptr a
nullPtr
vte_terminal_spawn_async terminal' ptyFlags' maybeWorkingDirectory argv' maybeEnvv spawnFlags' maybeChildSetup childSetupData childSetupDataDestroy timeout maybeCancellable maybeCallback userData
touchManagedPtr terminal
whenJust cancellable touchManagedPtr
freeMem maybeWorkingDirectory
mapZeroTerminatedCArray freeMem argv'
freeMem argv'
mapZeroTerminatedCArray freeMem maybeEnvv
freeMem maybeEnvv
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSpawnAsyncMethodInfo
instance (signature ~ ([Vte.Flags.PtyFlags] -> Maybe (T.Text) -> [[Char]] -> Maybe ([[Char]]) -> [GLib.Flags.SpawnFlags] -> Maybe (GLib.Callbacks.SpawnChildSetupFunc) -> Int32 -> Maybe (b) -> Maybe (Vte.Callbacks.TerminalSpawnAsyncCallback) -> m ()), MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod TerminalSpawnAsyncMethodInfo a signature where
overloadedMethod = terminalSpawnAsync
instance O.OverloadedMethodInfo TerminalSpawnAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSpawnAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSpawnAsync"
})
#endif
foreign import ccall "vte_terminal_spawn_sync" vte_terminal_spawn_sync ::
Ptr Terminal ->
CUInt ->
CString ->
Ptr CString ->
Ptr CString ->
CUInt ->
FunPtr GLib.Callbacks.C_SpawnChildSetupFunc ->
Ptr () ->
Ptr Int32 ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED terminalSpawnSync ["(Since version 0.48)","Use 'GI.Vte.Objects.Terminal.terminalSpawnAsync' instead."] #-}
terminalSpawnSync ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) =>
a
-> [Vte.Flags.PtyFlags]
-> Maybe (T.Text)
-> [[Char]]
-> Maybe ([[Char]])
-> [GLib.Flags.SpawnFlags]
-> Maybe (GLib.Callbacks.SpawnChildSetupFunc)
-> Maybe (b)
-> m (Int32)
terminalSpawnSync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsCancellable b) =>
a
-> [PtyFlags]
-> Maybe Text
-> [String]
-> Maybe [String]
-> [SpawnFlags]
-> Maybe SpawnChildSetupFunc
-> Maybe b
-> m Int32
terminalSpawnSync a
terminal [PtyFlags]
ptyFlags Maybe Text
workingDirectory [String]
argv Maybe [String]
envv [SpawnFlags]
spawnFlags Maybe SpawnChildSetupFunc
childSetup Maybe b
cancellable = IO Int32 -> m Int32
forall a. IO a -> m a
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
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
maybeWorkingDirectory <- case workingDirectory of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jWorkingDirectory -> do
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
return jWorkingDirectory'
argv' <- packZeroTerminatedFileNameArray argv
maybeEnvv <- case envv of
Maybe [String]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [String]
jEnvv -> do
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
return jEnvv'
let spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
maybeChildSetup <- case childSetup of
Maybe SpawnChildSetupFunc
Nothing -> FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
forall a. FunPtr a
FP.nullFunPtr
Just SpawnChildSetupFunc
jChildSetup -> do
jChildSetup' <- SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
GLib.Callbacks.mk_SpawnChildSetupFunc (Maybe (Ptr (FunPtr SpawnChildSetupFunc))
-> SpawnChildSetupFunc -> SpawnChildSetupFunc
GLib.Callbacks.wrap_SpawnChildSetupFunc Maybe (Ptr (FunPtr SpawnChildSetupFunc))
forall a. Maybe a
Nothing SpawnChildSetupFunc
jChildSetup)
return jChildSetup'
childPid <- allocMem :: IO (Ptr Int32)
maybeCancellable <- case cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
return jCancellable'
let childSetupData = Ptr a
forall a. Ptr a
nullPtr
onException (do
_ <- propagateGError $ vte_terminal_spawn_sync terminal' ptyFlags' maybeWorkingDirectory argv' maybeEnvv spawnFlags' maybeChildSetup childSetupData childPid maybeCancellable
childPid' <- peek childPid
safeFreeFunPtr $ castFunPtrToPtr maybeChildSetup
touchManagedPtr terminal
whenJust cancellable touchManagedPtr
freeMem maybeWorkingDirectory
mapZeroTerminatedCArray freeMem argv'
freeMem argv'
mapZeroTerminatedCArray freeMem maybeEnvv
freeMem maybeEnvv
freeMem childPid
return childPid'
) (do
safeFreeFunPtr $ castFunPtrToPtr maybeChildSetup
freeMem maybeWorkingDirectory
mapZeroTerminatedCArray freeMem argv'
freeMem argv'
mapZeroTerminatedCArray freeMem maybeEnvv
freeMem maybeEnvv
freeMem childPid
)
#if defined(ENABLE_OVERLOADING)
data TerminalSpawnSyncMethodInfo
instance (signature ~ ([Vte.Flags.PtyFlags] -> Maybe (T.Text) -> [[Char]] -> Maybe ([[Char]]) -> [GLib.Flags.SpawnFlags] -> Maybe (GLib.Callbacks.SpawnChildSetupFunc) -> Maybe (b) -> m (Int32)), MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod TerminalSpawnSyncMethodInfo a signature where
overloadedMethod = terminalSpawnSync
instance O.OverloadedMethodInfo TerminalSpawnSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSpawnSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSpawnSync"
})
#endif
foreign import ccall "vte_terminal_spawn_with_fds_async" vte_terminal_spawn_with_fds_async ::
Ptr Terminal ->
CUInt ->
CString ->
Ptr CString ->
Ptr CString ->
Ptr Int32 ->
Int32 ->
Ptr Int32 ->
Int32 ->
CUInt ->
FunPtr GLib.Callbacks.C_SpawnChildSetupFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
Int32 ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback ->
Ptr () ->
IO ()
terminalSpawnWithFdsAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) =>
a
-> [Vte.Flags.PtyFlags]
-> Maybe (T.Text)
-> [[Char]]
-> Maybe ([[Char]])
-> Maybe ([Int32])
-> Maybe ([Int32])
-> [GLib.Flags.SpawnFlags]
-> Maybe (GLib.Callbacks.SpawnChildSetupFunc)
-> Int32
-> Maybe (b)
-> Maybe (Vte.Callbacks.TerminalSpawnAsyncCallback)
-> m ()
terminalSpawnWithFdsAsync :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTerminal a, IsCancellable b) =>
a
-> [PtyFlags]
-> Maybe Text
-> [String]
-> Maybe [String]
-> Maybe [Int32]
-> Maybe [Int32]
-> [SpawnFlags]
-> Maybe SpawnChildSetupFunc
-> Int32
-> Maybe b
-> Maybe TerminalSpawnAsyncCallback
-> m ()
terminalSpawnWithFdsAsync a
terminal [PtyFlags]
ptyFlags Maybe Text
workingDirectory [String]
argv Maybe [String]
envv Maybe [Int32]
fds Maybe [Int32]
mapFds [SpawnFlags]
spawnFlags Maybe SpawnChildSetupFunc
childSetup Int32
timeout Maybe b
cancellable Maybe TerminalSpawnAsyncCallback
callback = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let nMapFds :: Int32
nMapFds = case Maybe [Int32]
mapFds of
Maybe [Int32]
Nothing -> Int32
0
Just [Int32]
jMapFds -> Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [Int32] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [Int32]
jMapFds
let nFds :: Int32
nFds = case Maybe [Int32]
fds of
Maybe [Int32]
Nothing -> Int32
0
Just [Int32]
jFds -> Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ [Int32] -> Int
forall a. [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
P.length [Int32]
jFds
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
maybeWorkingDirectory <- case workingDirectory of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
FP.nullPtr
Just Text
jWorkingDirectory -> do
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
return jWorkingDirectory'
argv' <- packZeroTerminatedFileNameArray argv
maybeEnvv <- case envv of
Maybe [String]
Nothing -> Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
FP.nullPtr
Just [String]
jEnvv -> do
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
return jEnvv'
maybeFds <- case fds of
Maybe [Int32]
Nothing -> Ptr Int32 -> IO (Ptr Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Int32
forall a. Ptr a
FP.nullPtr
Just [Int32]
jFds -> do
jFds' <- [Int32] -> IO (Ptr Int32)
forall a. Storable a => [a] -> IO (Ptr a)
packStorableArray [Int32]
jFds
return jFds'
maybeMapFds <- case mapFds of
Maybe [Int32]
Nothing -> Ptr Int32 -> IO (Ptr Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Int32
forall a. Ptr a
FP.nullPtr
Just [Int32]
jMapFds -> do
jMapFds' <- [Int32] -> IO (Ptr Int32)
forall a. Storable a => [a] -> IO (Ptr a)
packStorableArray [Int32]
jMapFds
return jMapFds'
let spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
maybeChildSetup <- case childSetup of
Maybe SpawnChildSetupFunc
Nothing -> FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
forall a. FunPtr a
FP.nullFunPtr
Just SpawnChildSetupFunc
jChildSetup -> do
jChildSetup' <- SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
GLib.Callbacks.mk_SpawnChildSetupFunc (Maybe (Ptr (FunPtr SpawnChildSetupFunc))
-> SpawnChildSetupFunc -> SpawnChildSetupFunc
GLib.Callbacks.wrap_SpawnChildSetupFunc Maybe (Ptr (FunPtr SpawnChildSetupFunc))
forall a. Maybe a
Nothing SpawnChildSetupFunc
jChildSetup)
return jChildSetup'
maybeCancellable <- case cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just b
jCancellable -> do
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
return jCancellable'
maybeCallback <- case callback of
Maybe TerminalSpawnAsyncCallback
Nothing -> FunPtr C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TerminalSpawnAsyncCallback
forall a. FunPtr a
FP.nullFunPtr
Just TerminalSpawnAsyncCallback
jCallback -> do
ptrcallback <- IO (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback))
jCallback' <- Vte.Callbacks.mk_TerminalSpawnAsyncCallback (Vte.Callbacks.wrap_TerminalSpawnAsyncCallback (Just ptrcallback) (Vte.Callbacks.drop_closures_TerminalSpawnAsyncCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let childSetupData = FunPtr SpawnChildSetupFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr SpawnChildSetupFunc
maybeChildSetup
let childSetupDataDestroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
let userData = Ptr a
forall a. Ptr a
nullPtr
vte_terminal_spawn_with_fds_async terminal' ptyFlags' maybeWorkingDirectory argv' maybeEnvv maybeFds nFds maybeMapFds nMapFds spawnFlags' maybeChildSetup childSetupData childSetupDataDestroy timeout maybeCancellable maybeCallback userData
touchManagedPtr terminal
whenJust cancellable touchManagedPtr
freeMem maybeWorkingDirectory
mapZeroTerminatedCArray freeMem argv'
freeMem argv'
mapZeroTerminatedCArray freeMem maybeEnvv
freeMem maybeEnvv
freeMem maybeFds
freeMem maybeMapFds
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSpawnWithFdsAsyncMethodInfo
instance (signature ~ ([Vte.Flags.PtyFlags] -> Maybe (T.Text) -> [[Char]] -> Maybe ([[Char]]) -> Maybe ([Int32]) -> Maybe ([Int32]) -> [GLib.Flags.SpawnFlags] -> Maybe (GLib.Callbacks.SpawnChildSetupFunc) -> Int32 -> Maybe (b) -> Maybe (Vte.Callbacks.TerminalSpawnAsyncCallback) -> m ()), MonadIO m, IsTerminal a, Gio.Cancellable.IsCancellable b) => O.OverloadedMethod TerminalSpawnWithFdsAsyncMethodInfo a signature where
overloadedMethod = terminalSpawnWithFdsAsync
instance O.OverloadedMethodInfo TerminalSpawnWithFdsAsyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalSpawnWithFdsAsync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalSpawnWithFdsAsync"
})
#endif
foreign import ccall "vte_terminal_unselect_all" vte_terminal_unselect_all ::
Ptr Terminal ->
IO ()
terminalUnselectAll ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ()
terminalUnselectAll :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> m ()
terminalUnselectAll a
terminal = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_unselect_all terminal'
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalUnselectAllMethodInfo a signature where
overloadedMethod = terminalUnselectAll
instance O.OverloadedMethodInfo TerminalUnselectAllMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalUnselectAll",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalUnselectAll"
})
#endif
foreign import ccall "vte_terminal_watch_child" vte_terminal_watch_child ::
Ptr Terminal ->
Int32 ->
IO ()
terminalWatchChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Int32
-> m ()
terminalWatchChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTerminal a) =>
a -> Int32 -> m ()
terminalWatchChild a
terminal Int32
childPid = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
vte_terminal_watch_child terminal' childPid
touchManagedPtr terminal
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalWatchChildMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.OverloadedMethod TerminalWatchChildMethodInfo a signature where
overloadedMethod = terminalWatchChild
instance O.OverloadedMethodInfo TerminalWatchChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalWatchChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalWatchChild"
})
#endif
foreign import ccall "vte_terminal_write_contents_sync" vte_terminal_write_contents_sync ::
Ptr Terminal ->
Ptr Gio.OutputStream.OutputStream ->
CUInt ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO CInt
terminalWriteContentsSync ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a, Gio.OutputStream.IsOutputStream b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Vte.Enums.WriteFlags
-> Maybe (c)
-> m ()
terminalWriteContentsSync :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsTerminal a, IsOutputStream b,
IsCancellable c) =>
a -> b -> WriteFlags -> Maybe c -> m ()
terminalWriteContentsSync a
terminal b
stream WriteFlags
flags Maybe c
cancellable = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
stream' <- unsafeManagedPtrCastPtr stream
let flags' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (WriteFlags -> Int) -> WriteFlags -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. WriteFlags -> Int
forall a. Enum a => a -> Int
fromEnum) WriteFlags
flags
maybeCancellable <- case cancellable of
Maybe c
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
FP.nullPtr
Just c
jCancellable -> do
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
return jCancellable'
onException (do
_ <- propagateGError $ vte_terminal_write_contents_sync terminal' stream' flags' maybeCancellable
touchManagedPtr terminal
touchManagedPtr stream
whenJust cancellable touchManagedPtr
return ()
) (do
return ()
)
#if defined(ENABLE_OVERLOADING)
data TerminalWriteContentsSyncMethodInfo
instance (signature ~ (b -> Vte.Enums.WriteFlags -> Maybe (c) -> m ()), MonadIO m, IsTerminal a, Gio.OutputStream.IsOutputStream b, Gio.Cancellable.IsCancellable c) => O.OverloadedMethod TerminalWriteContentsSyncMethodInfo a signature where
overloadedMethod = terminalWriteContentsSync
instance O.OverloadedMethodInfo TerminalWriteContentsSyncMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vte.Objects.Terminal.terminalWriteContentsSync",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vte-2.91.35/docs/GI-Vte-Objects-Terminal.html#v:terminalWriteContentsSync"
})
#endif