Mercurial > hg > Applications > Lite
view tk/dummy_tcl.pl @ 22:29cf617f49db default tip
newer CVS version
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 22 Apr 2016 16:47:13 +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.