view release on metacpan or  search on metacpan

CursorControl.pm  view on Meta::CPAN

*jail = \&confine;
*free = \&release;
*Show = \&show;

Construct Tk::Widget 'CursorControl';

sub new {
  my ( $me, $parent ) = @_;
  my $class = ref($me) || $me;
  my $self = {};
  bless $self => $class;

  # provide access to class data
  $self->{_Init}       = \$AlreadyInit;
  $self->{_CurrentObj} = \$CurrentObject;

  # set MainWindow reference in 'accessible' class data
  $Main = $parent->MainWindow;
  $parent->OnDestroy( sub { $self->DESTROY } );
  $self->{MAIN} = \$Main if ( defined $Main );