{-# 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)
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 Terminal
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 Terminal
ptr Ptr Terminal -> Ptr Terminal -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Terminal
forall a. Ptr a
FP.nullPtr
then Terminal -> Maybe Terminal
forall a. a -> Maybe a
P.Just (Terminal -> Maybe Terminal) -> IO Terminal -> IO (Maybe Terminal)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Terminal -> Terminal) -> Ptr Terminal -> IO Terminal
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Terminal -> Terminal
Terminal Ptr Terminal
ptr
else Maybe Terminal -> IO (Maybe Terminal)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Terminal
forall a. Maybe a
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 "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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"bell" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"bell" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"char-size-changed" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"char-size-changed" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalChildExitedCallback
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalChildExitedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-exited" FunPtr C_TerminalChildExitedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalChildExitedCallback
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalChildExitedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"child-exited" FunPtr C_TerminalChildExitedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
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 -> 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
FunPtr C_TerminalCommitCallback
wrapped'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCommitCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"commit" FunPtr C_TerminalCommitCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalCommitCallback
wrapped'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCommitCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"commit" FunPtr C_TerminalCommitCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"contents-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"contents-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"copy-clipboard" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"copy-clipboard" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"current-directory-uri-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"current-directory-uri-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"current-file-uri-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"current-file-uri-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-moved" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cursor-moved" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"decrease-font-size" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"decrease-font-size" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deiconify-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"deiconify-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"encoding-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"encoding-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"eof" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"eof" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
uri Ptr Rectangle
bbox Ptr ()
_ = do
Text
uri' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
uri
Ptr Rectangle -> (Rectangle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Rectangle
bbox ((Rectangle -> IO ()) -> IO ()) -> (Rectangle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Rectangle
bbox' -> 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
uri' Rectangle
bbox'
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
FunPtr C_TerminalHyperlinkHoverUriChangedCallback
wrapped'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalHyperlinkHoverUriChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"hyperlink-hover-uri-changed" FunPtr C_TerminalHyperlinkHoverUriChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalHyperlinkHoverUriChangedCallback
wrapped'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalHyperlinkHoverUriChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"hyperlink-hover-uri-changed" FunPtr C_TerminalHyperlinkHoverUriChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"icon-title-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"icon-title-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"iconify-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"iconify-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"increase-font-size" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"increase-font-size" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"lower-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"lower-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"maximize-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"maximize-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-window" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"move-window" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paste-clipboard" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"paste-clipboard" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"raise-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"raise-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"refresh-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"refresh-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"resize-window" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalCharSizeChangedCallback
wrapped'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalCharSizeChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"resize-window" FunPtr C_TerminalCharSizeChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"restore-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"restore-window" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selection-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"selection-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
Maybe EventContext
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
EventContext
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
Maybe EventContext -> IO (Maybe EventContext)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe EventContext -> IO (Maybe EventContext))
-> Maybe EventContext -> IO (Maybe EventContext)
forall a b. (a -> b) -> a -> b
$ EventContext -> Maybe EventContext
forall a. a -> Maybe a
Just EventContext
context'
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 -> 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
FunPtr C_TerminalSetupContextMenuCallback
wrapped'' <- C_TerminalSetupContextMenuCallback
-> IO (FunPtr C_TerminalSetupContextMenuCallback)
mk_TerminalSetupContextMenuCallback C_TerminalSetupContextMenuCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalSetupContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"setup-context-menu" FunPtr C_TerminalSetupContextMenuCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalSetupContextMenuCallback
wrapped'' <- C_TerminalSetupContextMenuCallback
-> IO (FunPtr C_TerminalSetupContextMenuCallback)
mk_TerminalSetupContextMenuCallback C_TerminalSetupContextMenuCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalSetupContextMenuCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"setup-context-menu" FunPtr C_TerminalSetupContextMenuCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
Text
name' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
name
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 -> 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
FunPtr C_TerminalTermpropChangedCallback
wrapped'' <- C_TerminalTermpropChangedCallback
-> IO (FunPtr C_TerminalTermpropChangedCallback)
mk_TerminalTermpropChangedCallback C_TerminalTermpropChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalTermpropChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"termprop-changed" FunPtr C_TerminalTermpropChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
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
FunPtr C_TerminalTermpropChangedCallback
wrapped'' <- C_TerminalTermpropChangedCallback
-> IO (FunPtr C_TerminalTermpropChangedCallback)
mk_TerminalTermpropChangedCallback C_TerminalTermpropChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalTermpropChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"termprop-changed" FunPtr C_TerminalTermpropChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
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.33/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
[Int32]
props' <- (Int32 -> Ptr Int32 -> IO [Int32]
forall a b. (Integral a, Storable b) => a -> Ptr b -> IO [b]
unpackStorableArrayWithLength Int32
nProps) Ptr Int32
props
Bool
result <- Ptr Terminal -> (Terminal -> IO Bool) -> IO Bool
forall o b.
(HasCallStack, GObject o) =>
Ptr o -> (o -> IO b) -> IO b
B.ManagedPtr.withNewObject Ptr Terminal
gi'selfPtr ((Terminal -> IO Bool) -> IO Bool)
-> (Terminal -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \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' :: CInt
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
CInt -> IO CInt
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CInt
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
FunPtr C_TerminalTermpropsChangedCallback
wrapped'' <- C_TerminalTermpropsChangedCallback
-> IO (FunPtr C_TerminalTermpropsChangedCallback)
mk_TerminalTermpropsChangedCallback C_TerminalTermpropsChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalTermpropsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"termprops-changed" FunPtr C_TerminalTermpropsChangedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalTermpropsChangedCallback
wrapped'' <- C_TerminalTermpropsChangedCallback
-> IO (FunPtr C_TerminalTermpropsChangedCallback)
mk_TerminalTermpropsChangedCallback C_TerminalTermpropsChangedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalTermpropsChangedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"termprops-changed" FunPtr C_TerminalTermpropsChangedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-deleted" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-deleted" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-inserted" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-inserted" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-modified" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-modified" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalChildExitedCallback
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalChildExitedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-scrolled" FunPtr C_TerminalChildExitedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalChildExitedCallback
wrapped'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalChildExitedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"text-scrolled" FunPtr C_TerminalChildExitedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-title-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
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
FunPtr C_TerminalBellCallback
wrapped'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
wrapped'
a
-> Text
-> FunPtr C_TerminalBellCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"window-title-changed" FunPtr C_TerminalBellCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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
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.33/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
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.33/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
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.33/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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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
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.33/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
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.33/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
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.33/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]
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
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.33/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
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.33/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
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.33/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]
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
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.33/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]
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
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.33/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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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
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.33/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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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]
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
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.33/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
Ptr Terminal
result <- IO (Ptr Terminal)
vte_terminal_new
Text -> Ptr Terminal -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalNew" Ptr Terminal
result
Terminal
result' <- ((ManagedPtr Terminal -> Terminal) -> Ptr Terminal -> IO Terminal
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Terminal -> Terminal
Terminal) Ptr Terminal
result
Terminal -> IO Terminal
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Terminal
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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_copy_clipboard Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_copy_clipboard_format Ptr Terminal
terminal' CUInt
format'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_copy_primary Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal -> CString -> Ptr CSize -> IO CString
vte_terminal_dup_termprop_string Ptr Terminal
terminal' CString
prop' Ptr CSize
size
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal -> Int32 -> Ptr CSize -> IO CString
vte_terminal_dup_termprop_string_by_id Ptr Terminal
terminal' Int32
prop Ptr CSize
size
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Uuid
result <- Ptr Terminal -> CString -> IO (Ptr Uuid)
vte_terminal_dup_termprop_uuid Ptr Terminal
terminal' CString
prop'
Maybe Uuid
maybeResult <- Ptr Uuid -> (Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Uuid
result ((Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid))
-> (Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid)
forall a b. (a -> b) -> a -> b
$ \Ptr Uuid
result' -> do
Uuid
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'
Uuid -> IO Uuid
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Uuid
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe Uuid -> IO (Maybe Uuid)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Uuid
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Uuid
result <- Ptr Terminal -> Int32 -> IO (Ptr Uuid)
vte_terminal_dup_termprop_uuid_by_id Ptr Terminal
terminal' Int32
prop
Maybe Uuid
maybeResult <- Ptr Uuid -> (Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Uuid
result ((Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid))
-> (Ptr Uuid -> IO Uuid) -> IO (Maybe Uuid)
forall a b. (a -> b) -> a -> b
$ \Ptr Uuid
result' -> do
Uuid
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'
Uuid -> IO Uuid
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Uuid
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Uuid -> IO (Maybe Uuid)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Uuid
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.33/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_
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Word8
maybeData_ <- case Maybe ByteString
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
Ptr Word8
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
jData_'
Ptr Terminal -> Ptr Word8 -> Int64 -> IO ()
vte_terminal_feed Ptr Terminal
terminal' Ptr Word8
maybeData_ Int64
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
maybeData_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Word8
maybeText <- case Maybe ByteString
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
Ptr Word8
jText' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jText
Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
jText'
Ptr Terminal -> Ptr Word8 -> Int64 -> IO ()
vte_terminal_feed_child Ptr Terminal
terminal' Ptr Word8
maybeText Int64
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
maybeText
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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_
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Word8
maybeData_ <- case Maybe ByteString
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
Ptr Word8
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
Ptr Word8 -> IO (Ptr Word8)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
jData_'
Ptr Terminal -> Ptr Word8 -> CSize -> IO ()
vte_terminal_feed_child_binary Ptr Terminal
terminal' Ptr Word8
maybeData_ CSize
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Word8 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word8
maybeData_
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_allow_bold Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_allow_hyperlink Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_audible_bell Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_bold_is_bright Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CDouble
result <- Ptr Terminal -> IO CDouble
vte_terminal_get_cell_height_scale Ptr Terminal
terminal'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CDouble
result <- Ptr Terminal -> IO CDouble
vte_terminal_get_cell_width_scale Ptr Terminal
terminal'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CLong
result <- Ptr Terminal -> IO CLong
vte_terminal_get_char_height Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CLong
result <- Ptr Terminal -> IO CLong
vte_terminal_get_char_width Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Int32
result <- Ptr Terminal -> IO Int32
vte_terminal_get_cjk_ambiguous_width Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
color <- Int -> IO (Ptr RGBA)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_get_color_background_for_draw Ptr Terminal
terminal' Ptr RGBA
color
RGBA
color' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
RGBA -> IO RGBA
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CLong
result <- Ptr Terminal -> IO CLong
vte_terminal_get_column_count Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Widget
result <- Ptr Terminal -> IO (Ptr Widget)
vte_terminal_get_context_menu Ptr Terminal
terminal'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
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'
Widget -> IO Widget
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Widget -> IO (Maybe Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr MenuModel
result <- Ptr Terminal -> IO (Ptr MenuModel)
vte_terminal_get_context_menu_model Ptr Terminal
terminal'
Maybe MenuModel
maybeResult <- Ptr MenuModel
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result ((Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel))
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
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'
MenuModel -> IO MenuModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe MenuModel -> IO (Maybe MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_current_directory_uri Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_current_file_uri Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CUInt
result <- Ptr Terminal -> IO CUInt
vte_terminal_get_cursor_blink_mode Ptr Terminal
terminal'
let result' :: CursorBlinkMode
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CursorBlinkMode -> IO CursorBlinkMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CursorBlinkMode
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CLong
column <- IO (Ptr CLong)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CLong)
Ptr CLong
row <- IO (Ptr CLong)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CLong)
Ptr Terminal -> Ptr CLong -> Ptr CLong -> IO ()
vte_terminal_get_cursor_position Ptr Terminal
terminal' Ptr CLong
column Ptr CLong
row
CLong
column' <- Ptr CLong -> IO CLong
forall a. Storable a => Ptr a -> IO a
peek Ptr CLong
column
CLong
row' <- Ptr CLong -> IO CLong
forall a. Storable a => Ptr a -> IO a
peek Ptr CLong
row
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CLong -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CLong
column
Ptr CLong -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CLong
row
(CLong, CLong) -> IO (CLong, CLong)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (CLong
column', CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CUInt
result <- Ptr Terminal -> IO CUInt
vte_terminal_get_cursor_shape Ptr Terminal
terminal'
let result' :: CursorShape
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CursorShape -> IO CursorShape
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CursorShape
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_a11y Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_bidi Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_fallback_scrolling Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_legacy_osc777 Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_shaping Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_enable_sixel Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_encoding Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr FontDescription
result <- Ptr Terminal -> IO (Ptr FontDescription)
vte_terminal_get_font Ptr Terminal
terminal'
Text -> Ptr FontDescription -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalGetFont" Ptr FontDescription
result
FontDescription
result' <- ((ManagedPtr FontDescription -> FontDescription)
-> Ptr FontDescription -> IO FontDescription
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr FontDescription -> FontDescription
Pango.FontDescription.FontDescription) Ptr FontDescription
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
FontDescription -> IO FontDescription
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FontDescription
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr FontOptions
result <- Ptr Terminal -> IO (Ptr FontOptions)
vte_terminal_get_font_options Ptr Terminal
terminal'
Maybe FontOptions
maybeResult <- Ptr FontOptions
-> (Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr FontOptions
result ((Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions))
-> (Ptr FontOptions -> IO FontOptions) -> IO (Maybe FontOptions)
forall a b. (a -> b) -> a -> b
$ \Ptr FontOptions
result' -> do
FontOptions
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'
FontOptions -> IO FontOptions
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FontOptions
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe FontOptions -> IO (Maybe FontOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe FontOptions
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CDouble
result <- Ptr Terminal -> IO CDouble
vte_terminal_get_font_scale Ptr Terminal
terminal'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Double -> IO Double
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Double
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Geometry
hints <- Int -> IO (Ptr Geometry)
forall a. Int -> IO (Ptr a)
SP.callocBytes Int
56 :: IO (Ptr Gdk.Geometry.Geometry)
Ptr Terminal
-> Ptr Geometry -> Int32 -> TerminalChildExitedCallback
vte_terminal_get_geometry_hints Ptr Terminal
terminal' Ptr Geometry
hints Int32
minRows Int32
minColumns
Geometry
hints' <- ((ManagedPtr Geometry -> Geometry) -> Ptr Geometry -> IO Geometry
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr Geometry -> Geometry
Gdk.Geometry.Geometry) Ptr Geometry
hints
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Geometry -> IO Geometry
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Geometry
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_has_selection Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_icon_title Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_input_enabled Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_mouse_autohide Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Pty
result <- Ptr Terminal -> IO (Ptr Pty)
vte_terminal_get_pty Ptr Terminal
terminal'
Maybe Pty
maybeResult <- Ptr Pty -> (Ptr Pty -> IO Pty) -> IO (Maybe Pty)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pty
result ((Ptr Pty -> IO Pty) -> IO (Maybe Pty))
-> (Ptr Pty -> IO Pty) -> IO (Maybe Pty)
forall a b. (a -> b) -> a -> b
$ \Ptr Pty
result' -> do
Pty
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'
Pty -> IO Pty
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pty
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Pty -> IO (Maybe Pty)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pty
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_rewrap_on_resize Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CLong
result <- Ptr Terminal -> IO CLong
vte_terminal_get_row_count Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_scroll_on_insert Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_scroll_on_keystroke Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_scroll_on_output Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_scroll_unit_is_pixels Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CLong
result <- Ptr Terminal -> IO CLong
vte_terminal_get_scrollback_lines Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CLong -> IO CLong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr CInt
valuep <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
CInt
result <- Ptr Terminal -> CString -> Ptr CInt -> IO CInt
vte_terminal_get_termprop_bool Ptr Terminal
terminal' CString
prop' Ptr CInt
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CInt
valuep' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
valuep
let valuep'' :: Bool
valuep'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
valuep'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
valuep
(Bool, Bool) -> IO (Bool, Bool)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CInt
valuep <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
CInt
result <- Ptr Terminal -> Int32 -> Ptr CInt -> IO CInt
vte_terminal_get_termprop_bool_by_id Ptr Terminal
terminal' Int32
prop Ptr CInt
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CInt
valuep' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
valuep
let valuep'' :: Bool
valuep'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
valuep'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
valuep
(Bool, Bool) -> IO (Bool, Bool)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
Ptr Word8
result <- Ptr Terminal -> CString -> Ptr CSize -> IO (Ptr Word8)
vte_terminal_get_termprop_data Ptr Terminal
terminal' CString
prop' Ptr CSize
size
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
Maybe ByteString
maybeResult <- Ptr Word8 -> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Word8
result ((Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString))
-> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ \Ptr Word8
result' -> do
ByteString
result'' <- (CSize -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength CSize
size') Ptr Word8
result'
ByteString -> IO ByteString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
Maybe ByteString -> IO (Maybe ByteString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ByteString
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
Ptr Word8
result <- Ptr Terminal -> Int32 -> Ptr CSize -> IO (Ptr Word8)
vte_terminal_get_termprop_data_by_id Ptr Terminal
terminal' Int32
prop Ptr CSize
size
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
Maybe ByteString
maybeResult <- Ptr Word8 -> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Word8
result ((Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString))
-> (Ptr Word8 -> IO ByteString) -> IO (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ \Ptr Word8
result' -> do
ByteString
result'' <- (CSize -> Ptr Word8 -> IO ByteString
forall a. Integral a => a -> Ptr Word8 -> IO ByteString
unpackByteStringWithLength CSize
size') Ptr Word8
result'
ByteString -> IO ByteString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ByteString
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
Maybe ByteString -> IO (Maybe ByteString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ByteString
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr CDouble
valuep <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Terminal -> CString -> Ptr CDouble -> IO CInt
vte_terminal_get_termprop_double Ptr Terminal
terminal' CString
prop' Ptr CDouble
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
valuep' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
valuep
let valuep'' :: Double
valuep'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
valuep'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
valuep
(Bool, Double) -> IO (Bool, Double)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CDouble
valuep <- IO (Ptr CDouble)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CDouble)
CInt
result <- Ptr Terminal -> Int32 -> Ptr CDouble -> IO CInt
vte_terminal_get_termprop_double_by_id Ptr Terminal
terminal' Int32
prop Ptr CDouble
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
CDouble
valuep' <- Ptr CDouble -> IO CDouble
forall a. Storable a => Ptr a -> IO a
peek Ptr CDouble
valuep
let valuep'' :: Double
valuep'' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
valuep'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CDouble -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CDouble
valuep
(Bool, Double) -> IO (Bool, Double)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Double
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.33/docs/GI-Vte-Objects-Terminal.html#v:terminalGetTermpropDoubleById"
})
#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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Int64
valuep <- IO (Ptr Int64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int64)
CInt
result <- Ptr Terminal -> CString -> Ptr Int64 -> IO CInt
vte_terminal_get_termprop_int Ptr Terminal
terminal' CString
prop' Ptr Int64
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int64
valuep' <- Ptr Int64 -> IO Int64
forall a. Storable a => Ptr a -> IO a
peek Ptr Int64
valuep
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr Int64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int64
valuep
(Bool, Int64) -> IO (Bool, Int64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int64
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Int64
valuep <- IO (Ptr Int64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int64)
CInt
result <- Ptr Terminal -> Int32 -> Ptr Int64 -> IO CInt
vte_terminal_get_termprop_int_by_id Ptr Terminal
terminal' Int32
prop Ptr Int64
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int64
valuep' <- Ptr Int64 -> IO Int64
forall a. Storable a => Ptr a -> IO a
peek Ptr Int64
valuep
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Int64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int64
valuep
(Bool, Int64) -> IO (Bool, Int64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int64
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr RGBA
color <- Int -> IO (Ptr RGBA)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
CInt
result <- Ptr Terminal -> CString -> Ptr RGBA -> IO CInt
vte_terminal_get_termprop_rgba Ptr Terminal
terminal' CString
prop' Ptr RGBA
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
RGBA
color' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
(Bool, RGBA) -> IO (Bool, RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', RGBA
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
color <- Int -> IO (Ptr RGBA)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
32 :: IO (Ptr Gdk.RGBA.RGBA)
CInt
result <- Ptr Terminal -> Int32 -> Ptr RGBA -> IO CInt
vte_terminal_get_termprop_rgba_by_id Ptr Terminal
terminal' Int32
prop Ptr RGBA
color
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
RGBA
color' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
color
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
(Bool, RGBA) -> IO (Bool, RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', RGBA
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal -> CString -> Ptr CSize -> IO CString
vte_terminal_get_termprop_string Ptr Terminal
terminal' CString
prop' Ptr CSize
size
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr CSize
size <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal -> Int32 -> Ptr CSize -> IO CString
vte_terminal_get_termprop_string_by_id Ptr Terminal
terminal' Int32
prop Ptr CSize
size
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
size' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
size
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
size
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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, Word64)
terminalGetTermpropUint a
terminal Text
prop = IO (Bool, Word64) -> m (Bool, Word64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Word64) -> m (Bool, Word64))
-> IO (Bool, Word64) -> m (Bool, Word64)
forall a b. (a -> b) -> a -> b
$ do
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Word64
valuep <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
CInt
result <- Ptr Terminal -> CString -> Ptr Word64 -> IO CInt
vte_terminal_get_termprop_uint Ptr Terminal
terminal' CString
prop' Ptr Word64
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word64
valuep' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
valuep
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
valuep
(Bool, Word64) -> IO (Bool, Word64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word64
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.33/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, Word64)
terminalGetTermpropUintById a
terminal Int32
prop = IO (Bool, Word64) -> m (Bool, Word64)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Word64) -> m (Bool, Word64))
-> IO (Bool, Word64) -> m (Bool, Word64)
forall a b. (a -> b) -> a -> b
$ do
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Word64
valuep <- IO (Ptr Word64)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Word64)
CInt
result <- Ptr Terminal -> Int32 -> Ptr Word64 -> IO CInt
vte_terminal_get_termprop_uint_by_id Ptr Terminal
terminal' Int32
prop Ptr Word64
valuep
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Word64
valuep' <- Ptr Word64 -> IO Word64
forall a. Storable a => Ptr a -> IO a
peek Ptr Word64
valuep
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Word64 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Word64
valuep
(Bool, Word64) -> IO (Bool, Word64)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Word64
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr GValue
gvalue <- Int -> IO (Ptr GValue)
forall a. Int -> IO (Ptr a)
SP.callocBytes Int
24 :: IO (Ptr GValue)
CInt
result <- Ptr Terminal -> CString -> Ptr GValue -> IO CInt
vte_terminal_get_termprop_value Ptr Terminal
terminal' CString
prop' Ptr GValue
gvalue
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
GValue
gvalue' <- Ptr GValue -> IO GValue
B.GValue.wrapGValuePtr Ptr GValue
gvalue
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
(Bool, GValue) -> IO (Bool, GValue)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', GValue
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr GValue
gvalue <- Int -> IO (Ptr GValue)
forall a. Int -> IO (Ptr a)
SP.callocBytes Int
24 :: IO (Ptr GValue)
CInt
result <- Ptr Terminal -> Int32 -> Ptr GValue -> IO CInt
vte_terminal_get_termprop_value_by_id Ptr Terminal
terminal' Int32
prop Ptr GValue
gvalue
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
GValue
gvalue' <- Ptr GValue -> IO GValue
B.GValue.wrapGValuePtr Ptr GValue
gvalue
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
(Bool, GValue) -> IO (Bool, GValue)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', GValue
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
FunPtr C_SelectionFunc
maybeIsSelected <- case Maybe SelectionFunc
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
FunPtr C_SelectionFunc
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))
FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
jIsSelected'
Ptr (GArray (Ptr CharAttributes))
attributes <- CUInt -> IO (Ptr (GArray (Ptr CharAttributes)))
forall a. CUInt -> IO (Ptr (GArray a))
B.GArray.allocGArray CUInt
40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CString
result <- Ptr Terminal
-> FunPtr C_SelectionFunc
-> Ptr ()
-> Ptr (GArray (Ptr CharAttributes))
-> IO CString
vte_terminal_get_text Ptr Terminal
terminal' FunPtr C_SelectionFunc
maybeIsSelected Ptr ()
forall a. Ptr a
userData Ptr (GArray (Ptr CharAttributes))
attributes
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
Maybe [CharAttributes]
maybeAttributes <- Ptr (GArray (Ptr CharAttributes))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr (GArray (Ptr CharAttributes))
attributes ((Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes]))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
[Ptr CharAttributes]
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
[CharAttributes]
attributes''' <- (Ptr CharAttributes -> IO CharAttributes)
-> [Ptr CharAttributes] -> IO [CharAttributes]
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 ((ManagedPtr CharAttributes -> CharAttributes)
-> Ptr CharAttributes -> IO CharAttributes
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr CharAttributes -> CharAttributes
Vte.CharAttributes.CharAttributes) [Ptr CharAttributes]
attributes''
[CharAttributes] -> IO [CharAttributes]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CharAttributes]
attributes'''
Ptr (GArray (Ptr CharAttributes)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr CharAttributes))
attributes
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_SelectionFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_SelectionFunc
maybeIsSelected
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
(Maybe Text, Maybe [CharAttributes])
-> IO (Maybe Text, Maybe [CharAttributes])
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, Maybe [CharAttributes]
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CUInt
result <- Ptr Terminal -> IO CUInt
vte_terminal_get_text_blink_mode Ptr Terminal
terminal'
let result' :: TextBlinkMode
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
TextBlinkMode -> IO TextBlinkMode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TextBlinkMode
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' :: CUInt
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
CString
result <- Ptr Terminal -> CUInt -> IO CString
vte_terminal_get_text_format Ptr Terminal
terminal' CUInt
format'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
FunPtr C_SelectionFunc
maybeIsSelected <- case Maybe SelectionFunc
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
FunPtr C_SelectionFunc
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))
FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
jIsSelected'
Ptr (GArray (Ptr CharAttributes))
attributes <- CUInt -> IO (Ptr (GArray (Ptr CharAttributes)))
forall a. CUInt -> IO (Ptr (GArray a))
B.GArray.allocGArray CUInt
40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CString
result <- Ptr Terminal
-> FunPtr C_SelectionFunc
-> Ptr ()
-> Ptr (GArray (Ptr CharAttributes))
-> IO CString
vte_terminal_get_text_include_trailing_spaces Ptr Terminal
terminal' FunPtr C_SelectionFunc
maybeIsSelected Ptr ()
forall a. Ptr a
userData Ptr (GArray (Ptr CharAttributes))
attributes
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalGetTextIncludeTrailingSpaces" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
Maybe [CharAttributes]
maybeAttributes <- Ptr (GArray (Ptr CharAttributes))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr (GArray (Ptr CharAttributes))
attributes ((Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes]))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
[Ptr CharAttributes]
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
[CharAttributes]
attributes''' <- (Ptr CharAttributes -> IO CharAttributes)
-> [Ptr CharAttributes] -> IO [CharAttributes]
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 ((ManagedPtr CharAttributes -> CharAttributes)
-> Ptr CharAttributes -> IO CharAttributes
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr CharAttributes -> CharAttributes
Vte.CharAttributes.CharAttributes) [Ptr CharAttributes]
attributes''
[CharAttributes] -> IO [CharAttributes]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CharAttributes]
attributes'''
Ptr (GArray (Ptr CharAttributes)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr CharAttributes))
attributes
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_SelectionFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_SelectionFunc
maybeIsSelected
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
(Text, Maybe [CharAttributes]) -> IO (Text, Maybe [CharAttributes])
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Text
result', Maybe [CharAttributes]
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
FunPtr C_SelectionFunc
maybeIsSelected <- case Maybe SelectionFunc
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
FunPtr C_SelectionFunc
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))
FunPtr C_SelectionFunc -> IO (FunPtr C_SelectionFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SelectionFunc
jIsSelected'
Ptr (GArray (Ptr CharAttributes))
attributes <- CUInt -> IO (Ptr (GArray (Ptr CharAttributes)))
forall a. CUInt -> IO (Ptr (GArray a))
B.GArray.allocGArray CUInt
40 :: IO (Ptr (GArray (Ptr Vte.CharAttributes.CharAttributes)))
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
CString
result <- Ptr Terminal
-> CLong
-> CLong
-> CLong
-> CLong
-> FunPtr C_SelectionFunc
-> Ptr ()
-> Ptr (GArray (Ptr CharAttributes))
-> IO CString
vte_terminal_get_text_range Ptr Terminal
terminal' CLong
startRow CLong
startCol CLong
endRow CLong
endCol FunPtr C_SelectionFunc
maybeIsSelected Ptr ()
forall a. Ptr a
userData Ptr (GArray (Ptr CharAttributes))
attributes
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
Maybe [CharAttributes]
maybeAttributes <- Ptr (GArray (Ptr CharAttributes))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr (GArray (Ptr CharAttributes))
attributes ((Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes]))
-> (Ptr (GArray (Ptr CharAttributes)) -> IO [CharAttributes])
-> IO (Maybe [CharAttributes])
forall a b. (a -> b) -> a -> b
$ \Ptr (GArray (Ptr CharAttributes))
attributes' -> do
[Ptr CharAttributes]
attributes'' <- Ptr (GArray (Ptr CharAttributes)) -> IO [Ptr CharAttributes]
forall a. Storable a => Ptr (GArray a) -> IO [a]
unpackGArray Ptr (GArray (Ptr CharAttributes))
attributes'
[CharAttributes]
attributes''' <- (Ptr CharAttributes -> IO CharAttributes)
-> [Ptr CharAttributes] -> IO [CharAttributes]
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 ((ManagedPtr CharAttributes -> CharAttributes)
-> Ptr CharAttributes -> IO CharAttributes
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr CharAttributes -> CharAttributes
Vte.CharAttributes.CharAttributes) [Ptr CharAttributes]
attributes''
[CharAttributes] -> IO [CharAttributes]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [CharAttributes]
attributes'''
Ptr (GArray (Ptr CharAttributes)) -> IO ()
forall a. Ptr (GArray a) -> IO ()
unrefGArray Ptr (GArray (Ptr CharAttributes))
attributes
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr C_SelectionFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_SelectionFunc
maybeIsSelected
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
(Maybe Text, Maybe [CharAttributes])
-> IO (Maybe Text, Maybe [CharAttributes])
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, Maybe [CharAttributes]
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' :: CUInt
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
Ptr CSize
length_ <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal
-> CUInt
-> CLong
-> CLong
-> CLong
-> CLong
-> Ptr CSize
-> IO CString
vte_terminal_get_text_range_format Ptr Terminal
terminal' CUInt
format' CLong
startRow CLong
startCol CLong
endRow CLong
endCol Ptr CSize
length_
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
length_' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
length_
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' :: CUInt
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
CString
result <- Ptr Terminal -> CUInt -> IO CString
vte_terminal_get_text_selected Ptr Terminal
terminal' CUInt
format'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let format' :: CUInt
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
Ptr CSize
length_ <- IO (Ptr CSize)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr FCT.CSize)
CString
result <- Ptr Terminal -> CUInt -> Ptr CSize -> IO CString
vte_terminal_get_text_selected_full Ptr Terminal
terminal' CUInt
format' Ptr CSize
length_
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
CSize
length_' <- Ptr CSize -> IO CSize
forall a. Storable a => Ptr a -> IO a
peek Ptr CSize
length_
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr CSize -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CSize
length_
(Maybe Text, CSize) -> IO (Maybe Text, CSize)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, CSize
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_window_title Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
result <- Ptr Terminal -> IO CString
vte_terminal_get_word_char_exceptions Ptr Terminal
terminal'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CUInt
result <- Ptr Terminal -> IO CUInt
vte_terminal_get_xalign Ptr Terminal
terminal'
let result' :: Align
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Align -> IO Align
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Align
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_xfill Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CUInt
result <- Ptr Terminal -> IO CUInt
vte_terminal_get_yalign Ptr Terminal
terminal'
let result' :: Align
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
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Align -> IO Align
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Align
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_get_yfill Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
CString
result <- Ptr Terminal -> Ptr Event -> IO CString
vte_terminal_hyperlink_check_event Ptr Terminal
terminal' Ptr Event
event'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
gregex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
gregex
let gflags' :: CUInt
gflags' = [RegexMatchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RegexMatchFlags]
gflags
Int32
result <- Ptr Terminal -> Ptr Regex -> CUInt -> IO Int32
vte_terminal_match_add_gregex Ptr Terminal
terminal' Ptr Regex
gregex' CUInt
gflags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Regex -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Regex
gregex
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
regex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
regex
Int32
result <- Ptr Terminal -> Ptr Regex -> Word32 -> IO Int32
vte_terminal_match_add_regex Ptr Terminal
terminal' Ptr Regex
regex' Word32
flags
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Regex -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Regex
regex
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Int32
tag <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CString
result <- Ptr Terminal -> CLong -> CLong -> Ptr Int32 -> IO CString
vte_terminal_match_check Ptr Terminal
terminal' CLong
column CLong
row Ptr Int32
tag
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
Int32
tag' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
tag
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
tag
(Maybe Text, Int32) -> IO (Maybe Text, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Event
event' <- Event -> IO (Ptr Event)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Event
event
Ptr Int32
tag <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CString
result <- Ptr Terminal -> Ptr Event -> Ptr Int32 -> IO CString
vte_terminal_match_check_event Ptr Terminal
terminal' Ptr Event
event' Ptr Int32
tag
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
Int32
tag' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
tag
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Event -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Event
event
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
tag
(Maybe Text, Int32) -> IO (Maybe Text, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> TerminalChildExitedCallback
vte_terminal_match_remove Ptr Terminal
terminal' Int32
tag
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_match_remove_all Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Cursor
maybeCursor <- case Maybe b
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
Ptr Cursor
jCursor' <- b -> IO (Ptr Cursor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCursor
Ptr Cursor -> IO (Ptr Cursor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
jCursor'
Ptr Terminal -> Int32 -> Ptr Cursor -> IO ()
vte_terminal_match_set_cursor Ptr Terminal
terminal' Int32
tag Ptr Cursor
maybeCursor
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cursor b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
cursorName' <- Text -> IO CString
textToCString Text
cursorName
Ptr Terminal -> Int32 -> CString -> IO ()
vte_terminal_match_set_cursor_name Ptr Terminal
terminal' Int32
tag CString
cursorName'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
cursorName'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let cursorType' :: CInt
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
Ptr Terminal -> Int32 -> CInt -> IO ()
vte_terminal_match_set_cursor_type Ptr Terminal
terminal' Int32
tag CInt
cursorType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_paste_clipboard Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_paste_primary Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
text' <- Text -> IO CString
textToCString Text
text
Ptr Terminal -> CString -> IO ()
vte_terminal_paste_text Ptr Terminal
terminal' CString
text'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
text'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let flags' :: CUInt
flags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
flags
Ptr Cancellable
maybeCancellable <- case Maybe b
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
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO Pty -> IO () -> IO Pty
forall a b. IO a -> IO b -> IO a
onException (do
Ptr Pty
result <- (Ptr (Ptr GError) -> IO (Ptr Pty)) -> IO (Ptr Pty)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr Pty)) -> IO (Ptr Pty))
-> (Ptr (Ptr GError) -> IO (Ptr Pty)) -> IO (Ptr Pty)
forall a b. (a -> b) -> a -> b
$ Ptr Terminal
-> CUInt -> Ptr Cancellable -> Ptr (Ptr GError) -> IO (Ptr Pty)
vte_terminal_pty_new_sync Ptr Terminal
terminal' CUInt
flags' Ptr Cancellable
maybeCancellable
Text -> Ptr Pty -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalPtyNewSync" Ptr Pty
result
Pty
result' <- ((ManagedPtr Pty -> Pty) -> Ptr Pty -> IO Pty
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Pty -> Pty
Vte.Pty.Pty) Ptr Pty
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Pty -> IO Pty
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pty
result'
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Bytes
result <- Ptr Terminal -> CString -> IO (Ptr Bytes)
vte_terminal_ref_termprop_data_bytes Ptr Terminal
terminal' CString
prop'
Maybe Bytes
maybeResult <- Ptr Bytes -> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Bytes
result ((Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes))
-> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ \Ptr Bytes
result' -> do
Bytes
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'
Bytes -> IO Bytes
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bytes
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe Bytes -> IO (Maybe Bytes)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Bytes
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Bytes
result <- Ptr Terminal -> Int32 -> IO (Ptr Bytes)
vte_terminal_ref_termprop_data_bytes_by_id Ptr Terminal
terminal' Int32
prop
Maybe Bytes
maybeResult <- Ptr Bytes -> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Bytes
result ((Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes))
-> (Ptr Bytes -> IO Bytes) -> IO (Maybe Bytes)
forall a b. (a -> b) -> a -> b
$ \Ptr Bytes
result' -> do
Bytes
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'
Bytes -> IO Bytes
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bytes
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Bytes -> IO (Maybe Bytes)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Bytes
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Pixbuf
result <- Ptr Terminal -> CString -> IO (Ptr Pixbuf)
vte_terminal_ref_termprop_image_pixbuf Ptr Terminal
terminal' CString
prop'
Maybe Pixbuf
maybeResult <- Ptr Pixbuf -> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result ((Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf))
-> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
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'
Pixbuf -> IO Pixbuf
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe Pixbuf -> IO (Maybe Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Pixbuf
result <- Ptr Terminal -> Int32 -> IO (Ptr Pixbuf)
vte_terminal_ref_termprop_image_pixbuf_by_id Ptr Terminal
terminal' Int32
prop
Maybe Pixbuf
maybeResult <- Ptr Pixbuf -> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Pixbuf
result ((Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf))
-> (Ptr Pixbuf -> IO Pixbuf) -> IO (Maybe Pixbuf)
forall a b. (a -> b) -> a -> b
$ \Ptr Pixbuf
result' -> do
Pixbuf
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'
Pixbuf -> IO Pixbuf
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Pixbuf
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Pixbuf -> IO (Maybe Pixbuf)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Pixbuf
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Surface
result <- Ptr Terminal -> CString -> IO (Ptr Surface)
vte_terminal_ref_termprop_image_surface Ptr Terminal
terminal' CString
prop'
Maybe Surface
maybeResult <- Ptr Surface -> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Surface
result ((Ptr Surface -> IO Surface) -> IO (Maybe Surface))
-> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ \Ptr Surface
result' -> do
Surface
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'
Surface -> IO Surface
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe Surface -> IO (Maybe Surface)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Surface
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Surface
result <- Ptr Terminal -> Int32 -> IO (Ptr Surface)
vte_terminal_ref_termprop_image_surface_by_id Ptr Terminal
terminal' Int32
prop
Maybe Surface
maybeResult <- Ptr Surface -> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Surface
result ((Ptr Surface -> IO Surface) -> IO (Maybe Surface))
-> (Ptr Surface -> IO Surface) -> IO (Maybe Surface)
forall a b. (a -> b) -> a -> b
$ \Ptr Surface
result' -> do
Surface
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'
Surface -> IO Surface
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Surface
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Surface -> IO (Maybe Surface)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Surface
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr Uri
result <- Ptr Terminal -> CString -> IO (Ptr Uri)
vte_terminal_ref_termprop_uri Ptr Terminal
terminal' CString
prop'
Maybe Uri
maybeResult <- Ptr Uri -> (Ptr Uri -> IO Uri) -> IO (Maybe Uri)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Uri
result ((Ptr Uri -> IO Uri) -> IO (Maybe Uri))
-> (Ptr Uri -> IO Uri) -> IO (Maybe Uri)
forall a b. (a -> b) -> a -> b
$ \Ptr Uri
result' -> do
Uri
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'
Uri -> IO Uri
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Uri
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe Uri -> IO (Maybe Uri)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Uri
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Uri
result <- Ptr Terminal -> Int32 -> IO (Ptr Uri)
vte_terminal_ref_termprop_uri_by_id Ptr Terminal
terminal' Int32
prop
Maybe Uri
maybeResult <- Ptr Uri -> (Ptr Uri -> IO Uri) -> IO (Maybe Uri)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Uri
result ((Ptr Uri -> IO Uri) -> IO (Maybe Uri))
-> (Ptr Uri -> IO Uri) -> IO (Maybe Uri)
forall a b. (a -> b) -> a -> b
$ \Ptr Uri
result' -> do
Uri
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'
Uri -> IO Uri
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Uri
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Uri -> IO (Maybe Uri)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Uri
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
prop' <- Text -> IO CString
textToCString Text
prop
Ptr GVariant
result <- Ptr Terminal -> CString -> IO (Ptr GVariant)
vte_terminal_ref_termprop_variant Ptr Terminal
terminal' CString
prop'
Maybe GVariant
maybeResult <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
prop'
Maybe GVariant -> IO (Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr GVariant
result <- Ptr Terminal -> Int32 -> IO (Ptr GVariant)
vte_terminal_ref_termprop_variant_by_id Ptr Terminal
terminal' Int32
prop
Maybe GVariant
maybeResult <- Ptr GVariant
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr GVariant
result ((Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant))
-> (Ptr GVariant -> IO GVariant) -> IO (Maybe GVariant)
forall a b. (a -> b) -> a -> b
$ \Ptr GVariant
result' -> do
GVariant
result'' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result'
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe GVariant -> IO (Maybe GVariant)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GVariant
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let clearTabstops' :: CInt
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' :: CInt
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
Ptr Terminal -> CInt -> CInt -> IO ()
vte_terminal_reset Ptr Terminal
terminal' CInt
clearTabstops' CInt
clearHistory'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_search_find_next Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_search_find_previous Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
result <- Ptr Terminal -> IO (Ptr Regex)
vte_terminal_search_get_gregex Ptr Terminal
terminal'
Text -> Ptr Regex -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalSearchGetGregex" Ptr Regex
result
Regex
result' <- ((ManagedPtr Regex -> Regex) -> Ptr Regex -> IO Regex
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Regex -> Regex
GLib.Regex.Regex) Ptr Regex
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Regex -> IO Regex
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Regex
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
result <- Ptr Terminal -> IO (Ptr Regex)
vte_terminal_search_get_regex Ptr Terminal
terminal'
Text -> Ptr Regex -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalSearchGetRegex" Ptr Regex
result
Regex
result' <- ((ManagedPtr Regex -> Regex) -> Ptr Regex -> IO Regex
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Regex -> Regex
Vte.Regex.Regex) Ptr Regex
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Regex -> IO Regex
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Regex
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CInt
result <- Ptr Terminal -> IO CInt
vte_terminal_search_get_wrap_around Ptr Terminal
terminal'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
maybeGregex <- case Maybe Regex
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
Ptr Regex
jGregex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
jGregex
Ptr Regex -> IO (Ptr Regex)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
jGregex'
let gflags' :: CUInt
gflags' = [RegexMatchFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [RegexMatchFlags]
gflags
Ptr Terminal -> Ptr Regex -> CUInt -> IO ()
vte_terminal_search_set_gregex Ptr Terminal
terminal' Ptr Regex
maybeGregex CUInt
gflags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Regex -> (Regex -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Regex
gregex Regex -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Regex
maybeRegex <- case Maybe Regex
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
Ptr Regex
jRegex' <- Regex -> IO (Ptr Regex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Regex
jRegex
Ptr Regex -> IO (Ptr Regex)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
jRegex'
Ptr Terminal -> Ptr Regex -> Word32 -> IO ()
vte_terminal_search_set_regex Ptr Terminal
terminal' Ptr Regex
maybeRegex Word32
flags
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe Regex -> (Regex -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Regex
regex Regex -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let wrapAround' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_search_set_wrap_around Ptr Terminal
terminal' CInt
wrapAround'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_select_all Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let allowBold' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_allow_bold Ptr Terminal
terminal' CInt
allowBold'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let allowHyperlink' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_allow_hyperlink Ptr Terminal
terminal' CInt
allowHyperlink'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let isAudible' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_audible_bell Ptr Terminal
terminal' CInt
isAudible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let binding' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_backspace_binding Ptr Terminal
terminal' CUInt
binding'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let boldIsBright' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_bold_is_bright Ptr Terminal
terminal' CInt
boldIsBright'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' :: CDouble
scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
Ptr Terminal -> CDouble -> IO ()
vte_terminal_set_cell_height_scale Ptr Terminal
terminal' CDouble
scale'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' :: CDouble
scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
Ptr Terminal -> CDouble -> IO ()
vte_terminal_set_cell_width_scale Ptr Terminal
terminal' CDouble
scale'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> TerminalChildExitedCallback
vte_terminal_set_cjk_ambiguous_width Ptr Terminal
terminal' Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let setting' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_clear_background Ptr Terminal
terminal' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
background' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
background
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_background Ptr Terminal
terminal' Ptr RGBA
background'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
background
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeBold <- case Maybe RGBA
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
Ptr RGBA
jBold' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jBold
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jBold'
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_bold Ptr Terminal
terminal' Ptr RGBA
maybeBold
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
bold RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeCursorBackground <- case Maybe RGBA
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
Ptr RGBA
jCursorBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jCursorBackground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jCursorBackground'
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_cursor Ptr Terminal
terminal' Ptr RGBA
maybeCursorBackground
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
cursorBackground RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeCursorForeground <- case Maybe RGBA
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
Ptr RGBA
jCursorForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jCursorForeground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jCursorForeground'
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_cursor_foreground Ptr Terminal
terminal' Ptr RGBA
maybeCursorForeground
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
cursorForeground RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
foreground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
foreground
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_foreground Ptr Terminal
terminal' Ptr RGBA
foreground'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
foreground
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeHighlightBackground <- case Maybe RGBA
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
Ptr RGBA
jHighlightBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jHighlightBackground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jHighlightBackground'
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_highlight Ptr Terminal
terminal' Ptr RGBA
maybeHighlightBackground
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
highlightBackground RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeHighlightForeground <- case Maybe RGBA
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
Ptr RGBA
jHighlightForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jHighlightForeground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jHighlightForeground'
Ptr Terminal -> Ptr RGBA -> IO ()
vte_terminal_set_color_highlight_foreground Ptr Terminal
terminal' Ptr RGBA
maybeHighlightForeground
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
highlightForeground RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr RGBA
maybeForeground <- case Maybe RGBA
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
Ptr RGBA
jForeground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jForeground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jForeground'
Ptr RGBA
maybeBackground <- case Maybe RGBA
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
Ptr RGBA
jBackground' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
jBackground
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jBackground'
Ptr RGBA
maybePalette <- case Maybe [RGBA]
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
[Ptr RGBA]
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
Ptr RGBA
jPalette'' <- Int -> [Ptr RGBA] -> IO (Ptr RGBA)
forall a. Int -> [Ptr a] -> IO (Ptr a)
packBlockArray Int
32 [Ptr RGBA]
jPalette'
Ptr RGBA -> IO (Ptr RGBA)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jPalette''
Ptr Terminal -> Ptr RGBA -> Ptr RGBA -> Ptr RGBA -> CSize -> IO ()
vte_terminal_set_colors Ptr Terminal
terminal' Ptr RGBA
maybeForeground Ptr RGBA
maybeBackground Ptr RGBA
maybePalette CSize
paletteSize
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
foreground RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe RGBA -> (RGBA -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe RGBA
background RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Maybe [RGBA] -> ([RGBA] -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe [RGBA]
palette ((RGBA -> IO ()) -> [RGBA] -> IO ()
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr)
Ptr RGBA -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr RGBA
maybePalette
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Widget
maybeMenu <- case Maybe b
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
Ptr Widget
jMenu' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenu
Ptr Widget -> IO (Ptr Widget)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jMenu'
Ptr Terminal -> Ptr Widget -> IO ()
vte_terminal_set_context_menu Ptr Terminal
terminal' Ptr Widget
maybeMenu
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menu b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr MenuModel
maybeModel <- case Maybe b
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
Ptr MenuModel
jModel' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jModel
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jModel'
Ptr Terminal -> Ptr MenuModel -> IO ()
vte_terminal_set_context_menu_model Ptr Terminal
terminal' Ptr MenuModel
maybeModel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
model b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let mode' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_cursor_blink_mode Ptr Terminal
terminal' CUInt
mode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let shape' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_cursor_shape Ptr Terminal
terminal' CUInt
shape'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_set_default_colors Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let binding' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_delete_binding Ptr Terminal
terminal' CUInt
binding'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableA11y' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_a11y Ptr Terminal
terminal' CInt
enableA11y'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableBidi' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_bidi Ptr Terminal
terminal' CInt
enableBidi'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_fallback_scrolling Ptr Terminal
terminal' CInt
enable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_legacy_osc777 Ptr Terminal
terminal' CInt
enable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enableShaping' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_shaping Ptr Terminal
terminal' CInt
enableShaping'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enabled' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_enable_sixel Ptr Terminal
terminal' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
maybeCodeset <- case Maybe Text
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
CString
jCodeset' <- Text -> IO CString
textToCString Text
jCodeset
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jCodeset'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Terminal -> CString -> Ptr (Ptr GError) -> IO CInt
vte_terminal_set_encoding Ptr Terminal
terminal' CString
maybeCodeset
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeCodeset
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr FontDescription
maybeFontDesc <- case Maybe FontDescription
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
Ptr FontDescription
jFontDesc' <- FontDescription -> IO (Ptr FontDescription)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontDescription
jFontDesc
Ptr FontDescription -> IO (Ptr FontDescription)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontDescription
jFontDesc'
Ptr Terminal -> Ptr FontDescription -> IO ()
vte_terminal_set_font Ptr Terminal
terminal' Ptr FontDescription
maybeFontDesc
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe FontDescription -> (FontDescription -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe FontDescription
fontDesc FontDescription -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr FontOptions
maybeFontOptions <- case Maybe FontOptions
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
Ptr FontOptions
jFontOptions' <- FontOptions -> IO (Ptr FontOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FontOptions
jFontOptions
Ptr FontOptions -> IO (Ptr FontOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FontOptions
jFontOptions'
Ptr Terminal -> Ptr FontOptions -> IO ()
vte_terminal_set_font_options Ptr Terminal
terminal' Ptr FontOptions
maybeFontOptions
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe FontOptions -> (FontOptions -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe FontOptions
fontOptions FontOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scale' :: CDouble
scale' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
scale
Ptr Terminal -> CDouble -> IO ()
vte_terminal_set_font_scale Ptr Terminal
terminal' CDouble
scale'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Window
window' <- b -> IO (Ptr Window)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
window
Ptr Terminal -> Ptr Window -> IO ()
vte_terminal_set_geometry_hints_for_window Ptr Terminal
terminal' Ptr Window
window'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
window
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enabled' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_input_enabled Ptr Terminal
terminal' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let setting' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_mouse_autohide Ptr Terminal
terminal' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Pty
maybePty <- case Maybe b
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
Ptr Pty
jPty' <- b -> IO (Ptr Pty)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jPty
Ptr Pty -> IO (Ptr Pty)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Pty
jPty'
Ptr Terminal -> Ptr Pty -> IO ()
vte_terminal_set_pty Ptr Terminal
terminal' Ptr Pty
maybePty
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
pty b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let rewrap' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_rewrap_on_resize Ptr Terminal
terminal' CInt
rewrap'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_scroll_on_insert Ptr Terminal
terminal' CInt
scroll'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_scroll_on_keystroke Ptr Terminal
terminal' CInt
scroll'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let scroll' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_scroll_on_output Ptr Terminal
terminal' CInt
scroll'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let enable' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_scroll_unit_is_pixels Ptr Terminal
terminal' CInt
enable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> CLong -> IO ()
vte_terminal_set_scrollback_lines Ptr Terminal
terminal' CLong
lines
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> CLong -> CLong -> IO ()
vte_terminal_set_size Ptr Terminal
terminal' CLong
columns CLong
rows
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_set_suppress_legacy_signals Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let textBlinkMode' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_text_blink_mode Ptr Terminal
terminal' CUInt
textBlinkMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
CString
exceptions' <- Text -> IO CString
textToCString Text
exceptions
Ptr Terminal -> CString -> IO ()
vte_terminal_set_word_char_exceptions Ptr Terminal
terminal' CString
exceptions'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
exceptions'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let align' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_xalign Ptr Terminal
terminal' CUInt
align'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let fill' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_xfill Ptr Terminal
terminal' CInt
fill'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let align' :: CUInt
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
Ptr Terminal -> CUInt -> IO ()
vte_terminal_set_yalign Ptr Terminal
terminal' CUInt
align'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let fill' :: CInt
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
Ptr Terminal -> CInt -> IO ()
vte_terminal_set_yfill Ptr Terminal
terminal' CInt
fill'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' :: CUInt
ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
CString
maybeWorkingDirectory <- case Maybe Text
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
CString
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jWorkingDirectory'
Ptr CString
argv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
argv
Ptr CString
maybeEnvv <- case Maybe [String]
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
Ptr CString
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jEnvv'
let spawnFlags' :: CUInt
spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
FunPtr SpawnChildSetupFunc
maybeChildSetup <- case Maybe SpawnChildSetupFunc
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
Ptr (FunPtr SpawnChildSetupFunc)
ptrchildSetup <- IO (Ptr (FunPtr SpawnChildSetupFunc))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_SpawnChildSetupFunc))
FunPtr SpawnChildSetupFunc
jChildSetup' <- SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
GLib.Callbacks.mk_SpawnChildSetupFunc (Maybe (Ptr (FunPtr SpawnChildSetupFunc))
-> SpawnChildSetupFunc -> SpawnChildSetupFunc
GLib.Callbacks.wrap_SpawnChildSetupFunc (Ptr (FunPtr SpawnChildSetupFunc)
-> Maybe (Ptr (FunPtr SpawnChildSetupFunc))
forall a. a -> Maybe a
Just Ptr (FunPtr SpawnChildSetupFunc)
ptrchildSetup) SpawnChildSetupFunc
jChildSetup)
Ptr (FunPtr SpawnChildSetupFunc)
-> FunPtr SpawnChildSetupFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr SpawnChildSetupFunc)
ptrchildSetup FunPtr SpawnChildSetupFunc
jChildSetup'
FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
jChildSetup'
Ptr Cancellable
maybeCancellable <- case Maybe b
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
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_TerminalSpawnAsyncCallback
maybeCallback <- case Maybe TerminalSpawnAsyncCallback
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
Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback <- IO (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback))
FunPtr C_TerminalSpawnAsyncCallback
jCallback' <- C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
Vte.Callbacks.mk_TerminalSpawnAsyncCallback (Maybe (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
-> TerminalSpawnAsyncCallback_WithClosures
-> C_TerminalSpawnAsyncCallback
Vte.Callbacks.wrap_TerminalSpawnAsyncCallback (Ptr (FunPtr C_TerminalSpawnAsyncCallback)
-> Maybe (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback) (TerminalSpawnAsyncCallback
-> TerminalSpawnAsyncCallback_WithClosures
Vte.Callbacks.drop_closures_TerminalSpawnAsyncCallback TerminalSpawnAsyncCallback
jCallback))
Ptr (FunPtr C_TerminalSpawnAsyncCallback)
-> FunPtr C_TerminalSpawnAsyncCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback FunPtr C_TerminalSpawnAsyncCallback
jCallback'
FunPtr C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TerminalSpawnAsyncCallback
jCallback'
let childSetupData :: Ptr a
childSetupData = Ptr a
forall a. Ptr a
nullPtr
let childSetupDataDestroy :: FunPtr a
childSetupDataDestroy = FunPtr a
forall a. FunPtr a
FP.nullFunPtr
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Terminal
-> CUInt
-> CString
-> Ptr CString
-> Ptr CString
-> CUInt
-> FunPtr SpawnChildSetupFunc
-> Ptr ()
-> FunPtr SpawnChildSetupFunc
-> Int32
-> Ptr Cancellable
-> FunPtr C_TerminalSpawnAsyncCallback
-> SpawnChildSetupFunc
vte_terminal_spawn_async Ptr Terminal
terminal' CUInt
ptyFlags' CString
maybeWorkingDirectory Ptr CString
argv' Ptr CString
maybeEnvv CUInt
spawnFlags' FunPtr SpawnChildSetupFunc
maybeChildSetup Ptr ()
forall a. Ptr a
childSetupData FunPtr SpawnChildSetupFunc
forall a. FunPtr a
childSetupDataDestroy Int32
timeout Ptr Cancellable
maybeCancellable FunPtr C_TerminalSpawnAsyncCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeWorkingDirectory
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' :: CUInt
ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
CString
maybeWorkingDirectory <- case Maybe Text
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
CString
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jWorkingDirectory'
Ptr CString
argv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
argv
Ptr CString
maybeEnvv <- case Maybe [String]
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
Ptr CString
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jEnvv'
let spawnFlags' :: CUInt
spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
FunPtr SpawnChildSetupFunc
maybeChildSetup <- case Maybe SpawnChildSetupFunc
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
FunPtr SpawnChildSetupFunc
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)
FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
jChildSetup'
Ptr Int32
childPid <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Cancellable
maybeCancellable <- case Maybe b
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
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
let childSetupData :: Ptr a
childSetupData = Ptr a
forall a. Ptr a
nullPtr
IO Int32 -> IO () -> IO Int32
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Terminal
-> CUInt
-> CString
-> Ptr CString
-> Ptr CString
-> CUInt
-> FunPtr SpawnChildSetupFunc
-> Ptr ()
-> Ptr Int32
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CInt
vte_terminal_spawn_sync Ptr Terminal
terminal' CUInt
ptyFlags' CString
maybeWorkingDirectory Ptr CString
argv' Ptr CString
maybeEnvv CUInt
spawnFlags' FunPtr SpawnChildSetupFunc
maybeChildSetup Ptr ()
forall a. Ptr a
childSetupData Ptr Int32
childPid Ptr Cancellable
maybeCancellable
Int32
childPid' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
childPid
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr SpawnChildSetupFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr SpawnChildSetupFunc
maybeChildSetup
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeWorkingDirectory
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
childPid
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
childPid'
) (do
Ptr Any -> IO ()
forall a. Ptr a -> IO ()
safeFreeFunPtr (Ptr Any -> IO ()) -> Ptr Any -> IO ()
forall a b. (a -> b) -> a -> b
$ FunPtr SpawnChildSetupFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr SpawnChildSetupFunc
maybeChildSetup
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeWorkingDirectory
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
let ptyFlags' :: CUInt
ptyFlags' = [PtyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [PtyFlags]
ptyFlags
CString
maybeWorkingDirectory <- case Maybe Text
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
CString
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jWorkingDirectory'
Ptr CString
argv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
argv
Ptr CString
maybeEnvv <- case Maybe [String]
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
Ptr CString
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
Ptr CString -> IO (Ptr CString)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jEnvv'
Ptr Int32
maybeFds <- case Maybe [Int32]
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
Ptr Int32
jFds' <- [Int32] -> IO (Ptr Int32)
forall a. Storable a => [a] -> IO (Ptr a)
packStorableArray [Int32]
jFds
Ptr Int32 -> IO (Ptr Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Int32
jFds'
Ptr Int32
maybeMapFds <- case Maybe [Int32]
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
Ptr Int32
jMapFds' <- [Int32] -> IO (Ptr Int32)
forall a. Storable a => [a] -> IO (Ptr a)
packStorableArray [Int32]
jMapFds
Ptr Int32 -> IO (Ptr Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Int32
jMapFds'
let spawnFlags' :: CUInt
spawnFlags' = [SpawnFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SpawnFlags]
spawnFlags
FunPtr SpawnChildSetupFunc
maybeChildSetup <- case Maybe SpawnChildSetupFunc
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
FunPtr SpawnChildSetupFunc
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)
FunPtr SpawnChildSetupFunc -> IO (FunPtr SpawnChildSetupFunc)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr SpawnChildSetupFunc
jChildSetup'
Ptr Cancellable
maybeCancellable <- case Maybe b
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
Ptr Cancellable
jCancellable' <- b -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
FunPtr C_TerminalSpawnAsyncCallback
maybeCallback <- case Maybe TerminalSpawnAsyncCallback
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
Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback <- IO (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr Vte.Callbacks.C_TerminalSpawnAsyncCallback))
FunPtr C_TerminalSpawnAsyncCallback
jCallback' <- C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
Vte.Callbacks.mk_TerminalSpawnAsyncCallback (Maybe (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
-> TerminalSpawnAsyncCallback_WithClosures
-> C_TerminalSpawnAsyncCallback
Vte.Callbacks.wrap_TerminalSpawnAsyncCallback (Ptr (FunPtr C_TerminalSpawnAsyncCallback)
-> Maybe (Ptr (FunPtr C_TerminalSpawnAsyncCallback))
forall a. a -> Maybe a
Just Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback) (TerminalSpawnAsyncCallback
-> TerminalSpawnAsyncCallback_WithClosures
Vte.Callbacks.drop_closures_TerminalSpawnAsyncCallback TerminalSpawnAsyncCallback
jCallback))
Ptr (FunPtr C_TerminalSpawnAsyncCallback)
-> FunPtr C_TerminalSpawnAsyncCallback -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_TerminalSpawnAsyncCallback)
ptrcallback FunPtr C_TerminalSpawnAsyncCallback
jCallback'
FunPtr C_TerminalSpawnAsyncCallback
-> IO (FunPtr C_TerminalSpawnAsyncCallback)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TerminalSpawnAsyncCallback
jCallback'
let childSetupData :: Ptr ()
childSetupData = FunPtr SpawnChildSetupFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr SpawnChildSetupFunc
maybeChildSetup
let childSetupDataDestroy :: FunPtr (Ptr a -> IO ())
childSetupDataDestroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
let userData :: Ptr a
userData = Ptr a
forall a. Ptr a
nullPtr
Ptr Terminal
-> CUInt
-> CString
-> Ptr CString
-> Ptr CString
-> Ptr Int32
-> Int32
-> Ptr Int32
-> Int32
-> CUInt
-> FunPtr SpawnChildSetupFunc
-> Ptr ()
-> FunPtr SpawnChildSetupFunc
-> Int32
-> Ptr Cancellable
-> FunPtr C_TerminalSpawnAsyncCallback
-> SpawnChildSetupFunc
vte_terminal_spawn_with_fds_async Ptr Terminal
terminal' CUInt
ptyFlags' CString
maybeWorkingDirectory Ptr CString
argv' Ptr CString
maybeEnvv Ptr Int32
maybeFds Int32
nFds Ptr Int32
maybeMapFds Int32
nMapFds CUInt
spawnFlags' FunPtr SpawnChildSetupFunc
maybeChildSetup Ptr ()
childSetupData FunPtr SpawnChildSetupFunc
forall a. FunPtr (Ptr a -> IO ())
childSetupDataDestroy Int32
timeout Ptr Cancellable
maybeCancellable FunPtr C_TerminalSpawnAsyncCallback
maybeCallback Ptr ()
forall a. Ptr a
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
cancellable b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeWorkingDirectory
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
argv'
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybeEnvv
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
maybeFds
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
maybeMapFds
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> IO ()
vte_terminal_unselect_all Ptr Terminal
terminal'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr Terminal -> TerminalChildExitedCallback
vte_terminal_watch_child Ptr Terminal
terminal' Int32
childPid
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/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
Ptr Terminal
terminal' <- a -> IO (Ptr Terminal)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
terminal
Ptr OutputStream
stream' <- b -> IO (Ptr OutputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
stream
let flags' :: CUInt
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
Ptr Cancellable
maybeCancellable <- case Maybe c
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
Ptr Cancellable
jCancellable' <- c -> IO (Ptr Cancellable)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jCancellable
Ptr Cancellable -> IO (Ptr Cancellable)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
jCancellable'
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
CInt
_ <- (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CInt) -> IO CInt)
-> (Ptr (Ptr GError) -> IO CInt) -> IO CInt
forall a b. (a -> b) -> a -> b
$ Ptr Terminal
-> Ptr OutputStream
-> CUInt
-> Ptr Cancellable
-> Ptr (Ptr GError)
-> IO CInt
vte_terminal_write_contents_sync Ptr Terminal
terminal' Ptr OutputStream
stream' CUInt
flags' Ptr Cancellable
maybeCancellable
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
stream
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
cancellable c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.33/docs/GI-Vte-Objects-Terminal.html#v:terminalWriteContentsSync"
})
#endif