如何使用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 - ＆gt; configure（-width =＆gt; 100，-height =＆gt; 100）;