| external class C_TCL_TK |
|---|
| **** | Interface to basic tcl and tk functions Depends on the tcl.a, tk.a |
| ConstTclError: INT; |
|---|
| ConstTclOk: INT; |
|---|
| ConstTclVolatile: EXT_OB; |
|---|
| Tcl_CreateInterp: EXT_OB; |
|---|
| **** | create a new tcl-interpreter |
| Tcl_Eval(interp: EXT_OB, cmd: STR): INT; |
|---|
| Tcl_EvalFile(interp: EXT_OB, file: STR): INT; |
|---|
| Tcl_GetResult(interp: EXT_OB): EXT_OB; |
|---|
| Tcl_ResetResult(interp: EXT_OB); |
|---|
| Tcl_SetResult(interp: EXT_OB, str: STR, free_proc: EXT_OB); |
|---|
| Tk_CreateMainWindow(interp: EXT_OB, screenname, basename, classname: STR): EXT_OB; |
|---|
| Tk_DoOneEvent(i: INT); |
|---|
| Tk_MainLoop; |
|---|
| Tk_MapWindow(w: EXT_OB); |
|---|
| init_raster(interp: EXT_OB); |
|---|
| **** | Initialize the raster widget |
| init_tcl_tk(interp: EXT_OB); |
|---|
| **** | Initialize the callbacks |
| sather_cb(args: EXT_OB): INT |
|---|
| **** | Callback into sather from tcl. |
| tkkit_cb(args: EXT_OB): INT |
|---|
| **** | Same as "C_TCL_KIT::command" |