use Tk;

{
    my $mw = Tk::MainWindow->new();

    configure_main_window($mw);

    build_menubar($mw);
    build_toolbar($mw);
    build_main_content($mw);
    build_statusbar($mw);
}

MainLoop;

sub build_main_content {
    my ($mw) = @_;

    my $main_content_frame = $mw->Frame();

    build_input_widgets($main_content_frame);
    build_output_widgets($main_content_frame);
    build_action_widgets($main_content_frame);
}