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