*/

-

- 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 ，大功告成！