home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / Canvas.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  578 b   |  28 lines
  1. package Tk::Canvas; 
  2. require Tk;
  3. @Tk::Canvas::ISA = qw(Tk::Widget); 
  4. Construct Tk::Widget 'Canvas';
  5.  
  6. bootstrap Tk::Canvas $Tk::VERSION;
  7.  
  8. sub Tk_cmd { \&Tk::canvas }
  9.  
  10. use Tk::Submethods ( 'create' => [qw(arc bitmap image line oval 
  11.                                  polygon rectangle text window)],
  12.                      'scan'   => [qw(mark dragto)],
  13.                      'select' => [qw(from clear item to)],
  14.                     );
  15.  
  16. *CanvasBind  = \&Tk::bind;
  17. *CanvasFocus = \&Tk::focus;
  18.  
  19. sub ClassInit
  20. {
  21.  my ($class,$mw) = @_;
  22.  $mw->XYscrollBind($class);
  23.  return $class;
  24. }
  25.  
  26. 1;
  27.  
  28.