Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
use Tk;
...
my $child = $mw->Toplevel(-title=>"Bar!",-use=>$f->winfo('id'));
$child->Label(-text=>"Bar!")->pack;
MainLoop;