Perl Tk pack佈局示例

use Tk; use strict; use DBI; # Main Window my $mw = new MainWindow; my $but1 = $mw -> Button(-text => "view cpu",-width=>300, -command =>\&push_button); $but1 -> pack(); my $but2 = $mw -> Button(-

>>阅读原文<<