class TK_RADIO < $TK_WIDGET

****	Wiget representing radio buttons.

---

Ancestors

$TK_WIDGET

---

Public

Readable Attributes

attr command: ROUT;

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.

Writable Attributes

attr command: ROUT;

Constants

const tk_widget_type: STR := "radiobutton";

Features

act_on(id:INT,args:ARRAY{STR})

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

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 .. 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, 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,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,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(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: SAME .. Included as create

deselect

destroy .. Included as destroy

****	Destroy the widget associated with self

flash

invoke

is_eq(o:$TK_WIDGET): BOOL .. Included as is_eq

select

****	Selecing a radio button delselects all other radio buttons associated to the same variable.

widget_name: STR .. Included as widget_name

****	In the default case the path and widget names are the same

---

Private

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

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_RADIO_CFG

default_init(c:TK_RADIO_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

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.

---

The Sather Home Page

---