Lines Matching refs:mw
46 my $mw = eval { tkinit };
48 if !$mw;
49 $mw->geometry('+10+10'); # for twm
54 $mw->after(300, sub { fire_dialog_button($mw) });
58 my $opt_editor = $opt->option_editor($mw, -buttons => [qw/oksave cancel/]);
59 $mw->after(300, sub {
62 $mw->Walk(sub {
71 $mw->after(100, sub { fire_dialog_button($mw) });
78 $mw->after(700, sub { $mw->destroy });
85 my($mw) = @_;
88 $mw->Walk