<pre name="code" class="sql">#!/usr/bin/perl
use Tk;
use DBI;
use encoding 'euc_cn';
###创建窗体
my $mw = MainWindow->new(-title => "system monitor",-bg=>"blue");
##定义左边菜单框体
$FRAME_L = $mw->Frame(-bg=>white)->pack(qw/-side left -fill both /);
#定义下拉菜单框
$WIDGET_F = $FRAME_L->Labelframe(-bg=>white)->pack(qw/-side top -fill both -expand 1 /);
##定义图片
#my $cns = $mw -> Canvas(-relief=>"sunken", -background=>"blue");
#$cns -> create('polygon',5,100,50,5,150,5,200,100,5,100,
#-joinstyle=>"bevel", -fill=>"red", -outline=>"white", -width=>5);
#$cns ->
Tk日志查看程序
最新推荐文章于 2022-06-06 15:44:52 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)