Lines Matching refs:mw
57 my $mw = MainWindow->new();
59 $mw->withdraw;
62 my $ufont = $mw->optionGet('userFont','UserFont'); # fixed width
63 my $sfont = $mw->optionGet('systemFont','SystemFont'); # proportional
66 $mw->optionAdd('*Font', $sfont);
67 $mw->optionAdd('*Entry.Font', $ufont);
68 $mw->optionAdd('*Text.Font', $ufont);
71 $mw->optionAdd('*Menu.tearOff', $Tk::platform ne 'MSWin32' ? 1 : 0);
73 $mw->Pod(
78 # xxx dirty but it works. A simple $mw->destroy if $mw->children
82 if ($mw->children) {
83 $mw->repeat(1000, sub {
85 foreach ($mw->children) {
88 $mw->destroy;
91 $mw->destroy;
93 #$mw->WidgetDump;