Select Code to Download

sub doDBItable {
    my $top = MainWindow->new;
...
            -display_id => 1,
            -debug => 1,)->pack(expand => 1, -fill => 'both');
}

Tk::Error: element "J" already exists at K:/Perl/site/lib/Tk.pm line 2
+28.
 at K:/Perl/site/lib/Tk/Derived.pm line 467
 [\&main::doDBItable]
 (menu invoke)