如何使用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）;