use strict;
use Tk;
package prj::cftpwindow;

    ###########################################################
    # Constructor
    ##################
    sub new 
    {
        my     $this = shift;
        my     $thisref     = ref($this) || $this;
        my     $self;
            $self->{window}          = MainWindow->new (-title => "FTP-Transfer");
#              $self->{leftpath}         = $_[0];
#              $self->{leftdir}         = undef;
#              $self->{left}             = undef;
#              $self->{right}             = undef;
        bless ($self, $thisref);
        
#        $self->show();
    }