home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / TextUndo / Save.al < prev   
Encoding:
Text File  |  1997-08-10  |  597 b   |  27 lines
  1. # NOTE: Derived from blib\lib\Tk\TextUndo.pm.  Changes made here will be lost.
  2. package Tk::TextUndo;
  3.  
  4. sub Save
  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.    my $index = '1.0';
  12.    while ($text->compare($index,'<','end'))
  13.     {
  14.      my $end = $text->index("$index + 1024 chars");
  15.      print FILE $text->get($index,$end);
  16.      $index = $end;
  17.     }
  18.    delete $text->{UNDO} if (close(FILE));
  19.   }
  20.  else
  21.   {
  22.    $text->BackTrace("Cannot open $file:$!");
  23.   }
  24. }
  25.  
  26. 1;
  27.