如何从icc shell执行tcl / tk脚本？

Question

我想执行Synopsys ICC命令：

gui_set_flat_hierarchy_color -color 8

在TCL/TK脚本的帮助下按下按钮。 脚本如下：

proc push_button {} {
    gui_set_flat_hierarchy_color -color 8
}

button .but -text "Push Me" -command "push_button"
pack .but

我使用icc_shell中的“exec wish myprog.tcl”运行脚本。 但我按下按钮，我得到以下错误：

invalid command name "gui_set_flat_hierarchy_color"
     while executing
"gui_set_flat_hierarchy_color -color 8"
     (procedure "push_button" line 3)
     invoked from within
"push_button"
     invoked from within
".but invoke"
     ("uplevel" body line 1)
     invoked from within
"uplevel #0 [list $w invoke]"
     (procedure "tk::ButtonUp" line 22)
     invoked from within
"tk::ButtonUp .but"
     (command bound to event)

Answer 1

命令gui_set_flat_hierarchy_color可能仅在您启动GUI后可用。