perl-Tk-misc.patch

   1 diff -Nru Tk-804.027.vanilla/Tk/Widget.pm Tk-804.027/Tk/Widget.pm
   2 --- Tk-804.027.vanilla/Tk/Widget.pm     2004-03-17 17:00:32.000000000 +0100
   3 +++ Tk-804.027/Tk/Widget.pm     2005-03-11 20:41:39.241813232 +0100
   4 @@ -60,7 +60,7 @@
   5  sub True  { 1 }
   6  sub False { 0 }
   7
   8 -use Tk::Submethods( 'grab' =>  [qw(current status release -global)],
   9 +use Tk::Submethods ( 'grab' =>  [qw(current status release -global)],
  10                      'focus' => [qw(-force -lastfor)],
  11                      'pack'  => [qw(configure forget info propagate slaves)],
  12                      'grid'  => [qw(bbox columnconfigure configure forget info location propagate rowconfigure size slaves)],