Move MainLoop; outside the while loop:

while(@array)
  {
  $file=pop @array;
  $top->Button(-text => "Click Me",-command => sub{ system "start c:/W
+INNT/system32/notepad.exe $file" })->pack();
  $x=$x+10;
  }
MainLoop;
[download]

Note that c:/WINNT/system32/notepad.exe is not very portable. Use either Notepad $file or just $file (if $file has a .txt extension).

thank you GrandFather i am able to get multiple widgets now but i need to have different control for each widget say by clicking each widget i need to open different files.how can i do that

This works for me:

use strict;
use warnings;
use Tk;

my @array = ("File1.txt", "File2.txt", "File3.txt");

my $main = MainWindow->new ();
while (@array)
  {
  my $name=pop @array;
  $main->Button
    (
    -text => "Open $name",
    -command => sub{`notepad $name`}
    )->pack();
  }

MainLoop;
[download]

---

Perl is Huffman encoded by design.

I am just wondering if you had a good reason not to write that as:

for my $file (@array){
  #do some stuff with $file
}
[download]

ie. a non destructive iteration over @array...

You said "at runtime", which sort of indicating that you may not know what buttons you need at compilation time. If that is the case, the following example might be useful.

use strict;
use warnings;
use Tk;

my @files = ("File1.txt", "File2.txt", "File3.txt"); #in real life, th
+is might not be fixed
my @buttons;

my $main = MainWindow->new();
my $load = $main->Button(-text => "Load", -command => \&load_buttons)-
+>pack();
my $unload = $main->Button(-text => "Unload", -command => \&unload_but
+tons)->pack();
MainLoop;

sub load_buttons {
    for my $file (@files) {
        push @buttons, $main->Button(-text => "Open $file", -command =
+> sub{`notepad $file`})->pack();
    }
}

sub unload_buttons {
    while (@buttons) {
        my $button = pop @buttons;
        $button->destroy();
    }
}
[download]

Just to clarify, this particular MainLoop should be removed not moved ;-)

Not alltogether true. The following is ok and can be usefull:

use strict;
use warnings;
use Tk;

my $main = MainWindow->new ();
$main->Button (-text => "Close", -command => sub{$main->destroy ();})-
+>pack();
MainLoop;

$main = MainWindow->new ();
$main->Button (-text => "Close too", -command => sub{$main->destroy ()
+;})->pack();
MainLoop;
[download]

---

Perl is Huffman encoded by design.

Hmm, how could this be useful? Can't you do the same with a Toplevel and only one MainLoop?