is called asdraw_box(X1, Y1, X2, Y2, Col) :- tcl('canvas .c; .c create rectangle ## ## ## ## -fill ##', [X1, Y1, X2, Y2, Col]).
then the Tk commanddraw_box(10, 10, 20, 30, red)
will be executed.canvas .c; .c create rectangle 10 10 20 30 -fill red
[eclipse 3]: tcl_interp(I), call_c('Tcl_GetVar'(I,"tcl_version",0), string(S)). I = 1701496 S = "7.4" yes.
source Dir/TclFilewhere Dir is the directory in which tcl_source/0 has been called. The purpose of this predicate is to achieve a behaviour similar to ECLiPSe 's compilation, where the path to a recursively compiled file is taken relative to the current file rather than to the current working directory.
tk([nodisplay]).The loop behaves very much like the Tcl tclsh program, it prints the prompt, reads user input and executes it as a Tcl command. There are some differences, though:
tk_debug, start_interfaceThis predicate changes the ECLiPSe event handler for the event 252 to call the Tk update command before printing the debugger line. Note that it must be called together with the debugged predicate, because the handler for the event 252 is reset before each new top-level query.