#!/usr/bin/perl -w
# Create a sub window at the request of the user

use Tk;
use strict;

my $mw = MainWindow->new;
$mw->configure(-background => 'black',
                -foreground => 'white');
$mw->geometry("400x100");
$mw->title("Multiple Windows Test");

my $button1 = $mw->Button(
                        -text => "view Results",
                        -background => "cyan",
                        -command => \&button1_sub)->pack(-side=>"right");
                      $mw->Button(-text => "Exit", -command => sub{exit})->pack(-side=>"bottom");

sub button1_sub {
                my $subwin1 = $mw->Toplevel;
                $subwin1->geometry("400x300");
                $subwin1->title("Sub Window #1");
                my $fh;
                open ($fh,"<test.txt") or die $!;
my @contents = <$fh>;
                my $sublable = $subwin1->Scrolled('Text',
                                                -scrollbars => 'osoe',
                                                )->pack;
                $sublable->insert('end',@contents);
                close($fh);
                my $subwin_button = $subwin1->Button(-text => "Close window",
                -command => [$subwin1 => 'destroy'])->pack(-side=>"bottom");

                #=================================Creating save buttion on subwindow ===========

                my $save_button = $subwin1->Button(-text=>'save',
                                                -command =>\&get_save,
                                                -background =>'cyan')->pack(-side=>'right');

}

MainLoop;

sub get_save {
                getSaveFile(-title => 'Select a file to APPEND',-defaultextension=>'.in');
}