home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / Frame / scrollbars.al < prev   
Encoding:
Text File  |  1997-08-10  |  340 b   |  21 lines
  1. # NOTE: Derived from blib\lib\Tk\Frame.pm.  Changes made here will be lost.
  2. package Tk::Frame;
  3.  
  4. sub scrollbars
  5. {
  6.  my ($cw,$opt) = @_;
  7.  my $var = \$cw->{'-scrollbars'};
  8.  if (@_ > 1)
  9.   {
  10.    my $old = $$var;
  11.    if (!defined $old || $old ne $opt)
  12.     {
  13.      $$var = $opt;
  14.      $cw->queuePack;
  15.     }
  16.   }
  17.  return $$var;
  18. }
  19.  
  20. 1;
  21.