tcl - 彩色放入文本小部件

Question

当我想在终端中输出彩色字符串（红色）时，我使用：

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

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

[00;31m Test String [0m

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

Answer 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