在TCL中更改字体颜色并使文本变粗

时间:2016-04-02 10:45:14

标签: fonts colors tcl

是否可以更改文本的颜色并使其从TCL脚本变为粗体并将其输出到控制台/终端?

我在论坛上找到了this on example,但我收到了以下错误:

错误:无法执行" tput":没有这样的文件或目录 程序"颜色"第4行:

想知道是否有人可以提供建议。

提前致谢,

来自参考文献的例子(见上文链接),由Donal Fellows提供的例子

proc color {foreground text} {
    # tput is a little Unix utility that lets you use the termcap database
    # *much* more easily...
    return [exec tput setaf $foreground]$text[exec tput sgr0]
}

puts "Why not [color 4 G][color 1 o][color 3 o][color 4 g][color 2 l][color 1 e] first?"
# Hmm, that's clearer than using those escapes directly too!

1 个答案:

答案 0 :(得分:0)

tput是一个linux命令,它是ncurses包的一部分。如果您没有使用任何Linux风格或者没有正确安装ncurses包 - 您将收到此错误。 所以如果你正在使用

<强>的Linux - 检查ncurses库是否已安装。

<强>窗口: -

更好地使用twapi包。

安装twapi。

teacup install twapi

在tclsh中尝试以下内容。

# Import package twapi
package require twapi

# Get handler of console
set hndl [twapi::get_console_handle stdout]

# Set console foreground color to red
twapi::_set_console_default_attr $hndl fgred 1

请参阅此link1 link2