| 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 |
|---|