1Tcl_Core: module { 2 3 PATH : con "/dis/lib/tcl_core.dis"; 4 TclData : adt { 5 context : ref Draw->Context; 6 top : ref Tk->Toplevel; 7 lines : chan of string; 8 debug : int; 9 }; 10 11 init: fn(ctxt: ref Draw->Context, argv: list of string); 12 grab_lines : fn(new_inp,unfin : string, lines: chan of string); 13 prepass : fn(line : string) : string; 14 evalcmd : fn(line : string,termchar : int) : string; 15 clear_error : fn(); 16 set_top : fn(win:ref Tk->Toplevel); 17 finished : fn(s : string,termchar : int) : int; 18 notify : fn(num : int, s: string) : string; 19}; 20