% Tcl/Tk dummy

:- module(tk, [
        tcl_eval/1,
        tk_demo/0,
        tk_test/0,
        tk_file/2,
        tk_init/2,
        tk/1,
        tk_do_one_event/1,
        tk_main_loop/0]).

tk(Opts) :-
    tk_init('', Opts),
    tcl_eval(update).

tcl_eval(X) :- tcl_eval0(X),nl.

tcl_eval0(X) :- number(X),put(X).
tcl_eval0(X) :- atom(X),write(X).
tcl_eval0([H|L]) :- tcl_eval0(H),tcl_eval0(L).

tk_init(X,Y) :- write(tk_init(X,Y)),nl.
tk_do_one_event(X) :-write(tk_init(X,Y)),nl.
tk_main_loop :- write(tk_main_loop),nl.