package Anykey;
use File::Spec;

sub new 
{
	my ($class,%args) = @_;
	my $self = {
				widget => $args{widget}, value=>$args{value},
			};

	bless $self,$class;
	my $value = '/home/ghoshabh';
	$self->{textvariable} = \$value;
    $self->{widget}->configure(-textvariable => $self->{textvariable});
	$self->{widget}->bind('<Any-KeyPress>', sub { $self->onChange() } );

	return $self;
}



sub onChange
{
	my $self = shift;
	print "onChange is being called: ", ${$self->{textvariable}}, "\n";
	print "Widget onChange : ",$self->{widget}, "\n";
	unless($self->{isChanged}) {
	print "unless isChaned ", $self->{value}, "|",${$self->{textvariable}}, "\n";
		$self->{isChanged} = 1 if $self->{value} ne ${$self->{textvariable}};
	}
	$self->setValue(${$self->{textvariable}});
}
sub setValue
{
	my ($self,$value) = @_;
    $value = buildPath($value);
	$self->_setValue($value);
}
sub _setValue
{
	my ($self,$value) = @_;
	${$self->{textvariable}} = $value;
	$self->{value} = $value;
	$self->{widget}->xview('end');
}
	
	

sub setDir
{

	my $self = shift;
	my $mw  = shift;
	print "Inside setDir 1 : pkg $self || $self->{textvariable} ||shifted $mw ## \n";
	my $dir = $self->{widget}->chooseDirectory(-initialdir => $self->{value});
	print "Inside setDir 2 : pkg $self || $self->{textvariable} ## \n" ;
	if(defined $dir)
	{
		${$self->{textvariable}} = $dir;
		$self->onChange()
	}



}

sub buildPath
{
	my $path = shift;

	$path = File::Spec->canonpath($path);
	print  "buildPath : After canonpath: $path :\n" ; 

	if ( substr( $path, 0, 2 ) eq ".." )
	{
		$path = getcwd . "/" . $path;
		print  "buildPath : After substr and concat: $path :\n";

	}

	# remove the ..
	my @dirs = File::Spec->splitdir($path);
	print  "buildPath dirs: @dirs ||| \n" ;
	for ( my $i = @dirs - 1 ; $i > 0 ; $i-- )
	{
		my $skip = 0;
		while ( $dirs[$i] eq ".." )
		{
			$dirs[$i] = "";
			$i--;
			$skip++;
		}
		for ( ; $skip > 0 ; $skip-- )
		{
			if ( substr( $dirs[$i], 0, 1 ) ne '$' )
			{
				$dirs[$i] = "";
			}
			$i-- if $skip > 1;
		}
	}
	$path = File::Spec->catdir(@dirs);
	print  "buildPath : After spec:catdir : $path :\n" ;
  $path =~ s/\\/\//g;
  $retPath =~ s/\\/\//g;
	print  "buildPath : After final substn : $path || $retPath \n"; 

	return $path ;
}


1;