Select Code to Download

sub doFileImportUi {
    my ($pg, $dbh) = @_;
...
    $ds_list->insert('end', @listname);

}

    $pg->gridRemove($gbtn);

--- Begin Traceback ---
Failed to AUTOLOAD 'Tk::Frame::gridRemove' at start3.pl line 437
...
Tk::Button::butUp at K:/Perl/site/lib/Tk/Button.pm line 111
(command bound to event)