home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / Perl / Non-RPC / !Perl / riscos / RISCOS / DrawFile / Options.pm < prev    next >
Text File  |  1999-01-18  |  904b  |  43 lines
  1. package RISCOS::DrawFile::Options;
  2.  
  3. use strict;
  4. use vars qw ($VERSION @ISA);
  5.  
  6. require RISCOS::DrawFile::OpaqueObject;
  7.  
  8. $VERSION = 0.02;
  9. # 0.02 adds Translate
  10.  
  11. @ISA = 'RISCOS::DrawFile::OpaqueObject';
  12.  
  13. sub BBox { 0 }    # For the purpose of BBox merging we have none.
  14. *BBox_Calc = \&BBox;
  15. sub Translate { () };
  16. 1;
  17. __DATA__
  18. __END__
  19.  
  20. =head1 NAME
  21.  
  22. RISCOS::DrawFile::Options
  23.  
  24. =head1 SYNOPSIS
  25.  
  26. Class to handle options objects in DrawFiles
  27.  
  28. =head1 DESCRIPTION
  29.  
  30. C<RISCOS::DrawFile::Options> provides a class that stores objects used by
  31. Draw and DrawPlus to save program options in a DrawFile. The only difference
  32. between this class and its superclass C<RISCOS::DrawFile::OpaqueObject> is that
  33. C<BBox> and C<BBox_Calc> return C<0> to signify that the object doesn't have a
  34. bounding box for the purpose of file bounding box calculations.
  35.  
  36. =head1 BUGS
  37.  
  38. None known.
  39.  
  40. =head1 AUTHOR
  41.  
  42. Nicholas Clark <F<nick@unfortu.net>>
  43.