|
2
|
1 % Tcl/Tk dummy
|
|
|
2
|
|
|
3 :- module(tk, [
|
|
|
4 tcl_eval/1,
|
|
|
5 tk_demo/0,
|
|
|
6 tk_test/0,
|
|
|
7 tk_file/2,
|
|
|
8 tk_init/2,
|
|
|
9 tk/1,
|
|
|
10 tk_do_one_event/1,
|
|
|
11 tk_main_loop/0]).
|
|
|
12
|
|
|
13 tk(Opts) :-
|
|
|
14 tk_init('', Opts),
|
|
|
15 tcl_eval(update).
|
|
|
16
|
|
|
17 tcl_eval(X) :- tcl_eval0(X),nl.
|
|
|
18
|
|
|
19 tcl_eval0(X) :- number(X),put(X).
|
|
|
20 tcl_eval0(X) :- atom(X),write(X).
|
|
|
21 tcl_eval0([H|L]) :- tcl_eval0(H),tcl_eval0(L).
|
|
|
22
|
|
|
23 tk_init(X,Y) :- write(tk_init(X,Y)),nl.
|
|
|
24 tk_do_one_event(X) :-write(tk_init(X,Y)),nl.
|
|
|
25 tk_main_loop :- write(tk_main_loop),nl.
|
