view release on metacpan or  search on metacpan

AbstractCanvas.pm  view on Meta::CPAN

# 524JDkqX: Tk::AbstractCanvas.pm by PipStuart     <Pip@CPAN.Org>, derived from Tk::WorldCanvas (by JosephSkrovan <Joseph@Skrovan.Com>
#    which was based on a version by RudyAlbachten <Rudy@Albachten.Com>)    and Tk::RotCanvas   (by AlaQumsieh    <AQumsieh@CPAN.Org>).
package     Tk::AbstractCanvas; # This module provides an alternative to Tk::Canvas which is able to zoom, pan, and rotate.
require     Tk::Derived;
require     Tk::Canvas;
use strict;use warnings;use utf8;
use         Tk;
use         Carp;
our $VERSION     = '1.82';my $d8VS='H7DMAlTk';
@Tk::AbstractCanvas::ISA = qw(Tk::Derived Tk::Canvas); Construct Tk::Widget 'AbstractCanvas';
sub Tk::Widget::ScrlACnv { shift->Scrolled('AbstractCanvas'=>@_) }
my %_can_rotate_about_center = ( # If objects can't rotate about their center, their center can at least rotate about another point on the canvas.
  line      => 1,
  polygon   => 1,
);
my %_rotate_methods = (
  line      => \&_rotate_line,
  text      => \&_rotate_line,
  image     => \&_rotate_line,
  bitmap    => \&_rotate_line,