# Defines the Main Frame in the Main Window
$frame1 = $mainwindow ->Frame(-relief => 'flat', -borderwidth => $frame_borderwidth, -background =>  $mainframes_background ,
                                      -foreground =>  $frameforeground, -width => 475, -height => 320)
                              ->pack(-padx => 10, -pady => 19, -ipadx => 80, -ipady => 70);

##</code><code>##

# Defining the Fuel and Oil Flow Rates - Instrumentation Label
    $mainwindow ->Label(-text => " Which $Fuel_Type tank are you using ? ",
			    -background => "DarkBlue", -borderwidth => 0,
			    -foreground => $mainframes_background, -relief => 'groove',
			    -font => [$style , $size, $visibility])
                    ->pack()
                    ->place(-x => 100, -y => 11);

##</code><code>##

# Spacer between the frame 1 border and frame2 border
   $spacer1 = $frame1 ->Frame(-relief =>'flat', -borderwidth => $frame_borderwidth,
				   -background => $mainframes_background, -foreground => $frameforeground,
				   -height => 10)
			   ->pack(-padx => 8, -pady => 0, -ipadx => 0, -ipady => 0,
				  -fill => 'x', -side => 'top');

##</code><code>##

# Creating the frame to hold the controls
     $frame2  = $frame1->Frame(-relief => 'flat', -borderwidth => 3,                                   
    			  -background => $mainframes_background, -foreground => $frameforeground)
    		  ->pack(-padx => 8, -pady => 0, -ipadx => 0, 
                                 -ipady => 0, -fill => 'x', -side => 'top');

##</code><code>##

$Rb[$i-1] = $frame2 -> Radiobutton(-text => $i,-value => $i,-variable => \$Tank_Num,
                                         -width => 80, -anchor => 'w',-background => $mainframes_background,
                                         -font => [$style , $size, $visibility]);
                               
<code>$Rb[$i-1] -> grid($Rb[$i-1],-sticky => 'w',-padx => 10,-pady => 3);
        
    }