view release on metacpan or  search on metacpan

PathEntry.pm  view on Meta::CPAN

# Mail: srezic@cpan.org
# WWW:  https://github.com/eserte/tk-pathentry
#

package Tk::PathEntry;

use strict;
use vars qw($VERSION);
$VERSION = '3.08';

use base qw(Tk::Derived Tk::Entry);

Construct Tk::Widget 'PathEntry';

sub ClassInit {
    my($class,$mw) = @_;
    $class->SUPER::ClassInit($mw);

    # <Down>  -  popup the choices window
    $mw->bind($class,"<Down>" => sub {
		  my $w = shift;