view release on metacpan or  search on metacpan

DataControl.pm  view on Meta::CPAN

package DataControl;

use Tk;
use Tk::Balloon;
use strict;

use base qw(Tk::Derived Tk::Frame);
use vars qw($VERSION);
use Carp;

$VERSION = '0.01';

Tk::Widget->Construct('DataControl');

#----------------------------------------------------Constructors-----------------------------------------------------------------#

sub new()