It does not operate as expected. My code:

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

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

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

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

Output:

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

What am I doing wrong?