module Graphics.UI.Gtk.Vte.Vte (
Terminal,
VteSelect,
VteChar(..),
TerminalEraseBinding(..),
TerminalCursorBlinkMode(..),
TerminalCursorShape(..),
RegexCompileFlags(..),
RegexMatchFlags(..),
terminalNew,
terminalImAppendMenuitems,
terminalForkCommand,
terminalForkpty,
terminalSetPty,
terminalGetPty,
terminalFeed,
terminalFeedChild,
terminalFeedChildBinary,
terminalGetChildExitStatus,
terminalSelectAll,
terminalSelectNone,
terminalCopyClipboard,
terminalPasteClipboard,
terminalCopyPrimary,
terminalPastePrimary,
terminalSetSize,
terminalSetAudibleBell,
terminalGetAudibleBell,
terminalSetVisibleBell,
terminalGetVisibleBell,
terminalSetAllowBold,
terminalGetAllowBold,
terminalSetScrollOnOutput,
terminalSetScrollOnKeystroke,
terminalSetColorBold,
terminalSetColorForeground,
terminalSetColorBackground,
terminalSetColorDim,
terminalSetColorCursor,
terminalSetColorHighlight,
terminalSetColors,
terminalSetDefaultColors,
terminalSetOpacity,
terminalSetBackgroundImage,
terminalSetBackgroundImageFile,
terminalSetBackgroundSaturation,
terminalSetBackgroundTransparent,
terminalSetBackgroundTintColor,
terminalSetScrollBackground,
terminalSetCursorShape,
terminalGetCursorShape,
terminalSetCursorBlinkMode,
terminalGetCursorBlinkMode,
terminalSetScrollbackLines,
terminalSetFont,
terminalSetFontFromString,
terminalGetFont,
terminalGetHasSelection,
terminalSetWordChars,
terminalIsWordChar,
terminalSetBackspaceBinding,
terminalSetDeleteBinding,
terminalSetMouseAutohide,
terminalGetMouseAutohide,
terminalReset,
terminalGetText,
terminalGetTextIncludeTrailingSpaces,
terminalGetTextRange,
terminalGetCursorPosition,
terminalMatchClearAll,
terminalMatchAddRegex,
terminalMatchRemove,
terminalMatchCheck,
terminalMatchSetCursor,
terminalMatchSetCursorType,
terminalMatchSetCursorName,
terminalSetEmulation,
terminalGetEmulation,
terminalGetDefaultEmulation,
terminalSetEncoding,
terminalGetEncoding,
terminalGetStatusLine,
terminalGetPadding,
terminalGetAdjustment,
terminalGetCharHeight,
terminalGetCharWidth,
terminalGetColumnCount,
terminalGetRowCount,
terminalGetIconTitle,
terminalGetWindowTitle,
terminalAllowBold,
terminalAudibleBell,
terminalBackgroundImageFile,
terminalBackgroundImagePixbuf,
terminalBackgroundOpacity,
terminalBackgroundSaturation,
terminalBackgroundTintColor,
terminalBackgroundTransparent,
terminalBackspaceBinding,
terminalCursorBlinkMode,
terminalCursorShape,
terminalDeleteBinding,
terminalEmulation,
terminalEncoding,
terminalFontDesc,
terminalIconTitle,
terminalPointerAutohide,
terminalPty,
terminalScrollBackground,
terminalScrollOnKeystroke,
terminalScrollOnOutput,
terminalScrollbackLines,
terminalVisibleBell,
terminalWindowTitle,
terminalWordChars,
beep,
charSizeChanged,
childExited,
commit,
contentsChanged,
copyClipboard,
cursorMoved,
decreaseFontSize,
deiconifyWindow,
emulationChanged,
encodingChanged,
eof,
iconTitleChanged,
iconifyWindow,
increaseFontSize,
lowerWindow,
maximizeWindow,
moveWindow,
pasteClipboard,
raiseWindow,
refreshWindow,
resizeWidnow,
restoreWindow,
selectionChanged,
setScrollAdjustments,
statusLineChanged,
textDeleted,
textInserted,
textModified,
textScrolled,
windowTitleChanged,
) where
import Control.Monad (liftM, unless)
import Data.Char
import Data.Word
import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.UTFString
import System.Glib.Properties
import System.Glib.GError
import System.Glib.Flags (Flags, fromFlags)
import Graphics.UI.Gtk.Abstract.Widget (Color)
import Graphics.UI.Gtk.Gdk.Cursor
import Graphics.Rendering.Pango.BasicTypes (FontDescription(FontDescription), makeNewFontDescription)
import Graphics.UI.Gtk.Vte.Structs
import Graphics.UI.Gtk.General.Clipboard (selectionPrimary,
selectionClipboard)
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Vte.Types
import Graphics.UI.Gtk.Vte.Signals
import System.Glib.GObject
import System.Glib.GError (propagateGError)
type VteSelect =
Int
-> Int
-> Bool
type SelectionFunc = FunPtr (((Ptr Terminal) -> (CLong -> (CLong -> ((Ptr ()) -> (IO CInt))))))
data VteChar = VteChar {
vcRow :: Int,
vcCol :: Int,
vcChar :: Char,
vcFore :: Color,
vcBack :: Color,
vcUnderline :: Bool,
vcStrikethrough :: Bool
}
attrToChar :: Char -> VteAttributes -> VteChar
attrToChar ch (VteAttributes r c f b u s) = VteChar r c ch f b u s
foreign import ccall "wrapper" mkVteSelectionFunc ::
(Ptr Terminal -> (CLong) -> (CLong) -> Ptr () -> IO (CInt))
-> IO SelectionFunc
data TerminalEraseBinding = EraseAuto
| EraseAsciiBackspace
| EraseAsciiDelete
| EraseDeleteSequence
| EraseTty
deriving (Enum,Bounded,Eq,Show)
data TerminalCursorBlinkMode = CursorBlinkSystem
| CursorBlinkOn
| CursorBlinkOff
deriving (Enum,Bounded,Eq,Show)
data TerminalCursorShape = CursorShapeBlock
| CursorShapeIbeam
| CursorShapeUnderline
deriving (Enum,Bounded,Eq,Show)
data RegexCompileFlags = GRegexCaseless
| GRegexMultiline
| GRegexDotall
| GRegexExtended
| GRegexAnchored
| GRegexDollarEndonly
| GRegexUngreedy
| GRegexRaw
| GRegexNoAutoCapture
| GRegexOptimize
| GRegexDupnames
| GRegexNewlineCr
| GRegexNewlineLf
| GRegexNewlineCrlf
deriving (Bounded,Eq,Show)
instance Enum RegexCompileFlags where
fromEnum GRegexCaseless = 1
fromEnum GRegexMultiline = 2
fromEnum GRegexDotall = 4
fromEnum GRegexExtended = 8
fromEnum GRegexAnchored = 16
fromEnum GRegexDollarEndonly = 32
fromEnum GRegexUngreedy = 512
fromEnum GRegexRaw = 2048
fromEnum GRegexNoAutoCapture = 4096
fromEnum GRegexOptimize = 8192
fromEnum GRegexDupnames = 524288
fromEnum GRegexNewlineCr = 1048576
fromEnum GRegexNewlineLf = 2097152
fromEnum GRegexNewlineCrlf = 3145728
toEnum 1 = GRegexCaseless
toEnum 2 = GRegexMultiline
toEnum 4 = GRegexDotall
toEnum 8 = GRegexExtended
toEnum 16 = GRegexAnchored
toEnum 32 = GRegexDollarEndonly
toEnum 512 = GRegexUngreedy
toEnum 2048 = GRegexRaw
toEnum 4096 = GRegexNoAutoCapture
toEnum 8192 = GRegexOptimize
toEnum 524288 = GRegexDupnames
toEnum 1048576 = GRegexNewlineCr
toEnum 2097152 = GRegexNewlineLf
toEnum 3145728 = GRegexNewlineCrlf
toEnum unmatched = error ("RegexCompileFlags.toEnum: Cannot match " ++ show unmatched)
succ GRegexCaseless = GRegexMultiline
succ GRegexMultiline = GRegexDotall
succ GRegexDotall = GRegexExtended
succ GRegexExtended = GRegexAnchored
succ GRegexAnchored = GRegexDollarEndonly
succ GRegexDollarEndonly = GRegexUngreedy
succ GRegexUngreedy = GRegexRaw
succ GRegexRaw = GRegexNoAutoCapture
succ GRegexNoAutoCapture = GRegexOptimize
succ GRegexOptimize = GRegexDupnames
succ GRegexDupnames = GRegexNewlineCr
succ GRegexNewlineCr = GRegexNewlineLf
succ GRegexNewlineLf = GRegexNewlineCrlf
succ _ = undefined
pred GRegexMultiline = GRegexCaseless
pred GRegexDotall = GRegexMultiline
pred GRegexExtended = GRegexDotall
pred GRegexAnchored = GRegexExtended
pred GRegexDollarEndonly = GRegexAnchored
pred GRegexUngreedy = GRegexDollarEndonly
pred GRegexRaw = GRegexUngreedy
pred GRegexNoAutoCapture = GRegexRaw
pred GRegexOptimize = GRegexNoAutoCapture
pred GRegexDupnames = GRegexOptimize
pred GRegexNewlineCr = GRegexDupnames
pred GRegexNewlineLf = GRegexNewlineCr
pred GRegexNewlineCrlf = GRegexNewlineLf
pred _ = undefined
enumFromTo x y | fromEnum x == fromEnum y = [ y ]
| otherwise = x : enumFromTo (succ x) y
enumFrom x = enumFromTo x GRegexNewlineCrlf
enumFromThen _ _ = error "Enum RegexCompileFlags: enumFromThen not implemented"
enumFromThenTo _ _ _ = error "Enum RegexCompileFlags: enumFromThenTo not implemented"
instance Flags RegexCompileFlags
data RegexMatchFlags = GRegexMatchAnchored
| GRegexMatchNotbol
| GRegexMatchNoteol
| GRegexMatchNotempty
| GRegexMatchPartial
| GRegexMatchNewlineCr
| GRegexMatchNewlineLf
| GRegexMatchNewlineCrlf
| GRegexMatchNewlineAny
deriving (Bounded,Eq,Show)
instance Enum RegexMatchFlags where
fromEnum GRegexMatchAnchored = 16
fromEnum GRegexMatchNotbol = 128
fromEnum GRegexMatchNoteol = 256
fromEnum GRegexMatchNotempty = 1024
fromEnum GRegexMatchPartial = 32768
fromEnum GRegexMatchNewlineCr = 1048576
fromEnum GRegexMatchNewlineLf = 2097152
fromEnum GRegexMatchNewlineCrlf = 3145728
fromEnum GRegexMatchNewlineAny = 4194304
toEnum 16 = GRegexMatchAnchored
toEnum 128 = GRegexMatchNotbol
toEnum 256 = GRegexMatchNoteol
toEnum 1024 = GRegexMatchNotempty
toEnum 32768 = GRegexMatchPartial
toEnum 1048576 = GRegexMatchNewlineCr
toEnum 2097152 = GRegexMatchNewlineLf
toEnum 3145728 = GRegexMatchNewlineCrlf
toEnum 4194304 = GRegexMatchNewlineAny
toEnum unmatched = error ("RegexMatchFlags.toEnum: Cannot match " ++ show unmatched)
succ GRegexMatchAnchored = GRegexMatchNotbol
succ GRegexMatchNotbol = GRegexMatchNoteol
succ GRegexMatchNoteol = GRegexMatchNotempty
succ GRegexMatchNotempty = GRegexMatchPartial
succ GRegexMatchPartial = GRegexMatchNewlineCr
succ GRegexMatchNewlineCr = GRegexMatchNewlineLf
succ GRegexMatchNewlineLf = GRegexMatchNewlineCrlf
succ GRegexMatchNewlineCrlf = GRegexMatchNewlineAny
succ _ = undefined
pred GRegexMatchNotbol = GRegexMatchAnchored
pred GRegexMatchNoteol = GRegexMatchNotbol
pred GRegexMatchNotempty = GRegexMatchNoteol
pred GRegexMatchPartial = GRegexMatchNotempty
pred GRegexMatchNewlineCr = GRegexMatchPartial
pred GRegexMatchNewlineLf = GRegexMatchNewlineCr
pred GRegexMatchNewlineCrlf = GRegexMatchNewlineLf
pred GRegexMatchNewlineAny = GRegexMatchNewlineCrlf
pred _ = undefined
enumFromTo x y | fromEnum x == fromEnum y = [ y ]
| otherwise = x : enumFromTo (succ x) y
enumFrom x = enumFromTo x GRegexMatchNewlineAny
enumFromThen _ _ = error "Enum RegexMatchFlags: enumFromThen not implemented"
enumFromThenTo _ _ _ = error "Enum RegexMatchFlags: enumFromThenTo not implemented"
instance Flags RegexMatchFlags
terminalNew :: IO Terminal
terminalNew =
makeNewObject mkTerminal $ liftM castPtr vte_terminal_new
terminalImAppendMenuitems ::
TerminalClass self => self
-> MenuShell
-> IO ()
terminalImAppendMenuitems terminal menushell =
(\(Terminal arg1) (MenuShell arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->vte_terminal_im_append_menuitems argPtr1 argPtr2) (toTerminal terminal) menushell
terminalForkCommand ::
TerminalClass self => self
-> (Maybe String)
-> (Maybe [String])
-> (Maybe [String])
-> (Maybe String)
-> Bool
-> Bool
-> Bool
-> IO Int
terminalForkCommand terminal command argv envv directory lastlog utmp wtmp =
liftM fromIntegral $
maybeWith withUTFString command $ \commandPtr ->
maybeWith withUTFString directory $ \dirPtr ->
maybeWith withUTFStringArray argv $ \argvPtrPtr ->
maybeWith withUTFStringArray envv $ \envvPtrPtr ->
(\(Terminal arg1) arg2 arg3 arg4 arg5 arg6 arg7 arg8 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_fork_command argPtr1 arg2 arg3 arg4 arg5 arg6 arg7 arg8)
(toTerminal terminal)
commandPtr
argvPtrPtr
envvPtrPtr
dirPtr
(fromBool lastlog)
(fromBool utmp)
(fromBool wtmp)
terminalForkpty ::
TerminalClass self => self
-> (Maybe [String])
-> (Maybe String)
-> Bool
-> Bool
-> Bool
-> IO Int
terminalForkpty terminal envv directory lastlog utmp wtmp =
liftM fromIntegral $
maybeWith withUTFString directory $ \dirPtr ->
maybeWith withUTFStringArray envv $ \envvPtrPtr ->
(\(Terminal arg1) arg2 arg3 arg4 arg5 arg6 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_forkpty argPtr1 arg2 arg3 arg4 arg5 arg6)
(toTerminal terminal)
envvPtrPtr
dirPtr
(fromBool lastlog)
(fromBool utmp)
(fromBool wtmp)
terminalSetPty ::
TerminalClass self => self
-> Int
-> IO ()
terminalSetPty terminal ptyMaster =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_pty argPtr1 arg2) (toTerminal terminal) (fromIntegral ptyMaster)
terminalGetPty ::
TerminalClass self => self
-> IO Int
terminalGetPty terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_pty argPtr1) (toTerminal terminal)
terminalFeed ::
TerminalClass self => self
-> String
-> IO ()
terminalFeed terminal string =
withUTFStringLen string $ \(strPtr, len) ->
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_feed argPtr1 arg2 arg3) (toTerminal terminal) strPtr (fromIntegral len)
terminalFeedChild ::
TerminalClass self => self
-> String
-> IO ()
terminalFeedChild terminal string =
withUTFStringLen string $ \(strPtr, len) ->
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_feed_child argPtr1 arg2 arg3) (toTerminal terminal) strPtr (fromIntegral len)
terminalFeedChildBinary ::
TerminalClass self => self
-> [Word8]
-> IO ()
terminalFeedChildBinary terminal string =
withArrayLen string $ \len strPtr ->
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_feed_child_binary argPtr1 arg2 arg3) (toTerminal terminal) (castPtr strPtr) (fromIntegral len)
terminalGetChildExitStatus ::
TerminalClass self => self
-> IO Int
terminalGetChildExitStatus terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_child_exit_status argPtr1) (toTerminal terminal)
terminalSelectAll :: TerminalClass self => self -> IO ()
terminalSelectAll terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_select_all argPtr1) (toTerminal terminal)
terminalSelectNone :: TerminalClass self => self -> IO ()
terminalSelectNone terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_select_none argPtr1) (toTerminal terminal)
terminalCopyClipboard :: TerminalClass self => self -> IO ()
terminalCopyClipboard terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_copy_clipboard argPtr1) (toTerminal terminal)
terminalPasteClipboard :: TerminalClass self => self -> IO ()
terminalPasteClipboard terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_paste_clipboard argPtr1) (toTerminal terminal)
terminalCopyPrimary :: TerminalClass self => self -> IO ()
terminalCopyPrimary terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_copy_primary argPtr1) (toTerminal terminal)
terminalPastePrimary :: TerminalClass self => self -> IO ()
terminalPastePrimary terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_paste_primary argPtr1) (toTerminal terminal)
terminalSetSize ::
TerminalClass self => self
-> Int
-> Int
-> IO ()
terminalSetSize terminal columns rows =
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_size argPtr1 arg2 arg3)
(toTerminal terminal)
(fromIntegral columns)
(fromIntegral rows)
terminalSetAudibleBell ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetAudibleBell terminal isAudible =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_audible_bell argPtr1 arg2) (toTerminal terminal) (fromBool isAudible)
terminalGetAudibleBell ::
TerminalClass self => self
-> IO Bool
terminalGetAudibleBell terminal =
liftM toBool $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_audible_bell argPtr1) (toTerminal terminal)
terminalSetVisibleBell ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetVisibleBell terminal isVisible =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_visible_bell argPtr1 arg2) (toTerminal terminal) (fromBool isVisible)
terminalGetVisibleBell ::
TerminalClass self => self
-> IO Bool
terminalGetVisibleBell terminal =
liftM toBool $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_visible_bell argPtr1) (toTerminal terminal)
terminalSetAllowBold ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetAllowBold terminal allowBold =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_allow_bold argPtr1 arg2) (toTerminal terminal) (fromBool allowBold)
terminalGetAllowBold ::
TerminalClass self => self
-> IO Bool
terminalGetAllowBold terminal =
liftM toBool $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_allow_bold argPtr1) (toTerminal terminal)
terminalSetScrollOnOutput ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetScrollOnOutput terminal scroll =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_scroll_on_output argPtr1 arg2) (toTerminal terminal) (fromBool scroll)
terminalSetScrollOnKeystroke ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetScrollOnKeystroke terminal scroll =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_scroll_on_keystroke argPtr1 arg2) (toTerminal terminal) (fromBool scroll)
terminalSetColorBold ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorBold terminal bold =
with bold $ \boldPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_bold argPtr1 arg2) (toTerminal terminal) (castPtr boldPtr)
terminalSetColorForeground ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorForeground terminal foreground =
with foreground $ \fgPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_foreground argPtr1 arg2) (toTerminal terminal) (castPtr fgPtr)
terminalSetColorBackground ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorBackground terminal background =
with background $ \bgPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_background argPtr1 arg2) (toTerminal terminal) (castPtr bgPtr)
terminalSetColorDim ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorDim terminal dim =
with dim $ \dimPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_dim argPtr1 arg2) (toTerminal terminal) (castPtr dimPtr)
terminalSetColorCursor ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorCursor terminal cursor =
with cursor $ \cursorPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_cursor argPtr1 arg2) (toTerminal terminal) (castPtr cursorPtr)
terminalSetColorHighlight ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetColorHighlight terminal highlight =
with highlight $ \hlPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_color_highlight argPtr1 arg2) (toTerminal terminal) (castPtr hlPtr)
terminalSetColors ::
TerminalClass self => self
-> Color
-> Color
-> Color
-> Int
-> IO ()
terminalSetColors terminal foreground background palette size =
with foreground $ \fPtr ->
with background $ \bPtr ->
with palette $ \pPtr ->
(\(Terminal arg1) arg2 arg3 arg4 arg5 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_colors argPtr1 arg2 arg3 arg4 arg5)
(toTerminal terminal)
(castPtr fPtr)
(castPtr bPtr)
(castPtr pPtr)
(fromIntegral size)
terminalSetDefaultColors :: TerminalClass self => self -> IO ()
terminalSetDefaultColors terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_default_colors argPtr1) (toTerminal terminal)
terminalSetOpacity ::
TerminalClass self => self
-> Int
-> IO ()
terminalSetOpacity terminal opacity =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_opacity argPtr1 arg2) (toTerminal terminal) (fromIntegral opacity)
terminalSetBackgroundImage ::
TerminalClass self => self
-> Maybe Pixbuf
-> IO ()
terminalSetBackgroundImage terminal (Just image) =
(\(Terminal arg1) (Pixbuf arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->vte_terminal_set_background_image argPtr1 argPtr2) (toTerminal terminal) image
terminalSetBackgroundImage terminal Nothing =
(\(Terminal arg1) (Pixbuf arg2) -> withForeignPtr arg1 $ \argPtr1 ->withForeignPtr arg2 $ \argPtr2 ->vte_terminal_set_background_image argPtr1 argPtr2) (toTerminal terminal) (Pixbuf nullForeignPtr)
terminalSetBackgroundImageFile ::
TerminalClass self => self
-> String
-> IO ()
terminalSetBackgroundImageFile terminal path =
withUTFString path $ \pathPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_background_image_file argPtr1 arg2) (toTerminal terminal) pathPtr
terminalSetBackgroundSaturation ::
TerminalClass self => self
-> Double
-> IO ()
terminalSetBackgroundSaturation terminal saturation =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_background_saturation argPtr1 arg2) (toTerminal terminal) (realToFrac saturation)
terminalSetBackgroundTransparent ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetBackgroundTransparent terminal transparent =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_background_transparent argPtr1 arg2) (toTerminal terminal) (fromBool transparent)
terminalSetBackgroundTintColor ::
TerminalClass self => self
-> Color
-> IO ()
terminalSetBackgroundTintColor terminal color =
with color $ \cPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_background_tint_color argPtr1 arg2) (toTerminal terminal) (castPtr cPtr)
terminalSetScrollBackground ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetScrollBackground terminal scroll =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_scroll_background argPtr1 arg2) (toTerminal terminal) (fromBool scroll)
terminalSetCursorShape ::
TerminalClass self => self
-> TerminalCursorShape
-> IO ()
terminalSetCursorShape terminal shape =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_cursor_shape argPtr1 arg2) (toTerminal terminal) $fromIntegral (fromEnum shape)
terminalGetCursorShape ::
TerminalClass self => self
-> IO TerminalCursorShape
terminalGetCursorShape terminal =
liftM (toEnum.fromIntegral) $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_cursor_shape argPtr1) (toTerminal terminal)
terminalGetCursorBlinkMode ::
TerminalClass self => self
-> IO TerminalCursorBlinkMode
terminalGetCursorBlinkMode terminal =
liftM (toEnum.fromIntegral) $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_cursor_blink_mode argPtr1) (toTerminal terminal)
terminalSetCursorBlinkMode ::
TerminalClass self => self
-> TerminalCursorBlinkMode
-> IO ()
terminalSetCursorBlinkMode terminal mode =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_cursor_blink_mode argPtr1 arg2) (toTerminal terminal) $fromIntegral (fromEnum mode)
terminalSetScrollbackLines ::
TerminalClass self => self
-> Int
-> IO ()
terminalSetScrollbackLines terminal lines =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_scrollback_lines argPtr1 arg2) (toTerminal terminal) (fromIntegral lines)
terminalSetFont ::
TerminalClass self => self
-> FontDescription
-> IO ()
terminalSetFont terminal (FontDescription fontDesc) =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_font argPtr1 arg2) (toTerminal terminal) (castPtr $ unsafeForeignPtrToPtr fontDesc)
terminalSetFontFromString ::
TerminalClass self => self
-> String
-> IO ()
terminalSetFontFromString terminal name =
withUTFString name $ \namePtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_font_from_string argPtr1 arg2) (toTerminal terminal) namePtr
terminalGetFont ::
TerminalClass self => self
-> IO FontDescription
terminalGetFont terminal = do
fdPtr <- (\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_font argPtr1) (toTerminal terminal)
makeNewFontDescription (castPtr fdPtr)
terminalGetHasSelection ::
TerminalClass self => self
-> IO Bool
terminalGetHasSelection terminal =
liftM toBool $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_has_selection argPtr1) (toTerminal terminal)
terminalSetWordChars ::
TerminalClass self => self
-> String
-> IO ()
terminalSetWordChars terminal spec =
withUTFString spec $ \specPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_word_chars argPtr1 arg2) (toTerminal terminal) specPtr
terminalIsWordChar ::
TerminalClass self => self
-> Char
-> IO Bool
terminalIsWordChar terminal c =
liftM toBool $
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_is_word_char argPtr1 arg2) (toTerminal terminal) (fromIntegral $ ord c)
terminalSetBackspaceBinding ::
TerminalClass self => self
-> TerminalEraseBinding
-> IO ()
terminalSetBackspaceBinding terminal binding =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_backspace_binding argPtr1 arg2) (toTerminal terminal) (fromIntegral (fromEnum binding))
terminalSetDeleteBinding ::
TerminalClass self => self
-> TerminalEraseBinding
-> IO ()
terminalSetDeleteBinding terminal binding =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_delete_binding argPtr1 arg2) (toTerminal terminal) (fromIntegral (fromEnum binding))
terminalSetMouseAutohide ::
TerminalClass self => self
-> Bool
-> IO ()
terminalSetMouseAutohide terminal autohide =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_mouse_autohide argPtr1 arg2) (toTerminal terminal) (fromBool autohide)
terminalGetMouseAutohide :: TerminalClass self => self -> IO Bool
terminalGetMouseAutohide terminal =
liftM toBool $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_mouse_autohide argPtr1) (toTerminal terminal)
terminalReset ::
TerminalClass self => self
-> Bool
-> Bool
-> IO ()
terminalReset terminal full clearHistory =
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_reset argPtr1 arg2 arg3) (toTerminal terminal) (fromBool full) (fromBool clearHistory)
terminalGetText ::
TerminalClass self => self
-> Maybe VteSelect
-> IO [VteChar]
terminalGetText terminal mCB = do
cbPtr <- case mCB of
Just cb -> mkVteSelectionFunc $ \_ c r _ ->
return (fromBool (cb (fromIntegral c) (fromIntegral r)))
Nothing -> return nullFunPtr
gArrPtr <- g_array_new 0 0
(fromIntegral (sizeOf (undefined :: VteAttributes)))
strPtr <- (\(Terminal arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_text argPtr1 arg2 arg3 arg4) (toTerminal terminal) cbPtr nullPtr gArrPtr
str <- if strPtr==nullPtr then return "" else peekUTFString strPtr
(len,elemPtr) <- gArrayContent (castPtr gArrPtr)
attrs <- (flip mapM) [0..len1] $ peekElemOff elemPtr
unless (cbPtr==nullFunPtr) $ freeHaskellFunPtr cbPtr
g_free (castPtr strPtr)
g_array_free gArrPtr 1
return (zipWith attrToChar str attrs)
terminalGetTextIncludeTrailingSpaces ::
TerminalClass self => self
-> Maybe VteSelect
-> IO [VteChar]
terminalGetTextIncludeTrailingSpaces terminal mCB = do
cbPtr <- case mCB of
Just cb -> mkVteSelectionFunc $ \_ c r _ ->
return (fromBool (cb (fromIntegral c) (fromIntegral r)))
Nothing -> return nullFunPtr
gArrPtr <- g_array_new 0 0
(fromIntegral (sizeOf (undefined :: VteAttributes)))
strPtr <- (\(Terminal arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_text_include_trailing_spaces argPtr1 arg2 arg3 arg4) (toTerminal terminal) cbPtr nullPtr gArrPtr
str <- if strPtr==nullPtr then return "" else peekUTFString strPtr
(len,elemPtr) <- gArrayContent (castPtr gArrPtr)
attrs <- (flip mapM) [0..len1] $ peekElemOff elemPtr
unless (cbPtr==nullFunPtr) $ freeHaskellFunPtr cbPtr
g_free (castPtr strPtr)
g_array_free gArrPtr 1
return (zipWith attrToChar str attrs)
terminalGetTextRange ::
TerminalClass self => self
-> Int
-> Int
-> Int
-> Int
-> Maybe VteSelect
-> IO [VteChar]
terminalGetTextRange terminal sRow sCol eRow eCol mCB = do
cbPtr <- case mCB of
Just cb -> mkVteSelectionFunc $ \_ c r _ ->
return (fromBool (cb (fromIntegral c) (fromIntegral r)))
Nothing -> return nullFunPtr
gArrPtr <- g_array_new 0 0
(fromIntegral (sizeOf (undefined :: VteAttributes)))
strPtr <- (\(Terminal arg1) arg2 arg3 arg4 arg5 arg6 arg7 arg8 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_text_range argPtr1 arg2 arg3 arg4 arg5 arg6 arg7 arg8) (toTerminal terminal) (fromIntegral sRow) (fromIntegral sCol) (fromIntegral eRow) (fromIntegral eCol) cbPtr nullPtr gArrPtr
str <- if strPtr==nullPtr then return "" else peekUTFString strPtr
(len,elemPtr) <- gArrayContent (castPtr gArrPtr)
attrs <- (flip mapM) [0..len1] $ peekElemOff elemPtr
unless (cbPtr==nullFunPtr) $ freeHaskellFunPtr cbPtr
g_free (castPtr strPtr)
g_array_free gArrPtr 1
return (zipWith attrToChar str attrs)
terminalGetCursorPosition ::
TerminalClass self => self
-> IO (Int, Int)
terminalGetCursorPosition terminal = do
alloca $ \cPtr ->
alloca $ \rPtr -> do
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_cursor_position argPtr1 arg2 arg3) (toTerminal terminal) cPtr rPtr
column <- peek cPtr
row <- peek rPtr
return (fromIntegral column,fromIntegral row)
terminalMatchClearAll :: TerminalClass self => self -> IO ()
terminalMatchClearAll terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_clear_all argPtr1) (toTerminal terminal)
terminalMatchAddRegex ::
TerminalClass self => self
-> String
-> [RegexCompileFlags]
-> [RegexMatchFlags]
-> IO Int
terminalMatchAddRegex terminal pattern cFlags mFlags =
withUTFString pattern $ \pat -> do
regexPtr <- propagateGError $
g_regex_new pat (fromIntegral (fromFlags cFlags))
(fromIntegral (fromFlags mFlags))
liftM fromIntegral $ (\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_add_gregex argPtr1 arg2 arg3)
(toTerminal terminal) regexPtr (fromIntegral (fromFlags mFlags))
terminalMatchRemove ::
TerminalClass self => self
-> Int
-> IO ()
terminalMatchRemove terminal tag =
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_remove argPtr1 arg2) (toTerminal terminal) (fromIntegral tag)
terminalMatchCheck ::
TerminalClass self => self
-> Int
-> Int
-> IO (Maybe (String, Int))
terminalMatchCheck terminal column row = alloca $ \tagPtr -> do
strPtr <- (\(Terminal arg1) arg2 arg3 arg4 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_check argPtr1 arg2 arg3 arg4) (toTerminal terminal)
(fromIntegral column) (fromIntegral row) tagPtr
if strPtr==nullPtr then return Nothing else do
str <- peekCString strPtr
g_free (castPtr strPtr)
if tagPtr==nullPtr then return Nothing else do
tag <- peek tagPtr
return (Just (str,fromIntegral tag))
terminalMatchSetCursor ::
TerminalClass self => self
-> Int
-> Cursor
-> IO ()
terminalMatchSetCursor terminal tag (Cursor cur) =
with (unsafeForeignPtrToPtr cur) $ \curPtr ->
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_set_cursor argPtr1 arg2 arg3) (toTerminal terminal) (fromIntegral tag) (castPtr curPtr)
terminalMatchSetCursorType ::
TerminalClass self => self
-> Int
-> CursorType
-> IO ()
terminalMatchSetCursorType terminal tag cursorType =
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_set_cursor_type argPtr1 arg2 arg3) (toTerminal terminal) (fromIntegral tag) $fromIntegral (fromEnum cursorType)
terminalMatchSetCursorName ::
TerminalClass self => self
-> Int
-> String
-> IO ()
terminalMatchSetCursorName terminal tag name =
withUTFString name $ \namePtr ->
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_match_set_cursor_name argPtr1 arg2 arg3) (toTerminal terminal) (fromIntegral tag) namePtr
terminalSetEmulation ::
TerminalClass self => self
-> String
-> IO ()
terminalSetEmulation terminal emulation =
withUTFString emulation $ \emulationPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_emulation argPtr1 arg2) (toTerminal terminal) emulationPtr
terminalGetEmulation ::
TerminalClass self => self
-> IO String
terminalGetEmulation terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_emulation argPtr1) (toTerminal terminal) >>= peekCString
terminalGetDefaultEmulation ::
TerminalClass self => self
-> IO String
terminalGetDefaultEmulation terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_default_emulation argPtr1) (toTerminal terminal) >>= peekCString
terminalSetEncoding ::
TerminalClass self => self
-> String
-> IO ()
terminalSetEncoding terminal codeset =
withUTFString codeset $ \codesetPtr ->
(\(Terminal arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_set_encoding argPtr1 arg2) (toTerminal terminal) codesetPtr
terminalGetEncoding ::
TerminalClass self => self
-> IO String
terminalGetEncoding terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_encoding argPtr1) (toTerminal terminal) >>= peekCString
terminalGetStatusLine ::
TerminalClass self => self
-> IO String
terminalGetStatusLine terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_status_line argPtr1) (toTerminal terminal) >>= peekCString
terminalGetPadding ::
TerminalClass self => self
-> IO (Int, Int)
terminalGetPadding terminal =
alloca $ \xPtr ->
alloca $ \yPtr -> do
(\(Terminal arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_padding argPtr1 arg2 arg3) (toTerminal terminal) xPtr yPtr
xpad <- peek xPtr
ypad <- peek yPtr
return (fromIntegral xpad,fromIntegral ypad)
terminalGetAdjustment ::
TerminalClass self => self
-> IO Adjustment
terminalGetAdjustment terminal =
makeNewObject mkAdjustment $ (\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_adjustment argPtr1) (toTerminal terminal)
terminalGetCharHeight ::
TerminalClass self => self
-> IO Int
terminalGetCharHeight terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_char_height argPtr1) (toTerminal terminal)
terminalGetCharWidth ::
TerminalClass self => self
-> IO Int
terminalGetCharWidth terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_char_width argPtr1) (toTerminal terminal)
terminalGetColumnCount ::
TerminalClass self => self
-> IO Int
terminalGetColumnCount terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_column_count argPtr1) (toTerminal terminal)
terminalGetRowCount ::
TerminalClass self => self
-> IO Int
terminalGetRowCount terminal =
liftM fromIntegral $
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_row_count argPtr1) (toTerminal terminal)
terminalGetIconTitle ::
TerminalClass self => self
-> IO String
terminalGetIconTitle terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_icon_title argPtr1) (toTerminal terminal) >>= peekCString
terminalGetWindowTitle ::
TerminalClass self => self
-> IO String
terminalGetWindowTitle terminal =
(\(Terminal arg1) -> withForeignPtr arg1 $ \argPtr1 ->vte_terminal_get_window_title argPtr1) (toTerminal terminal) >>= peekCString
terminalAllowBold :: TerminalClass self => Attr self Bool
terminalAllowBold = newAttr
terminalGetAllowBold
terminalSetAllowBold
terminalAudibleBell :: TerminalClass self => Attr self Bool
terminalAudibleBell = newAttr
terminalGetAudibleBell
terminalSetAudibleBell
terminalBackgroundImageFile :: TerminalClass self => Attr self String
terminalBackgroundImageFile =
newAttrFromStringProperty "background-image-file"
terminalBackgroundImagePixbuf :: TerminalClass self => Attr self (Maybe Pixbuf)
terminalBackgroundImagePixbuf =
newAttrFromMaybeObjectProperty "background-image-pixbuf"
gdk_pixbuf_get_type
terminalBackgroundOpacity :: TerminalClass self => Attr self Double
terminalBackgroundOpacity =
newAttrFromDoubleProperty "background-opacity"
terminalBackgroundSaturation :: TerminalClass self => Attr self Double
terminalBackgroundSaturation =
newAttrFromDoubleProperty "background-saturation"
terminalBackgroundTintColor :: TerminalClass self => Attr self Color
terminalBackgroundTintColor =
newAttrFromBoxedStorableProperty "background-tint-color"
gdk_color_get_type
terminalBackgroundTransparent :: TerminalClass self => Attr self Bool
terminalBackgroundTransparent =
newAttrFromBoolProperty "background-transparent"
terminalBackspaceBinding :: TerminalClass self => Attr self TerminalEraseBinding
terminalBackspaceBinding =
newAttrFromEnumProperty "backspace-binding"
vte_terminal_erase_binding_get_type
terminalCursorBlinkMode :: TerminalClass self => Attr self TerminalCursorBlinkMode
terminalCursorBlinkMode = newAttr
terminalGetCursorBlinkMode
terminalSetCursorBlinkMode
terminalCursorShape :: TerminalClass self => Attr self TerminalCursorShape
terminalCursorShape = newAttr
terminalGetCursorShape
terminalSetCursorShape
terminalDeleteBinding :: TerminalClass self => Attr self TerminalEraseBinding
terminalDeleteBinding =
newAttrFromEnumProperty "delete-binding"
vte_terminal_erase_binding_get_type
terminalEmulation :: TerminalClass self => Attr self String
terminalEmulation = newAttr
terminalGetEmulation
terminalSetEmulation
terminalEncoding :: TerminalClass self => Attr self String
terminalEncoding = newAttr
terminalGetEncoding
terminalSetEncoding
terminalFontDesc :: TerminalClass self => Attr self FontDescription
terminalFontDesc = newAttr
terminalGetFont
terminalSetFont
terminalIconTitle :: TerminalClass self => ReadAttr self String
terminalIconTitle = readAttrFromStringProperty "icon-title"
terminalPointerAutohide :: TerminalClass self => Attr self Bool
terminalPointerAutohide = newAttr
terminalGetMouseAutohide
terminalSetMouseAutohide
terminalPty :: TerminalClass self => Attr self Int
terminalPty = newAttr
terminalGetPty
terminalSetPty
terminalScrollBackground :: TerminalClass self => Attr self Bool
terminalScrollBackground =
newAttrFromBoolProperty "scroll-background"
terminalScrollOnKeystroke :: TerminalClass self => Attr self Bool
terminalScrollOnKeystroke =
newAttrFromBoolProperty "scroll-on-keystroke"
terminalScrollOnOutput :: TerminalClass self => Attr self Bool
terminalScrollOnOutput =
newAttrFromBoolProperty "scroll-on-output"
terminalScrollbackLines :: TerminalClass self => Attr self Int
terminalScrollbackLines =
newAttrFromUIntProperty "scrollback-lines"
terminalVisibleBell :: TerminalClass self => Attr self Bool
terminalVisibleBell = newAttr
terminalGetVisibleBell
terminalSetVisibleBell
terminalWindowTitle :: TerminalClass self => ReadAttr self String
terminalWindowTitle = readAttrFromStringProperty "window-title"
terminalWordChars :: TerminalClass self => Attr self String
terminalWordChars =
newAttrFromStringProperty "word-chars"
beep :: TerminalClass self => Signal self (IO ())
beep = Signal (connect_NONE__NONE "beep")
charSizeChanged :: TerminalClass self => Signal self (Int -> Int -> IO ())
charSizeChanged = Signal (connect_INT_INT__NONE "char-size-changed")
childExited :: TerminalClass self => Signal self (IO ())
childExited = Signal (connect_NONE__NONE "child-exited")
commit :: TerminalClass self => Signal self (String -> Int -> IO ())
commit = Signal (connect_STRING_INT__NONE "commit")
contentsChanged :: TerminalClass self => Signal self (IO ())
contentsChanged = Signal (connect_NONE__NONE "contents-changed")
copyClipboard :: TerminalClass self => Signal self (IO ())
copyClipboard = Signal (connect_NONE__NONE "copy-clipboard")
cursorMoved :: TerminalClass self => Signal self (IO ())
cursorMoved = Signal (connect_NONE__NONE "cursor-moved")
decreaseFontSize :: TerminalClass self => Signal self (IO ())
decreaseFontSize = Signal (connect_NONE__NONE "decrease-font-size")
deiconifyWindow :: TerminalClass self => Signal self (IO ())
deiconifyWindow = Signal (connect_NONE__NONE "deiconify-window")
emulationChanged :: TerminalClass self => Signal self (IO ())
emulationChanged = Signal (connect_NONE__NONE "emulation-changed")
encodingChanged :: TerminalClass self => Signal self (IO ())
encodingChanged = Signal (connect_NONE__NONE "encoding-changed")
eof :: TerminalClass self => Signal self (IO ())
eof = Signal (connect_NONE__NONE "eof")
iconTitleChanged :: TerminalClass self => Signal self (IO ())
iconTitleChanged = Signal (connect_NONE__NONE "icon-title-changed")
iconifyWindow :: TerminalClass self => Signal self (IO ())
iconifyWindow = Signal (connect_NONE__NONE "iconify-window")
increaseFontSize :: TerminalClass self => Signal self (IO ())
increaseFontSize = Signal (connect_NONE__NONE "increase-font-size")
lowerWindow :: TerminalClass self => Signal self (IO ())
lowerWindow = Signal (connect_NONE__NONE "lower-window")
maximizeWindow :: TerminalClass self => Signal self (IO ())
maximizeWindow = Signal (connect_NONE__NONE "maximize-window")
moveWindow :: TerminalClass self => Signal self (Word -> Word -> IO ())
moveWindow = Signal (connect_WORD_WORD__NONE "move-window")
pasteClipboard :: TerminalClass self => Signal self (IO ())
pasteClipboard = Signal (connect_NONE__NONE "paste-clipboard")
raiseWindow :: TerminalClass self => Signal self (IO ())
raiseWindow = Signal (connect_NONE__NONE "raise-window")
refreshWindow :: TerminalClass self => Signal self (IO ())
refreshWindow = Signal (connect_NONE__NONE "refresh-window")
resizeWidnow :: TerminalClass self => Signal self (Int -> Int -> IO ())
resizeWidnow = Signal (connect_INT_INT__NONE "resize-window")
restoreWindow :: TerminalClass self => Signal self (IO ())
restoreWindow = Signal (connect_NONE__NONE "restore-window")
selectionChanged :: TerminalClass self => Signal self (IO ())
selectionChanged = Signal (connect_NONE__NONE "selection-changed")
setScrollAdjustments :: TerminalClass self => Signal self (Adjustment -> Adjustment -> IO ())
setScrollAdjustments = Signal (connect_OBJECT_OBJECT__NONE "set-scroll-adjustments")
statusLineChanged :: TerminalClass self => Signal self (IO ())
statusLineChanged = Signal (connect_NONE__NONE "status-line-changed")
textDeleted :: TerminalClass self => Signal self (IO ())
textDeleted = Signal (connect_NONE__NONE "text-deleted")
textInserted :: TerminalClass self => Signal self (IO ())
textInserted = Signal (connect_NONE__NONE "text-inserted")
textModified :: TerminalClass self => Signal self (IO ())
textModified = Signal (connect_NONE__NONE "text-modified")
textScrolled :: TerminalClass self => Signal self (Int -> IO ())
textScrolled = Signal (connect_INT__NONE "text-scrolled")
windowTitleChanged :: TerminalClass self => Signal self (IO ())
windowTitleChanged = Signal (connect_NONE__NONE "window-title-changed")
foreign import ccall safe "vte_terminal_new"
vte_terminal_new :: (IO (Ptr Widget))
foreign import ccall safe "vte_terminal_im_append_menuitems"
vte_terminal_im_append_menuitems :: ((Ptr Terminal) -> ((Ptr MenuShell) -> (IO ())))
foreign import ccall safe "vte_terminal_fork_command"
vte_terminal_fork_command :: ((Ptr Terminal) -> ((Ptr CChar) -> ((Ptr (Ptr CChar)) -> ((Ptr (Ptr CChar)) -> ((Ptr CChar) -> (CInt -> (CInt -> (CInt -> (IO CInt)))))))))
foreign import ccall safe "vte_terminal_forkpty"
vte_terminal_forkpty :: ((Ptr Terminal) -> ((Ptr (Ptr CChar)) -> ((Ptr CChar) -> (CInt -> (CInt -> (CInt -> (IO CInt)))))))
foreign import ccall safe "vte_terminal_set_pty"
vte_terminal_set_pty :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_pty"
vte_terminal_get_pty :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_feed"
vte_terminal_feed :: ((Ptr Terminal) -> ((Ptr CChar) -> (CLong -> (IO ()))))
foreign import ccall safe "vte_terminal_feed_child"
vte_terminal_feed_child :: ((Ptr Terminal) -> ((Ptr CChar) -> (CLong -> (IO ()))))
foreign import ccall safe "vte_terminal_feed_child_binary"
vte_terminal_feed_child_binary :: ((Ptr Terminal) -> ((Ptr CChar) -> (CLong -> (IO ()))))
foreign import ccall safe "vte_terminal_get_child_exit_status"
vte_terminal_get_child_exit_status :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_select_all"
vte_terminal_select_all :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_select_none"
vte_terminal_select_none :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_copy_clipboard"
vte_terminal_copy_clipboard :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_paste_clipboard"
vte_terminal_paste_clipboard :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_copy_primary"
vte_terminal_copy_primary :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_paste_primary"
vte_terminal_paste_primary :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_set_size"
vte_terminal_set_size :: ((Ptr Terminal) -> (CLong -> (CLong -> (IO ()))))
foreign import ccall safe "vte_terminal_set_audible_bell"
vte_terminal_set_audible_bell :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_audible_bell"
vte_terminal_get_audible_bell :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_set_visible_bell"
vte_terminal_set_visible_bell :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_visible_bell"
vte_terminal_get_visible_bell :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_set_allow_bold"
vte_terminal_set_allow_bold :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_allow_bold"
vte_terminal_get_allow_bold :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_set_scroll_on_output"
vte_terminal_set_scroll_on_output :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_scroll_on_keystroke"
vte_terminal_set_scroll_on_keystroke :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_bold"
vte_terminal_set_color_bold :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_foreground"
vte_terminal_set_color_foreground :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_background"
vte_terminal_set_color_background :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_dim"
vte_terminal_set_color_dim :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_cursor"
vte_terminal_set_color_cursor :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_color_highlight"
vte_terminal_set_color_highlight :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_colors"
vte_terminal_set_colors :: ((Ptr Terminal) -> ((Ptr ()) -> ((Ptr ()) -> ((Ptr ()) -> (CLong -> (IO ()))))))
foreign import ccall safe "vte_terminal_set_default_colors"
vte_terminal_set_default_colors :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "vte_terminal_set_opacity"
vte_terminal_set_opacity :: ((Ptr Terminal) -> (CUShort -> (IO ())))
foreign import ccall safe "vte_terminal_set_background_image"
vte_terminal_set_background_image :: ((Ptr Terminal) -> ((Ptr Pixbuf) -> (IO ())))
foreign import ccall safe "vte_terminal_set_background_image_file"
vte_terminal_set_background_image_file :: ((Ptr Terminal) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "vte_terminal_set_background_saturation"
vte_terminal_set_background_saturation :: ((Ptr Terminal) -> (CDouble -> (IO ())))
foreign import ccall safe "vte_terminal_set_background_transparent"
vte_terminal_set_background_transparent :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_background_tint_color"
vte_terminal_set_background_tint_color :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_scroll_background"
vte_terminal_set_scroll_background :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_cursor_shape"
vte_terminal_set_cursor_shape :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_cursor_shape"
vte_terminal_get_cursor_shape :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_get_cursor_blink_mode"
vte_terminal_get_cursor_blink_mode :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_set_cursor_blink_mode"
vte_terminal_set_cursor_blink_mode :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_scrollback_lines"
vte_terminal_set_scrollback_lines :: ((Ptr Terminal) -> (CLong -> (IO ())))
foreign import ccall safe "vte_terminal_set_font"
vte_terminal_set_font :: ((Ptr Terminal) -> ((Ptr ()) -> (IO ())))
foreign import ccall safe "vte_terminal_set_font_from_string"
vte_terminal_set_font_from_string :: ((Ptr Terminal) -> ((Ptr CChar) -> (IO ())))
foreign import ccall unsafe "vte_terminal_get_font"
vte_terminal_get_font :: ((Ptr Terminal) -> (IO (Ptr ())))
foreign import ccall safe "vte_terminal_get_has_selection"
vte_terminal_get_has_selection :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_set_word_chars"
vte_terminal_set_word_chars :: ((Ptr Terminal) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "vte_terminal_is_word_char"
vte_terminal_is_word_char :: ((Ptr Terminal) -> (CUInt -> (IO CInt)))
foreign import ccall safe "vte_terminal_set_backspace_binding"
vte_terminal_set_backspace_binding :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_delete_binding"
vte_terminal_set_delete_binding :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_set_mouse_autohide"
vte_terminal_set_mouse_autohide :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_get_mouse_autohide"
vte_terminal_get_mouse_autohide :: ((Ptr Terminal) -> (IO CInt))
foreign import ccall safe "vte_terminal_reset"
vte_terminal_reset :: ((Ptr Terminal) -> (CInt -> (CInt -> (IO ()))))
foreign import ccall unsafe "g_array_new"
g_array_new :: (CInt -> (CInt -> (CUInt -> (IO (Ptr ())))))
foreign import ccall safe "vte_terminal_get_text"
vte_terminal_get_text :: ((Ptr Terminal) -> ((FunPtr ((Ptr Terminal) -> (CLong -> (CLong -> ((Ptr ()) -> (IO CInt)))))) -> ((Ptr ()) -> ((Ptr ()) -> (IO (Ptr CChar))))))
foreign import ccall unsafe "g_free"
g_free :: ((Ptr ()) -> (IO ()))
foreign import ccall unsafe "g_array_free"
g_array_free :: ((Ptr ()) -> (CInt -> (IO (Ptr CChar))))
foreign import ccall safe "vte_terminal_get_text_include_trailing_spaces"
vte_terminal_get_text_include_trailing_spaces :: ((Ptr Terminal) -> ((FunPtr ((Ptr Terminal) -> (CLong -> (CLong -> ((Ptr ()) -> (IO CInt)))))) -> ((Ptr ()) -> ((Ptr ()) -> (IO (Ptr CChar))))))
foreign import ccall safe "vte_terminal_get_text_range"
vte_terminal_get_text_range :: ((Ptr Terminal) -> (CLong -> (CLong -> (CLong -> (CLong -> ((FunPtr ((Ptr Terminal) -> (CLong -> (CLong -> ((Ptr ()) -> (IO CInt)))))) -> ((Ptr ()) -> ((Ptr ()) -> (IO (Ptr CChar))))))))))
foreign import ccall safe "vte_terminal_get_cursor_position"
vte_terminal_get_cursor_position :: ((Ptr Terminal) -> ((Ptr CLong) -> ((Ptr CLong) -> (IO ()))))
foreign import ccall safe "vte_terminal_match_clear_all"
vte_terminal_match_clear_all :: ((Ptr Terminal) -> (IO ()))
foreign import ccall safe "g_regex_new"
g_regex_new :: ((Ptr CChar) -> (CInt -> (CInt -> ((Ptr (Ptr ())) -> (IO (Ptr ()))))))
foreign import ccall safe "vte_terminal_match_add_gregex"
vte_terminal_match_add_gregex :: ((Ptr Terminal) -> ((Ptr ()) -> (CInt -> (IO CInt))))
foreign import ccall safe "vte_terminal_match_remove"
vte_terminal_match_remove :: ((Ptr Terminal) -> (CInt -> (IO ())))
foreign import ccall safe "vte_terminal_match_check"
vte_terminal_match_check :: ((Ptr Terminal) -> (CLong -> (CLong -> ((Ptr CInt) -> (IO (Ptr CChar))))))
foreign import ccall safe "vte_terminal_match_set_cursor"
vte_terminal_match_set_cursor :: ((Ptr Terminal) -> (CInt -> ((Ptr ()) -> (IO ()))))
foreign import ccall safe "vte_terminal_match_set_cursor_type"
vte_terminal_match_set_cursor_type :: ((Ptr Terminal) -> (CInt -> (CInt -> (IO ()))))
foreign import ccall safe "vte_terminal_match_set_cursor_name"
vte_terminal_match_set_cursor_name :: ((Ptr Terminal) -> (CInt -> ((Ptr CChar) -> (IO ()))))
foreign import ccall safe "vte_terminal_set_emulation"
vte_terminal_set_emulation :: ((Ptr Terminal) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "vte_terminal_get_emulation"
vte_terminal_get_emulation :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "vte_terminal_get_default_emulation"
vte_terminal_get_default_emulation :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "vte_terminal_set_encoding"
vte_terminal_set_encoding :: ((Ptr Terminal) -> ((Ptr CChar) -> (IO ())))
foreign import ccall safe "vte_terminal_get_encoding"
vte_terminal_get_encoding :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "vte_terminal_get_status_line"
vte_terminal_get_status_line :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "vte_terminal_get_padding"
vte_terminal_get_padding :: ((Ptr Terminal) -> ((Ptr CInt) -> ((Ptr CInt) -> (IO ()))))
foreign import ccall safe "vte_terminal_get_adjustment"
vte_terminal_get_adjustment :: ((Ptr Terminal) -> (IO (Ptr Adjustment)))
foreign import ccall safe "vte_terminal_get_char_height"
vte_terminal_get_char_height :: ((Ptr Terminal) -> (IO CLong))
foreign import ccall safe "vte_terminal_get_char_width"
vte_terminal_get_char_width :: ((Ptr Terminal) -> (IO CLong))
foreign import ccall safe "vte_terminal_get_column_count"
vte_terminal_get_column_count :: ((Ptr Terminal) -> (IO CLong))
foreign import ccall safe "vte_terminal_get_row_count"
vte_terminal_get_row_count :: ((Ptr Terminal) -> (IO CLong))
foreign import ccall safe "vte_terminal_get_icon_title"
vte_terminal_get_icon_title :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "vte_terminal_get_window_title"
vte_terminal_get_window_title :: ((Ptr Terminal) -> (IO (Ptr CChar)))
foreign import ccall safe "gdk_pixbuf_get_type"
gdk_pixbuf_get_type :: CUInt
foreign import ccall unsafe "gdk_color_get_type"
gdk_color_get_type :: CUInt
foreign import ccall unsafe "vte_terminal_erase_binding_get_type"
vte_terminal_erase_binding_get_type :: CUInt