...just realized that i didn't install perl-tk...
登录 | 论坛导航 -> 华新鲜事 -> 求学狮城 | 本帖共有 1 楼,分 1 页, 当前显示第 1 页 : 本帖树形列表 : 刷新 : 返回上一页
<<始页  [1]  末页>>
作者:hash (等级:7 - 出类拔萃,发帖:5077) 发表:2007-06-15 19:56:42  楼主  关注此帖
perl之达人请进有这样一段code #!/usr/bin/perl -w use Tk; my $mw = MainWindow -> new(); $mw -> configure (-width => 200, -height => 200); my $tf = $mw -> Entry (-width => 10, -background => "white") -> pack (-side => "left"); $tf -> insert ("end", "kao"); my $button = $mw -> Button (-text => "GO", -background => "white") -> pack (-side => "right"); MainLoop(); 运行之后发现textfield $tf就不是editable的了,但是如果我把顺序换过来,button在tf的前面的话,就可以了。 #!/usr/bin/perl -w use Tk; my $mw = MainWindow -> new(); $mw -> configure (-width => 200, -height => 200); my $button = $mw -> Button (-text => "GO", -background => "white") -> pack (-side => "right"); my $tf = $mw -> Entry (-width => 10, -background => "white") -> pack (-side => "left"); $tf -> insert ("end", "kao"); MainLoop(); 请问是为什么?
...just realized that i didn't install perl-tk...
欢迎来到华新中文网,踊跃发帖是支持我们的最好方法!原文 / 传统版 / WAP版所有回复从这里展开收起列表
论坛导航 -> 华新鲜事 -> 求学狮城 | 返回上一页 | 本主题共有 1 篇文章,分 1 页, 当前显示第 1 页 | 回到顶部
<<始页  [1]  末页>>

请登录后回复:帐号   密码