view release on metacpan or  search on metacpan

UpDown.pm  view on Meta::CPAN

package Tk::UpDown;

use Tk;
use strict;

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

$VERSION = '0.01';

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

sub new()
{
	my ($Class) = (shift);

	my $Object = $Class->SUPER::new(@_);
	$Object->{_CurValue} = $Object->{_InitValue};
	
	if($Object->{_InitValue} > $Object->{_EndValue})
	{
		croak "Tk::Error initdigit Should less than enddigit\n";
	}
	return $Object;
}

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

    eval
       {
        my $Bitmask = pack
           (
            "b8"x8,
            "..........",
            ".11111111.",
            "..111111..",
            "..111111..",
            "...1111...",
            "...1111...",
            "....11....",
            "....11....",
           );

        $this->Window()->DefineBitmap
           (
            'downtriangle' => 8, 8, $Bitmask
           );
       };

    eval
       {
        my $Bitmask = pack
           (
            "b8"x8,
            "....11....",
            "....11....",
            "...1111...",
            "...1111...",
            "..111111..",
            "..111111..",
            ".11111111.",
            "..........",
           );