class TOPPING < $TK_WIDGET |
---|
**** | Toppings are mainly buttons on which van click to select that topping for your pizza. They also store the name of the topping the the value factor. |
$TK_WIDGET |
attr command: ROUT; .. Included as command |
---|
**** | Associated command which will be invoked when the checkbox is selected. |
attr name: STR; |
---|
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. |
const tk_widget_type: STR := "checkbutton"; .. Included as tk_widget_type |
---|
act_on(id:INT,args:ARRAY{STR}) .. Included as act_on |
---|
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" |
command(c:ROUT): SAME .. Included as command |
---|
configure(cf: CFGINFO) .. Included as configure |
---|
**** | Reconfigure the widget with the new configuration "cf" Unstated parameters of "cf" remain unchanged |
create(frame:$TK_WIDGET,n:STR,updfunc:ROUT): SAME |
---|
**** | Creates a new topping button in the frame 'frame'. 'n' is the name of the topping. 'updfunc' will be called when the button is pressed. |
deselect .. Included as deselect |
---|
destroy .. Included as destroy |
---|
**** | Destroy the widget associated with self |
flash .. Included as flash |
---|
invoke .. Included as invoke |
---|
is_eq(o:$TK_WIDGET): BOOL .. Included as is_eq |
---|
is_selected: BOOL |
---|
**** | Returns true if button is selected. |
price: FLT |
---|
**** | Returns the price for this topping on the current pizza. |
select .. Included as select |
---|
toggle .. Included as toggle |
---|
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 command: ROUT; .. Included as command |
---|
**** | Associated command which will be invoked when the checkbox is selected. |
create(parent: $TK_WIDGET): SAME .. Included as create |
---|
**** | Create a new widget, specifying a particular parent widget/window. |
create(parent: $TK_WIDGET,np: STR): SAME .. Included as create |
---|
**** | Create a new widget, specifying a particular parent and a name for the widget. The name "np" controls what tcl name is used and is only useful just for debugging purposes |
create(parent:$TK_WIDGET,np:STR,cf: CFGINFO,pack:TK_PACK): SAME .. Included as create |
---|
**** | Actual widget creation routine. All the rest are wrappers.
___Arg_parent_specifies_the_container_parent_window/widget ___Arg_np_is_used_to_specify_a_widget_name_for_debugging ___Arg_cf_specifies_configuration_options_(a_parameter_of ___TK_WIDGET_INCL) ___Arg_pack_specifies_the_packing_options ___Returns_a_configured,_packed_widget |
create(parent: $TK_WIDGET,np: STR, pack: TK_PACK): SAME .. Included as create |
---|
**** | Create a new widget.
___Arg_parent_specifies_the_container_parent_window/widget ___Arg_np_is_used_to_specify_a_widget_name_for_debugging ___Arg_pack_specifies_the_packing_options |
create(parent: $TK_WIDGET,cf: CFGINFO): SAME .. Included as create |
---|
**** | Create a new widget
__Arg_parent_specifies_the_parent_window/widget._This_could ____be_a_#TK_ROOTWINDOW_or_a_TK_TOPLEVEL ____toplevel_win_::=_#TK_TOPLEVEL; ____this_win_:=_#<some_widget_class>(toplevel_win, __Arg_cf_specifies_a_configuration_option_that_should_be_used ____by_this_widget._This_routine_is_declared_in_TK_WIDGET_INCL ____where_the_type_of_the_configuration_option_is_a_type_parameter ____CFGINFO,_which_is_usually_set_to_<widget_name>TK__CFG |
create(parent: $TK_WIDGET,cf: CFGINFO,pack: TK_PACK): SAME .. Included as create |
---|
**** | Create a new widget.
___Arg_parent_specifies_the_container_parent_window/widget ___Arg_cf_specifies_configuration_options_(a_parameter_of ___TK_WIDGET_INCL) ___Arg_pack_specifies_the_packing_options |
create(parent: $TK_WIDGET,pack: TK_PACK): SAME .. Included as create |
---|
**** | Create a new widget
__Arg_parent_specifies_the_container_parent_window/widget __Arg_pack_specifies_the_location_of_the_widget_within_the ___parent_(packing). |
create: SAME .. Included as create |
---|
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_CHECK_CFG .. Included as default_config |
---|
default_init(c:TK_CHECK_CFG) .. Included as default_init |
---|
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 |
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; |
---|
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. |
attr var: TK_VAR; |
---|
attr var: TK_VAR; |
---|