my $dialog = $Global::mw->Dialog()