Select Code to Download

    my $hdr = $f->HButton(
            -takefocus=>0,
...
    $hdr->update;  # Row 151, New!

    $w->Advertise("heading" => $hdr);

        if (defined(my $pixels = $w->cget('-pixelwidth'))) {
            $w->GeometryRequest($pixels, 18); # 18 is New! Was $mw->re
+qheight before
        }

use Tk;

...
$scrolledMListbox->insert('end', [ "c", "d", "f", "e"] );

MainLoop;