当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 2 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : [问题]Tk Entry不能输入
帖子发表于 : 2007-05-20 0:30 

注册: 2007-02-16 15:39
帖子: 16
送出感谢: 0 次
接收感谢: 0 次
Ubuntu 7.04版。
安装了一些基于Perl/Tk的软件如PerlPrimer, tkMelting等,都发现entry不能输入。
不知道怎么解决。恳请赐教!


页首
 用户资料  
 
2 楼 
 文章标题 : Re: [问题]Tk Entry不能输入
帖子发表于 : 2008-10-15 22:33 

注册: 2008-03-28 23:06
帖子: 131
送出感谢: 0 次
接收感谢: 0 次
perl/tk与XIM冲突引起的。
apt-get source perl-tk, 然后打补丁吧, 或者直接安装我的源里的版本。
deb http://ppa.launchpad.net/portis25/ubuntu intrepid main
deb-src http://ppa.launchpad.net/portis25/ubuntu intrepid main

--- pTk/mTk/generic/tkEvent.c 2008-09-05 13:29:48.000000000 +0800
+++ pTk/mTk/generic/tkEvent.c 2008-09-05 13:17:24.000000000 +0800
@@ -945,8 +945,10 @@
#endif
}
}
- if (XFilterEvent(eventPtr, None)) {
- goto done;
+ if(eventPtr->type == KeyPress || eventPtr->type == KeyRelease) {
+ if(XFilterEvent(eventPtr, None)) {
+ goto done;
+ }
}
}
#endif /* TK_USE_INPUT_METHODS */
--- pTk/mTk/unix/tkUnixEvent.c 2008-09-05 13:29:50.000000000 +0800
+++ pTk/mTk/unix/tkUnixEvent.c 2008-09-05 13:20:35.000000000 +0800
@@ -308,19 +308,18 @@
TransferXEventsToTcl(display)
Display *display;
{
- int numFound;
XEvent event;

- numFound = QLength(display);
-
/*
* Transfer events from the X event queue to the Tk event queue.
*/

- while (numFound > 0) {
+ while (QLength(display) > 0) {
XNextEvent(display, &event);
+ if(event.type!=KeyPress && event.type!=KeyRelease) {
+ if(XFilterEvent(&event, None)) {continue;}
+ }
Tk_QueueWindowEvent(&event, TCL_QUEUE_TAIL);
- numFound--;
}
}


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 2 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译