TCL/TK文本命令始终显示最后一行输入

Question

我只想弄清楚如何通过.txt insert end $var插入变量的内容，并让我插入的内容总是自动显示在最后一行，无需向下滚动手动文本。

一个简单的TCL例如：

proc push_button { } { 
    global k 
    set name [.ent get] 
    .txt insert end "$k New Line...$name\n" 
} 
global k 
set k 1 
frame .frm -relief groove 
label .lab -text "Enter name:" 
entry .ent 
button .but -text "Insert Line" -command "push_button; incr k" 
text .txt -width 20 -height 10 
pack .lab -in .frm 
pack .ent -in .frm 
pack .frm 
pack .but 
pack .txt 

Answer 1

尝试.txt see end使指数end可见。为避免在底部出现空行，您可能需要使用.txt see end-2c，这会使您在最后一次\n之前显示字符。 end-2l也可以工作（c =字符，l =行，您需要2，因为小部件在插入最后一个字符后添加了一个额外的换行符）。每次向小部件添加文本时都要这样做。

例如：

proc push_button { } { 
    global k 
    set name [.ent get] 
    .txt insert end "$k New Line...$name\n" 
    .txt see end-2c 
} 

文档：global，proc，set，text