Select Code to Download

sub grid
{
...
   return $w;
  }
}

$ perl -MTk -e '$m=tkinit; $f=$m->Frame->pack; $b=$f->Button(-text=>"F
+oo")->grid; $m->after(750,sub{Tk::grid("remove",$b)}); MainLoop'

--- Widget.pm.orig    2003-08-29 14:53:46.000000000 -0500
+++ Widget.pm    2003-08-29 14:45:14.000000000 -0500
...
   {
    my $opt = shift;
    Tk::grid($opt,$w,@_);