blob: 4062e541586ebdf2b178e8f5a57d011213917d33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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;
};
|
