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()
{
	my ($Class) = (shift);

	my $Object = $Class->SUPER::new(@_);
	if(scalar(@{$Object->Get_Fields}) ne scalar(@{$Object->Get_Text_List}))
	{
		$Object->Croak_Error("Tk::Error: Insufficient Number of Fields or Entries\n");
	}
	$Object->{_Class} = $Class;
	$Object->Handle_Db;
	$Object->Store_Rec_Num(0);
	my $Record = $Object->Fetch_Record;
	$Object->Display_Record($Record);
	$Object->Current_Status;

	return $Object;
}

sub Populate()
{
	my ($this)  = (shift);

    eval
       {
        my $Bitmask = pack
           (
		"b25"x20,
            "........................",
            "........................",
            "........................",
            ".....111................",
            ".....111111.............",
            ".....111111111..........",
            ".....111111111111.......",
            ".....111111111111111....",
            ".....111111111111111....",
            ".....111111111111111....",
            ".....111111111111.......",
            ".....111111111..........",
            ".....111111.............",
            ".....111................",
            "........................",
            "........................",
		   );

        $this->Window()->DefineBitmap
           (
            'next' => 25, 20, $Bitmask
           );
       };