diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Table')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al | 17 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al | 15 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix | 14 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al | 46 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al | 13 | ||||
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al | 13 |
6 files changed, 0 insertions, 118 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al deleted file mode 100644 index 7900531ad3f..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Create.al +++ /dev/null @@ -1,17 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 533 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Create.al)" -sub Create -{ - my $t = shift; - my $r = shift; - my $c = shift; - my $kind = shift; - $t->put($r,$c,$t->$kind(@_)); -} - -# end of Tk::Table::Create -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al deleted file mode 100644 index b625efe8212..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/Posn.al +++ /dev/null @@ -1,15 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 552 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\Posn.al)" -sub Posn -{ - my ($t,$s) = @_; - my $info = $t->{Slave}{$s->PathName}; - return (wantarray) ? @$info : $info; -} - -# end of Tk::Table::Posn -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix b/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix deleted file mode 100644 index 1616ae28e83..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/autosplit.ix +++ /dev/null @@ -1,14 +0,0 @@ -# Index created by AutoSplit for blib\lib\Tk\Table.pm -# (file acts as timestamp) -package Tk::Table; -sub Create -; -sub totalColumns -; -sub totalRows -; -sub Posn -; -sub see -; -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al deleted file mode 100644 index 38841a76552..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/see.al +++ /dev/null @@ -1,46 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 559 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\see.al)" -sub see -{ - my $t = shift; - my ($row,$col) = (@_ == 2) ? @_ : @{$t->{Slave}{$_[0]->PathName}}; - my $see = 1; - if (($row -= $t->cget('-fixedrows')) >= 0) - { - if ($row < $t->{Top}) - { - $t->{Top} = $row; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($row >= $t->{Bottom}) - { - $t->{Top} += ($row - $t->{Bottom}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - if (($col -= $t->cget('-fixedcolumns')) >= 0) - { - if ($col < $t->{Left}) - { - $t->{Left} = $col; - $t->QueueLayout(_ViewChange); - $see = 0; - } - elsif ($col >= $t->{Right}) - { - $t->{Left} += ($col - $t->{Right}+1); - $t->QueueLayout(_ViewChange); - $see = 0; - } - } - return $see; -} - -1; -# end of Tk::Table::see diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al deleted file mode 100644 index bee111bbe80..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalColumns.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 542 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalColumns.al)" -sub totalColumns -{ - scalar @{shift->{'Width'}}; -} - -# end of Tk::Table::totalColumns -1; diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al b/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al deleted file mode 100644 index 88591cc7cab..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Table/totalRows.al +++ /dev/null @@ -1,13 +0,0 @@ -# NOTE: Derived from blib\lib\Tk\Table.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk::Table; - -#line 547 "blib\lib\Tk\Table.pm (autosplit into blib\lib\auto\Tk\Table\totalRows.al)" -sub totalRows -{ - scalar @{shift->{'Height'}}; -} - -# end of Tk::Table::totalRows -1; |