sub setup {
	
	chomp;
	$fr_indx = shift;
	print "STRING: $_\n";
	($type, $name, .......) = 
					split(/,/,$_);
		$f_filler = $f[$fr_indx]->Label(-text=>" ")->pack(-side=>'top',-pady => 0, -padx => 0);
	$f_switch{$name} = $f[$fr_indx]->Frame->pack(-side => 'top');
	$f_switch_label{$name} = $f_switch{$name}->Label(
				-text => $name,
				)->pack(-side=>'top');
	
	
	# Creation of Radiobuttons 
	$f_filler = $f[$fr_indx]->Label(-text=>" ")->pack(-side=>'top',-pady => 0, -padx => 0); #added
	
	$f_switch_radio{$name} = $f_switch{$name}->Radiobutton(
			-text => 'AUTO  ',
			-value => 'auto' ,
			-highlightbackground => black,
			#-selectcolor => green,
			-variable => \$f_switch_val{$name},
			-command => [\&f_mode],
			)->pack(-side=>'right',-pady => '0');
	
		
	if (index($type,"Toggle")>=0) {
		$f_switch_radio{$name}->bind("<Button>",
			[\&toggle_off,$name]);
		$f_switch_val{$name} = 'off';
	}
	else {			
		$f_switch_radio{$name}->bind("<Button>",[\&f_off,$name]);
	}
	
	$f_filler = $f_switch{$name}->Label(-text => "  ")
			->pack(-side=>'left',-pady => 0, -padx => 0);
	
	$f_switch_radio{$name} = $f_switch{$name}->Radiobutton(
			-text => 'MAN   ',
			-value => 'man' ,
			-highlightbackground => black,
			#-selectcolor => green,
			-variable => \$f_switch_val{$name},
			-command => [\&f_mode]
			)->pack(-side=>'right',-pady => '0')
			->select();
	
	
	}