Mercurial > hg > Applications > Lite
view tk/dummy_tcl.pl @ 10:f2aa38ce0787
add state display.
author | kono |
---|---|
date | Fri, 19 Jan 2001 23:14:00 +0900 |
parents | 1c57a78f1d98 |
children |
line wrap: on
line source
% 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.