如何使用Perl Tkx设置固定窗口大小

Question

我正在尝试使用perl创建一个GUI窗口。但是在不同的系统中，所创建的GUI窗口大小不同。

请任何人告诉我，如何设置固定的大小，这样，它不会改变取决于以下因素，

-我们在桌面中设置的任何分辨率

-任何我们使用的系统

-我们使用的任何操作系统

我在Perl中使用的代码片段：

use Tkx;
my $MainWindow = Tkx::widget -> new(".");
$MainWindow -> g_wm_geometry("600x15+340+612");

$MainFrame = $MainWindow -> new_ttk__frame();
$ExtractionTypeLabel = $MainFrame -> new_ttk__label(-text => <<TEXT>>,
-padding => 10,
);
$ExtractionTypeSingle = $MainFrame -> new_ttk__radiobutton(-text =>$ConfMainSingleExtractionText,
-variable => \$ExtractionTypeVal,
-value => $ConfMainSingleExtractionText,
-command => \&SINGLE_RADIO_BUTTON_LISTENER,
);
##### ALIGNMENT IN GRID LAYOUT #####
$ExtractionTypeLabel -> g_grid(-row => 3, -column => 0, -pady => 1);
$ExtractionTypeSingle -> g_grid(-row => 4, -column => 0, -ipadx => 4);
##### PACK #####
$MainFrame -> g_pack(-in => $MainWindow);
Tkx::MainLoop();
exit;

Answer 1

试着设置一个特定的窗口大小。

$MainWindow ->configure( -width=> 100，-height=> 100 )；