Tk-GBARR-2.08000755 001750 001750 00000000000 11066244103 013412 5ustar00eserteeserte000000 000000 Tk-GBARR-2.08/t000755 001750 001750 00000000000 11066244103 013655 5ustar00eserteeserte000000 000000 Tk-GBARR-2.08/alpha000755 001750 001750 00000000000 11066244103 014477 5ustar00eserteeserte000000 000000 Tk-GBARR-2.08/Changes000444 001750 001750 00000010773 11066242762 015003 0ustar00eserteeserte000000 000000 *** Release 2.08 - make test scripts more robust against missing DISPLAY *** Release 2.07 - fixed foreground propagation in Tk::NumEntry *** Release 2.06 - documented NumEntryPlain's -command option - added -browsecmd option to NumEntryPlain *** Release 2.05 - added -readonly option to NumEntry *** Release 2.04 - warning fix in NumEntryPlain (thanks to John Coers) *** Release 2.03 - NumEntry uses NumEntryPlain's -increment value - new test for NumEntryPlain *** Release 2.02 - new version numbers for all modules (now auto-generated) *** Release 2.01 - new methods for widget construction in Tk::NumEntry (NumEntryPlainWidget, FireButtonWidget, IncFireButtonWidget, DecFireButtonWidget) and Tk::FireButton (INCBITMAP, HORIZINCBITMAP, DECBITMAP, HORIZDECBITMAP). - NumEntryPlain: - new key bindings for Home, End, Prior and Next - new options: -increment and -bigincrement - Insert now accepts floating numbers, if -increment is a floating number *** Release 2.00 - Removed Tk::Pane and Tk::ProgressBar - these are in the standard Tk distribution. To get these modules, grab the old 1.401 Tk-GBARR distribution. - Better subclassing - FireButton has now horizontal bitmaps, too. The new option -orient in NumEntry can be used to create horizontal bitmaps. - New Cloth item type Grid - Replaced @ISA with "use base" - Some POD additions. - More regression tests *** Release ? Tk::ProgressBar o value() method now resets value to -from option value when it get the undef value. (Now creating a ProgressBar without args does not complain about undefined values. o Tk800 markup style fixes in POD Tk::NumEntryPlain o replaced DoWhenIdle with afterIdle so a pending idle callback is canceled when widget is destroyed. o Used 'incdec' instead of \&incdec in afterIdle callback for proper subclassing. o enabled -textvariable + doc: that's only save for read Tk::NumEntry: o specify -anchor=>'center' for FireButton so one does not rely on the fact that it's the default. o explicitly with off Focus of FireButton to prevent hanging focus with hidden buttons. o Tk800 markup style fixes in POD Tk::FireButton: o Apply Slaven Rezic (thanks) Firebutton patch so option handling work and ContextHelp works with FireButton. This also fixes the 'hanging focus' problem Stephen O'Lidie reported with NumEntry and hidden inc/dec. o Tk800 markup style fixes in POD o removed -anchor from ConfigSpec because it same as for Button. Tk::TFrame Tk::Pane Tk::Cloth o Tk800 markup style fixes in POD o CR update and email pobox.com Tk/*, Makefile.PL, MANIFEST o better perllocal.pod entry now Tk::GBARR instead of Tk (moved Tk/* . and set WriteMakefile's NAME to Tk::GBARR, updated MANIFEST) o added 1998 to copyright and changed @ti.com @pobox.com. t/0basic.t o simple tests for all widgets (derived from Tk800.005/t/create.t). Finds ConfigSpecs bug. t/1numentryplain.t o test if read of -textvariable works. *** Release 1.03 Wed Dec 10 1997 (Graham Barr) Tk::NumEntry - changed -repeat* ConfigSpecs to [$binc,$bdec] Tk::NumEntryPlain - Removed -repeat* ConfigSpecs - Added -defaultvalue ConfigSpec for when the entry contains no text examples/numentry, examples/numentryplain - Updated to use -defaultvalue Wed Dec 10 1997 (Graham Barr) Tk::Pane - Fixed 'Use of uninitialized' warnings Tk::ListMgr - Renamed Tk::ListItem to be Tk::ListMgr::Item Tk::MenuEntry - Changed to use DefineBitmap Tk::IFrame - Changed userInfo to privateData Tk::Cloth - Several bug fixes Tk::TFrame - Fix bug of not mapping widows if container frame was empty Added - examples/firebutton - examples/numentryplain - Tk::FireButton - Tk::NumEntryPlain - tests Tue Dec 9 1997 (Graham Barr) Tk::TFrame - Changed from using place to being a geom manager. This allows TFrame to see GeometryRequests from it's children. Tue Nov 4 1997 (Graham Barr) Tk::Pane - Added see method Tk::Cloth - Several bugfixes examples/pane2 - new example Mon Sep 15 1997 (Graham Barr) -w cleanups Achim's patch *** Release 1.02 - Fixed all widgets to they are -w and use strict clean - Now all widgets have a $VERSION - Changes to Makefile.PL to ensure clean install - Added alpha directory *** Release 1.01 - Added Tk::NumEntry - Added Tk::ProgressBar Tk-GBARR-2.08/FireButton.pm000444 001750 001750 00000012314 07745573627 016140 0ustar00eserteeserte000000 000000 # POD after __END__ # $Id: FireButton.pm,v 1.5 2003/10/22 21:33:11 eserte Exp $ package Tk::FireButton; use Tk 402.002 (); # for DefineBitmap use Tk::Derived; use Tk::Button; use strict; use vars qw(@ISA $VERSION); @ISA = qw(Tk::Derived Tk::Button); $VERSION = sprintf("%d.%02d", q$Revision: 1.5 $ =~ /(\d+)\.(\d+)/); Construct Tk::Widget 'FireButton'; use vars qw($DECBITMAP $INCBITMAP $HORIZDECBITMAP $HORIZINCBITMAP); $INCBITMAP = __PACKAGE__ . "::inc"; $DECBITMAP = __PACKAGE__ . "::dec"; $HORIZINCBITMAP = __PACKAGE__ . "::horizinc"; $HORIZDECBITMAP = __PACKAGE__ . "::horizdec"; my $def_bitmaps = 0; sub ClassInit { my($class,$mw) = @_; unless($def_bitmaps) { my $bits = pack("b8"x5, "........", "...11...", "..1111..", ".111111.", "........"); $mw->DefineBitmap($INCBITMAP => 8,5, $bits); # And of course, decrement is the reverse of increment :-) $mw->DefineBitmap($DECBITMAP => 8,5, scalar reverse $bits); my @rot_bits = (".....", ".1...", ".11..", ".111.", ".111.", ".11..", ".1...", "....."); my $rot_bits = pack("b5"x8, @rot_bits); my $mirrored_rot_bits = pack("b5"x8, map { scalar reverse } @rot_bits); $mw->DefineBitmap($HORIZINCBITMAP => 5,8, $rot_bits); $mw->DefineBitmap($HORIZDECBITMAP => 5,8, $mirrored_rot_bits); $def_bitmaps = 1; } $class->SUPER::ClassInit($mw); } sub butDown { my $b = shift; my $fire = shift || 'initial'; if ($fire eq 'initial') { # XXX why isn't relief saving done the Tk::Button as #soon as callback is invoked? $b->{tk_firebutton_save_relief} = $b->cget('-relief'); $b->RepeatId($b->after( $b->cget('-repeatdelay'), [\&butDown, $b, 'again']) ); } else { $b->invoke; $b->RepeatId($b->after( $b->cget('-repeatinterval'), [\&butDown, $b, 'again']) ); } $b->SUPER::butDown; } sub butUp { my $b = shift; $b->CancelRepeat; $b->SUPER::butUp; $b->configure(-relief=>$b->{tk_firebutton_save_relief}) if $b->{tk_firebutton_save_relief}; } sub Populate { my($b,$args) = @_; $b->SUPER::Populate($args); $b->ConfigSpecs( # Override button fallbacks -padx => [qw(SELF padX Pad 0)], -pady => [qw(SELF padY Pad 0)], # new options -repeatdelay => [qw(PASSIVE repeatDelay RepeatDelay 300)], -repeatinterval => [qw(PASSIVE repeatInterval RepeatInterval 100)], ); $b; } sub INCBITMAP { $INCBITMAP } sub HORIZINCBITMAP { $HORIZINCBITMAP } sub DECBITMAP { $DECBITMAP } sub HORIZDECBITMAP { $HORIZDECBITMAP } 1; __END__ =head1 NAME Tk::FireButton - Button that keeps invoking callback when pressed =head1 SYNOPSIS use Tk::FireButton; $fire = $parent->FireButton( ... ); # May/should change: $w->Whatever(... -bitmap => $Tk::FireButton::INCBITMAP, ...); $w->Whatever(... -bitmap => $Tk::FireButton::DECBITMAP, ...); $w->Whatever(... -bitmap => $Tk::FireButton::HORIZINCBITMAP, ...); $w->Whatever(... -bitmap => $Tk::FireButton::HORIZDECBITMAP, ...); =head1 DESCRIPTION B is-a B