    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