- numFound = QLength(display);
-
/*
- * Transfer events from the X event queue to the Tk event queue.
+ * Transfer events from the X event queue to the Tk event queue
+ * after XIM event filtering. KeyPress and KeyRelease events
+ * are filtered in Tk_HandleEvent instead of here, so that Tk's
+ * focus management code can redirect them.
*/
-
- 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--;
}
}
下面安装这些软件:
[root@localhost home]# cd tcl8.5a3
[root@localhost home]# cd unix
[root@localhost home]# ./configure --prefix=/usr
--enable-gcc
--disable-threads
--disable-shared
[root@localhost home]# make clean
[root@localhost home]# make
[root@localhost home]# make install
[root@localhost home]# cd tk8.5a3
[root@localhost home]# cd unix
[root@localhost home]# ./configure --prefix=/usr
--enable-gcc
--disable-threads
--disable-shared
--enable-xft
--disable-symbols
[root@localhost home]# make clean
[root@localhost home]# make
[root@localhost home]# make install
[root@localhost home]# tar xvzf amsn-0.95.tar.gz
[root@localhost home]# cd amsn -0.95
[root@localhost home]# ./configure --with-tcl=/usr/lib && make clean && make