- 论坛徽章:
- 6
|
本帖最后由 stanley_tam 于 2013-12-31 21:38 编辑
初学Tkx,Newer MF按钮和Newer File按钮对齐不了, 下面是源码和图片。。。
求大神帮忙- #!perl
- use v5.14;
- use Tkx;
- my $file_type = 'file';
- # gui
- my $mw = Tkx::widget->new(".");
- my $frame = $mw->new_ttk__frame();
- # frame
- my $frame_m = $frame->new_ttk__labelframe(
- -text => 'Select MF file/folder',
- # -borderwidth => 5, -relief => "sunken", -width => 200, -height => 200
- );
- my $file_rb = $frame_m->new_ttk__radiobutton(
- -text => "From file",
- -variable => \$file_type,
- -value => "file",
- );
- my $folder_rb = $frame_m->new_ttk__radiobutton(-text => "From folder", -variable => \$file_type, -value => "Folder");
- my $old_mf_btn = $frame_m->new_ttk__button(
- -text => "Older MF",
- -command => sub {},
- );
- my $new_mf_btn = $frame_m->new_ttk__button(
- -text => "Newer MF",
- -command => sub {}
- );
- my $frame_ic = $frame->new_ttk__labelframe(-text => 'Select IC file');
- my $old_ic_btn = $frame_ic->new_ttk__button(-text => "Older file", -command => sub {});
- my $new_ic_btn = $frame_ic->new_ttk__button(-text => "Newer file", -command => sub {});
- $frame->g_grid(
- -column => 0,
- -row => 0,
- );
- $frame_m->g_grid(
- -column => 0,
- -row => 0,
- -columnspan => 2,
- -rowspan => 2,
- # -sticky => 'we',
- );
- $file_rb->g_grid(
- -column => 0,
- -row => 0,
- # -sticky => 'w',
- );
- $folder_rb->g_grid(
- -column => 1,
- -row => 0,
- # -sticky => 'w',
- );
- $old_mf_btn->g_grid(-column => 0, -row => 1,
- # -sticky => 'w',
- );
- $new_mf_btn->g_grid(-column => 1, -row => 1,
- # -sticky => 'w',
- );
- $frame_ic->g_grid(
- -column => 0,
- -row => 2,
- -columnspan => 2,
- -rowspan => 1,
- -sticky => 'ew',
- );
- $old_ic_btn->g_grid(-column => 0, -row => 2,
- -sticky => 'ew',
- );
- $new_ic_btn->g_grid(-column => 1, -row => 2,
- # -sticky => 'nswe',
- );
- foreach (Tkx::SplitList(Tkx::winfo_children("."))) {
- Tkx::grid_configure($_, -padx => 5, -pady => 5);
- }
- Tkx::MainLoop;
- sub select_file {
- # do nothing yet
- }
- __END__
复制代码 |
|