# NOTE: Derived from blib/lib/Tk/Table.pm.
# Changes made here will be lost when autosplit is run again.
#line 501 "blib/lib/Tk/Table.pm (autosplit into blib/lib/auto/Tk/Table/see.al)"
my ($row,$col) = (@_ == 2) ? @_ : @{$t->{Slave}{$_[0]->PathName}};
if (($row -= $t->cget('-fixedrows')) >= 0)
elsif ($row >= $t->{Bottom})
$t->{Top} += ($row - $t->{Bottom}+1);
if (($col -= $t->cget('-fixedcolumns')) >= 0)
elsif ($col >= $t->{Right})
$t->{Left} += ($col - $t->{Right}+1);