I have created a descendant of Tk::Toplevel which is a self-contained mini-application which I groked from a single-shot .pl script. However, try as I might, I simply cannot make this happen. My code looks sorta like this:

use Tk;
use lib ...
use App::Composite;
[download]

in App::Composite:

...
use base qw/Tk::Toplevel/;

Construct Tk::Widget 'Composite'
... implementation ...
[download]

and in test.pl

$mw = new MainWindow;
$comp = $mw->Composite;
$comp->resizable(0, 0);
$comp->raise($mw);
[download]

It raises, but doesn't focus! Playing with $comp->focusmode and $comp->configure(-takefocus) aren't what I want! How come this isn't easy?!