home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Widget / Scrolled.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  894 b   |  31 lines
  1. # NOTE: Derived from blib\lib\Tk\Widget.pm.  Changes made here will be lost.
  2. package Tk::Widget;
  3.  
  4. sub Scrolled
  5. {
  6.  my ($parent,$kind,%args) = @_;
  7.  my @args = Tk::Frame->CreateArgs($parent,\%args);
  8.  my $name = delete $args{'Name'};
  9.  push(@args,'Name' => $name) if (defined $name);
  10.  my $cw = $parent->Frame(@args);
  11.  @args = ();
  12.  my $k;
  13.  # Need to consider other 'Frame' configure options...
  14.  foreach $k ('-scrollbars',map($_->[0],$cw->configure))
  15.   {
  16.    push(@args,$k,delete($args{$k})) if (exists $args{$k})
  17.   }
  18.  $cw->ConfigSpecs('-scrollbars' => ['METHOD','scrollbars','Scrollbars','se'],
  19.                   '-background' => ['CHILDREN','background','Background',undef], 
  20.                  );
  21.  my $w  = $cw->$kind(%args);
  22.  %args = @args;
  23.  $cw->AddScrollbars($w);
  24.  $cw->Default("\L$kind" => $w);
  25.  $cw->ConfigDefault(\%args);
  26.  $cw->configure(%args);
  27.  return $cw;
  28. }
  29.  
  30. 1;
  31.