--- ./Tk/Widget.pm.orig 2004-03-17 17:00:32.000000000 +0100
+++ ./Tk/Widget.pm      2004-08-05 02:15:35.000000000 +0200
@@ -63,7 +63,7 @@
 use Tk::Submethods( 'grab' =>  [qw(current status release -global)],
                     'focus' => [qw(-force -lastfor)],
                     'pack'  => [qw(configure forget info propagate sl
+aves)],
-                    'grid'  => [qw(bbox columnconfigure configure for
+get info location propagate rowconfigure size slaves)],
+                    'grid'  => [qw(bbox columnconfigure configure for
+get info location propagate remove rowconfigure size slaves)],
                     'form'  => [qw(check configure forget grid info s
+laves)],
                     'event' => [qw(add delete generate info)],
                     'place' => [qw(configure forget info slaves)],
@@ -1151,7 +1151,7 @@
 {
  local $SIG{'__DIE__'} = \&Carp::croak;
  my $w = shift;
- if (@_ && $_[0] =~ /^(?:bbox|columnconfigure|configure|forget|info|l
+ocation|propagate|rowconfigure|size|slaves)$/x)
+ if (@_ && $_[0] =~ /^(?:bbox|columnconfigure|configure|forget|info|l
+ocation|propagate|remove|rowconfigure|size|slaves)$/x)
   {
    my $opt = shift;
    Tk::grid($opt,$w,@_);
[download]