deferred class
	EV_RADIO_PEER

General
	cluster: interface
	description: 
		"Facilities for managing peer relations between radio buttons.
		Base class for EV_RADIO_BUTTON, EV_RADIO_MENU_ITEM andEV_TOOL_BAR_RADIO_BUTTON."
	keywords: "radio, item, menu, check, select"

Ancestors
	EV_ANY*

Queries
	data: ANY
	is_destroyed: BOOLEAN
	is_selected: BOOLEAN
	peers: LINKED_LIST [[like Current] EV_RADIO_PEER]
	selected_peer: [like Current] EV_RADIO_PEER

Commands
	copy (other: [like Current] EV_RADIO_PEER)
	destroy
	enable_select
	set_data (some_data: [like data] ANY)

Constraints
	peers not void
	selected peer not void
	peers returns new copy of list
	peers has current
	is selected equals selected peer is current
	one radio item selected