请教下,这个Tk目录树结构用Tkx怎么实现?

本帖最后由 yuyuau 于 2011-06-16 12:11 编辑

#!/usr/bin/perl –w
#create a directory listing with DirTree
use Tk;
use strict;
use Tk:: DirTree;
use Cwd;
my $mw = MainWindow->new;
$mw->geometry("300x400");
$mw->title("DirTree Example");
my $CWD = Cwd::cwd();
my $DIR_TREE = $mw->Scrolled('DirTree',
                             -scrollbars => "osoe",
                             -width => 30,
                             -height => 25,
                             -exportselection => 1,
                             -browsecmd => sub {$CWD = shift},
                             -command   => \&show_cwd)->pack(-fill => "both",
                                                             -expand => 1);
$DIR_TREE->chdir($CWD);
my $button_frame = $mw->Frame()->pack(-side => "bottom");
$button_frame->Button(-text => "Ok",
                      -command => \&show_cwd)->pack(-side => "left");
$button_frame->Button(-text => "Exit",
                      -command => sub{exit})->pack(-side => "left");
sub show_cwd {
  $mw->messageBox(-message => "Directory Selected: $CWD", -type => "ok");
}
MainLoop;

未命名.GIF (14.15 KB)

下载次数:0

2011-06-16 12:07

作者: yuyuau   发布时间: 2011-06-16

自己顶下,求高手指点啊

作者: yuyuau   发布时间: 2011-06-16