insight-6.8調試工具安裝

錯誤資訊：

qiang@LinuxSir:~$ sudo arm-elf-insight
Tk_Init failed: Can't find a usable tk.tcl in the following directories:
    /usr/local/share/tk8.4 /usr/local/lib/tk8.4 /usr/lib/tk8.4 /usr/local/library /usr/library /usr/tk8.4.1/library /tk8.4.1/library

/usr/local/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/share/tk8.4/listbox.tcl" line 182)
    invoked from within
"source /usr/local/share/tk8.4/listbox.tcl"
    (in namespace eval "::" script line 1)
    invoked from within
"namespace eval :: [list source ]"
    (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/share/tk8.4/tk.tcl" line 393)
    invoked from within
"source /usr/local/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.

編譯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之間增加
#ifdefGenericEvent
/* GenericEvent */0,
#endif

經測試，已經可以正常啟動arm-linux-insight

補充一下：我安裝的tk8.5和tcl8.5