global proc myProc(string $rButton)
{
	int $nameButton;
	$nameButton = `radioButtonGrp -q -sl $rButton`;
	print $nameButton;
}

global proc TestGUIscript()
{
	string $rButton;
	string $window = `window -wh 400 500 -title "Radio Test"`;
	rowLayout -nc 3;
	text " ";
	$rButton = `radioButtonGrp -numberOfRadioButtons 2 -label1 "Hierarchical" -label2 "Alphabetical"`;
	radioButtonGrp -edit -onCommand ("myProc(\"" + $rButton + "\")") $rButton;
	showWindow $window;
}