my $FG_FrameInit = $PageFG -> LabFrame(					-label=>"Initialize Device",
									-labelside=>"acrosstop",
									-borderwidth=>1,
									-relief=>"raised");

my $entry_FGDeviceAddress 	= $FG_FrameInit -> LabEntry(		-label=>"Address:",
									-background=>"white",
									-width=>15,
									-text=>"ASRL7::INSTR",
									-labelPack=>[-side=>"left"]);
$balloon->attach($entry_FGDeviceAddress, -balloonmsg => "Device Address");

my $btn_FGInitDevice 		= $FG_FrameInit -> Button(		-text=>"Init",
									-command=>\&InitFG);

	my @a = $FG_FrameInit->children();
	print "$_," for(@a);

##</code><code>##

Tk::Frame=HASH(0x2228e0c),Tk::Label=HASH(0x221f384),