[root@localhost ~]#rpm -qa|grep tcl
tcl8.4*****
[root@localhost ~]#rpm -e tcl
[root@localhost ~]#rpm -qa|grep tk
tk8.4*****
[root@localhost ~]#rpm -e tk
如果卸载tcl发现有其他安装包依赖于tcl,如果那些包不重要,就先删那些包,当然你也可以rpm -e --nodeps tcl卸载。
[root@localhost home]# tar xvzf tcl8.5a3-src.tar.gz
[root@localhost home]# tar xvzf tk8.5a3-src.tar.gz
在安装它们之前需要先进行diff打patch,命令很简单:patch -p0 < tk-cvs-xim-fixes.diff
不过为大家解析一下jserv大大的这个patch文件内容,这样理解起来大家更容易些,中文输入都是我说的话(针对Linux菜鸟,汗!其实偶也是菜鸟)
Index: generic/tkEvent.c
===================================================================
RCS file: /home/tk8.5a3/generic/tkEvent.c,v //遭修改的文件 tkEvent.c
retrieving revision 1.31
diff -u -p -r1.31 tkEvent.c
--- generic/tkEvent.c 4 Nov 2005 11:52:50 -0000 1.31
+++ generic/tkEvent.c 4 Jan 2006 06:31:19 -0000
@@ -449,8 +449,10 @@ InvokeInputMethods( //大概在449行左右的位置,在InvokeInputMethods方法里
XSetICFocus(winPtr->inputContext);
}
}
- if (XFilterEvent(eventPtr, None)) { // 删
- return 1; //删
+ if (eventPtr->type == KeyPress || eventPtr->type == KeyRelease) { //增加的内容
+ if (XFilterEvent(eventPtr, None)) { //增加
+ return 1; //增加
+ } //增加
}
}
return 0;
Index: unix/tkUnixEvent.c
===================================================================
RCS file: /home/tk8.5a3/unix/tkUnixEvent.c,v
retrieving revision 1.19
diff -u -p -r1.19 tkUnixEvent.c
--- unix/tkUnixEvent.c 7 Dec 2005 17:32:52 -0000 1.19
+++ unix/tkUnixEvent.c 4 Jan 2006 06:31:20 -0000
@@ -334,19 +334,22 @@ static void
TransferXEventsToTcl(
Display *display)
{
- int numFound;
XEvent event;
- 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
非常关键的两个link!!!
[root@localhost home]#ln -s /usr/bin/wish8.5 /usr/bin/wish
[root@localhost home]#ln -s /usr/bin/tclsh8.5 /usr/bin/tclsh
最后解压amsn-0.95.tar.gz
[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
最后运行amsn ,大功告成!
[root@localhost home]# ./amsn
摘自:chinaunix.net