diff options
Diffstat (limited to 'src/edit_terminal_gterm.erl')
| -rw-r--r-- | src/edit_terminal_gterm.erl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/src/edit_terminal_gterm.erl b/src/edit_terminal_gterm.erl new file mode 100644 index 0000000..0d6b678 --- /dev/null +++ b/src/edit_terminal_gterm.erl @@ -0,0 +1,42 @@ +%%%---------------------------------------------------------------------- +%%% File : edit_terminal_gterm.erl +%%% Author : Luke Gorrie <luke@bluetail.com> +%%% Purpose : edit_terminal implementation for gterm (Tony's GTK terminal +%%% emulator) +%%% Created : 14 Mar 2001 by Luke Gorrie <luke@bluetail.com> +%%%---------------------------------------------------------------------- + +-module(edit_terminal_gterm). +-author('luke@bluetail.com'). + +-compile(export_all). +%%-export([Function/Arity, ...]). + +%% name of terminal process +-define(TERM, ?MODULE). + +setup() -> + Term = gterm:run(), + register(?TERM, Term), +% gterm_api:set_local_echo(Term, false), +% gterm_api:set_auto_scroll(Term, false), + Term. + +teardown() -> + gterm_api:quit(). + +newline() -> gterm_api:newline(?TERM). +put_char(C) -> gterm_api:put_char(?TERM, C). +put_string(S) -> gterm_api:put_string(?TERM, S). +format(Fmt, Args) -> gterm_api:format(?TERM, Fmt, Args). +erase_to_eol() -> gterm_api:erase_to_eol(?TERM). +move_to(X, Y) -> gterm_api:move_to(?TERM, X, Y). +refresh() -> gterm_api:refresh(?TERM). +invalidate() -> gterm_api:refresh(?TERM). +width() -> gterm_api:width(?TERM). +height() -> gterm_api:height(?TERM). +read() -> gterm_api:read(?TERM). +font_reverse() -> gterm_api:font_reverse(?TERM). +font_normal() -> gterm_api:font_normal(?TERM). + + |