ref: 8a788aea84aad3bfbd5b39d78c1925654f3b9e14
dir: /appl/lib/tcl.m/
Tcl_Core: module {
PATH : con "/dis/lib/tcl_core.dis";
TclData : adt {
context : ref Draw->Context;
top : ref Tk->Toplevel;
lines : chan of string;
debug : int;
};
init: fn(ctxt: ref Draw->Context, argv: list of string);
grab_lines : fn(new_inp,unfin : string, lines: chan of string);
prepass : fn(line : string) : string;
evalcmd : fn(line : string,termchar : int) : string;
clear_error : fn();
set_top : fn(win:ref Tk->Toplevel);
finished : fn(s : string,termchar : int) : int;
notify : fn(num : int, s: string) : string;
};