Up

_gtkButtonNewRadio

_gtkButtonNewRadio creates a new ButtonRadio object.

Prototype : fun [Chn ObjGtkButton] ObjGtkButton

• Chn : the owner channel.


• ObjGtkButton : another ButtonRadio already created to include this new ButtonRadio in the same group. If nil, a new group is created automatically.


• Return ObjGtkButton : the new ButtonRadio object, or nil if an error occurs.

See also

Example

typeof button1 = ObjGtkButton;;
typeof button2 = ObjGtkButton;;
typeof win = ObjGtkWindow;;
typeof box = ObjGtkBox;;

fun CBdestroy (obj, u_param, eventName)=
	_fooS eventName;
	_gtkMainQuit;
	0;;

fun main ()=
	_showconsole;
	
	set win = _gtkWindowNew _channel nil "test buttons" 0;
	
	set box = _gtkBoxNew _channel 1 5 VERTICAL;
	
	set button1 = _gtkButtonLabelSet
						_gtkButtonNewRadio
							_channel 
							nil
					"Button _One"
					1;
	set button2 = _gtkButtonLabelSet
						_gtkButtonNewRadio
							_channel 
							button1
					"Button _Two"
					1;
	
	_gtkBoxAdd box button1 1 1 5 1;
	_gtkBoxAdd box button2 1 1 5 1;
	_gtkContainerAdd win box;
	
	_gtkWidgetShowAll win;
	
	_gtkWidgetCB win @CBdestroy 0 "delete-event" SIGNAL_PROPAGATE nil;
	
	_gtkMain;
	0;;