#!/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{exi
+t})->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 w
+indow",
                -command => [$subwin1 => 'destroy'])->pack(-side=>"bot
+tom");

                #=================================Creating save buttio
+n 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',-defau
+ltextension=>'.in');
}
[download]

Firstly, thanks formatting the page.

I saved the code as tk_edit_prob.pl, ran it and got:

$ tk_edit_prob.pl
Assuming 'require Tk::Gedi;' at ./tk_edit_prob.pl line 26
Tk::Error: Can't locate Tk/Gedi.pm in @INC (@INC contains: ...
[download]

Line 26 is:

                my $sublable = $subwin1->Scrolled('Gedi',
[download]

So, put use Tk::Gedi; after use Tk; - that's fairly minor.

I went to CPAN to get Tk::Gedi but it's not there. Let me know where you got this module from and I'll look into the problem further.

-- Ken

Hi ken, instead of that we can use this, in line 26

                my $sublable = $subwin1->Scrolled('Text',
[download]

vr786:

Thanks for formatting the code.

Please note that you can actually go back and repair a node, so next time you want to fix it, you can go back and add the code tags. Remember to add an "Update" to it, so people can see that the content changed. (It makes it easier to make sense of a conversation that way.)

...roboticus

Update: Actually, I didn't update this node. I just wanted to provide an example.