*** empty log message ***

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).
+
+