#Sample SpecTcl main program for testing GUI

use Tk;
require Tk::Menu;
my($top) = MainWindow->new();
$top->title("compressing test");


# interface generated by SpecTcl (Perl enabled) version 1.1
# from compressing.ui
# For use with Tk402.002, using the grid geometry manager

sub compressing_ui {
        my($root) = @_;

        # widget creation

        my($label_1) = $root->Label (
                -text => 'please wait...',
        );

        # Geometry management

        $label_1->grid(
                -in => $root,
                -column => '1',
                -row => '1'
        );

        # Resize behavior management

        # container $root (rows)
        $root->gridRowconfigure(1, -weight  => 0, -minsize  => 30);

        # container $root (columns)
        $root->gridColumnconfigure(1, -weight => 0, -minsize => 30);

        # additional interface code

        # end additional interface code
}
compressing_ui $top;
Tk::MainLoop;

1;#