Lines Matching refs:mw
51 my($class,$mw)=@_;
53 $mw->bind($class, "<4>", ['yview', 'scroll', -5, 'units']);
54 $mw->bind($class, "<5>", ['yview', 'scroll', +5, 'units']);
55 $mw->bind($class, '<MouseWheel>',
62 my($class,$mw)=@_;
64 $mw->bind($class, "<4>", ['yview', 'scroll', -5, 'units']);
65 $mw->bind($class, "<5>", ['yview', 'scroll', +5, 'units']);
66 $mw->bind($class, '<MouseWheel>',
73 my($class,$mw)=@_;
75 $mw->bind($class, "<4>", ['yview', 'scroll', -5, 'units']);
76 $mw->bind($class, "<5>", ['yview', 'scroll', +5, 'units']);
77 $mw->bind($class, '<MouseWheel>',
96 my $mw = MainWindow->new();
97 my $orig_state = $mw->state; # may be iconic
98 $mw->withdraw;
176 my $ufont = $mw->optionGet('userFont','UserFont'); # fixed width
177 my $sfont = $mw->optionGet('systemFont','SystemFont'); # proportional
180 $mw->optionAdd('*Font', $sfont);
181 $mw->optionAdd('*Entry.Font', $ufont);
182 $mw->optionAdd('*Text.Font', $ufont);
186 my $lighter = $mw->Darken(Tk::NORMAL_BG, 110);
188 $mw->optionAdd("*$class*background", $lighter, "userDefault");
190 $mw->optionAdd("*Pod*Pod*Frame*More*ROText*background", $lighter, "interactive");
193 $mw->optionAdd('*Menu.tearOff', $Tk::platform ne 'MSWin32' ? 1 : 0);
261 if ($mw->children) {
262 $mw->repeat(1000, sub {
263 if (Tk::Exists($mw)) {
265 foreach ($mw->children) {
268 $mw->destroy;
272 $mw->destroy;
280 my $tl = $mw->Pod(
303 $mw->fileevent($sock,'readable',
310 $mw->fileevent($client,'readable',[\&PodRequest,$client]);
330 $mw->fileevent($client,'readable','');