home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / TextUndo / OldSave.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  442 b   |  21 lines
  1. # NOTE: Derived from blib\lib\Tk\TextUndo.pm.  Changes made here will be lost.
  2. package Tk::TextUndo;
  3.  
  4. sub OldSave
  5. {
  6.  my $text = shift;
  7.  my $file = (@_) ? shift : $text->{FILE};
  8.  $text->BackTrace("No filename defined") unless (defined $file);
  9.  if (open(FILE,">$file"))
  10.   {
  11.    print FILE $text->get('1.0','end');
  12.    delete $text->{UNDO} if (close(FILE));
  13.   }
  14.  else
  15.   {
  16.    $text->BackTrace("Cannot open $file:$!");
  17.   }
  18. }
  19.  
  20. 1;
  21.