ns2一个问题：code omitted because of length

用nam运行很简单的tcl脚本，会出现以下问题：

[code omitted because of length]
: no event type or button # or keysym
    while executing
"bind Listbox {
%W yview scroll [expr {- (%D / 120) * 4}] units
}"
    invoked from within
"if {[tk windowingsystem] eq "classic" || [tk windowingsystem] eq "aqua"} {
bind Listbox {
%W yview scroll [expr {- (%D)}] units
}
bind Li..."

经过查证，ns-2.34及以上版本不会出现这种问题，而以下版本会出现问题。解决方法是打个patch，然后重装，patch内容如下：

--- tk8.4.18-orig/generic/tkBind.c 2006-07-21 08:26:54.000000000 +0200
+++ tk8.4.18/generic/tkBind.c 2008-07-05 12:17:10.000000000 +0200
@@ -586,6 +586,9 @@
/* ColormapNotify */       COLORMAP,
/* ClientMessage */       0,
/* MappingNotify */       0,
+#ifdef GenericEvent
+ /* GenericEvent */      0,
+#endif
/* VirtualEvent */        VIRTUAL, 
/* Activate */             ACTIVATE, 
/* Deactivate */           ACTIVATE,

”

本质上是在tk8.4.18/generic/tkBind.c的/* MappingNotify */ 和/* VirtualEvent */ 添加代码：

#ifdef GenericEvent
 /* GenericEvent */      0,
#endif

于是按照这种方法操作，并重启。