{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Vte.Objects.Terminal
(
#if defined(ENABLE_OVERLOADING)
TerminalGetTextMethodInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalGetTextIncludeTrailingSpacesMethodInfo,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalGetTextRangeMethodInfo ,
#endif
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)
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)
TerminalGetCurrentContainerNameMethodInfo,
#endif
terminalGetCurrentContainerName ,
#if defined(ENABLE_OVERLOADING)
TerminalGetCurrentContainerRuntimeMethodInfo,
#endif
terminalGetCurrentContainerRuntime ,
#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)
TerminalGetEnableBidiMethodInfo ,
#endif
terminalGetEnableBidi ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEnableShapingMethodInfo ,
#endif
terminalGetEnableShaping ,
#if defined(ENABLE_OVERLOADING)
TerminalGetEncodingMethodInfo ,
#endif
terminalGetEncoding ,
#if defined(ENABLE_OVERLOADING)
TerminalGetFontMethodInfo ,
#endif
terminalGetFont ,
#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)
TerminalGetScrollOnKeystrokeMethodInfo ,
#endif
terminalGetScrollOnKeystroke ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollOnOutputMethodInfo ,
#endif
terminalGetScrollOnOutput ,
#if defined(ENABLE_OVERLOADING)
TerminalGetScrollbackLinesMethodInfo ,
#endif
terminalGetScrollbackLines ,
#if defined(ENABLE_OVERLOADING)
TerminalGetTextBlinkModeMethodInfo ,
#endif
terminalGetTextBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalGetWindowTitleMethodInfo ,
#endif
terminalGetWindowTitle ,
#if defined(ENABLE_OVERLOADING)
TerminalGetWordCharExceptionsMethodInfo ,
#endif
terminalGetWordCharExceptions ,
#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)
TerminalPtyNewSyncMethodInfo ,
#endif
terminalPtyNewSync ,
#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)
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)
TerminalSetEnableBidiMethodInfo ,
#endif
terminalSetEnableBidi ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEnableShapingMethodInfo ,
#endif
terminalSetEnableShaping ,
#if defined(ENABLE_OVERLOADING)
TerminalSetEncodingMethodInfo ,
#endif
terminalSetEncoding ,
#if defined(ENABLE_OVERLOADING)
TerminalSetFontMethodInfo ,
#endif
terminalSetFont ,
#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)
TerminalSetScrollOnKeystrokeMethodInfo ,
#endif
terminalSetScrollOnKeystroke ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollOnOutputMethodInfo ,
#endif
terminalSetScrollOnOutput ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollSpeedMethodInfo ,
#endif
terminalSetScrollSpeed ,
#if defined(ENABLE_OVERLOADING)
TerminalSetScrollbackLinesMethodInfo ,
#endif
terminalSetScrollbackLines ,
#if defined(ENABLE_OVERLOADING)
TerminalSetSizeMethodInfo ,
#endif
terminalSetSize ,
#if defined(ENABLE_OVERLOADING)
TerminalSetTextBlinkModeMethodInfo ,
#endif
terminalSetTextBlinkMode ,
#if defined(ENABLE_OVERLOADING)
TerminalSetWordCharExceptionsMethodInfo ,
#endif
terminalSetWordCharExceptions ,
#if defined(ENABLE_OVERLOADING)
TerminalSpawnAsyncMethodInfo ,
#endif
terminalSpawnAsync ,
#if defined(ENABLE_OVERLOADING)
TerminalSpawnSyncMethodInfo ,
#endif
terminalSpawnSync ,
#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)
TerminalCurrentContainerNamePropertyInfo,
#endif
getTerminalCurrentContainerName ,
#if defined(ENABLE_OVERLOADING)
terminalCurrentContainerName ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalCurrentContainerRuntimePropertyInfo,
#endif
getTerminalCurrentContainerRuntime ,
#if defined(ENABLE_OVERLOADING)
terminalCurrentContainerRuntime ,
#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)
TerminalEnableBidiPropertyInfo ,
#endif
constructTerminalEnableBidi ,
getTerminalEnableBidi ,
setTerminalEnableBidi ,
#if defined(ENABLE_OVERLOADING)
terminalEnableBidi ,
#endif
#if defined(ENABLE_OVERLOADING)
TerminalEnableShapingPropertyInfo ,
#endif
constructTerminalEnableShaping ,
getTerminalEnableShaping ,
setTerminalEnableShaping ,
#if defined(ENABLE_OVERLOADING)
terminalEnableShaping ,
#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)
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)
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)
TerminalScrollSpeedPropertyInfo ,
#endif
constructTerminalScrollSpeed ,
getTerminalScrollSpeed ,
setTerminalScrollSpeed ,
#if defined(ENABLE_OVERLOADING)
terminalScrollSpeed ,
#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
C_TerminalBellCallback ,
TerminalBellCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalBellSignalInfo ,
#endif
afterTerminalBell ,
genClosure_TerminalBell ,
mk_TerminalBellCallback ,
noTerminalBellCallback ,
onTerminalBell ,
wrap_TerminalBellCallback ,
C_TerminalCharSizeChangedCallback ,
TerminalCharSizeChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCharSizeChangedSignalInfo ,
#endif
afterTerminalCharSizeChanged ,
genClosure_TerminalCharSizeChanged ,
mk_TerminalCharSizeChangedCallback ,
noTerminalCharSizeChangedCallback ,
onTerminalCharSizeChanged ,
wrap_TerminalCharSizeChangedCallback ,
C_TerminalChildExitedCallback ,
TerminalChildExitedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalChildExitedSignalInfo ,
#endif
afterTerminalChildExited ,
genClosure_TerminalChildExited ,
mk_TerminalChildExitedCallback ,
noTerminalChildExitedCallback ,
onTerminalChildExited ,
wrap_TerminalChildExitedCallback ,
C_TerminalCommitCallback ,
TerminalCommitCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCommitSignalInfo ,
#endif
afterTerminalCommit ,
genClosure_TerminalCommit ,
mk_TerminalCommitCallback ,
noTerminalCommitCallback ,
onTerminalCommit ,
wrap_TerminalCommitCallback ,
C_TerminalContentsChangedCallback ,
TerminalContentsChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalContentsChangedSignalInfo ,
#endif
afterTerminalContentsChanged ,
genClosure_TerminalContentsChanged ,
mk_TerminalContentsChangedCallback ,
noTerminalContentsChangedCallback ,
onTerminalContentsChanged ,
wrap_TerminalContentsChangedCallback ,
C_TerminalCopyClipboardCallback ,
TerminalCopyClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCopyClipboardSignalInfo ,
#endif
afterTerminalCopyClipboard ,
genClosure_TerminalCopyClipboard ,
mk_TerminalCopyClipboardCallback ,
noTerminalCopyClipboardCallback ,
onTerminalCopyClipboard ,
wrap_TerminalCopyClipboardCallback ,
C_TerminalCurrentDirectoryUriChangedCallback,
TerminalCurrentDirectoryUriChangedCallback,
#if defined(ENABLE_OVERLOADING)
TerminalCurrentDirectoryUriChangedSignalInfo,
#endif
afterTerminalCurrentDirectoryUriChanged ,
genClosure_TerminalCurrentDirectoryUriChanged,
mk_TerminalCurrentDirectoryUriChangedCallback,
noTerminalCurrentDirectoryUriChangedCallback,
onTerminalCurrentDirectoryUriChanged ,
wrap_TerminalCurrentDirectoryUriChangedCallback,
C_TerminalCurrentFileUriChangedCallback ,
TerminalCurrentFileUriChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCurrentFileUriChangedSignalInfo ,
#endif
afterTerminalCurrentFileUriChanged ,
genClosure_TerminalCurrentFileUriChanged,
mk_TerminalCurrentFileUriChangedCallback,
noTerminalCurrentFileUriChangedCallback ,
onTerminalCurrentFileUriChanged ,
wrap_TerminalCurrentFileUriChangedCallback,
C_TerminalCursorMovedCallback ,
TerminalCursorMovedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalCursorMovedSignalInfo ,
#endif
afterTerminalCursorMoved ,
genClosure_TerminalCursorMoved ,
mk_TerminalCursorMovedCallback ,
noTerminalCursorMovedCallback ,
onTerminalCursorMoved ,
wrap_TerminalCursorMovedCallback ,
C_TerminalDecreaseFontSizeCallback ,
TerminalDecreaseFontSizeCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalDecreaseFontSizeSignalInfo ,
#endif
afterTerminalDecreaseFontSize ,
genClosure_TerminalDecreaseFontSize ,
mk_TerminalDecreaseFontSizeCallback ,
noTerminalDecreaseFontSizeCallback ,
onTerminalDecreaseFontSize ,
wrap_TerminalDecreaseFontSizeCallback ,
C_TerminalDeiconifyWindowCallback ,
TerminalDeiconifyWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalDeiconifyWindowSignalInfo ,
#endif
afterTerminalDeiconifyWindow ,
genClosure_TerminalDeiconifyWindow ,
mk_TerminalDeiconifyWindowCallback ,
noTerminalDeiconifyWindowCallback ,
onTerminalDeiconifyWindow ,
wrap_TerminalDeiconifyWindowCallback ,
C_TerminalEncodingChangedCallback ,
TerminalEncodingChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalEncodingChangedSignalInfo ,
#endif
afterTerminalEncodingChanged ,
genClosure_TerminalEncodingChanged ,
mk_TerminalEncodingChangedCallback ,
noTerminalEncodingChangedCallback ,
onTerminalEncodingChanged ,
wrap_TerminalEncodingChangedCallback ,
C_TerminalEofCallback ,
TerminalEofCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalEofSignalInfo ,
#endif
afterTerminalEof ,
genClosure_TerminalEof ,
mk_TerminalEofCallback ,
noTerminalEofCallback ,
onTerminalEof ,
wrap_TerminalEofCallback ,
C_TerminalHyperlinkHoverUriChangedCallback,
TerminalHyperlinkHoverUriChangedCallback,
#if defined(ENABLE_OVERLOADING)
TerminalHyperlinkHoverUriChangedSignalInfo,
#endif
afterTerminalHyperlinkHoverUriChanged ,
genClosure_TerminalHyperlinkHoverUriChanged,
mk_TerminalHyperlinkHoverUriChangedCallback,
noTerminalHyperlinkHoverUriChangedCallback,
onTerminalHyperlinkHoverUriChanged ,
wrap_TerminalHyperlinkHoverUriChangedCallback,
C_TerminalIconTitleChangedCallback ,
TerminalIconTitleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIconTitleChangedSignalInfo ,
#endif
afterTerminalIconTitleChanged ,
genClosure_TerminalIconTitleChanged ,
mk_TerminalIconTitleChangedCallback ,
noTerminalIconTitleChangedCallback ,
onTerminalIconTitleChanged ,
wrap_TerminalIconTitleChangedCallback ,
C_TerminalIconifyWindowCallback ,
TerminalIconifyWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIconifyWindowSignalInfo ,
#endif
afterTerminalIconifyWindow ,
genClosure_TerminalIconifyWindow ,
mk_TerminalIconifyWindowCallback ,
noTerminalIconifyWindowCallback ,
onTerminalIconifyWindow ,
wrap_TerminalIconifyWindowCallback ,
C_TerminalIncreaseFontSizeCallback ,
TerminalIncreaseFontSizeCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalIncreaseFontSizeSignalInfo ,
#endif
afterTerminalIncreaseFontSize ,
genClosure_TerminalIncreaseFontSize ,
mk_TerminalIncreaseFontSizeCallback ,
noTerminalIncreaseFontSizeCallback ,
onTerminalIncreaseFontSize ,
wrap_TerminalIncreaseFontSizeCallback ,
C_TerminalLowerWindowCallback ,
TerminalLowerWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalLowerWindowSignalInfo ,
#endif
afterTerminalLowerWindow ,
genClosure_TerminalLowerWindow ,
mk_TerminalLowerWindowCallback ,
noTerminalLowerWindowCallback ,
onTerminalLowerWindow ,
wrap_TerminalLowerWindowCallback ,
C_TerminalMaximizeWindowCallback ,
TerminalMaximizeWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalMaximizeWindowSignalInfo ,
#endif
afterTerminalMaximizeWindow ,
genClosure_TerminalMaximizeWindow ,
mk_TerminalMaximizeWindowCallback ,
noTerminalMaximizeWindowCallback ,
onTerminalMaximizeWindow ,
wrap_TerminalMaximizeWindowCallback ,
C_TerminalMoveWindowCallback ,
TerminalMoveWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalMoveWindowSignalInfo ,
#endif
afterTerminalMoveWindow ,
genClosure_TerminalMoveWindow ,
mk_TerminalMoveWindowCallback ,
noTerminalMoveWindowCallback ,
onTerminalMoveWindow ,
wrap_TerminalMoveWindowCallback ,
C_TerminalNotificationReceivedCallback ,
TerminalNotificationReceivedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalNotificationReceivedSignalInfo ,
#endif
afterTerminalNotificationReceived ,
genClosure_TerminalNotificationReceived ,
mk_TerminalNotificationReceivedCallback ,
noTerminalNotificationReceivedCallback ,
onTerminalNotificationReceived ,
wrap_TerminalNotificationReceivedCallback,
C_TerminalPasteClipboardCallback ,
TerminalPasteClipboardCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalPasteClipboardSignalInfo ,
#endif
afterTerminalPasteClipboard ,
genClosure_TerminalPasteClipboard ,
mk_TerminalPasteClipboardCallback ,
noTerminalPasteClipboardCallback ,
onTerminalPasteClipboard ,
wrap_TerminalPasteClipboardCallback ,
C_TerminalRaiseWindowCallback ,
TerminalRaiseWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRaiseWindowSignalInfo ,
#endif
afterTerminalRaiseWindow ,
genClosure_TerminalRaiseWindow ,
mk_TerminalRaiseWindowCallback ,
noTerminalRaiseWindowCallback ,
onTerminalRaiseWindow ,
wrap_TerminalRaiseWindowCallback ,
C_TerminalRefreshWindowCallback ,
TerminalRefreshWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRefreshWindowSignalInfo ,
#endif
afterTerminalRefreshWindow ,
genClosure_TerminalRefreshWindow ,
mk_TerminalRefreshWindowCallback ,
noTerminalRefreshWindowCallback ,
onTerminalRefreshWindow ,
wrap_TerminalRefreshWindowCallback ,
C_TerminalResizeWindowCallback ,
TerminalResizeWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalResizeWindowSignalInfo ,
#endif
afterTerminalResizeWindow ,
genClosure_TerminalResizeWindow ,
mk_TerminalResizeWindowCallback ,
noTerminalResizeWindowCallback ,
onTerminalResizeWindow ,
wrap_TerminalResizeWindowCallback ,
C_TerminalRestoreWindowCallback ,
TerminalRestoreWindowCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalRestoreWindowSignalInfo ,
#endif
afterTerminalRestoreWindow ,
genClosure_TerminalRestoreWindow ,
mk_TerminalRestoreWindowCallback ,
noTerminalRestoreWindowCallback ,
onTerminalRestoreWindow ,
wrap_TerminalRestoreWindowCallback ,
C_TerminalSelectionChangedCallback ,
TerminalSelectionChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalSelectionChangedSignalInfo ,
#endif
afterTerminalSelectionChanged ,
genClosure_TerminalSelectionChanged ,
mk_TerminalSelectionChangedCallback ,
noTerminalSelectionChangedCallback ,
onTerminalSelectionChanged ,
wrap_TerminalSelectionChangedCallback ,
C_TerminalShellPrecmdCallback ,
TerminalShellPrecmdCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalShellPrecmdSignalInfo ,
#endif
afterTerminalShellPrecmd ,
genClosure_TerminalShellPrecmd ,
mk_TerminalShellPrecmdCallback ,
noTerminalShellPrecmdCallback ,
onTerminalShellPrecmd ,
wrap_TerminalShellPrecmdCallback ,
C_TerminalShellPreexecCallback ,
TerminalShellPreexecCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalShellPreexecSignalInfo ,
#endif
afterTerminalShellPreexec ,
genClosure_TerminalShellPreexec ,
mk_TerminalShellPreexecCallback ,
noTerminalShellPreexecCallback ,
onTerminalShellPreexec ,
wrap_TerminalShellPreexecCallback ,
C_TerminalTextDeletedCallback ,
TerminalTextDeletedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextDeletedSignalInfo ,
#endif
afterTerminalTextDeleted ,
genClosure_TerminalTextDeleted ,
mk_TerminalTextDeletedCallback ,
noTerminalTextDeletedCallback ,
onTerminalTextDeleted ,
wrap_TerminalTextDeletedCallback ,
C_TerminalTextInsertedCallback ,
TerminalTextInsertedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextInsertedSignalInfo ,
#endif
afterTerminalTextInserted ,
genClosure_TerminalTextInserted ,
mk_TerminalTextInsertedCallback ,
noTerminalTextInsertedCallback ,
onTerminalTextInserted ,
wrap_TerminalTextInsertedCallback ,
C_TerminalTextModifiedCallback ,
TerminalTextModifiedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextModifiedSignalInfo ,
#endif
afterTerminalTextModified ,
genClosure_TerminalTextModified ,
mk_TerminalTextModifiedCallback ,
noTerminalTextModifiedCallback ,
onTerminalTextModified ,
wrap_TerminalTextModifiedCallback ,
C_TerminalTextScrolledCallback ,
TerminalTextScrolledCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalTextScrolledSignalInfo ,
#endif
afterTerminalTextScrolled ,
genClosure_TerminalTextScrolled ,
mk_TerminalTextScrolledCallback ,
noTerminalTextScrolledCallback ,
onTerminalTextScrolled ,
wrap_TerminalTextScrolledCallback ,
C_TerminalWindowTitleChangedCallback ,
TerminalWindowTitleChangedCallback ,
#if defined(ENABLE_OVERLOADING)
TerminalWindowTitleChangedSignalInfo ,
#endif
afterTerminalWindowTitleChanged ,
genClosure_TerminalWindowTitleChanged ,
mk_TerminalWindowTitleChangedCallback ,
noTerminalWindowTitleChangedCallback ,
onTerminalWindowTitleChanged ,
wrap_TerminalWindowTitleChangedCallback ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.Atk.Interfaces.ImplementorIface as Atk.ImplementorIface
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GLib.Flags as GLib.Flags
import qualified GI.GLib.Structs.Regex as GLib.Regex
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.Gio.Objects.Cancellable as Gio.Cancellable
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.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.Regex as Vte.Regex
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
/= :: Terminal -> Terminal -> Bool
$c/= :: Terminal -> Terminal -> Bool
== :: Terminal -> Terminal -> Bool
$c== :: 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
instance B.GValue.IsGValue Terminal where
toGValue :: Terminal -> IO GValue
toGValue Terminal
o = do
GType
gtype <- IO GType
c_vte_terminal_get_type
Terminal -> (Ptr Terminal -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Terminal
o (GType
-> (GValue -> Ptr Terminal -> IO ()) -> Ptr Terminal -> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Terminal -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Terminal
fromGValue GValue
gv = do
Ptr Terminal
ptr <- GValue -> IO (Ptr Terminal)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Terminal)
(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
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 :: (MonadIO m, IsTerminal o) => o -> m Terminal
toTerminal :: o -> m Terminal
toTerminal = IO Terminal -> m Terminal
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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'
unsafeCastTo ManagedPtr Terminal -> Terminal
Terminal
#if defined(ENABLE_OVERLOADING)
type family ResolveTerminalMethod (t :: Symbol) (o :: *) :: * 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 "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 "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 "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 "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 "getCurrentContainerName" o = TerminalGetCurrentContainerNameMethodInfo
ResolveTerminalMethod "getCurrentContainerRuntime" o = TerminalGetCurrentContainerRuntimeMethodInfo
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 "getEnableBidi" o = TerminalGetEnableBidiMethodInfo
ResolveTerminalMethod "getEnableShaping" o = TerminalGetEnableShapingMethodInfo
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 = Gtk.Widget.WidgetGetFontOptionsMethodInfo
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 "getScrollOnKeystroke" o = TerminalGetScrollOnKeystrokeMethodInfo
ResolveTerminalMethod "getScrollOnOutput" o = TerminalGetScrollOnOutputMethodInfo
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 "getText" o = TerminalGetTextMethodInfo
ResolveTerminalMethod "getTextBlinkMode" o = TerminalGetTextBlinkModeMethodInfo
ResolveTerminalMethod "getTextIncludeTrailingSpaces" o = TerminalGetTextIncludeTrailingSpacesMethodInfo
ResolveTerminalMethod "getTextRange" o = TerminalGetTextRangeMethodInfo
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 "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 "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 "setEnableBidi" o = TerminalSetEnableBidiMethodInfo
ResolveTerminalMethod "setEnableShaping" o = TerminalSetEnableShapingMethodInfo
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 = Gtk.Widget.WidgetSetFontOptionsMethodInfo
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 "setScrollOnKeystroke" o = TerminalSetScrollOnKeystrokeMethodInfo
ResolveTerminalMethod "setScrollOnOutput" o = TerminalSetScrollOnOutputMethodInfo
ResolveTerminalMethod "setScrollSpeed" o = TerminalSetScrollSpeedMethodInfo
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 "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 l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTerminalMethod t Terminal, O.MethodInfo 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
#endif
type TerminalBellCallback =
IO ()
noTerminalBellCallback :: Maybe TerminalBellCallback
noTerminalBellCallback :: Maybe (IO ())
noTerminalBellCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalBellCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalBellCallback :: C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
genClosure_TerminalBell :: MonadIO m => TerminalBellCallback -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalBell :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalBell IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalBellCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalBellCallback ::
TerminalBellCallback ->
C_TerminalBellCallback
wrap_TerminalBellCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalBellCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalBell :: (IsTerminal a, MonadIO m) => a -> TerminalBellCallback -> m SignalHandlerId
onTerminalBell :: a -> IO () -> m SignalHandlerId
onTerminalBell a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalBellCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalBell :: (IsTerminal a, MonadIO m) => a -> TerminalBellCallback -> m SignalHandlerId
afterTerminalBell :: a -> IO () -> m SignalHandlerId
afterTerminalBell a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalBellCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalBellCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalCharSizeChangedCallback =
Word32
-> Word32
-> IO ()
noTerminalCharSizeChangedCallback :: Maybe TerminalCharSizeChangedCallback
noTerminalCharSizeChangedCallback :: Maybe TerminalCharSizeChangedCallback
noTerminalCharSizeChangedCallback = Maybe TerminalCharSizeChangedCallback
forall a. Maybe a
Nothing
type C_TerminalCharSizeChangedCallback =
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCharSizeChangedCallback :: C_TerminalCharSizeChangedCallback -> IO (FunPtr C_TerminalCharSizeChangedCallback)
genClosure_TerminalCharSizeChanged :: MonadIO m => TerminalCharSizeChangedCallback -> m (GClosure C_TerminalCharSizeChangedCallback)
genClosure_TerminalCharSizeChanged :: TerminalCharSizeChangedCallback
-> m (GClosure C_TerminalCharSizeChangedCallback)
genClosure_TerminalCharSizeChanged TerminalCharSizeChangedCallback
cb = IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback TerminalCharSizeChangedCallback
cb
C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
cb' IO (FunPtr C_TerminalCharSizeChangedCallback)
-> (FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCharSizeChangedCallback ::
TerminalCharSizeChangedCallback ->
C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback :: TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback TerminalCharSizeChangedCallback
_cb Ptr ()
_ Word32
width Word32
height Ptr ()
_ = do
TerminalCharSizeChangedCallback
_cb Word32
width Word32
height
onTerminalCharSizeChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
onTerminalCharSizeChanged :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
onTerminalCharSizeChanged a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCharSizeChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
afterTerminalCharSizeChanged :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
afterTerminalCharSizeChanged a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalCharSizeChangedCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalCharSizeChangedCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' 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
#endif
type TerminalChildExitedCallback =
Int32
-> IO ()
noTerminalChildExitedCallback :: Maybe TerminalChildExitedCallback
noTerminalChildExitedCallback :: Maybe TerminalChildExitedCallback
noTerminalChildExitedCallback = Maybe TerminalChildExitedCallback
forall a. Maybe a
Nothing
type C_TerminalChildExitedCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalChildExitedCallback :: C_TerminalChildExitedCallback -> IO (FunPtr C_TerminalChildExitedCallback)
genClosure_TerminalChildExited :: MonadIO m => TerminalChildExitedCallback -> m (GClosure C_TerminalChildExitedCallback)
genClosure_TerminalChildExited :: TerminalChildExitedCallback
-> m (GClosure C_TerminalChildExitedCallback)
genClosure_TerminalChildExited TerminalChildExitedCallback
cb = IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback))
-> IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback TerminalChildExitedCallback
cb
C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
cb' IO (FunPtr C_TerminalChildExitedCallback)
-> (FunPtr C_TerminalChildExitedCallback
-> IO (GClosure C_TerminalChildExitedCallback))
-> IO (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalChildExitedCallback
-> IO (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalChildExitedCallback ::
TerminalChildExitedCallback ->
C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback :: TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback TerminalChildExitedCallback
_cb Ptr ()
_ Int32
status Ptr ()
_ = do
TerminalChildExitedCallback
_cb Int32
status
onTerminalChildExited :: (IsTerminal a, MonadIO m) => a -> TerminalChildExitedCallback -> m SignalHandlerId
onTerminalChildExited :: a -> TerminalChildExitedCallback -> m SignalHandlerId
onTerminalChildExited a
obj TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback TerminalChildExitedCallback
cb
FunPtr C_TerminalChildExitedCallback
cb'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalChildExited :: (IsTerminal a, MonadIO m) => a -> TerminalChildExitedCallback -> m SignalHandlerId
afterTerminalChildExited :: a -> TerminalChildExitedCallback -> m SignalHandlerId
afterTerminalChildExited a
obj TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalChildExitedCallback TerminalChildExitedCallback
cb
FunPtr C_TerminalChildExitedCallback
cb'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalChildExitedCallback C_TerminalChildExitedCallback
cb'
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
cb'' 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
#endif
type TerminalCommitCallback =
T.Text
-> Word32
-> IO ()
noTerminalCommitCallback :: Maybe TerminalCommitCallback
noTerminalCommitCallback :: Maybe TerminalCommitCallback
noTerminalCommitCallback = Maybe TerminalCommitCallback
forall a. Maybe a
Nothing
type C_TerminalCommitCallback =
Ptr () ->
CString ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCommitCallback :: C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
genClosure_TerminalCommit :: MonadIO m => TerminalCommitCallback -> m (GClosure C_TerminalCommitCallback)
genClosure_TerminalCommit :: TerminalCommitCallback -> m (GClosure C_TerminalCommitCallback)
genClosure_TerminalCommit TerminalCommitCallback
cb = IO (GClosure C_TerminalCommitCallback)
-> m (GClosure C_TerminalCommitCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalCommitCallback)
-> m (GClosure C_TerminalCommitCallback))
-> IO (GClosure C_TerminalCommitCallback)
-> m (GClosure C_TerminalCommitCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCommitCallback
cb' = TerminalCommitCallback -> C_TerminalCommitCallback
wrap_TerminalCommitCallback TerminalCommitCallback
cb
C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
cb' IO (FunPtr C_TerminalCommitCallback)
-> (FunPtr C_TerminalCommitCallback
-> IO (GClosure C_TerminalCommitCallback))
-> IO (GClosure C_TerminalCommitCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalCommitCallback
-> IO (GClosure C_TerminalCommitCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCommitCallback ::
TerminalCommitCallback ->
C_TerminalCommitCallback
wrap_TerminalCommitCallback :: TerminalCommitCallback -> C_TerminalCommitCallback
wrap_TerminalCommitCallback TerminalCommitCallback
_cb Ptr ()
_ CString
text Word32
size Ptr ()
_ = do
Text
text' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
text
TerminalCommitCallback
_cb Text
text' Word32
size
onTerminalCommit :: (IsTerminal a, MonadIO m) => a -> TerminalCommitCallback -> m SignalHandlerId
onTerminalCommit :: a -> TerminalCommitCallback -> m SignalHandlerId
onTerminalCommit a
obj TerminalCommitCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCommitCallback
cb' = TerminalCommitCallback -> C_TerminalCommitCallback
wrap_TerminalCommitCallback TerminalCommitCallback
cb
FunPtr C_TerminalCommitCallback
cb'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCommit :: (IsTerminal a, MonadIO m) => a -> TerminalCommitCallback -> m SignalHandlerId
afterTerminalCommit :: a -> TerminalCommitCallback -> m SignalHandlerId
afterTerminalCommit a
obj TerminalCommitCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCommitCallback
cb' = TerminalCommitCallback -> C_TerminalCommitCallback
wrap_TerminalCommitCallback TerminalCommitCallback
cb
FunPtr C_TerminalCommitCallback
cb'' <- C_TerminalCommitCallback -> IO (FunPtr C_TerminalCommitCallback)
mk_TerminalCommitCallback C_TerminalCommitCallback
cb'
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
cb'' 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
#endif
type TerminalContentsChangedCallback =
IO ()
noTerminalContentsChangedCallback :: Maybe TerminalContentsChangedCallback
noTerminalContentsChangedCallback :: Maybe (IO ())
noTerminalContentsChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalContentsChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalContentsChangedCallback :: C_TerminalContentsChangedCallback -> IO (FunPtr C_TerminalContentsChangedCallback)
genClosure_TerminalContentsChanged :: MonadIO m => TerminalContentsChangedCallback -> m (GClosure C_TerminalContentsChangedCallback)
genClosure_TerminalContentsChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalContentsChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalContentsChangedCallback ::
TerminalContentsChangedCallback ->
C_TerminalContentsChangedCallback
wrap_TerminalContentsChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalContentsChanged :: (IsTerminal a, MonadIO m) => a -> TerminalContentsChangedCallback -> m SignalHandlerId
onTerminalContentsChanged :: a -> IO () -> m SignalHandlerId
onTerminalContentsChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalContentsChanged :: (IsTerminal a, MonadIO m) => a -> TerminalContentsChangedCallback -> m SignalHandlerId
afterTerminalContentsChanged :: a -> IO () -> m SignalHandlerId
afterTerminalContentsChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalContentsChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalContentsChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalCopyClipboardCallback =
IO ()
noTerminalCopyClipboardCallback :: Maybe TerminalCopyClipboardCallback
noTerminalCopyClipboardCallback :: Maybe (IO ())
noTerminalCopyClipboardCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalCopyClipboardCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCopyClipboardCallback :: C_TerminalCopyClipboardCallback -> IO (FunPtr C_TerminalCopyClipboardCallback)
genClosure_TerminalCopyClipboard :: MonadIO m => TerminalCopyClipboardCallback -> m (GClosure C_TerminalCopyClipboardCallback)
genClosure_TerminalCopyClipboard :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalCopyClipboard IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCopyClipboardCallback ::
TerminalCopyClipboardCallback ->
C_TerminalCopyClipboardCallback
wrap_TerminalCopyClipboardCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalCopyClipboard :: (IsTerminal a, MonadIO m) => a -> TerminalCopyClipboardCallback -> m SignalHandlerId
onTerminalCopyClipboard :: a -> IO () -> m SignalHandlerId
onTerminalCopyClipboard a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCopyClipboard :: (IsTerminal a, MonadIO m) => a -> TerminalCopyClipboardCallback -> m SignalHandlerId
afterTerminalCopyClipboard :: a -> IO () -> m SignalHandlerId
afterTerminalCopyClipboard a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCopyClipboardCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCopyClipboardCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalCurrentDirectoryUriChangedCallback =
IO ()
noTerminalCurrentDirectoryUriChangedCallback :: Maybe TerminalCurrentDirectoryUriChangedCallback
noTerminalCurrentDirectoryUriChangedCallback :: Maybe (IO ())
noTerminalCurrentDirectoryUriChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalCurrentDirectoryUriChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCurrentDirectoryUriChangedCallback :: C_TerminalCurrentDirectoryUriChangedCallback -> IO (FunPtr C_TerminalCurrentDirectoryUriChangedCallback)
genClosure_TerminalCurrentDirectoryUriChanged :: MonadIO m => TerminalCurrentDirectoryUriChangedCallback -> m (GClosure C_TerminalCurrentDirectoryUriChangedCallback)
genClosure_TerminalCurrentDirectoryUriChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalCurrentDirectoryUriChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCurrentDirectoryUriChangedCallback ::
TerminalCurrentDirectoryUriChangedCallback ->
C_TerminalCurrentDirectoryUriChangedCallback
wrap_TerminalCurrentDirectoryUriChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalCurrentDirectoryUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCurrentDirectoryUriChangedCallback -> m SignalHandlerId
onTerminalCurrentDirectoryUriChanged :: a -> IO () -> m SignalHandlerId
onTerminalCurrentDirectoryUriChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCurrentDirectoryUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCurrentDirectoryUriChangedCallback -> m SignalHandlerId
afterTerminalCurrentDirectoryUriChanged :: a -> IO () -> m SignalHandlerId
afterTerminalCurrentDirectoryUriChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentDirectoryUriChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentDirectoryUriChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalCurrentFileUriChangedCallback =
IO ()
noTerminalCurrentFileUriChangedCallback :: Maybe TerminalCurrentFileUriChangedCallback
noTerminalCurrentFileUriChangedCallback :: Maybe (IO ())
noTerminalCurrentFileUriChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalCurrentFileUriChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCurrentFileUriChangedCallback :: C_TerminalCurrentFileUriChangedCallback -> IO (FunPtr C_TerminalCurrentFileUriChangedCallback)
genClosure_TerminalCurrentFileUriChanged :: MonadIO m => TerminalCurrentFileUriChangedCallback -> m (GClosure C_TerminalCurrentFileUriChangedCallback)
genClosure_TerminalCurrentFileUriChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalCurrentFileUriChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCurrentFileUriChangedCallback ::
TerminalCurrentFileUriChangedCallback ->
C_TerminalCurrentFileUriChangedCallback
wrap_TerminalCurrentFileUriChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalCurrentFileUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCurrentFileUriChangedCallback -> m SignalHandlerId
onTerminalCurrentFileUriChanged :: a -> IO () -> m SignalHandlerId
onTerminalCurrentFileUriChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCurrentFileUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalCurrentFileUriChangedCallback -> m SignalHandlerId
afterTerminalCurrentFileUriChanged :: a -> IO () -> m SignalHandlerId
afterTerminalCurrentFileUriChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCurrentFileUriChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCurrentFileUriChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalCursorMovedCallback =
IO ()
noTerminalCursorMovedCallback :: Maybe TerminalCursorMovedCallback
noTerminalCursorMovedCallback :: Maybe (IO ())
noTerminalCursorMovedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalCursorMovedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalCursorMovedCallback :: C_TerminalCursorMovedCallback -> IO (FunPtr C_TerminalCursorMovedCallback)
genClosure_TerminalCursorMoved :: MonadIO m => TerminalCursorMovedCallback -> m (GClosure C_TerminalCursorMovedCallback)
genClosure_TerminalCursorMoved :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalCursorMoved IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalCursorMovedCallback ::
TerminalCursorMovedCallback ->
C_TerminalCursorMovedCallback
wrap_TerminalCursorMovedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalCursorMoved :: (IsTerminal a, MonadIO m) => a -> TerminalCursorMovedCallback -> m SignalHandlerId
onTerminalCursorMoved :: a -> IO () -> m SignalHandlerId
onTerminalCursorMoved a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalCursorMoved :: (IsTerminal a, MonadIO m) => a -> TerminalCursorMovedCallback -> m SignalHandlerId
afterTerminalCursorMoved :: a -> IO () -> m SignalHandlerId
afterTerminalCursorMoved a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalCursorMovedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalCursorMovedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalDecreaseFontSizeCallback =
IO ()
noTerminalDecreaseFontSizeCallback :: Maybe TerminalDecreaseFontSizeCallback
noTerminalDecreaseFontSizeCallback :: Maybe (IO ())
noTerminalDecreaseFontSizeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalDecreaseFontSizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalDecreaseFontSizeCallback :: C_TerminalDecreaseFontSizeCallback -> IO (FunPtr C_TerminalDecreaseFontSizeCallback)
genClosure_TerminalDecreaseFontSize :: MonadIO m => TerminalDecreaseFontSizeCallback -> m (GClosure C_TerminalDecreaseFontSizeCallback)
genClosure_TerminalDecreaseFontSize :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalDecreaseFontSize IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalDecreaseFontSizeCallback ::
TerminalDecreaseFontSizeCallback ->
C_TerminalDecreaseFontSizeCallback
wrap_TerminalDecreaseFontSizeCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalDecreaseFontSize :: (IsTerminal a, MonadIO m) => a -> TerminalDecreaseFontSizeCallback -> m SignalHandlerId
onTerminalDecreaseFontSize :: a -> IO () -> m SignalHandlerId
onTerminalDecreaseFontSize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalDecreaseFontSize :: (IsTerminal a, MonadIO m) => a -> TerminalDecreaseFontSizeCallback -> m SignalHandlerId
afterTerminalDecreaseFontSize :: a -> IO () -> m SignalHandlerId
afterTerminalDecreaseFontSize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDecreaseFontSizeCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDecreaseFontSizeCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalDeiconifyWindowCallback ["(Since version 0.60)"] #-}
type TerminalDeiconifyWindowCallback =
IO ()
noTerminalDeiconifyWindowCallback :: Maybe TerminalDeiconifyWindowCallback
noTerminalDeiconifyWindowCallback :: Maybe (IO ())
noTerminalDeiconifyWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalDeiconifyWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalDeiconifyWindowCallback :: C_TerminalDeiconifyWindowCallback -> IO (FunPtr C_TerminalDeiconifyWindowCallback)
genClosure_TerminalDeiconifyWindow :: MonadIO m => TerminalDeiconifyWindowCallback -> m (GClosure C_TerminalDeiconifyWindowCallback)
genClosure_TerminalDeiconifyWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalDeiconifyWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalDeiconifyWindowCallback ::
TerminalDeiconifyWindowCallback ->
C_TerminalDeiconifyWindowCallback
wrap_TerminalDeiconifyWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalDeiconifyWindow :: (IsTerminal a, MonadIO m) => a -> TerminalDeiconifyWindowCallback -> m SignalHandlerId
onTerminalDeiconifyWindow :: a -> IO () -> m SignalHandlerId
onTerminalDeiconifyWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalDeiconifyWindow :: (IsTerminal a, MonadIO m) => a -> TerminalDeiconifyWindowCallback -> m SignalHandlerId
afterTerminalDeiconifyWindow :: a -> IO () -> m SignalHandlerId
afterTerminalDeiconifyWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalDeiconifyWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalDeiconifyWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalEncodingChangedCallback =
IO ()
noTerminalEncodingChangedCallback :: Maybe TerminalEncodingChangedCallback
noTerminalEncodingChangedCallback :: Maybe (IO ())
noTerminalEncodingChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalEncodingChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalEncodingChangedCallback :: C_TerminalEncodingChangedCallback -> IO (FunPtr C_TerminalEncodingChangedCallback)
genClosure_TerminalEncodingChanged :: MonadIO m => TerminalEncodingChangedCallback -> m (GClosure C_TerminalEncodingChangedCallback)
genClosure_TerminalEncodingChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalEncodingChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalEncodingChangedCallback ::
TerminalEncodingChangedCallback ->
C_TerminalEncodingChangedCallback
wrap_TerminalEncodingChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalEncodingChanged :: (IsTerminal a, MonadIO m) => a -> TerminalEncodingChangedCallback -> m SignalHandlerId
onTerminalEncodingChanged :: a -> IO () -> m SignalHandlerId
onTerminalEncodingChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalEncodingChanged :: (IsTerminal a, MonadIO m) => a -> TerminalEncodingChangedCallback -> m SignalHandlerId
afterTerminalEncodingChanged :: a -> IO () -> m SignalHandlerId
afterTerminalEncodingChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEncodingChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEncodingChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalEofCallback =
IO ()
noTerminalEofCallback :: Maybe TerminalEofCallback
noTerminalEofCallback :: Maybe (IO ())
noTerminalEofCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalEofCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalEofCallback :: C_TerminalEofCallback -> IO (FunPtr C_TerminalEofCallback)
genClosure_TerminalEof :: MonadIO m => TerminalEofCallback -> m (GClosure C_TerminalEofCallback)
genClosure_TerminalEof :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalEof IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEofCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalEofCallback ::
TerminalEofCallback ->
C_TerminalEofCallback
wrap_TerminalEofCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalEofCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalEof :: (IsTerminal a, MonadIO m) => a -> TerminalEofCallback -> m SignalHandlerId
onTerminalEof :: a -> IO () -> m SignalHandlerId
onTerminalEof a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEofCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalEof :: (IsTerminal a, MonadIO m) => a -> TerminalEofCallback -> m SignalHandlerId
afterTerminalEof :: a -> IO () -> m SignalHandlerId
afterTerminalEof a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalEofCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalEofCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalHyperlinkHoverUriChangedCallback =
T.Text
-> Gdk.Rectangle.Rectangle
-> IO ()
noTerminalHyperlinkHoverUriChangedCallback :: Maybe TerminalHyperlinkHoverUriChangedCallback
noTerminalHyperlinkHoverUriChangedCallback :: Maybe TerminalHyperlinkHoverUriChangedCallback
noTerminalHyperlinkHoverUriChangedCallback = Maybe TerminalHyperlinkHoverUriChangedCallback
forall a. Maybe a
Nothing
type C_TerminalHyperlinkHoverUriChangedCallback =
Ptr () ->
CString ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalHyperlinkHoverUriChangedCallback :: C_TerminalHyperlinkHoverUriChangedCallback -> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
genClosure_TerminalHyperlinkHoverUriChanged :: MonadIO m => TerminalHyperlinkHoverUriChangedCallback -> m (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
genClosure_TerminalHyperlinkHoverUriChanged :: TerminalHyperlinkHoverUriChangedCallback
-> m (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
genClosure_TerminalHyperlinkHoverUriChanged TerminalHyperlinkHoverUriChangedCallback
cb = IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
-> m (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
-> m (GClosure C_TerminalHyperlinkHoverUriChangedCallback))
-> IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
-> m (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalHyperlinkHoverUriChangedCallback
cb' = TerminalHyperlinkHoverUriChangedCallback
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback TerminalHyperlinkHoverUriChangedCallback
cb
C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
cb' IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
-> (FunPtr C_TerminalHyperlinkHoverUriChangedCallback
-> IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback))
-> IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalHyperlinkHoverUriChangedCallback
-> IO (GClosure C_TerminalHyperlinkHoverUriChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalHyperlinkHoverUriChangedCallback ::
TerminalHyperlinkHoverUriChangedCallback ->
C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback :: TerminalHyperlinkHoverUriChangedCallback
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback TerminalHyperlinkHoverUriChangedCallback
_cb Ptr ()
_ CString
uri Ptr Rectangle
bbox Ptr ()
_ = do
Text
uri' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
uri
(ManagedPtr Rectangle -> Rectangle)
-> Ptr Rectangle -> (Rectangle -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
(ManagedPtr a -> a) -> Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient ManagedPtr Rectangle -> Rectangle
Gdk.Rectangle.Rectangle Ptr Rectangle
bbox ((Rectangle -> IO ()) -> IO ()) -> (Rectangle -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Rectangle
bbox' -> do
TerminalHyperlinkHoverUriChangedCallback
_cb Text
uri' Rectangle
bbox'
onTerminalHyperlinkHoverUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalHyperlinkHoverUriChangedCallback -> m SignalHandlerId
onTerminalHyperlinkHoverUriChanged :: a -> TerminalHyperlinkHoverUriChangedCallback -> m SignalHandlerId
onTerminalHyperlinkHoverUriChanged a
obj TerminalHyperlinkHoverUriChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalHyperlinkHoverUriChangedCallback
cb' = TerminalHyperlinkHoverUriChangedCallback
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback TerminalHyperlinkHoverUriChangedCallback
cb
FunPtr C_TerminalHyperlinkHoverUriChangedCallback
cb'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalHyperlinkHoverUriChanged :: (IsTerminal a, MonadIO m) => a -> TerminalHyperlinkHoverUriChangedCallback -> m SignalHandlerId
afterTerminalHyperlinkHoverUriChanged :: a -> TerminalHyperlinkHoverUriChangedCallback -> m SignalHandlerId
afterTerminalHyperlinkHoverUriChanged a
obj TerminalHyperlinkHoverUriChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalHyperlinkHoverUriChangedCallback
cb' = TerminalHyperlinkHoverUriChangedCallback
-> C_TerminalHyperlinkHoverUriChangedCallback
wrap_TerminalHyperlinkHoverUriChangedCallback TerminalHyperlinkHoverUriChangedCallback
cb
FunPtr C_TerminalHyperlinkHoverUriChangedCallback
cb'' <- C_TerminalHyperlinkHoverUriChangedCallback
-> IO (FunPtr C_TerminalHyperlinkHoverUriChangedCallback)
mk_TerminalHyperlinkHoverUriChangedCallback C_TerminalHyperlinkHoverUriChangedCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalIconTitleChangedCallback ["(Since version 0.54)","This signal is never emitted."] #-}
type TerminalIconTitleChangedCallback =
IO ()
noTerminalIconTitleChangedCallback :: Maybe TerminalIconTitleChangedCallback
noTerminalIconTitleChangedCallback :: Maybe (IO ())
noTerminalIconTitleChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalIconTitleChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIconTitleChangedCallback :: C_TerminalIconTitleChangedCallback -> IO (FunPtr C_TerminalIconTitleChangedCallback)
genClosure_TerminalIconTitleChanged :: MonadIO m => TerminalIconTitleChangedCallback -> m (GClosure C_TerminalIconTitleChangedCallback)
genClosure_TerminalIconTitleChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalIconTitleChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalIconTitleChangedCallback ::
TerminalIconTitleChangedCallback ->
C_TerminalIconTitleChangedCallback
wrap_TerminalIconTitleChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalIconTitleChanged :: (IsTerminal a, MonadIO m) => a -> TerminalIconTitleChangedCallback -> m SignalHandlerId
onTerminalIconTitleChanged :: a -> IO () -> m SignalHandlerId
onTerminalIconTitleChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalIconTitleChanged :: (IsTerminal a, MonadIO m) => a -> TerminalIconTitleChangedCallback -> m SignalHandlerId
afterTerminalIconTitleChanged :: a -> IO () -> m SignalHandlerId
afterTerminalIconTitleChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconTitleChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconTitleChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalIconifyWindowCallback ["(Since version 0.60)"] #-}
type TerminalIconifyWindowCallback =
IO ()
noTerminalIconifyWindowCallback :: Maybe TerminalIconifyWindowCallback
noTerminalIconifyWindowCallback :: Maybe (IO ())
noTerminalIconifyWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalIconifyWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIconifyWindowCallback :: C_TerminalIconifyWindowCallback -> IO (FunPtr C_TerminalIconifyWindowCallback)
genClosure_TerminalIconifyWindow :: MonadIO m => TerminalIconifyWindowCallback -> m (GClosure C_TerminalIconifyWindowCallback)
genClosure_TerminalIconifyWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalIconifyWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalIconifyWindowCallback ::
TerminalIconifyWindowCallback ->
C_TerminalIconifyWindowCallback
wrap_TerminalIconifyWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalIconifyWindow :: (IsTerminal a, MonadIO m) => a -> TerminalIconifyWindowCallback -> m SignalHandlerId
onTerminalIconifyWindow :: a -> IO () -> m SignalHandlerId
onTerminalIconifyWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalIconifyWindow :: (IsTerminal a, MonadIO m) => a -> TerminalIconifyWindowCallback -> m SignalHandlerId
afterTerminalIconifyWindow :: a -> IO () -> m SignalHandlerId
afterTerminalIconifyWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIconifyWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIconifyWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalIncreaseFontSizeCallback =
IO ()
noTerminalIncreaseFontSizeCallback :: Maybe TerminalIncreaseFontSizeCallback
noTerminalIncreaseFontSizeCallback :: Maybe (IO ())
noTerminalIncreaseFontSizeCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalIncreaseFontSizeCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalIncreaseFontSizeCallback :: C_TerminalIncreaseFontSizeCallback -> IO (FunPtr C_TerminalIncreaseFontSizeCallback)
genClosure_TerminalIncreaseFontSize :: MonadIO m => TerminalIncreaseFontSizeCallback -> m (GClosure C_TerminalIncreaseFontSizeCallback)
genClosure_TerminalIncreaseFontSize :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalIncreaseFontSize IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalIncreaseFontSizeCallback ::
TerminalIncreaseFontSizeCallback ->
C_TerminalIncreaseFontSizeCallback
wrap_TerminalIncreaseFontSizeCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalIncreaseFontSize :: (IsTerminal a, MonadIO m) => a -> TerminalIncreaseFontSizeCallback -> m SignalHandlerId
onTerminalIncreaseFontSize :: a -> IO () -> m SignalHandlerId
onTerminalIncreaseFontSize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalIncreaseFontSize :: (IsTerminal a, MonadIO m) => a -> TerminalIncreaseFontSizeCallback -> m SignalHandlerId
afterTerminalIncreaseFontSize :: a -> IO () -> m SignalHandlerId
afterTerminalIncreaseFontSize a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalIncreaseFontSizeCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalIncreaseFontSizeCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalLowerWindowCallback ["(Since version 0.60)"] #-}
type TerminalLowerWindowCallback =
IO ()
noTerminalLowerWindowCallback :: Maybe TerminalLowerWindowCallback
noTerminalLowerWindowCallback :: Maybe (IO ())
noTerminalLowerWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalLowerWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalLowerWindowCallback :: C_TerminalLowerWindowCallback -> IO (FunPtr C_TerminalLowerWindowCallback)
genClosure_TerminalLowerWindow :: MonadIO m => TerminalLowerWindowCallback -> m (GClosure C_TerminalLowerWindowCallback)
genClosure_TerminalLowerWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalLowerWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalLowerWindowCallback ::
TerminalLowerWindowCallback ->
C_TerminalLowerWindowCallback
wrap_TerminalLowerWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalLowerWindow :: (IsTerminal a, MonadIO m) => a -> TerminalLowerWindowCallback -> m SignalHandlerId
onTerminalLowerWindow :: a -> IO () -> m SignalHandlerId
onTerminalLowerWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalLowerWindow :: (IsTerminal a, MonadIO m) => a -> TerminalLowerWindowCallback -> m SignalHandlerId
afterTerminalLowerWindow :: a -> IO () -> m SignalHandlerId
afterTerminalLowerWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalLowerWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalLowerWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalMaximizeWindowCallback ["(Since version 0.60)"] #-}
type TerminalMaximizeWindowCallback =
IO ()
noTerminalMaximizeWindowCallback :: Maybe TerminalMaximizeWindowCallback
noTerminalMaximizeWindowCallback :: Maybe (IO ())
noTerminalMaximizeWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalMaximizeWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalMaximizeWindowCallback :: C_TerminalMaximizeWindowCallback -> IO (FunPtr C_TerminalMaximizeWindowCallback)
genClosure_TerminalMaximizeWindow :: MonadIO m => TerminalMaximizeWindowCallback -> m (GClosure C_TerminalMaximizeWindowCallback)
genClosure_TerminalMaximizeWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalMaximizeWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalMaximizeWindowCallback ::
TerminalMaximizeWindowCallback ->
C_TerminalMaximizeWindowCallback
wrap_TerminalMaximizeWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalMaximizeWindow :: (IsTerminal a, MonadIO m) => a -> TerminalMaximizeWindowCallback -> m SignalHandlerId
onTerminalMaximizeWindow :: a -> IO () -> m SignalHandlerId
onTerminalMaximizeWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalMaximizeWindow :: (IsTerminal a, MonadIO m) => a -> TerminalMaximizeWindowCallback -> m SignalHandlerId
afterTerminalMaximizeWindow :: a -> IO () -> m SignalHandlerId
afterTerminalMaximizeWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalMaximizeWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalMaximizeWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalMoveWindowCallback ["(Since version 0.60)"] #-}
type TerminalMoveWindowCallback =
Word32
-> Word32
-> IO ()
noTerminalMoveWindowCallback :: Maybe TerminalMoveWindowCallback
noTerminalMoveWindowCallback :: Maybe TerminalCharSizeChangedCallback
noTerminalMoveWindowCallback = Maybe TerminalCharSizeChangedCallback
forall a. Maybe a
Nothing
type C_TerminalMoveWindowCallback =
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalMoveWindowCallback :: C_TerminalMoveWindowCallback -> IO (FunPtr C_TerminalMoveWindowCallback)
genClosure_TerminalMoveWindow :: MonadIO m => TerminalMoveWindowCallback -> m (GClosure C_TerminalMoveWindowCallback)
genClosure_TerminalMoveWindow :: TerminalCharSizeChangedCallback
-> m (GClosure C_TerminalCharSizeChangedCallback)
genClosure_TerminalMoveWindow TerminalCharSizeChangedCallback
cb = IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback TerminalCharSizeChangedCallback
cb
C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
cb' IO (FunPtr C_TerminalCharSizeChangedCallback)
-> (FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalMoveWindowCallback ::
TerminalMoveWindowCallback ->
C_TerminalMoveWindowCallback
wrap_TerminalMoveWindowCallback :: TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback TerminalCharSizeChangedCallback
_cb Ptr ()
_ Word32
x Word32
y Ptr ()
_ = do
TerminalCharSizeChangedCallback
_cb Word32
x Word32
y
onTerminalMoveWindow :: (IsTerminal a, MonadIO m) => a -> TerminalMoveWindowCallback -> m SignalHandlerId
onTerminalMoveWindow :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
onTerminalMoveWindow a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalMoveWindow :: (IsTerminal a, MonadIO m) => a -> TerminalMoveWindowCallback -> m SignalHandlerId
afterTerminalMoveWindow :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
afterTerminalMoveWindow a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalMoveWindowCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalMoveWindowCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' 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
#endif
type TerminalNotificationReceivedCallback =
T.Text
-> Maybe T.Text
-> IO ()
noTerminalNotificationReceivedCallback :: Maybe TerminalNotificationReceivedCallback
noTerminalNotificationReceivedCallback :: Maybe TerminalNotificationReceivedCallback
noTerminalNotificationReceivedCallback = Maybe TerminalNotificationReceivedCallback
forall a. Maybe a
Nothing
type C_TerminalNotificationReceivedCallback =
Ptr () ->
CString ->
CString ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalNotificationReceivedCallback :: C_TerminalNotificationReceivedCallback -> IO (FunPtr C_TerminalNotificationReceivedCallback)
genClosure_TerminalNotificationReceived :: MonadIO m => TerminalNotificationReceivedCallback -> m (GClosure C_TerminalNotificationReceivedCallback)
genClosure_TerminalNotificationReceived :: TerminalNotificationReceivedCallback
-> m (GClosure C_TerminalNotificationReceivedCallback)
genClosure_TerminalNotificationReceived TerminalNotificationReceivedCallback
cb = IO (GClosure C_TerminalNotificationReceivedCallback)
-> m (GClosure C_TerminalNotificationReceivedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalNotificationReceivedCallback)
-> m (GClosure C_TerminalNotificationReceivedCallback))
-> IO (GClosure C_TerminalNotificationReceivedCallback)
-> m (GClosure C_TerminalNotificationReceivedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalNotificationReceivedCallback
cb' = TerminalNotificationReceivedCallback
-> C_TerminalNotificationReceivedCallback
wrap_TerminalNotificationReceivedCallback TerminalNotificationReceivedCallback
cb
C_TerminalNotificationReceivedCallback
-> IO (FunPtr C_TerminalNotificationReceivedCallback)
mk_TerminalNotificationReceivedCallback C_TerminalNotificationReceivedCallback
cb' IO (FunPtr C_TerminalNotificationReceivedCallback)
-> (FunPtr C_TerminalNotificationReceivedCallback
-> IO (GClosure C_TerminalNotificationReceivedCallback))
-> IO (GClosure C_TerminalNotificationReceivedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalNotificationReceivedCallback
-> IO (GClosure C_TerminalNotificationReceivedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalNotificationReceivedCallback ::
TerminalNotificationReceivedCallback ->
C_TerminalNotificationReceivedCallback
wrap_TerminalNotificationReceivedCallback :: TerminalNotificationReceivedCallback
-> C_TerminalNotificationReceivedCallback
wrap_TerminalNotificationReceivedCallback TerminalNotificationReceivedCallback
_cb Ptr ()
_ CString
summary CString
body Ptr ()
_ = do
Text
summary' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
summary
Maybe Text
maybeBody <-
if CString
body CString -> CString -> Bool
forall a. Eq a => a -> a -> Bool
== CString
forall a. Ptr a
nullPtr
then Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
forall a. Maybe a
Nothing
else do
Text
body' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
body
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text -> IO (Maybe Text)) -> Maybe Text -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ Text -> Maybe Text
forall a. a -> Maybe a
Just Text
body'
TerminalNotificationReceivedCallback
_cb Text
summary' Maybe Text
maybeBody
onTerminalNotificationReceived :: (IsTerminal a, MonadIO m) => a -> TerminalNotificationReceivedCallback -> m SignalHandlerId
onTerminalNotificationReceived :: a -> TerminalNotificationReceivedCallback -> m SignalHandlerId
onTerminalNotificationReceived a
obj TerminalNotificationReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalNotificationReceivedCallback
cb' = TerminalNotificationReceivedCallback
-> C_TerminalNotificationReceivedCallback
wrap_TerminalNotificationReceivedCallback TerminalNotificationReceivedCallback
cb
FunPtr C_TerminalNotificationReceivedCallback
cb'' <- C_TerminalNotificationReceivedCallback
-> IO (FunPtr C_TerminalNotificationReceivedCallback)
mk_TerminalNotificationReceivedCallback C_TerminalNotificationReceivedCallback
cb'
a
-> Text
-> FunPtr C_TerminalNotificationReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"notification-received" FunPtr C_TerminalNotificationReceivedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalNotificationReceived :: (IsTerminal a, MonadIO m) => a -> TerminalNotificationReceivedCallback -> m SignalHandlerId
afterTerminalNotificationReceived :: a -> TerminalNotificationReceivedCallback -> m SignalHandlerId
afterTerminalNotificationReceived a
obj TerminalNotificationReceivedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalNotificationReceivedCallback
cb' = TerminalNotificationReceivedCallback
-> C_TerminalNotificationReceivedCallback
wrap_TerminalNotificationReceivedCallback TerminalNotificationReceivedCallback
cb
FunPtr C_TerminalNotificationReceivedCallback
cb'' <- C_TerminalNotificationReceivedCallback
-> IO (FunPtr C_TerminalNotificationReceivedCallback)
mk_TerminalNotificationReceivedCallback C_TerminalNotificationReceivedCallback
cb'
a
-> Text
-> FunPtr C_TerminalNotificationReceivedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"notification-received" FunPtr C_TerminalNotificationReceivedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalNotificationReceivedSignalInfo
instance SignalInfo TerminalNotificationReceivedSignalInfo where
type HaskellCallbackType TerminalNotificationReceivedSignalInfo = TerminalNotificationReceivedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalNotificationReceivedCallback cb
cb'' <- mk_TerminalNotificationReceivedCallback cb'
connectSignalFunPtr obj "notification-received" cb'' connectMode detail
#endif
type TerminalPasteClipboardCallback =
IO ()
noTerminalPasteClipboardCallback :: Maybe TerminalPasteClipboardCallback
noTerminalPasteClipboardCallback :: Maybe (IO ())
noTerminalPasteClipboardCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalPasteClipboardCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalPasteClipboardCallback :: C_TerminalPasteClipboardCallback -> IO (FunPtr C_TerminalPasteClipboardCallback)
genClosure_TerminalPasteClipboard :: MonadIO m => TerminalPasteClipboardCallback -> m (GClosure C_TerminalPasteClipboardCallback)
genClosure_TerminalPasteClipboard :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalPasteClipboard IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalPasteClipboardCallback ::
TerminalPasteClipboardCallback ->
C_TerminalPasteClipboardCallback
wrap_TerminalPasteClipboardCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalPasteClipboard :: (IsTerminal a, MonadIO m) => a -> TerminalPasteClipboardCallback -> m SignalHandlerId
onTerminalPasteClipboard :: a -> IO () -> m SignalHandlerId
onTerminalPasteClipboard a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalPasteClipboard :: (IsTerminal a, MonadIO m) => a -> TerminalPasteClipboardCallback -> m SignalHandlerId
afterTerminalPasteClipboard :: a -> IO () -> m SignalHandlerId
afterTerminalPasteClipboard a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalPasteClipboardCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalPasteClipboardCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalRaiseWindowCallback ["(Since version 0.60)"] #-}
type TerminalRaiseWindowCallback =
IO ()
noTerminalRaiseWindowCallback :: Maybe TerminalRaiseWindowCallback
noTerminalRaiseWindowCallback :: Maybe (IO ())
noTerminalRaiseWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalRaiseWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRaiseWindowCallback :: C_TerminalRaiseWindowCallback -> IO (FunPtr C_TerminalRaiseWindowCallback)
genClosure_TerminalRaiseWindow :: MonadIO m => TerminalRaiseWindowCallback -> m (GClosure C_TerminalRaiseWindowCallback)
genClosure_TerminalRaiseWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalRaiseWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalRaiseWindowCallback ::
TerminalRaiseWindowCallback ->
C_TerminalRaiseWindowCallback
wrap_TerminalRaiseWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalRaiseWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRaiseWindowCallback -> m SignalHandlerId
onTerminalRaiseWindow :: a -> IO () -> m SignalHandlerId
onTerminalRaiseWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalRaiseWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRaiseWindowCallback -> m SignalHandlerId
afterTerminalRaiseWindow :: a -> IO () -> m SignalHandlerId
afterTerminalRaiseWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRaiseWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRaiseWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalRefreshWindowCallback ["(Since version 0.60)"] #-}
type TerminalRefreshWindowCallback =
IO ()
noTerminalRefreshWindowCallback :: Maybe TerminalRefreshWindowCallback
noTerminalRefreshWindowCallback :: Maybe (IO ())
noTerminalRefreshWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalRefreshWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRefreshWindowCallback :: C_TerminalRefreshWindowCallback -> IO (FunPtr C_TerminalRefreshWindowCallback)
genClosure_TerminalRefreshWindow :: MonadIO m => TerminalRefreshWindowCallback -> m (GClosure C_TerminalRefreshWindowCallback)
genClosure_TerminalRefreshWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalRefreshWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalRefreshWindowCallback ::
TerminalRefreshWindowCallback ->
C_TerminalRefreshWindowCallback
wrap_TerminalRefreshWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalRefreshWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRefreshWindowCallback -> m SignalHandlerId
onTerminalRefreshWindow :: a -> IO () -> m SignalHandlerId
onTerminalRefreshWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalRefreshWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRefreshWindowCallback -> m SignalHandlerId
afterTerminalRefreshWindow :: a -> IO () -> m SignalHandlerId
afterTerminalRefreshWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRefreshWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRefreshWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalResizeWindowCallback =
Word32
-> Word32
-> IO ()
noTerminalResizeWindowCallback :: Maybe TerminalResizeWindowCallback
noTerminalResizeWindowCallback :: Maybe TerminalCharSizeChangedCallback
noTerminalResizeWindowCallback = Maybe TerminalCharSizeChangedCallback
forall a. Maybe a
Nothing
type C_TerminalResizeWindowCallback =
Ptr () ->
Word32 ->
Word32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalResizeWindowCallback :: C_TerminalResizeWindowCallback -> IO (FunPtr C_TerminalResizeWindowCallback)
genClosure_TerminalResizeWindow :: MonadIO m => TerminalResizeWindowCallback -> m (GClosure C_TerminalResizeWindowCallback)
genClosure_TerminalResizeWindow :: TerminalCharSizeChangedCallback
-> m (GClosure C_TerminalCharSizeChangedCallback)
genClosure_TerminalResizeWindow TerminalCharSizeChangedCallback
cb = IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
-> m (GClosure C_TerminalCharSizeChangedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback TerminalCharSizeChangedCallback
cb
C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
cb' IO (FunPtr C_TerminalCharSizeChangedCallback)
-> (FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback))
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalCharSizeChangedCallback
-> IO (GClosure C_TerminalCharSizeChangedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalResizeWindowCallback ::
TerminalResizeWindowCallback ->
C_TerminalResizeWindowCallback
wrap_TerminalResizeWindowCallback :: TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback TerminalCharSizeChangedCallback
_cb Ptr ()
_ Word32
width Word32
height Ptr ()
_ = do
TerminalCharSizeChangedCallback
_cb Word32
width Word32
height
onTerminalResizeWindow :: (IsTerminal a, MonadIO m) => a -> TerminalResizeWindowCallback -> m SignalHandlerId
onTerminalResizeWindow :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
onTerminalResizeWindow a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalResizeWindow :: (IsTerminal a, MonadIO m) => a -> TerminalResizeWindowCallback -> m SignalHandlerId
afterTerminalResizeWindow :: a -> TerminalCharSizeChangedCallback -> m SignalHandlerId
afterTerminalResizeWindow a
obj TerminalCharSizeChangedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalCharSizeChangedCallback
cb' = TerminalCharSizeChangedCallback
-> C_TerminalCharSizeChangedCallback
wrap_TerminalResizeWindowCallback TerminalCharSizeChangedCallback
cb
FunPtr C_TerminalCharSizeChangedCallback
cb'' <- C_TerminalCharSizeChangedCallback
-> IO (FunPtr C_TerminalCharSizeChangedCallback)
mk_TerminalResizeWindowCallback C_TerminalCharSizeChangedCallback
cb'
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
cb'' 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
#endif
{-# DEPRECATED TerminalRestoreWindowCallback ["(Since version 0.60)"] #-}
type TerminalRestoreWindowCallback =
IO ()
noTerminalRestoreWindowCallback :: Maybe TerminalRestoreWindowCallback
noTerminalRestoreWindowCallback :: Maybe (IO ())
noTerminalRestoreWindowCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalRestoreWindowCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalRestoreWindowCallback :: C_TerminalRestoreWindowCallback -> IO (FunPtr C_TerminalRestoreWindowCallback)
genClosure_TerminalRestoreWindow :: MonadIO m => TerminalRestoreWindowCallback -> m (GClosure C_TerminalRestoreWindowCallback)
genClosure_TerminalRestoreWindow :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalRestoreWindow IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalRestoreWindowCallback ::
TerminalRestoreWindowCallback ->
C_TerminalRestoreWindowCallback
wrap_TerminalRestoreWindowCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalRestoreWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRestoreWindowCallback -> m SignalHandlerId
onTerminalRestoreWindow :: a -> IO () -> m SignalHandlerId
onTerminalRestoreWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalRestoreWindow :: (IsTerminal a, MonadIO m) => a -> TerminalRestoreWindowCallback -> m SignalHandlerId
afterTerminalRestoreWindow :: a -> IO () -> m SignalHandlerId
afterTerminalRestoreWindow a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalRestoreWindowCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalRestoreWindowCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalSelectionChangedCallback =
IO ()
noTerminalSelectionChangedCallback :: Maybe TerminalSelectionChangedCallback
noTerminalSelectionChangedCallback :: Maybe (IO ())
noTerminalSelectionChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalSelectionChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalSelectionChangedCallback :: C_TerminalSelectionChangedCallback -> IO (FunPtr C_TerminalSelectionChangedCallback)
genClosure_TerminalSelectionChanged :: MonadIO m => TerminalSelectionChangedCallback -> m (GClosure C_TerminalSelectionChangedCallback)
genClosure_TerminalSelectionChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalSelectionChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalSelectionChangedCallback ::
TerminalSelectionChangedCallback ->
C_TerminalSelectionChangedCallback
wrap_TerminalSelectionChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalSelectionChanged :: (IsTerminal a, MonadIO m) => a -> TerminalSelectionChangedCallback -> m SignalHandlerId
onTerminalSelectionChanged :: a -> IO () -> m SignalHandlerId
onTerminalSelectionChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalSelectionChanged :: (IsTerminal a, MonadIO m) => a -> TerminalSelectionChangedCallback -> m SignalHandlerId
afterTerminalSelectionChanged :: a -> IO () -> m SignalHandlerId
afterTerminalSelectionChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalSelectionChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalSelectionChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalShellPrecmdCallback =
IO ()
noTerminalShellPrecmdCallback :: Maybe TerminalShellPrecmdCallback
noTerminalShellPrecmdCallback :: Maybe (IO ())
noTerminalShellPrecmdCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalShellPrecmdCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalShellPrecmdCallback :: C_TerminalShellPrecmdCallback -> IO (FunPtr C_TerminalShellPrecmdCallback)
genClosure_TerminalShellPrecmd :: MonadIO m => TerminalShellPrecmdCallback -> m (GClosure C_TerminalShellPrecmdCallback)
genClosure_TerminalShellPrecmd :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalShellPrecmd IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPrecmdCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPrecmdCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalShellPrecmdCallback ::
TerminalShellPrecmdCallback ->
C_TerminalShellPrecmdCallback
wrap_TerminalShellPrecmdCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalShellPrecmdCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalShellPrecmd :: (IsTerminal a, MonadIO m) => a -> TerminalShellPrecmdCallback -> m SignalHandlerId
onTerminalShellPrecmd :: a -> IO () -> m SignalHandlerId
onTerminalShellPrecmd a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPrecmdCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPrecmdCallback C_TerminalBellCallback
cb'
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
"shell-precmd" FunPtr C_TerminalBellCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalShellPrecmd :: (IsTerminal a, MonadIO m) => a -> TerminalShellPrecmdCallback -> m SignalHandlerId
afterTerminalShellPrecmd :: a -> IO () -> m SignalHandlerId
afterTerminalShellPrecmd a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPrecmdCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPrecmdCallback C_TerminalBellCallback
cb'
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
"shell-precmd" FunPtr C_TerminalBellCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalShellPrecmdSignalInfo
instance SignalInfo TerminalShellPrecmdSignalInfo where
type HaskellCallbackType TerminalShellPrecmdSignalInfo = TerminalShellPrecmdCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalShellPrecmdCallback cb
cb'' <- mk_TerminalShellPrecmdCallback cb'
connectSignalFunPtr obj "shell-precmd" cb'' connectMode detail
#endif
type TerminalShellPreexecCallback =
IO ()
noTerminalShellPreexecCallback :: Maybe TerminalShellPreexecCallback
noTerminalShellPreexecCallback :: Maybe (IO ())
noTerminalShellPreexecCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalShellPreexecCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalShellPreexecCallback :: C_TerminalShellPreexecCallback -> IO (FunPtr C_TerminalShellPreexecCallback)
genClosure_TerminalShellPreexec :: MonadIO m => TerminalShellPreexecCallback -> m (GClosure C_TerminalShellPreexecCallback)
genClosure_TerminalShellPreexec :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalShellPreexec IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPreexecCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPreexecCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalShellPreexecCallback ::
TerminalShellPreexecCallback ->
C_TerminalShellPreexecCallback
wrap_TerminalShellPreexecCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalShellPreexecCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalShellPreexec :: (IsTerminal a, MonadIO m) => a -> TerminalShellPreexecCallback -> m SignalHandlerId
onTerminalShellPreexec :: a -> IO () -> m SignalHandlerId
onTerminalShellPreexec a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPreexecCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPreexecCallback C_TerminalBellCallback
cb'
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
"shell-preexec" FunPtr C_TerminalBellCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalShellPreexec :: (IsTerminal a, MonadIO m) => a -> TerminalShellPreexecCallback -> m SignalHandlerId
afterTerminalShellPreexec :: a -> IO () -> m SignalHandlerId
afterTerminalShellPreexec a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalShellPreexecCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalShellPreexecCallback C_TerminalBellCallback
cb'
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
"shell-preexec" FunPtr C_TerminalBellCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TerminalShellPreexecSignalInfo
instance SignalInfo TerminalShellPreexecSignalInfo where
type HaskellCallbackType TerminalShellPreexecSignalInfo = TerminalShellPreexecCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TerminalShellPreexecCallback cb
cb'' <- mk_TerminalShellPreexecCallback cb'
connectSignalFunPtr obj "shell-preexec" cb'' connectMode detail
#endif
type TerminalTextDeletedCallback =
IO ()
noTerminalTextDeletedCallback :: Maybe TerminalTextDeletedCallback
noTerminalTextDeletedCallback :: Maybe (IO ())
noTerminalTextDeletedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalTextDeletedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextDeletedCallback :: C_TerminalTextDeletedCallback -> IO (FunPtr C_TerminalTextDeletedCallback)
genClosure_TerminalTextDeleted :: MonadIO m => TerminalTextDeletedCallback -> m (GClosure C_TerminalTextDeletedCallback)
genClosure_TerminalTextDeleted :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalTextDeleted IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalTextDeletedCallback ::
TerminalTextDeletedCallback ->
C_TerminalTextDeletedCallback
wrap_TerminalTextDeletedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalTextDeleted :: (IsTerminal a, MonadIO m) => a -> TerminalTextDeletedCallback -> m SignalHandlerId
onTerminalTextDeleted :: a -> IO () -> m SignalHandlerId
onTerminalTextDeleted a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalTextDeleted :: (IsTerminal a, MonadIO m) => a -> TerminalTextDeletedCallback -> m SignalHandlerId
afterTerminalTextDeleted :: a -> IO () -> m SignalHandlerId
afterTerminalTextDeleted a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextDeletedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextDeletedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalTextInsertedCallback =
IO ()
noTerminalTextInsertedCallback :: Maybe TerminalTextInsertedCallback
noTerminalTextInsertedCallback :: Maybe (IO ())
noTerminalTextInsertedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalTextInsertedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextInsertedCallback :: C_TerminalTextInsertedCallback -> IO (FunPtr C_TerminalTextInsertedCallback)
genClosure_TerminalTextInserted :: MonadIO m => TerminalTextInsertedCallback -> m (GClosure C_TerminalTextInsertedCallback)
genClosure_TerminalTextInserted :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalTextInserted IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalTextInsertedCallback ::
TerminalTextInsertedCallback ->
C_TerminalTextInsertedCallback
wrap_TerminalTextInsertedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalTextInserted :: (IsTerminal a, MonadIO m) => a -> TerminalTextInsertedCallback -> m SignalHandlerId
onTerminalTextInserted :: a -> IO () -> m SignalHandlerId
onTerminalTextInserted a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalTextInserted :: (IsTerminal a, MonadIO m) => a -> TerminalTextInsertedCallback -> m SignalHandlerId
afterTerminalTextInserted :: a -> IO () -> m SignalHandlerId
afterTerminalTextInserted a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextInsertedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextInsertedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalTextModifiedCallback =
IO ()
noTerminalTextModifiedCallback :: Maybe TerminalTextModifiedCallback
noTerminalTextModifiedCallback :: Maybe (IO ())
noTerminalTextModifiedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalTextModifiedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextModifiedCallback :: C_TerminalTextModifiedCallback -> IO (FunPtr C_TerminalTextModifiedCallback)
genClosure_TerminalTextModified :: MonadIO m => TerminalTextModifiedCallback -> m (GClosure C_TerminalTextModifiedCallback)
genClosure_TerminalTextModified :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalTextModified IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalTextModifiedCallback ::
TerminalTextModifiedCallback ->
C_TerminalTextModifiedCallback
wrap_TerminalTextModifiedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalTextModified :: (IsTerminal a, MonadIO m) => a -> TerminalTextModifiedCallback -> m SignalHandlerId
onTerminalTextModified :: a -> IO () -> m SignalHandlerId
onTerminalTextModified a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalTextModified :: (IsTerminal a, MonadIO m) => a -> TerminalTextModifiedCallback -> m SignalHandlerId
afterTerminalTextModified :: a -> IO () -> m SignalHandlerId
afterTerminalTextModified a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalTextModifiedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalTextModifiedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
type TerminalTextScrolledCallback =
Int32
-> IO ()
noTerminalTextScrolledCallback :: Maybe TerminalTextScrolledCallback
noTerminalTextScrolledCallback :: Maybe TerminalChildExitedCallback
noTerminalTextScrolledCallback = Maybe TerminalChildExitedCallback
forall a. Maybe a
Nothing
type C_TerminalTextScrolledCallback =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalTextScrolledCallback :: C_TerminalTextScrolledCallback -> IO (FunPtr C_TerminalTextScrolledCallback)
genClosure_TerminalTextScrolled :: MonadIO m => TerminalTextScrolledCallback -> m (GClosure C_TerminalTextScrolledCallback)
genClosure_TerminalTextScrolled :: TerminalChildExitedCallback
-> m (GClosure C_TerminalChildExitedCallback)
genClosure_TerminalTextScrolled TerminalChildExitedCallback
cb = IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback))
-> IO (GClosure C_TerminalChildExitedCallback)
-> m (GClosure C_TerminalChildExitedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback TerminalChildExitedCallback
cb
C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
cb' IO (FunPtr C_TerminalChildExitedCallback)
-> (FunPtr C_TerminalChildExitedCallback
-> IO (GClosure C_TerminalChildExitedCallback))
-> IO (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalChildExitedCallback
-> IO (GClosure C_TerminalChildExitedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalTextScrolledCallback ::
TerminalTextScrolledCallback ->
C_TerminalTextScrolledCallback
wrap_TerminalTextScrolledCallback :: TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback TerminalChildExitedCallback
_cb Ptr ()
_ Int32
delta Ptr ()
_ = do
TerminalChildExitedCallback
_cb Int32
delta
onTerminalTextScrolled :: (IsTerminal a, MonadIO m) => a -> TerminalTextScrolledCallback -> m SignalHandlerId
onTerminalTextScrolled :: a -> TerminalChildExitedCallback -> m SignalHandlerId
onTerminalTextScrolled a
obj TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback TerminalChildExitedCallback
cb
FunPtr C_TerminalChildExitedCallback
cb'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalTextScrolled :: (IsTerminal a, MonadIO m) => a -> TerminalTextScrolledCallback -> m SignalHandlerId
afterTerminalTextScrolled :: a -> TerminalChildExitedCallback -> m SignalHandlerId
afterTerminalTextScrolled a
obj TerminalChildExitedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalChildExitedCallback
cb' = TerminalChildExitedCallback -> C_TerminalChildExitedCallback
wrap_TerminalTextScrolledCallback TerminalChildExitedCallback
cb
FunPtr C_TerminalChildExitedCallback
cb'' <- C_TerminalChildExitedCallback
-> IO (FunPtr C_TerminalChildExitedCallback)
mk_TerminalTextScrolledCallback C_TerminalChildExitedCallback
cb'
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
cb'' 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
#endif
type TerminalWindowTitleChangedCallback =
IO ()
noTerminalWindowTitleChangedCallback :: Maybe TerminalWindowTitleChangedCallback
noTerminalWindowTitleChangedCallback :: Maybe (IO ())
noTerminalWindowTitleChangedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TerminalWindowTitleChangedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TerminalWindowTitleChangedCallback :: C_TerminalWindowTitleChangedCallback -> IO (FunPtr C_TerminalWindowTitleChangedCallback)
genClosure_TerminalWindowTitleChanged :: MonadIO m => TerminalWindowTitleChangedCallback -> m (GClosure C_TerminalWindowTitleChangedCallback)
genClosure_TerminalWindowTitleChanged :: IO () -> m (GClosure C_TerminalBellCallback)
genClosure_TerminalWindowTitleChanged IO ()
cb = IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
-> m (GClosure C_TerminalBellCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback IO ()
cb
C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
cb' IO (FunPtr C_TerminalBellCallback)
-> (FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback))
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TerminalBellCallback
-> IO (GClosure C_TerminalBellCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TerminalWindowTitleChangedCallback ::
TerminalWindowTitleChangedCallback ->
C_TerminalWindowTitleChangedCallback
wrap_TerminalWindowTitleChangedCallback :: IO () -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTerminalWindowTitleChanged :: (IsTerminal a, MonadIO m) => a -> TerminalWindowTitleChangedCallback -> m SignalHandlerId
onTerminalWindowTitleChanged :: a -> IO () -> m SignalHandlerId
onTerminalWindowTitleChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
cb'
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
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTerminalWindowTitleChanged :: (IsTerminal a, MonadIO m) => a -> TerminalWindowTitleChangedCallback -> m SignalHandlerId
afterTerminalWindowTitleChanged :: a -> IO () -> m SignalHandlerId
afterTerminalWindowTitleChanged a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TerminalBellCallback
cb' = IO () -> C_TerminalBellCallback
wrap_TerminalWindowTitleChangedCallback IO ()
cb
FunPtr C_TerminalBellCallback
cb'' <- C_TerminalBellCallback -> IO (FunPtr C_TerminalBellCallback)
mk_TerminalWindowTitleChangedCallback C_TerminalBellCallback
cb'
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
cb'' 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
#endif
getTerminalAllowBold :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowBold :: o -> m Bool
getTerminalAllowBold o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-bold"
setTerminalAllowBold :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAllowBold :: o -> Bool -> m ()
setTerminalAllowBold o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-bold" Bool
val
constructTerminalAllowBold :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAllowBold :: Bool -> m (GValueConstruct o)
constructTerminalAllowBold Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalAllowHyperlink :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAllowHyperlink :: o -> m Bool
getTerminalAllowHyperlink o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"allow-hyperlink"
setTerminalAllowHyperlink :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAllowHyperlink :: o -> Bool -> m ()
setTerminalAllowHyperlink o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"allow-hyperlink" Bool
val
constructTerminalAllowHyperlink :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAllowHyperlink :: Bool -> m (GValueConstruct o)
constructTerminalAllowHyperlink Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalAudibleBell :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalAudibleBell :: o -> m Bool
getTerminalAudibleBell o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"audible-bell"
setTerminalAudibleBell :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalAudibleBell :: o -> Bool -> m ()
setTerminalAudibleBell o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"audible-bell" Bool
val
constructTerminalAudibleBell :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalAudibleBell :: Bool -> m (GValueConstruct o)
constructTerminalAudibleBell Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalBackspaceBinding :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.EraseBinding
getTerminalBackspaceBinding :: o -> m EraseBinding
getTerminalBackspaceBinding o
obj = IO EraseBinding -> m EraseBinding
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> EraseBinding -> m ()
setTerminalBackspaceBinding o
obj EraseBinding
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: EraseBinding -> m (GValueConstruct o)
constructTerminalBackspaceBinding EraseBinding
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalBoldIsBright :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalBoldIsBright :: o -> m Bool
getTerminalBoldIsBright o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"bold-is-bright"
setTerminalBoldIsBright :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalBoldIsBright :: o -> Bool -> m ()
setTerminalBoldIsBright o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"bold-is-bright" Bool
val
constructTerminalBoldIsBright :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalBoldIsBright :: Bool -> m (GValueConstruct o)
constructTerminalBoldIsBright Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalCellHeightScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellHeightScale :: o -> m Double
getTerminalCellHeightScale o
obj = IO Double -> m Double
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
$ 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 :: o -> Double -> m ()
setTerminalCellHeightScale o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: Double -> m (GValueConstruct o)
constructTerminalCellHeightScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalCellWidthScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalCellWidthScale :: o -> m Double
getTerminalCellWidthScale o
obj = IO Double -> m Double
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
$ 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 :: o -> Double -> m ()
setTerminalCellWidthScale o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: Double -> m (GValueConstruct o)
constructTerminalCellWidthScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalCjkAmbiguousWidth :: (MonadIO m, IsTerminal o) => o -> m Int32
getTerminalCjkAmbiguousWidth :: o -> m Int32
getTerminalCjkAmbiguousWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"cjk-ambiguous-width"
setTerminalCjkAmbiguousWidth :: (MonadIO m, IsTerminal o) => o -> Int32 -> m ()
setTerminalCjkAmbiguousWidth :: o -> Int32 -> m ()
setTerminalCjkAmbiguousWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: Int32 -> m (GValueConstruct o)
constructTerminalCjkAmbiguousWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalCurrentContainerName :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentContainerName :: o -> m (Maybe Text)
getTerminalCurrentContainerName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"current-container-name"
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentContainerNamePropertyInfo
instance AttrInfo TerminalCurrentContainerNamePropertyInfo where
type AttrAllowedOps TerminalCurrentContainerNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalCurrentContainerNamePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCurrentContainerNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalCurrentContainerNamePropertyInfo = (~) ()
type AttrTransferType TerminalCurrentContainerNamePropertyInfo = ()
type AttrGetType TerminalCurrentContainerNamePropertyInfo = (Maybe T.Text)
type AttrLabel TerminalCurrentContainerNamePropertyInfo = "current-container-name"
type AttrOrigin TerminalCurrentContainerNamePropertyInfo = Terminal
attrGet = getTerminalCurrentContainerName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getTerminalCurrentContainerRuntime :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentContainerRuntime :: o -> m (Maybe Text)
getTerminalCurrentContainerRuntime o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"current-container-runtime"
#if defined(ENABLE_OVERLOADING)
data TerminalCurrentContainerRuntimePropertyInfo
instance AttrInfo TerminalCurrentContainerRuntimePropertyInfo where
type AttrAllowedOps TerminalCurrentContainerRuntimePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TerminalCurrentContainerRuntimePropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalCurrentContainerRuntimePropertyInfo = (~) ()
type AttrTransferTypeConstraint TerminalCurrentContainerRuntimePropertyInfo = (~) ()
type AttrTransferType TerminalCurrentContainerRuntimePropertyInfo = ()
type AttrGetType TerminalCurrentContainerRuntimePropertyInfo = (Maybe T.Text)
type AttrLabel TerminalCurrentContainerRuntimePropertyInfo = "current-container-runtime"
type AttrOrigin TerminalCurrentContainerRuntimePropertyInfo = Terminal
attrGet = getTerminalCurrentContainerRuntime
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getTerminalCurrentDirectoryUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentDirectoryUri :: o -> m (Maybe Text)
getTerminalCurrentDirectoryUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#endif
getTerminalCurrentFileUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalCurrentFileUri :: o -> m (Maybe Text)
getTerminalCurrentFileUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#endif
getTerminalCursorBlinkMode :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.CursorBlinkMode
getTerminalCursorBlinkMode :: o -> m CursorBlinkMode
getTerminalCursorBlinkMode o
obj = IO CursorBlinkMode -> m CursorBlinkMode
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
$ 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 :: o -> CursorBlinkMode -> m ()
setTerminalCursorBlinkMode o
obj CursorBlinkMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: CursorBlinkMode -> m (GValueConstruct o)
constructTerminalCursorBlinkMode CursorBlinkMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalCursorShape :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.CursorShape
getTerminalCursorShape :: o -> m CursorShape
getTerminalCursorShape o
obj = IO CursorShape -> m CursorShape
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
$ 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 :: o -> CursorShape -> m ()
setTerminalCursorShape o
obj CursorShape
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: CursorShape -> m (GValueConstruct o)
constructTerminalCursorShape CursorShape
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalDeleteBinding :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.EraseBinding
getTerminalDeleteBinding :: o -> m EraseBinding
getTerminalDeleteBinding o
obj = IO EraseBinding -> m EraseBinding
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> EraseBinding -> m ()
setTerminalDeleteBinding o
obj EraseBinding
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: EraseBinding -> m (GValueConstruct o)
constructTerminalDeleteBinding EraseBinding
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalEnableBidi :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableBidi :: o -> m Bool
getTerminalEnableBidi o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-bidi"
setTerminalEnableBidi :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableBidi :: o -> Bool -> m ()
setTerminalEnableBidi o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-bidi" Bool
val
constructTerminalEnableBidi :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableBidi :: Bool -> m (GValueConstruct o)
constructTerminalEnableBidi Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalEnableShaping :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalEnableShaping :: o -> m Bool
getTerminalEnableShaping o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"enable-shaping"
setTerminalEnableShaping :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalEnableShaping :: o -> Bool -> m ()
setTerminalEnableShaping o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"enable-shaping" Bool
val
constructTerminalEnableShaping :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalEnableShaping :: Bool -> m (GValueConstruct o)
constructTerminalEnableShaping Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalEncoding :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalEncoding :: o -> m (Maybe Text)
getTerminalEncoding o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"encoding"
setTerminalEncoding :: (MonadIO m, IsTerminal o) => o -> T.Text -> m ()
setTerminalEncoding :: o -> Text -> m ()
setTerminalEncoding o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj 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 :: Text -> m (GValueConstruct o)
constructTerminalEncoding Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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 :: o -> m ()
clearTerminalEncoding o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj 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
#endif
getTerminalFontDesc :: (MonadIO m, IsTerminal o) => o -> m (Maybe Pango.FontDescription.FontDescription)
getTerminalFontDesc :: o -> m (Maybe FontDescription)
getTerminalFontDesc o
obj = IO (Maybe FontDescription) -> m (Maybe FontDescription)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 :: o -> FontDescription -> m ()
setTerminalFontDesc o
obj FontDescription
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe 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 :: FontDescription -> m (GValueConstruct o)
constructTerminalFontDesc FontDescription
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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 :: o -> m ()
clearTerminalFontDesc o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe 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
#endif
getTerminalFontScale :: (MonadIO m, IsTerminal o) => o -> m Double
getTerminalFontScale :: o -> m Double
getTerminalFontScale o
obj = IO Double -> m Double
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
$ 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 :: o -> Double -> m ()
setTerminalFontScale o
obj Double
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: Double -> m (GValueConstruct o)
constructTerminalFontScale Double
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalHyperlinkHoverUri :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalHyperlinkHoverUri :: o -> m (Maybe Text)
getTerminalHyperlinkHoverUri o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#endif
getTerminalIconTitle :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalIconTitle :: o -> m (Maybe Text)
getTerminalIconTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#endif
getTerminalInputEnabled :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalInputEnabled :: o -> m Bool
getTerminalInputEnabled o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"input-enabled"
setTerminalInputEnabled :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalInputEnabled :: o -> Bool -> m ()
setTerminalInputEnabled o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"input-enabled" Bool
val
constructTerminalInputEnabled :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalInputEnabled :: Bool -> m (GValueConstruct o)
constructTerminalInputEnabled Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalPointerAutohide :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalPointerAutohide :: o -> m Bool
getTerminalPointerAutohide o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"pointer-autohide"
setTerminalPointerAutohide :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalPointerAutohide :: o -> Bool -> m ()
setTerminalPointerAutohide o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"pointer-autohide" Bool
val
constructTerminalPointerAutohide :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalPointerAutohide :: Bool -> m (GValueConstruct o)
constructTerminalPointerAutohide Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalPty :: (MonadIO m, IsTerminal o) => o -> m Vte.Pty.Pty
getTerminalPty :: o -> m Pty
getTerminalPty o
obj = IO Pty -> m Pty
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
$ Text -> IO (Maybe Pty) -> IO Pty
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTerminalPty" (IO (Maybe Pty) -> IO Pty) -> IO (Maybe Pty) -> IO 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 :: o -> a -> m ()
setTerminalPty o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj 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 :: a -> m (GValueConstruct o)
constructTerminalPty a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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 :: o -> m ()
clearTerminalPty o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe 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 = 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
#endif
getTerminalRewrapOnResize :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalRewrapOnResize :: o -> m Bool
getTerminalRewrapOnResize o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"rewrap-on-resize"
setTerminalRewrapOnResize :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalRewrapOnResize :: o -> Bool -> m ()
setTerminalRewrapOnResize o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"rewrap-on-resize" Bool
val
constructTerminalRewrapOnResize :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalRewrapOnResize :: Bool -> m (GValueConstruct o)
constructTerminalRewrapOnResize Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalScrollOnKeystroke :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnKeystroke :: o -> m Bool
getTerminalScrollOnKeystroke o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"scroll-on-keystroke"
setTerminalScrollOnKeystroke :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollOnKeystroke :: o -> Bool -> m ()
setTerminalScrollOnKeystroke o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-on-keystroke" Bool
val
constructTerminalScrollOnKeystroke :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollOnKeystroke :: Bool -> m (GValueConstruct o)
constructTerminalScrollOnKeystroke Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalScrollOnOutput :: (MonadIO m, IsTerminal o) => o -> m Bool
getTerminalScrollOnOutput :: o -> m Bool
getTerminalScrollOnOutput o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"scroll-on-output"
setTerminalScrollOnOutput :: (MonadIO m, IsTerminal o) => o -> Bool -> m ()
setTerminalScrollOnOutput :: o -> Bool -> m ()
setTerminalScrollOnOutput o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"scroll-on-output" Bool
val
constructTerminalScrollOnOutput :: (IsTerminal o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTerminalScrollOnOutput :: Bool -> m (GValueConstruct o)
constructTerminalScrollOnOutput Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalScrollSpeed :: (MonadIO m, IsTerminal o) => o -> m Word32
getTerminalScrollSpeed :: o -> m Word32
getTerminalScrollSpeed o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"scroll-speed"
setTerminalScrollSpeed :: (MonadIO m, IsTerminal o) => o -> Word32 -> m ()
setTerminalScrollSpeed :: o -> Word32 -> m ()
setTerminalScrollSpeed o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"scroll-speed" Word32
val
constructTerminalScrollSpeed :: (IsTerminal o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTerminalScrollSpeed :: Word32 -> m (GValueConstruct o)
constructTerminalScrollSpeed Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"scroll-speed" Word32
val
#if defined(ENABLE_OVERLOADING)
data TerminalScrollSpeedPropertyInfo
instance AttrInfo TerminalScrollSpeedPropertyInfo where
type AttrAllowedOps TerminalScrollSpeedPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TerminalScrollSpeedPropertyInfo = IsTerminal
type AttrSetTypeConstraint TerminalScrollSpeedPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TerminalScrollSpeedPropertyInfo = (~) Word32
type AttrTransferType TerminalScrollSpeedPropertyInfo = Word32
type AttrGetType TerminalScrollSpeedPropertyInfo = Word32
type AttrLabel TerminalScrollSpeedPropertyInfo = "scroll-speed"
type AttrOrigin TerminalScrollSpeedPropertyInfo = Terminal
attrGet = getTerminalScrollSpeed
attrSet = setTerminalScrollSpeed
attrTransfer _ v = do
return v
attrConstruct = constructTerminalScrollSpeed
attrClear = undefined
#endif
getTerminalScrollbackLines :: (MonadIO m, IsTerminal o) => o -> m Word32
getTerminalScrollbackLines :: o -> m Word32
getTerminalScrollbackLines o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"scrollback-lines"
setTerminalScrollbackLines :: (MonadIO m, IsTerminal o) => o -> Word32 -> m ()
setTerminalScrollbackLines :: o -> Word32 -> m ()
setTerminalScrollbackLines o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"scrollback-lines" Word32
val
constructTerminalScrollbackLines :: (IsTerminal o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTerminalScrollbackLines :: Word32 -> m (GValueConstruct o)
constructTerminalScrollbackLines Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalTextBlinkMode :: (MonadIO m, IsTerminal o) => o -> m Vte.Enums.TextBlinkMode
getTerminalTextBlinkMode :: o -> m TextBlinkMode
getTerminalTextBlinkMode o
obj = IO TextBlinkMode -> m TextBlinkMode
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
$ 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 :: o -> TextBlinkMode -> m ()
setTerminalTextBlinkMode o
obj TextBlinkMode
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> 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 :: TextBlinkMode -> m (GValueConstruct o)
constructTerminalTextBlinkMode TextBlinkMode
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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
$ 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
#endif
getTerminalWindowTitle :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalWindowTitle :: o -> m (Maybe Text)
getTerminalWindowTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#endif
getTerminalWordCharExceptions :: (MonadIO m, IsTerminal o) => o -> m (Maybe T.Text)
getTerminalWordCharExceptions :: o -> m (Maybe Text)
getTerminalWordCharExceptions o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj 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
#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), '("currentContainerName", TerminalCurrentContainerNamePropertyInfo), '("currentContainerRuntime", TerminalCurrentContainerRuntimePropertyInfo), '("currentDirectoryUri", TerminalCurrentDirectoryUriPropertyInfo), '("currentFileUri", TerminalCurrentFileUriPropertyInfo), '("cursorBlinkMode", TerminalCursorBlinkModePropertyInfo), '("cursorShape", TerminalCursorShapePropertyInfo), '("deleteBinding", TerminalDeleteBindingPropertyInfo), '("doubleBuffered", Gtk.Widget.WidgetDoubleBufferedPropertyInfo), '("enableBidi", TerminalEnableBidiPropertyInfo), '("enableShaping", TerminalEnableShapingPropertyInfo), '("encoding", TerminalEncodingPropertyInfo), '("events", Gtk.Widget.WidgetEventsPropertyInfo), '("expand", Gtk.Widget.WidgetExpandPropertyInfo), '("focusOnClick", Gtk.Widget.WidgetFocusOnClickPropertyInfo), '("fontDesc", TerminalFontDescPropertyInfo), '("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), '("scrollOnKeystroke", TerminalScrollOnKeystrokePropertyInfo), '("scrollOnOutput", TerminalScrollOnOutputPropertyInfo), '("scrollSpeed", TerminalScrollSpeedPropertyInfo), '("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)] :: [(Symbol, *)])
#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
terminalCurrentContainerName :: AttrLabelProxy "currentContainerName"
terminalCurrentContainerName = AttrLabelProxy
terminalCurrentContainerRuntime :: AttrLabelProxy "currentContainerRuntime"
terminalCurrentContainerRuntime = 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
terminalEnableBidi :: AttrLabelProxy "enableBidi"
terminalEnableBidi = AttrLabelProxy
terminalEnableShaping :: AttrLabelProxy "enableShaping"
terminalEnableShaping = AttrLabelProxy
terminalEncoding :: AttrLabelProxy "encoding"
terminalEncoding = AttrLabelProxy
terminalFontDesc :: AttrLabelProxy "fontDesc"
terminalFontDesc = 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
terminalScrollOnKeystroke :: AttrLabelProxy "scrollOnKeystroke"
terminalScrollOnKeystroke = AttrLabelProxy
terminalScrollOnOutput :: AttrLabelProxy "scrollOnOutput"
terminalScrollOnOutput = AttrLabelProxy
terminalScrollSpeed :: AttrLabelProxy "scrollSpeed"
terminalScrollSpeed = AttrLabelProxy
terminalScrollbackLines :: AttrLabelProxy "scrollbackLines"
terminalScrollbackLines = AttrLabelProxy
terminalTextBlinkMode :: AttrLabelProxy "textBlinkMode"
terminalTextBlinkMode = AttrLabelProxy
terminalWindowTitle :: AttrLabelProxy "windowTitle"
terminalWindowTitle = AttrLabelProxy
terminalWordCharExceptions :: AttrLabelProxy "wordCharExceptions"
terminalWordCharExceptions = 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), '("notificationReceived", TerminalNotificationReceivedSignalInfo), '("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), '("shellPrecmd", TerminalShellPrecmdSignalInfo), '("shellPreexec", TerminalShellPreexecSignalInfo), '("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), '("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, *)])
#endif
foreign import ccall "vte_terminal_new" vte_terminal_new ::
IO (Ptr Terminal)
terminalNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Terminal
terminalNew :: m Terminal
terminalNew = IO Terminal -> m Terminal
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 (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 :: a -> m ()
terminalCopyClipboard a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalCopyClipboardMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalCopyClipboardMethodInfo a signature where
overloadedMethod = 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 :: a -> Format -> m ()
terminalCopyClipboardFormat a
terminal Format
format = IO () -> m ()
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 (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.MethodInfo TerminalCopyClipboardFormatMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalCopyPrimary a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalCopyPrimaryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalCopyPrimaryMethodInfo a signature where
overloadedMethod = terminalCopyPrimary
#endif
foreign import ccall "vte_terminal_feed" vte_terminal_feed ::
Ptr Terminal ->
Ptr Word8 ->
Int64 ->
IO ()
terminalFeed ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (ByteString)
-> m ()
terminalFeed :: a -> Maybe ByteString -> m ()
terminalFeed a
terminal Maybe ByteString
data_ = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
nullPtr
Just ByteString
jData_ -> do
Ptr Word8
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
Ptr Word8 -> IO (Ptr Word8)
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalFeedMethodInfo a signature where
overloadedMethod = terminalFeed
#endif
foreign import ccall "vte_terminal_feed_child" vte_terminal_feed_child ::
Ptr Terminal ->
Ptr Word8 ->
Int64 ->
IO ()
terminalFeedChild ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (ByteString)
-> m ()
terminalFeedChild :: a -> Maybe ByteString -> m ()
terminalFeedChild a
terminal Maybe ByteString
text = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
nullPtr
Just ByteString
jText -> do
Ptr Word8
jText' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jText
Ptr Word8 -> IO (Ptr Word8)
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedChildMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalFeedChildMethodInfo a signature where
overloadedMethod = terminalFeedChild
#endif
foreign import ccall "vte_terminal_feed_child_binary" vte_terminal_feed_child_binary ::
Ptr Terminal ->
Ptr Word8 ->
Word64 ->
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 :: a -> Maybe ByteString -> m ()
terminalFeedChildBinary a
terminal Maybe ByteString
data_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let length_ :: Word64
length_ = case Maybe ByteString
data_ of
Maybe ByteString
Nothing -> Word64
0
Just ByteString
jData_ -> Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
forall a. Ptr a
nullPtr
Just ByteString
jData_ -> do
Ptr Word8
jData_' <- ByteString -> IO (Ptr Word8)
packByteString ByteString
jData_
Ptr Word8 -> IO (Ptr Word8)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Word8
jData_'
Ptr Terminal -> Ptr Word8 -> Word64 -> IO ()
vte_terminal_feed_child_binary Ptr Terminal
terminal' Ptr Word8
maybeData_ Word64
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalFeedChildBinaryMethodInfo
instance (signature ~ (Maybe (ByteString) -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalFeedChildBinaryMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetAllowBold a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetAllowBoldMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetAllowHyperlink a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetAllowHyperlinkMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetAudibleBell a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetAudibleBellMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetBoldIsBright a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetBoldIsBrightMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
terminalGetCellHeightScale a
terminal = IO Double -> m Double
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 (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.MethodInfo TerminalGetCellHeightScaleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Double
terminalGetCellWidthScale a
terminal = IO Double -> m Double
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 (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.MethodInfo TerminalGetCellWidthScaleMethodInfo a signature where
overloadedMethod = terminalGetCellWidthScale
#endif
foreign import ccall "vte_terminal_get_char_height" vte_terminal_get_char_height ::
Ptr Terminal ->
IO CLong
terminalGetCharHeight ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m CLong
terminalGetCharHeight :: a -> m CLong
terminalGetCharHeight a
terminal = IO CLong -> m CLong
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 (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data TerminalGetCharHeightMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetCharHeightMethodInfo a signature where
overloadedMethod = terminalGetCharHeight
#endif
foreign import ccall "vte_terminal_get_char_width" vte_terminal_get_char_width ::
Ptr Terminal ->
IO CLong
terminalGetCharWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m CLong
terminalGetCharWidth :: a -> m CLong
terminalGetCharWidth a
terminal = IO CLong -> m CLong
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 (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data TerminalGetCharWidthMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetCharWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
terminalGetCjkAmbiguousWidth a
terminal = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetCjkAmbiguousWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m RGBA
terminalGetColorBackgroundForDraw a
terminal = IO RGBA -> m RGBA
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 (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.MethodInfo TerminalGetColorBackgroundForDrawMethodInfo a signature where
overloadedMethod = terminalGetColorBackgroundForDraw
#endif
foreign import ccall "vte_terminal_get_column_count" vte_terminal_get_column_count ::
Ptr Terminal ->
IO CLong
terminalGetColumnCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m CLong
terminalGetColumnCount :: a -> m CLong
terminalGetColumnCount a
terminal = IO CLong -> m CLong
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 (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data TerminalGetColumnCountMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetColumnCountMethodInfo a signature where
overloadedMethod = terminalGetColumnCount
#endif
foreign import ccall "vte_terminal_get_current_container_name" vte_terminal_get_current_container_name ::
Ptr Terminal ->
IO CString
terminalGetCurrentContainerName ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentContainerName :: a -> m (Maybe Text)
terminalGetCurrentContainerName a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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_container_name 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 (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 (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetCurrentContainerNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetCurrentContainerNameMethodInfo a signature where
overloadedMethod = terminalGetCurrentContainerName
#endif
foreign import ccall "vte_terminal_get_current_container_runtime" vte_terminal_get_current_container_runtime ::
Ptr Terminal ->
IO CString
terminalGetCurrentContainerRuntime ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentContainerRuntime :: a -> m (Maybe Text)
terminalGetCurrentContainerRuntime a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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_container_runtime 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 (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 (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data TerminalGetCurrentContainerRuntimeMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetCurrentContainerRuntimeMethodInfo a signature where
overloadedMethod = terminalGetCurrentContainerRuntime
#endif
foreign import ccall "vte_terminal_get_current_directory_uri" vte_terminal_get_current_directory_uri ::
Ptr Terminal ->
IO CString
terminalGetCurrentDirectoryUri ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentDirectoryUri :: a -> m (Maybe Text)
terminalGetCurrentDirectoryUri a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetCurrentDirectoryUriMethodInfo a signature where
overloadedMethod = terminalGetCurrentDirectoryUri
#endif
foreign import ccall "vte_terminal_get_current_file_uri" vte_terminal_get_current_file_uri ::
Ptr Terminal ->
IO CString
terminalGetCurrentFileUri ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetCurrentFileUri :: a -> m (Maybe Text)
terminalGetCurrentFileUri a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetCurrentFileUriMethodInfo a signature where
overloadedMethod = 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 :: a -> m CursorBlinkMode
terminalGetCursorBlinkMode a
terminal = IO CursorBlinkMode -> m CursorBlinkMode
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 (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.MethodInfo TerminalGetCursorBlinkModeMethodInfo a signature where
overloadedMethod = terminalGetCursorBlinkMode
#endif
foreign import ccall "vte_terminal_get_cursor_position" vte_terminal_get_cursor_position ::
Ptr Terminal ->
Ptr CLong ->
Ptr CLong ->
IO ()
terminalGetCursorPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m ((CLong, CLong))
terminalGetCursorPosition :: a -> m (CLong, CLong)
terminalGetCursorPosition a
terminal = IO (CLong, CLong) -> m (CLong, CLong)
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 CLong)
Ptr CLong
row <- IO (Ptr CLong)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr 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 (m :: * -> *) a. Monad m => a -> m a
return (CLong
column', CLong
row')
#if defined(ENABLE_OVERLOADING)
data TerminalGetCursorPositionMethodInfo
instance (signature ~ (m ((CLong, CLong))), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetCursorPositionMethodInfo a signature where
overloadedMethod = 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 :: a -> m CursorShape
terminalGetCursorShape a
terminal = IO CursorShape -> m CursorShape
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 (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.MethodInfo TerminalGetCursorShapeMethodInfo a signature where
overloadedMethod = terminalGetCursorShape
#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 :: a -> m Bool
terminalGetEnableBidi a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetEnableBidiMethodInfo a signature where
overloadedMethod = terminalGetEnableBidi
#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 :: a -> m Bool
terminalGetEnableShaping a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetEnableShapingMethodInfo a signature where
overloadedMethod = terminalGetEnableShaping
#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 :: a -> m (Maybe Text)
terminalGetEncoding a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetEncodingMethodInfo a signature where
overloadedMethod = 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 :: a -> m FontDescription
terminalGetFont a
terminal = IO FontDescription -> m FontDescription
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 (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.MethodInfo TerminalGetFontMethodInfo a signature where
overloadedMethod = terminalGetFont
#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 :: a -> m Double
terminalGetFontScale a
terminal = IO Double -> m Double
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 (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.MethodInfo TerminalGetFontScaleMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Int32 -> m Geometry
terminalGetGeometryHints a
terminal Int32
minRows Int32
minColumns = IO Geometry -> m Geometry
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 (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.MethodInfo TerminalGetGeometryHintsMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetHasSelection a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetHasSelectionMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
terminalGetIconTitle a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetIconTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetInputEnabled a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetInputEnabledMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetMouseAutohide a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetMouseAutohideMethodInfo a signature where
overloadedMethod = 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 Vte.Pty.Pty
terminalGetPty :: a -> m Pty
terminalGetPty a
terminal = IO Pty -> m Pty
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
Ptr Pty
result <- Ptr Terminal -> IO (Ptr Pty)
vte_terminal_get_pty Ptr Terminal
terminal'
Text -> Ptr Pty -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"terminalGetPty" 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
newObject ManagedPtr Pty -> Pty
Vte.Pty.Pty) Ptr Pty
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
Pty -> IO Pty
forall (m :: * -> *) a. Monad m => a -> m a
return Pty
result'
#if defined(ENABLE_OVERLOADING)
data TerminalGetPtyMethodInfo
instance (signature ~ (m Vte.Pty.Pty), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetPtyMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetRewrapOnResize a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetRewrapOnResizeMethodInfo a signature where
overloadedMethod = terminalGetRewrapOnResize
#endif
foreign import ccall "vte_terminal_get_row_count" vte_terminal_get_row_count ::
Ptr Terminal ->
IO CLong
terminalGetRowCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m CLong
terminalGetRowCount :: a -> m CLong
terminalGetRowCount a
terminal = IO CLong -> m CLong
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 (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data TerminalGetRowCountMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetRowCountMethodInfo a signature where
overloadedMethod = terminalGetRowCount
#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 :: a -> m Bool
terminalGetScrollOnKeystroke a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetScrollOnKeystrokeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalGetScrollOnOutput a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalGetScrollOnOutputMethodInfo a signature where
overloadedMethod = terminalGetScrollOnOutput
#endif
foreign import ccall "vte_terminal_get_scrollback_lines" vte_terminal_get_scrollback_lines ::
Ptr Terminal ->
IO CLong
terminalGetScrollbackLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m CLong
terminalGetScrollbackLines :: a -> m CLong
terminalGetScrollbackLines a
terminal = IO CLong -> m CLong
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 (m :: * -> *) a. Monad m => a -> m a
return CLong
result
#if defined(ENABLE_OVERLOADING)
data TerminalGetScrollbackLinesMethodInfo
instance (signature ~ (m CLong), MonadIO m, IsTerminal a) => O.MethodInfo TerminalGetScrollbackLinesMethodInfo a signature where
overloadedMethod = terminalGetScrollbackLines
#endif
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getText" Terminal) => O.MethodInfo TerminalGetTextMethodInfo o p where
overloadedMethod = undefined
#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 :: a -> m TextBlinkMode
terminalGetTextBlinkMode a
terminal = IO TextBlinkMode -> m TextBlinkMode
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 (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.MethodInfo TerminalGetTextBlinkModeMethodInfo a signature where
overloadedMethod = terminalGetTextBlinkMode
#endif
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextIncludeTrailingSpacesMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getTextIncludeTrailingSpaces" Terminal) => O.MethodInfo TerminalGetTextIncludeTrailingSpacesMethodInfo o p where
overloadedMethod = undefined
#endif
#if defined(ENABLE_OVERLOADING)
data TerminalGetTextRangeMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "getTextRange" Terminal) => O.MethodInfo TerminalGetTextRangeMethodInfo o p where
overloadedMethod = undefined
#endif
foreign import ccall "vte_terminal_get_window_title" vte_terminal_get_window_title ::
Ptr Terminal ->
IO CString
terminalGetWindowTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> m (Maybe T.Text)
terminalGetWindowTitle :: a -> m (Maybe Text)
terminalGetWindowTitle a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetWindowTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Text)
terminalGetWordCharExceptions a
terminal = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalGetWordCharExceptionsMethodInfo a signature where
overloadedMethod = terminalGetWordCharExceptions
#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 :: a -> Event -> m (Maybe Text)
terminalHyperlinkCheckEvent a
terminal Event
event = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ 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 (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 (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.MethodInfo TerminalHyperlinkCheckEventMethodInfo a signature where
overloadedMethod = 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' or @/vte_terminal_match_add_regex_full()/@ instead."] #-}
terminalMatchAddGregex ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> GLib.Regex.Regex
-> [GLib.Flags.RegexMatchFlags]
-> m Int32
terminalMatchAddGregex :: a -> Regex -> [RegexMatchFlags] -> m Int32
terminalMatchAddGregex a
terminal Regex
gregex [RegexMatchFlags]
gflags = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalMatchAddGregexMethodInfo a signature where
overloadedMethod = 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 :: a -> Regex -> Word32 -> m Int32
terminalMatchAddRegex a
terminal Regex
regex Word32
flags = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalMatchAddRegexMethodInfo a signature where
overloadedMethod = terminalMatchAddRegex
#endif
foreign import ccall "vte_terminal_match_check" vte_terminal_match_check ::
Ptr Terminal ->
CLong ->
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
-> CLong
-> CLong
-> m ((Maybe T.Text, Int32))
terminalMatchCheck :: a -> CLong -> CLong -> m (Maybe Text, Int32)
terminalMatchCheck a
terminal CLong
column CLong
row = IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
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 (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 (m :: * -> *) a. Monad m => a -> m a
return (Maybe Text
maybeResult, Int32
tag')
#if defined(ENABLE_OVERLOADING)
data TerminalMatchCheckMethodInfo
instance (signature ~ (CLong -> CLong -> m ((Maybe T.Text, Int32))), MonadIO m, IsTerminal a) => O.MethodInfo TerminalMatchCheckMethodInfo a signature where
overloadedMethod = 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 :: a -> Event -> m (Maybe Text, Int32)
terminalMatchCheckEvent a
terminal Event
event = IO (Maybe Text, Int32) -> m (Maybe Text, Int32)
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 (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 (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.MethodInfo TerminalMatchCheckEventMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
terminalMatchRemove a
terminal Int32
tag = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchRemoveMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalMatchRemoveMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalMatchRemoveAll a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalMatchRemoveAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalMatchRemoveAllMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Maybe b -> m ()
terminalMatchSetCursor a
terminal Int32
tag Maybe b
cursor = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Cursor
forall a. Ptr a
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 (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 (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.MethodInfo TerminalMatchSetCursorMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> Text -> m ()
terminalMatchSetCursorName a
terminal Int32
tag Text
cursorName = IO () -> m ()
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 (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.MethodInfo TerminalMatchSetCursorNameMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> CursorType -> m ()
terminalMatchSetCursorType a
terminal Int32
tag CursorType
cursorType = IO () -> m ()
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 (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.MethodInfo TerminalMatchSetCursorTypeMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalPasteClipboard a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalPasteClipboardMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalPasteClipboardMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalPastePrimary a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalPastePrimaryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalPastePrimaryMethodInfo a signature where
overloadedMethod = terminalPastePrimary
#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 :: a -> [PtyFlags] -> Maybe b -> m Pty
terminalPtyNewSync a
terminal [PtyFlags]
flags Maybe b
cancellable = IO Pty -> m Pty
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
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 (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 (m :: * -> *) a. Monad m => a -> m a
return Pty
result'
) (do
() -> IO ()
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.MethodInfo TerminalPtyNewSyncMethodInfo a signature where
overloadedMethod = terminalPtyNewSync
#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 :: a -> Bool -> Bool -> m ()
terminalReset a
terminal Bool
clearTabstops Bool
clearHistory = IO () -> m ()
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
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
fromEnum) Bool
clearTabstops
let clearHistory' :: CInt
clearHistory' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalResetMethodInfo
instance (signature ~ (Bool -> Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalResetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalSearchFindNext a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalSearchFindNextMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalSearchFindPrevious a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalSearchFindPreviousMethodInfo a signature where
overloadedMethod = 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 :: a -> m Regex
terminalSearchGetGregex a
terminal = IO Regex -> m Regex
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 (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.MethodInfo TerminalSearchGetGregexMethodInfo a signature where
overloadedMethod = 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 :: a -> m Regex
terminalSearchGetRegex a
terminal = IO Regex -> m Regex
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 (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.MethodInfo TerminalSearchGetRegexMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
terminalSearchGetWrapAround a
terminal = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ 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 (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.MethodInfo TerminalSearchGetWrapAroundMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Regex -> [RegexMatchFlags] -> m ()
terminalSearchSetGregex a
terminal Maybe Regex
gregex [RegexMatchFlags]
gflags = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSearchSetGregexMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Regex -> Word32 -> m ()
terminalSearchSetRegex a
terminal Maybe Regex
regex Word32
flags = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Regex
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSearchSetRegexMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSearchSetWrapAround a
terminal Bool
wrapAround = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSearchSetWrapAroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSearchSetWrapAroundMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalSelectAll a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSelectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSelectAllMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetAllowBold a
terminal Bool
allowBold = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAllowBoldMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetAllowBoldMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetAllowHyperlink a
terminal Bool
allowHyperlink = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAllowHyperlinkMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetAllowHyperlinkMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetAudibleBell a
terminal Bool
isAudible = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetAudibleBellMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetAudibleBellMethodInfo a signature where
overloadedMethod = 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 :: a -> EraseBinding -> m ()
terminalSetBackspaceBinding a
terminal EraseBinding
binding = IO () -> m ()
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 (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.MethodInfo TerminalSetBackspaceBindingMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetBoldIsBright a
terminal Bool
boldIsBright = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetBoldIsBrightMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetBoldIsBrightMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> m ()
terminalSetCellHeightScale a
terminal Double
scale = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCellHeightScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetCellHeightScaleMethodInfo a signature where
overloadedMethod = 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 :: a -> Double -> m ()
terminalSetCellWidthScale a
terminal Double
scale = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCellWidthScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetCellWidthScaleMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
terminalSetCjkAmbiguousWidth a
terminal Int32
width = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetCjkAmbiguousWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetCjkAmbiguousWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetClearBackground a
terminal Bool
setting = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetClearBackgroundMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetClearBackgroundMethodInfo a signature where
overloadedMethod = 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 :: a -> RGBA -> m ()
terminalSetColorBackground a
terminal RGBA
background = IO () -> m ()
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 (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.MethodInfo TerminalSetColorBackgroundMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe RGBA -> m ()
terminalSetColorBold a
terminal Maybe RGBA
bold = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetColorBoldMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe RGBA -> m ()
terminalSetColorCursor a
terminal Maybe RGBA
cursorBackground = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetColorCursorMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe RGBA -> m ()
terminalSetColorCursorForeground a
terminal Maybe RGBA
cursorForeground = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetColorCursorForegroundMethodInfo a signature where
overloadedMethod = 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 :: a -> RGBA -> m ()
terminalSetColorForeground a
terminal RGBA
foreground = IO () -> m ()
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 (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.MethodInfo TerminalSetColorForegroundMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe RGBA -> m ()
terminalSetColorHighlight a
terminal Maybe RGBA
highlightBackground = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetColorHighlightMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe RGBA -> m ()
terminalSetColorHighlightForeground a
terminal Maybe RGBA
highlightForeground = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetColorHighlightForegroundMethodInfo a signature where
overloadedMethod = 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 ->
Word64 ->
IO ()
terminalSetColors ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Maybe (Gdk.RGBA.RGBA)
-> Maybe (Gdk.RGBA.RGBA)
-> Maybe ([Gdk.RGBA.RGBA])
-> m ()
terminalSetColors :: a -> Maybe RGBA -> Maybe RGBA -> Maybe [RGBA] -> m ()
terminalSetColors a
terminal Maybe RGBA
foreground Maybe RGBA
background Maybe [RGBA]
palette = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
let paletteSize :: Word64
paletteSize = case Maybe [RGBA]
palette of
Maybe [RGBA]
Nothing -> Word64
0
Just [RGBA]
jPalette -> Int -> Word64
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Word64) -> Int -> Word64
forall a b. (a -> b) -> a -> b
$ [RGBA] -> 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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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 (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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
forall a. Ptr a
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)
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr RGBA
jPalette''
Ptr Terminal -> Ptr RGBA -> Ptr RGBA -> Ptr RGBA -> Word64 -> IO ()
vte_terminal_set_colors Ptr Terminal
terminal' Ptr RGBA
maybeForeground Ptr RGBA
maybeBackground Ptr RGBA
maybePalette Word64
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 (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.MethodInfo TerminalSetColorsMethodInfo a signature where
overloadedMethod = terminalSetColors
#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 :: a -> CursorBlinkMode -> m ()
terminalSetCursorBlinkMode a
terminal CursorBlinkMode
mode = IO () -> m ()
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 (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.MethodInfo TerminalSetCursorBlinkModeMethodInfo a signature where
overloadedMethod = 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 :: a -> CursorShape -> m ()
terminalSetCursorShape a
terminal CursorShape
shape = IO () -> m ()
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 (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.MethodInfo TerminalSetCursorShapeMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
terminalSetDefaultColors a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetDefaultColorsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetDefaultColorsMethodInfo a signature where
overloadedMethod = 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 :: a -> EraseBinding -> m ()
terminalSetDeleteBinding a
terminal EraseBinding
binding = IO () -> m ()
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 (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.MethodInfo TerminalSetDeleteBindingMethodInfo a signature where
overloadedMethod = terminalSetDeleteBinding
#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 :: a -> Bool -> m ()
terminalSetEnableBidi a
terminal Bool
enableBidi = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableBidiMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetEnableBidiMethodInfo a signature where
overloadedMethod = terminalSetEnableBidi
#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 :: a -> Bool -> m ()
terminalSetEnableShaping a
terminal Bool
enableShaping = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetEnableShapingMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetEnableShapingMethodInfo a signature where
overloadedMethod = terminalSetEnableShaping
#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 :: a -> Maybe Text -> m ()
terminalSetEncoding a
terminal Maybe Text
codeset = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jCodeset -> do
CString
jCodeset' <- Text -> IO CString
textToCString Text
jCodeset
CString -> IO CString
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 (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.MethodInfo TerminalSetEncodingMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe FontDescription -> m ()
terminalSetFont a
terminal Maybe FontDescription
fontDesc = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr FontDescription
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetFontMethodInfo a signature where
overloadedMethod = terminalSetFont
#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 :: a -> Double -> m ()
terminalSetFontScale a
terminal Double
scale = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetFontScaleMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetFontScaleMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
terminalSetGeometryHintsForWindow a
terminal b
window = IO () -> m ()
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 (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.MethodInfo TerminalSetGeometryHintsForWindowMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetInputEnabled a
terminal Bool
enabled = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetInputEnabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetInputEnabledMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetMouseAutohide a
terminal Bool
setting = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetMouseAutohideMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetMouseAutohideMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
terminalSetPty a
terminal Maybe b
pty = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Pty
forall a. Ptr a
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 (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 (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.MethodInfo TerminalSetPtyMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetRewrapOnResize a
terminal Bool
rewrap = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetRewrapOnResizeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetRewrapOnResizeMethodInfo a signature where
overloadedMethod = terminalSetRewrapOnResize
#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 :: a -> Bool -> m ()
terminalSetScrollOnKeystroke a
terminal Bool
scroll = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollOnKeystrokeMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetScrollOnKeystrokeMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
terminalSetScrollOnOutput a
terminal Bool
scroll = IO () -> m ()
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
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
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollOnOutputMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetScrollOnOutputMethodInfo a signature where
overloadedMethod = terminalSetScrollOnOutput
#endif
foreign import ccall "vte_terminal_set_scroll_speed" vte_terminal_set_scroll_speed ::
Ptr Terminal ->
Word32 ->
IO ()
terminalSetScrollSpeed ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> Word32
-> m ()
terminalSetScrollSpeed :: a -> Word32 -> m ()
terminalSetScrollSpeed a
terminal Word32
scrollSpeed = IO () -> m ()
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 -> Word32 -> IO ()
vte_terminal_set_scroll_speed Ptr Terminal
terminal' Word32
scrollSpeed
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
terminal
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollSpeedMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetScrollSpeedMethodInfo a signature where
overloadedMethod = terminalSetScrollSpeed
#endif
foreign import ccall "vte_terminal_set_scrollback_lines" vte_terminal_set_scrollback_lines ::
Ptr Terminal ->
CLong ->
IO ()
terminalSetScrollbackLines ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> CLong
-> m ()
terminalSetScrollbackLines :: a -> CLong -> m ()
terminalSetScrollbackLines a
terminal CLong
lines = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetScrollbackLinesMethodInfo
instance (signature ~ (CLong -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetScrollbackLinesMethodInfo a signature where
overloadedMethod = terminalSetScrollbackLines
#endif
foreign import ccall "vte_terminal_set_size" vte_terminal_set_size ::
Ptr Terminal ->
CLong ->
CLong ->
IO ()
terminalSetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTerminal a) =>
a
-> CLong
-> CLong
-> m ()
terminalSetSize :: a -> CLong -> CLong -> m ()
terminalSetSize a
terminal CLong
columns CLong
rows = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetSizeMethodInfo
instance (signature ~ (CLong -> CLong -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetSizeMethodInfo a signature where
overloadedMethod = terminalSetSize
#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 :: a -> TextBlinkMode -> m ()
terminalSetTextBlinkMode a
terminal TextBlinkMode
textBlinkMode = IO () -> m ()
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 (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.MethodInfo TerminalSetTextBlinkModeMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
terminalSetWordCharExceptions a
terminal Text
exceptions = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalSetWordCharExceptionsMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalSetWordCharExceptionsMethodInfo a signature where
overloadedMethod = terminalSetWordCharExceptions
#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 :: a
-> [PtyFlags]
-> Maybe Text
-> [String]
-> Maybe [String]
-> [SpawnFlags]
-> Maybe (IO ())
-> Int32
-> Maybe b
-> Maybe TerminalSpawnAsyncCallback
-> m ()
terminalSpawnAsync a
terminal [PtyFlags]
ptyFlags Maybe Text
workingDirectory [String]
argv Maybe [String]
envv [SpawnFlags]
spawnFlags_ Maybe (IO ())
childSetup Int32
timeout Maybe b
cancellable Maybe TerminalSpawnAsyncCallback
callback = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jWorkingDirectory -> do
CString
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
CString -> IO CString
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [String]
jEnvv -> do
Ptr CString
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
Ptr CString -> IO (Ptr CString)
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 C_SpawnChildSetupFunc
maybeChildSetup <- case Maybe (IO ())
childSetup of
Maybe (IO ())
Nothing -> FunPtr C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_SpawnChildSetupFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just IO ()
jChildSetup -> do
Ptr (FunPtr C_SpawnChildSetupFunc)
ptrchildSetup <- IO (Ptr (FunPtr C_SpawnChildSetupFunc))
forall a. Storable a => IO (Ptr a)
callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_SpawnChildSetupFunc))
FunPtr C_SpawnChildSetupFunc
jChildSetup' <- C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
GLib.Callbacks.mk_SpawnChildSetupFunc (Maybe (Ptr (FunPtr C_SpawnChildSetupFunc))
-> C_SpawnChildSetupFunc -> C_SpawnChildSetupFunc
GLib.Callbacks.wrap_SpawnChildSetupFunc (Ptr (FunPtr C_SpawnChildSetupFunc)
-> Maybe (Ptr (FunPtr C_SpawnChildSetupFunc))
forall a. a -> Maybe a
Just Ptr (FunPtr C_SpawnChildSetupFunc)
ptrchildSetup) (IO () -> C_SpawnChildSetupFunc
GLib.Callbacks.drop_closures_SpawnChildSetupFunc IO ()
jChildSetup))
Ptr (FunPtr C_SpawnChildSetupFunc)
-> FunPtr C_SpawnChildSetupFunc -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke Ptr (FunPtr C_SpawnChildSetupFunc)
ptrchildSetup FunPtr C_SpawnChildSetupFunc
jChildSetup'
FunPtr C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_SpawnChildSetupFunc
jChildSetup'
Ptr Cancellable
maybeCancellable <- case Maybe b
cancellable of
Maybe b
Nothing -> Ptr Cancellable -> IO (Ptr Cancellable)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
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 (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 (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TerminalSpawnAsyncCallback
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
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 (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 C_SpawnChildSetupFunc
-> Ptr ()
-> FunPtr C_SpawnChildSetupFunc
-> Int32
-> Ptr Cancellable
-> FunPtr C_TerminalSpawnAsyncCallback
-> C_SpawnChildSetupFunc
vte_terminal_spawn_async Ptr Terminal
terminal' CUInt
ptyFlags' CString
maybeWorkingDirectory Ptr CString
argv' Ptr CString
maybeEnvv CUInt
spawnFlags_' FunPtr C_SpawnChildSetupFunc
maybeChildSetup Ptr ()
forall a. Ptr a
childSetupData FunPtr C_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 (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.MethodInfo TerminalSpawnAsyncMethodInfo a signature where
overloadedMethod = 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 :: a
-> [PtyFlags]
-> Maybe Text
-> [String]
-> Maybe [String]
-> [SpawnFlags]
-> Maybe (IO ())
-> Maybe b
-> m Int32
terminalSpawnSync a
terminal [PtyFlags]
ptyFlags Maybe Text
workingDirectory [String]
argv Maybe [String]
envv [SpawnFlags]
spawnFlags Maybe (IO ())
childSetup Maybe b
cancellable = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ 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 (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jWorkingDirectory -> do
CString
jWorkingDirectory' <- Text -> IO CString
textToCString Text
jWorkingDirectory
CString -> IO CString
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [String]
jEnvv -> do
Ptr CString
jEnvv' <- [String] -> IO (Ptr CString)
packZeroTerminatedFileNameArray [String]
jEnvv
Ptr CString -> IO (Ptr CString)
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 C_SpawnChildSetupFunc
maybeChildSetup <- case Maybe (IO ())
childSetup of
Maybe (IO ())
Nothing -> FunPtr C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_SpawnChildSetupFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just IO ()
jChildSetup -> do
FunPtr C_SpawnChildSetupFunc
jChildSetup' <- C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
GLib.Callbacks.mk_SpawnChildSetupFunc (Maybe (Ptr (FunPtr C_SpawnChildSetupFunc))
-> C_SpawnChildSetupFunc -> C_SpawnChildSetupFunc
GLib.Callbacks.wrap_SpawnChildSetupFunc Maybe (Ptr (FunPtr C_SpawnChildSetupFunc))
forall a. Maybe a
Nothing (IO () -> C_SpawnChildSetupFunc
GLib.Callbacks.drop_closures_SpawnChildSetupFunc IO ()
jChildSetup))
FunPtr C_SpawnChildSetupFunc -> IO (FunPtr C_SpawnChildSetupFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
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 (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 C_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 C_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 C_SpawnChildSetupFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_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 (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 C_SpawnChildSetupFunc -> Ptr Any
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_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.MethodInfo TerminalSpawnSyncMethodInfo a signature where
overloadedMethod = terminalSpawnSync
#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 :: a -> m ()
terminalUnselectAll a
terminal = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalUnselectAllMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalUnselectAllMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
terminalWatchChild a
terminal Int32
childPid = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TerminalWatchChildMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTerminal a) => O.MethodInfo TerminalWatchChildMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> WriteFlags -> Maybe c -> m ()
terminalWriteContentsSync a
terminal b
stream WriteFlags
flags Maybe c
cancellable = IO () -> m ()
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 (m :: * -> *) a. Monad m => a -> m a
return Ptr Cancellable
forall a. Ptr a
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 (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 (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
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.MethodInfo TerminalWriteContentsSyncMethodInfo a signature where
overloadedMethod = terminalWriteContentsSync
#endif