~ubuntu-branches/ubuntu/natty/perl-tk/natty

# This program is free software; you can redistribute it and/or

# modify it under the same terms as Perl itself.

package Tk::Table;

use strict;

 

use vars qw($VERSION);

 

use Tk::Pretty;

use AutoLoader;

 my $why   = $t->{LayoutPending};

 $t->{LayoutPending} = 0;

 

  {

   $t->{xsb} = $t->Scrollbar(-orient => 'horizontal', -command => ['xview' => $t]) unless (defined $t->{xsb});

   $xsb   = $t->{xsb};

   $xs[3] = $xsb->ReqHeight;

    {

     $xs[1] = $tadj;

     $tadj += $xs[3];

   $t->{xsb}->UnmapWindow if (defined $t->{xsb});

  }

 

  {

   $t->{ysb} = $t->Scrollbar(-orient => 'vertical', -command => ['yview' => $t]) unless (defined $t->{ysb});

   $ysb    = $t->{ysb};

   $ys[2]  = $ysb->ReqWidth;

    {

     $ys[0] = $ladj;

     $ladj += $ys[2];

 if (@_ > 1)

  {

   $t->_configure(-rows => $r);

   $t->QueueLayout(16);

  }

 return $t->_cget('-rows');

 if (@_ > 1)

  {

   $t->_configure(-columns => $r);

   $t->QueueLayout(16);

  }

 return $t->_cget('-columns');