For your given code, you are not using a very good approach, but for the sake of teaching you, I will slightly modify it to show the principle.

#!/usr/bin/perl -w
use strict; 
use Tk;
use Tk::ProgressBar;
# Main Window
my $mw = new MainWindow;

# take out your geometry line to see what is happening,
# see how it resizes after removing the following line
# $mw->geometry("1600x900");

#GUI Building Area
#make the 2 header frames
my $topframe = $mw->Frame()->pack(-expand=>0, -fill=>'x');
my $secframe = $mw->Frame()->pack(-expand=>0, -fill=>'x');

my $label = $topframe ->Label (-text => "first", -foreground => "blue"
+, 
                      -font => "Arial 7") ->pack(-fill => 'x');


$label = $secframe ->Label (-text => "second", -foreground => "blue", 
                      -font => "Arial 12") ->pack(); # notice no fill 
+on this button


my $mainframe = $mw->Frame->pack(-expand=>1, -fill=>'both');


# make subframes for the rest, so you can add buttons 
my %frames;

foreach my $pos('third','forth','fifth','rest'){
  $frames{$pos} = $mainframe->Frame(-bg=>'white')->pack(-side=>'left',
                             -expand=>1, -fill=>'both');
  
  
  my $label = $frames{$pos} ->Label (-text => $pos, -foreground => "bl
+ue", -font=> "Arial 10") 
                         ->pack (-side => 'top', -anchor => 'nw', -ipa
+dx => '50', -fill => 'x');

 
            
  ###############################################
  #
  # Creating the button
  
   my $button = $frames{$pos}->Button(
    -text    => 'Create car folders '. $pos,
    -bac     => 'lightblue',
    -width   => '17', 
    -command => \&push_button)->pack(-side => 'top', -anchor=>'nw');

}


MainLoop;
[download]

#!/usr/bin/perl 
use warnings;
use strict;
use Tk;
use IPC::Open3;

$|=1;
my $pid=open3(\*IN,\*OUT,0,'/bin/sh');

my $mw = new MainWindow(-title=>'Left Click->Update   Right Click->Clo
+se');

$mw->fontCreate('medium',
      -family=>'courier',
      -weight=>'bold',
         -size=>int(-14*14/10));
     
my $text = $mw->Scrolled('Text',
                       -bg => 'black',
                      -fg => 'lightsteelblue',
                      -width => 130,
                     -height => 30, 
             -font => 'medium',
             )->pack;

$mw->fileevent(\*OUT,'readable',\&get_from);

$mw->bind('<ButtonPress-1>' => sub{
                $text->delete('1.0','end'); 
                $text->update;
        print IN "ps auxww\n";
                });

$mw->bind('<ButtonPress-3>' => sub{ exit });

print IN "ps auxww\n";

MainLoop;

sub get_from {
  my $pstext = (<OUT>);
  $text->insert('end',$pstext);
  $text->see('1.0');
 }
__END__
[download]

I appreciate this very much.

It really helps me.

Thank you one more time. Have a great day

hi

Odd, I can't see a button at all (i got win32)

what I would do is pack some Tk::Pane , and pack some labels/buttons inside them each pane

big boxes first, little boxes inside

qx() command is not working

can you show that code

Hi, Really odd, you should see the button....i use linux.

So somewhere in my GUI script i call another script in a subfunction, and it's looking like that:

my $name = $ent -> get();
my $log = qx(perl /xx/bgt/structure.pl $path_dir $name);
[download]

The problem is that in my $log variable i can't store the output of the script. Do you know an alternative to call a script and store the output into a variable? Thank's. Both of my variables that are used in the script call are defined, the call of the script is good, just that i can;t store the output into a variable

The reason the button is missing is the odd $mw size he has, in addition to the bizzare padding values. :-) Take out the geometry line and you may see it.

---

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh

The problem is that in my $log variable i can't store the output of the script. Do you know an alternative to call a script and store the output into a variable?

Well, that uses the shell, but should work if everythings properly quoted ... inside of tk and outside of tk ... if it isn't working ddumper up the value and examine it (a technique detailed in Basic debugging checklist and brian's Guide to Solving Any Perl Problem )

Alternatives are Capture::Tiny, IPC::Run3, String::ShellQuote , Win32::ShellQuote, Proc::Background, system_detached (yes, the links are copy/paste I dont like editing too much:D)

example in Perl::Tk, a question about pack geometry manager