# 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');