the problem about arm-linux-insight

[yc200]

After read <Ubuntu8.04下如何安装arm-linux编译及调试工具>, I setup all the tools step by step successfully. But when I input "arm-linux-insight", the error below comes out. Do others see it and have the solution?Thanks a lot.

yc200@yc200:~/Desktop/insight-6.8$ arm-linux-insight
Tk_Init failed: Can't find a usable tk.tcl in the following directories:
/usr/local/arm/2.95.3/share/tk8.4 /usr/local/arm/2.95.3/lib/tk8.4 /usr/local/arm/lib/tk8.4 /usr/local/arm/2.95.3/library /usr/local/arm/library /usr/local/arm/tk8.4.1/library /usr/local/tk8.4.1/library

/usr/local/arm/2.95.3/share/tk8.4/tk.tcl: no event type or button # or keysym
no event type or button # or keysym
while executing
"bind Listbox <MouseWheel> {
%W yview scroll [expr {- (%D / 120) * 4}] units
}"
(file "/usr/local/arm/2.95.3/share/tk8.4/listbox.tcl" line 182)
invoked from within
"source /usr/local/arm/2.95.3/share/tk8.4/listbox.tcl"
(in namespace eval "::" script line 1)
invoked from within
"namespace eval :: [list source [file join $::tk_library $file.tcl]]"
(procedure "SourceLibFile" line 2)
invoked from within
"SourceLibFile listbox"
(in namespace eval "::tk" script line 4)
invoked from within
"namespace eval ::tk {
SourceLibFile button
SourceLibFile entry
SourceLibFile listbox
SourceLibFile menu
SourceLibFile panedwindow
SourceLibFile ..."
invoked from within
"if {$::tk_library ne ""} {
if {[string equal $tcl_platform(platform) "macintosh"]} {
proc ::tk::SourceLibFile {file} {
if {[catch {
namesp..."
(file "/usr/local/arm/2.95.3/share/tk8.4/tk.tcl" line 393)
invoked from within
"source /usr/local/arm/2.95.3/share/tk8.4/tk.tcl"
("uplevel" body line 1)
invoked from within
"uplevel #0 [list source $file]"


This probably means that tk wasn't installed properly.

[ronggangxt]

我的在ubuntu8.04下没有这个问题，但是在ubuntu9.04下出现了此问题。
不知道如何解决。

[yc200]

哦，这样啊，我现在用的也是ubuntu9.04。

[ronggangxt]

我已经找到解决方法了，你可以try try
编译insight-6.8前必须修改insight-6.8的源代码。
1)修改insight-6.8/tk/generic/tk.h
将(line 653)
#define VirtualEvent (LASTEvent)
#define ActivateNotify (LASTEvent + 1)
#define DeactivateNotify (LASTEvent + 2)
#define MouseWheelEvent (LASTEvent + 3)
#define TK_LASTEVENT (LASTEvent + 4)
改为：
#define VirtualEvent (MappingNotify)
#define ActivateNotify (MappingNotify + 1)
#define DeactivateNotify (MappingNotify + 2)
#define MouseWheelEvent (MappingNotify + 3)
#define TK_LASTEVENT (MappingNotify + 4)
并将随后的#define TK_LASTEVENT (LASTEvent + 4)删除(line 661附近)
2)修改insight-6.8/tk/generic/tkBind.c
在line 586和line 587之间增加
#ifdef GenericEvent
/* GenericEvent */ 0,
#endif

经测试，已经可以正常启动arm-linux-insight


补充一下：我安装的tk8.5和tcl8.5

[yc200]

终于正常启动了，感谢ronggangxt ！
ronggangxt 说的补丁，自己也找到并修改过，但始终无法启动。原来病根在tk8.4和tcl8.4上啊！再次感谢ronggangxt ！

[sirtang]

兄弟们，你们在ubutn的8.04、8.10、9.04上成功安装过arm-linux-gdb 么?