sub configure {
    my $config = $mw->DialogBox(
        -title=>"Configure",
        -command=>\&done_config,
        -buttons=>["Apply","Done"]
    );

# other stuff, widgets that go in the top frame

    $config->Show();
}