Perl/Tk - get 3 widgets in line

[MoshiachNow]

HI,

The following code meant to have all 3 digets in line.
However the progress bar is always at the bottom.
What is my mistake?
thanks

$frm5=$mw->Frame()->pack(-side=>'top',-padx=>15,-fill=>'x');
$sb = $frm5->StatusBar;
if (-f "$INSTPATH\\autoupd.txt") {
$but8 = $frm5-> Button(-text=>"Disable AutoCheck",- font =>'tahoma 7',-command =>\&disableAuto);
$but8->pack(-side=>'left',-pady=>5);

} else {
$but9 = $frm5 -> Button(-text=>"Enable AutoCheck",- font =>'tahoma 7',-command =>\&enableAuto); $but9->pack(-side=>'left',-pady=>5);
}

#define status bar
$sb->addProgressBar(-width=>10,-length=>500,-from=>0,-to=>100,-anchor=>'e',-variable=>\$PROGRESS,-colors=>[0 => 'blue'],-blocks =>100);
$sb->pack(-side=>'left');

$but4 = $frm5 -> Button(-text=>" Exit ",-font => 'tahoma 7',-command =>\&KILL_DOWNLOAD, -width =>7);
$but4-> pack(-side=>'left');


Long live king Moshiach !

http://www.noahide.com

 

[Kirsle]

Tk::StatusBar was meant to always be at the bottom. Hence why it's a "status bar". If you look into its code, though, you'll find that it's basically just a Frame with an icon in the corner that can be used to drag and resize the window. So, if you want your progress bar to not be at the bottom of the window, don't use StatusBar.

-------------
Cuvou.com | My personal homepage
Project Fearless | My web blog

 

[MoshiachNow]

thanks !

Long live king Moshiach !

http://www.noahide.com