| class TK_MENU < $TK_WIDGET |
|---|
| **** | a simplified version of Tk menus |
| $TK_WIDGET |
| attr name: STR; .. Included as name |
|---|
| **** | name of the full path to the widget proper |
| attr parent: $TK_WIDGET; .. Included as parent |
|---|
| **** | which may contain scrollbars etc. |
| attr path_name: STR; .. Included as path_name |
|---|
| **** | refers to the path to the outermost frame which may contain scrollbars etc. |
| act_on(id: INT, args: ARRAY{STR}) |
|---|
| **** | ignore args |
| bind_event(event: $TK_EVENT,action: ROUT{TK_EVENT_INFO}) .. Included as bind_event |
|---|
| **** | Bind the event "event" to the action "action", a bound routine which takes an EVENT_INFO as an argument The first argument to the callback is an index in to the list of bindings that corresponds to this "action" |
| cascade(label: STR): SAME |
|---|
| **** | returns empty submenu |
| command(label: STR, command: ROUT) |
|---|
| command(label: STR, command: ROUT): SAME |
|---|
| configure(cf: CFGINFO) .. Included as configure |
|---|
| **** | Reconfigure the widget with the new configuration "cf" Unstated parameters of "cf" remain unchanged |
| create(parent: $TK_WIDGET): SAME |
|---|
| **** | Use default packing and name |
| create(parent: $TK_WIDGET,np: STR): SAME |
|---|
| **** | Use default packing and name |
| create(parent:$TK_WIDGET,np:STR,cf: TK_MENU_CFG): SAME |
|---|
| create(parent: $TK_WIDGET,cf: TK_MENU_CFG): SAME |
|---|
| destroy .. Included as destroy |
|---|
| **** | Destroy the widget associated with self |
| disable(index: INT) |
|---|
| enable(index: INT) |
|---|
| index_active: INT |
|---|
| index_at(y: FLT): INT |
|---|
| index_end: INT |
|---|
| is_eq(o:$TK_WIDGET): BOOL .. Included as is_eq |
|---|
| parent_menu: SAME |
|---|
| **** | give the parent menu [of course, only if it is one] otherwise we get a runtime error |
| separator |
|---|
| separator: SAME |
|---|
| widget_name: STR .. Included as widget_name |
|---|
| **** | In the default case the path and widget names are the same |
| actual_widget_name: STR .. Included as actual_widget_name |
|---|
| **** | Sometimes the "real" tk widget is nested within an outer frame. Configuration options must then be passed to the "actual" widget. |
| arr_str(a: ARRAY{STR}): STR .. Included as arr_str |
|---|
| **** | Print out an array version of the string, since ARRAY does not have a .str routien in the standar library. |
| attr bindings: A_LIST{ROUT{TK_EVENT_INFO}}; .. Included as bindings |
|---|
| **** | Store the bindings |
| attr bindings: A_LIST{ROUT{TK_EVENT_INFO}}; .. Included as bindings |
|---|
| **** | Store the bindings |
| attr commands: LIST{ROUT}; |
|---|
| attr commands: LIST{ROUT}; |
|---|
| deb(s: STR) .. Included as deb |
|---|
| **** | Print out a debugging message |
| debug: BOOL .. Included as debug |
|---|
| **** | Return the value of the debug flag |
| default_config: TK_MENU_CFG |
|---|
| default_init(c: TK_MENU_CFG) |
|---|
| default_packing: TK_PACK .. Included as default_packing |
|---|
| err(s: STR) .. Included as err |
|---|
| **** | Print out an error message. |
| eval(a1: $STR) .. Included as eval |
|---|
| eval(a1,a2: $STR) .. Included as eval |
|---|
| eval(a1,a2,a3: $STR) .. Included as eval |
|---|
| eval(a1,a2,a3,a4: $STR) .. Included as eval |
|---|
| eval(a1,a2,a3,a4,a5: $STR) .. Included as eval |
|---|
| fix_tcl_name(s: STR): STR .. Included as fix_tcl_name |
|---|
| **** | SEF:Eliminate problems with tcl name, returning the empty string if necessary. |
| flt_if_poss(s: STR,default: FLT): FLT .. Included as flt_if_poss |
|---|
| **** | Convert the string "s" to a float and return it, if possible. If an error occurs in the conversion, return the "default" value |
| index(s: STR): INT |
|---|
| init(prnt: $TK_WIDGET,nm: STR,cf: CFGINFO) .. Included as init |
|---|
| int_if_poss(s: STR,default: INT): INT .. Included as int_if_poss |
|---|
| **** | Convert the string "s" to an integer and return it, if possible. If an error occurs in the conversion, return the "default" value |
| join(a1,a2: $STR): STR .. Included as join |
|---|
| attr name: STR; .. Included as name |
|---|
| **** | name of the full path to the widget proper |
| attr parent: $TK_WIDGET; .. Included as parent |
|---|
| **** | which may contain scrollbars etc. |
| attr path_name: STR; .. Included as path_name |
|---|
| **** | refers to the path to the outermost frame which may contain scrollbars etc. |
| quote(s:STR): STR .. Included as quote |
|---|
| **** | Return a (tcl) quoted version of the string "s" |
| register .. Included as register |
|---|
| **** | Register this widget with the widget map so that subsequent callbacks that belong to this widget may be directed here. |
| state_config(index: INT, state: STR) |
|---|
| const tk_widget_type: STR := "menu"; |
|---|