class GUI_APP_END |
---|
**** | The application-end code for the GUI. Though, the application programmer will normally use only GUI_UTIL and the Widget classes. |
shared debug: BOOL := false; |
---|
**** | Debug the sather code directions and must quit |
shared is_done: BOOL := false; |
---|
**** | True when the application is done and must quit |
shared tcl_tk:TCL_TK; |
---|
**** | Set up to point to the interpreter |
shared tcldebug: BOOL := false; |
---|
**** | Print out the tcl code sent in both directions and must quit |
shared debug: BOOL := false; |
---|
**** | Debug the sather code directions and must quit |
shared is_done: BOOL := false; |
---|
**** | True when the application is done and must quit |
shared tcl_tk:TCL_TK; |
---|
**** | Set up to point to the interpreter |
shared tcldebug: BOOL := false; |
---|
**** | Print out the tcl code sent in both directions and must quit |
deb(s: STR) |
---|
eval(s: STR) |
---|
eval(s: STR): STR |
---|
exec_callback(argv: ARRAY{STR}) |
---|
**** | Three special callbacks are "poll" Poll sather for more commands "debug" Turn on debugging flag "nodebug" Turn off debugging flag |
main_loop |
---|
shutdown |
---|
startup |
---|
terminate |
---|
arr_str(a: ARRAY{STR}): STR |
---|
init |
---|
int_if_poss(s: STR,default: INT): INT |
---|
to_int(s: STR): INT |
---|