作者billmax (无)
看板perl
标题[问题] perl/TK 元件大小怎麽设都会不一样大！
时间Thu Jun 8 16:28:07 2006
程式如下， 已经有设ipadx ipady了， 为什麽四个button 还是不一样大?
#!/usr/bin/perl -w
use Tk;
use strict;
my $mw = MainWindow->new;
$mw->title("tsk converter");
$mw->Button(-text => "TOP", -command => sub { exit })
->pack(-side => 'top',-ipadx => "15",-ipady => "5",-padx => "3" ,-pady => "3",-fill => 'none');
$mw->Button(-text => "BOTTOM",-command => sub { exit })
->pack(-side => 'bottom' ,-ipadx=> "15",-ipady => "5",-padx => "3" ,-pady => "3", -fill => 'none');
$mw->Button(-text => "RIGHT", -command => sub { exit })
->pack(-side => 'right' ,-ipadx => "15",-ipady => "5",-padx => "3" ,-pady => "3", -fill => 'none');
$mw->Button(-text => "LEFT", -command => sub { exit })
->pack(-side => 'left' ,-ipadx => "15",-ipady => "5",-padx => "3" ,-pady => "3", -fill => 'none');
MainLoop;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 210.68.183.170