NAME

Tk::HexEntryPlain - A hexadecimal entry widget

SYNOPSIS

use Tk::HexEntryPlain;

ATTENTION

This is only a changed copy from Tk::NumEntry and Tk::NumEntryPlain write from Graham Barr <gbarr@pobox.com>. Thanks for this great Module!

DESCRIPTION

Tk::HexEntryPlain defines a widget for entering hexadecimal values.

Tk::HexEntryPlain supports all the options and methods that a normal Entry widget provides, plus the following options

STANDARD OPTIONS

-repeatdelay -repeatinterval

WIDGET-SPECIFIC OPTIONS

-minvalue (decimal)

Defines the minimum legal value that the widget can hold. If this value is undef then there is no minimum value (default = undef).

-maxvalue (decimal)

Defines the maximum legal value that the widget can hold. If this value is undef then there is no maximum value (default = undef).

-bell

Specifies a boolean value. If true then a bell will ring if the user attempts to enter an illegal character into the entry widget, and when the user reaches the upper or lower limits when using the up/down buttons for keys (default = true).

-textvariable

Reference to a scalar variable that contains the value currently in the NumEntry. Use the variable only for reading (see "CAVEATS" below).

-value

Specifies the value to be inserted into the entry widget. Similar to the standard -text option, but will perform a range check on the value.

WIDGET METHODS

$numentry->incdec(increment)

Increment the value of the entry widget by the specified increment. If increment is 0, then perform a range check.

CAVEATS

-textvariable

-textvariable should only be used to read out the current value in the NumEntry.

Values set via -textvariable are not valided. Therefore it's possible to insert, e.g., 'abc', into the NumEntry.

EXAMPLE

 use Tk;
 use Tk::HexEntry;
 
 my $var = '0xff2c';
 
 my $mw = MainWindow->new; 
 
 my $en = $mw->HexEntry(
        -textvariable => \$var,
        -minvalue => 0xff2a,    # calculate intern with decimal values!
        -maxvalue => 0xffff,    # calculate intern with decimal values!
        )->pack;
 
 $mw->repeat(1000, [\&incvar, \$var]);
 
 MainLoop();
 
 sub incvar {
        my $var = shift;
        $$var = sprintf('%x', hex($$var) + 1);
        print $$var, "\n";
 }

SEE ALSO

Tk::NumEntry Tk::Entry

HISTORY

The code was extracted from Tk::NumEntry and slightly modified by Achim Bohnet <ach@mpe.mpg.de>. Tk::NumEntry's author is Graham Barr <gbarr@pobox.com>.

Rewrite to hexadecimal Values: Tk::HexEntry's author is Frank Herrmann <xpix@xpix.de>

COPYRIGHT

Copyright (c) 1997-1998 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Rewrite to Hexadecimal: Frank (xpix) Herrmann.