彩色放入文本小部件

时间:2012-11-28 15:38:17

标签: tcl

当我想在终端输出彩色字符串(红色)时,我使用:

puts "\033\[00;31m Test String \033\[0m"

但是当我在文本小部件中打印这个字符串时,我得到:

[00;31m Test String [0m

如何在文本小部件中打印相同的彩色字符串?

1 个答案:

答案 0 :(得分:1)

据我所知,问题在于将格式化应用于文本小部件的内容,这与Tk有关,而与转义序列无关。这可以通过标签来实现。下面是创建文本小部件的代码,在其中放入两行并用红色突出显示第二行。

set t [text .t -height 10 -width 40]
pack $t
$t insert end "text1\n"
$t insert end "text2\n"
$t tag add my_red 2.0 2.end
$t tag configure my_red -foreground red

如果问题只是格式化,我希望这会有所帮助。

PN