I think I found your problem, you have to define a frame for each "Model File" and "Range File" lines and make them to pack to the top and fill 100% the x axis, then within the frames you add all components justified to the left
# CREATE MODEL FILE FRAME
my $model_info_frame = $mw->Frame->pack( -side => "top", -fill => 'x'
+);
# Label
$model_info_frame->Label( -text => "Model File : " )->pack( -side => "
+left" );
# Input field
$model_info_frame->Entry(
-width => 60,
-textvariable => \$filename
)->pack( -side => "left" );
# Browse files button
$model_info_frame->Button(
-text => "...",
-command => sub {
$filename = $mw->getOpenFile( -title => 'File Browser' );
}
)->pack( -side => "left" );
# CREATE RANGE FILE FRAME
my $range_info_frame = $mw->Frame->pack( -side => "top", -fill => 'x'
+);
# Label
$range_info_frame->Label( -text => "Range File : " )->pack( -side => "
+left" );
# Input field
$range_info_frame->Entry(
-width => 60,
-textvariable => \$filename
)->pack( -side => "left" );
# Browse files button
$range_info_frame->Button(
-text => "...",
-command => sub {
$filename = $mw->getOpenFile( -title => 'File Browser' );
}
)->pack( -side => "left" );
your code has mixed syntax like grid and pack, use grid to define layouts based on rows and columns
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|