Perl语言入门和提高13

Perl语言入门和提高13

Info iconThis preview shows pages 1–2. Sign up to view the full content.

View Full Document Right Arrow Icon
Spring, 2008 1 Perl 语言高级编程专题 Lesson 13 周晓方 [email protected] Spring, 2008 2 Perl TK 最小 TK 程序 use TK; my $mw=MainWindow->new()->MainLoop; 安装情况 activeperl 5.6 5.8 预装了 Perl/TK activeperl 5.5 需要手工安装 Perl/TK 用这个命令查看是否按照了 Perl/TK 模块: per l -e "use TK;" 参考 http://www.lns.cornell.edu/~pvhp/ptk/ptkTOC.html Perl 的在线文档 C:/Perl/html/site/lib/Tk.html 《即时应用 Perl 模块》 ( 人邮 2001 ) 6 , 创建图形用户界面 Perl 编程经典》 ( 清华大学出版社 2002 ) 21 , 图形化与 Tk Lerning Perl Tk, O'Reilly 1999 Matering Perl/Tk, O'Reilly 2002 Spring, 2008 3 Perl TK version " Hello World! " Perl TK 程序的基本结构 use TK; # 创建主窗口 my $main= new MainWindow ; 构造窗体 , 添加组件 …… # 启动事件循环 $main-> MainLoop ; 主程序结束 定义子程序 1; #!/usr/bin/perl -w use strict; use Tk; my $main = new MainWindow; $main->title('^_^'); $main->Label(-text=>'Hello World!')->pack; $main->Label(-text=>'This is Perl/TK!') ->pack; $main->Button(-text => 'Quit', -command => sub{exit} )->pack; $main->MainLoop; 1; Spring, 2008 4 组件 传递 一般 创建时 传递 $T = $main->Label(-text => '#!^', - o2 => V2 , - o3 => V3 ) 取回 $V2 = $T->cget('- o2 '); 修改 $T->configure(- option => new_value); 情况 @a = $T->configure('-background'); 返回 :(background, background, Background, SystemButtonFace, SystemButtonFace) ( optionName, Name, Class, Default Value, Current Value ) @a = $T->configure; 返回所有 情况 ( 二维数 ) Spring, 2008 5 组件的 用参 (I) 文本 相对 组件的 位置 ( 钮、标签等 ) anchor => 'center' 'n' 'ne' 'e' 'se' 's' 'sw' 'w' 'nw' 背景颜色,前景颜色 background => 'red' 表示颜色 foreground => '#00ff00' 表示颜色 16 进制 RGB 显示 ( 钮,菜单 钮等 ) bitmap=>'question' bitmap=>[email protected]_filename' 边框宽度, 度,宽度 单位可以 c 厘米 ,I 英寸 ,m 毫米 ,p 象素 borderwidth => '4p' (缺省 2 象素) height => 20 (缺省 0 width => 100 (缺省 0 Spring, 2008 6 组件的 用参 (II) 边框样式 relief => 'groove' 'raised' 'sunken' 'flat' 'ridge' 'solid' 状态 state => 'disabled' 'normal' 'active' 文本 text => 'Hello world!' 变量 文本 ( 改变变量 值,随 更新显示 ) my $var = "AAA"; textvariable => \$var Spring, 2008 7 主窗体 ,标签 窗口 主窗口 (MainWindow) 创建 my $main = new MainWindow; 改标 $main -> title(" "); 取回标 $main->cget('-title');
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 2
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 11/27/2011 for the course CS Perl taught by Professor Guo during the Spring '09 term at Xiamen University.

Page1 / 4

Perl语言入门和提高13

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online