[已解決]Tkx grid按鈕對齊失敗

stanley_tam

初學(xué)Tkx，Newer MF按鈕和Newer File按鈕對齊不了, 下面是源碼和圖片。。。
求大神幫忙

1. #!perl
   
2. use v5.14;
   
3. use Tkx;
   
4. 
   
5. 
   
6. my $file_type = 'file';
   
7. 
   
8. # gui
   
9. my $mw = Tkx::widget->new(".");
   
10. my $frame = $mw->new_ttk__frame();
    
11. 
    
12. # frame
    
13. my $frame_m = $frame->new_ttk__labelframe(
    
14.     -text => 'Select MF file/folder',
    
15. # -borderwidth => 5, -relief => "sunken", -width => 200, -height => 200
    
16. );
    
17. 
    
18. my $file_rb = $frame_m->new_ttk__radiobutton(
    
19.     -text     => "From file",
    
20.     -variable => \$file_type,
    
21.     -value    => "file",
    
22. );
    
23. my $folder_rb = $frame_m->new_ttk__radiobutton(-text => "From folder", -variable => \$file_type, -value => "Folder");
    
24. 
    
25. my $old_mf_btn = $frame_m->new_ttk__button(
    
26.     -text => "Older MF",
    
27.     -command => sub {},
    
28. );
    
29. my $new_mf_btn = $frame_m->new_ttk__button(
    
30.     -text => "Newer MF",
    
31.     -command => sub {}
    
32. );
    
33. 
    
34. 
    
35. my $frame_ic   = $frame->new_ttk__labelframe(-text => 'Select IC file');
    
36. my $old_ic_btn = $frame_ic->new_ttk__button(-text => "Older file", -command => sub {});
    
37. my $new_ic_btn = $frame_ic->new_ttk__button(-text => "Newer file", -command => sub {});
    
38. 
    
39. $frame->g_grid(
    
40.     -column     => 0,
    
41.     -row        => 0,
    
42. );
    
43. 
    
44. $frame_m->g_grid(
    
45.     -column     => 0,
    
46.     -row        => 0,
    
47.     -columnspan => 2,
    
48.     -rowspan    => 2,
    
49.     # -sticky   => 'we',
    
50. );
    
51. 
    
52. $file_rb->g_grid(
    
53.     -column   => 0,
    
54.     -row      => 0,
    
55.     # -sticky => 'w',
    
56. );
    
57. 
    
58. $folder_rb->g_grid(
    
59.     -column => 1,
    
60.     -row => 0,
    
61.     # -sticky => 'w',
    
62. );
    
63. 
    
64. $old_mf_btn->g_grid(-column => 0, -row => 1,
    
65.     # -sticky => 'w',
    
66. );
    
67. 
    
68. $new_mf_btn->g_grid(-column => 1, -row => 1,
    
69.     # -sticky => 'w',
    
70. );
    
71. 
    
72. 
    
73. $frame_ic->g_grid(
    
74.     -column     => 0,
    
75.     -row        => 2,
    
76.     -columnspan => 2,
    
77.     -rowspan    => 1,
    
78.     -sticky   => 'ew',
    
79. );
    
80. 
    
81. $old_ic_btn->g_grid(-column => 0, -row => 2,
    
82.     -sticky => 'ew',
    
83. );
    
84. $new_ic_btn->g_grid(-column => 1, -row => 2,
    
85.     # -sticky => 'nswe',
    
86. );
    
87. 
    
88. foreach (Tkx::SplitList(Tkx::winfo_children("."))) {
    
89.     Tkx::grid_configure($_, -padx => 5, -pady => 5);
    
90. }
    
91. 
    
92. Tkx::MainLoop;
    
93. 
    
94. sub select_file {
    
95.     # do nothing yet
    
96. }
    
97. 
    
98. 
    
99. __END__

復(fù)制代碼

stanley_tam

沒人回。。。自己頂。。。
感覺grid的網(wǎng)格在不同的frame是獨(dú)立的。。。

Tonyish

對的
回復(fù) 2# stanley_tam


   

stanley_tam

O(∩_∩)O謝謝
請問下左上角的Tk圖標(biāo)怎么去掉,換成其他的圖標(biāo)？
回復(fù) 3# Tonyish


   

Tonyish

$mw ->g_wm_iconphoto(-file=>'');
回復(fù) 4# stanley_tam


   

stanley_tam

再次謝謝，原來tkx自帶這樣的功能，還以為要其他軟件弄呢{:3_193:}
回復(fù) 5# Tonyish


   

stanley_tam

報(bào)錯(cuò)not a photo image...
那個(gè)文件的格式有什么要求？
回復(fù) 5# Tonyish