#!/usr/bin/perl -w
use strict;

use Tk;

my $Fuel_Type = "diesel";
my $mainwindow = MainWindow->new
                (-title => " Select Fuel Tank for $Fuel_Type Fuel ");    
$mainwindow->geometry("500x300");

# Defines the Fuel Frame in the Main Window
# pack options cause this frame to expand to take whole
# the "row" in the "x" direction

#easy way to say a "row"....
# define a frame that is expanded to take the entire "x" dimension
# and pack stuff left justified into that frame

my $frame_fuel_stuff_1 = $mainwindow ->Frame() 
                       ->pack(-side=>'top',-fill=>'x');

# Defining the Fuel and Oil Flow Rates - Instrumentation Label
my $label_1 = $frame_fuel_stuff_1->Label
              (-text   => " Which $Fuel_Type tank are you using Q1?", 
	       -relief => 'groove',
	      ) ->pack(-side => 'left');
my $label_2 = $frame_fuel_stuff_1->Label
              (-text   => " Some other widget can go here ", 
	       -relief => 'groove',
	      ) ->pack(-side => 'left');
	      
#another "row"
#make a new frame that does the same thing....
#
my $frame_fuel_stuff_2 = $mainwindow ->Frame() 
                       ->pack(-side=>'top',-fill=>'x');
                       
my $label_3 = $frame_fuel_stuff_2->Label
              (-text   => " Which $Fuel_Type tank are you using Q2?", 
	       -relief => 'groove',
	      ) ->pack(-side =>'left');
	      
              
MainLoop();