Tcl / Tk：水平xscrollbar不能像y scollbar一样缩小

Question

在以下示例代码中：

proc push_button {} {
    set name [.ent get]
    .txt insert end "Hello, $name."
}
frame .frm -relief groove
label .lab -text "Enter name:"
entry .ent
button .but -text "Push Me" -command "push_button"
frame .textarea
text .txt -width 20 -height 10 \
    -yscrollcommand ".srl_y set" -xscrollcommand ".srl_x set"
scrollbar .srl_y -command ".txt yview" -orient v
scrollbar .srl_x -command ".txt xview" -orient h
pack .lab -in .frm
pack .ent -in .frm
pack .frm
pack .but
grid .txt   -in .textarea -row 1 -column 1
grid .srl_y -in .textarea -row 1 -column 2 -sticky ns
grid .srl_x -in .textarea -row 2 -column 1 -sticky ew
pack .textarea

按下按钮Push Me ，新的文本字符串将添加到文本框中。 并在.txt insert end "Hello, $name." 没有新行\\n符号。 因此，它应该形成一个很长的字符串。

我的理解是，随着弦线变长，水平滚动条应相应地改变和缩小。 但是xscollbar无法正常工作。

我的工具需要这种效果。 那么有什么帮助吗？

Answer 1

您遇到的行为是由于文本换行。 默认的文本换行模式似乎是char （达到宽度限制时，文本将分成多行，并且将基于字符进行分割）。

更改以下行以获得您期望看到的行为：

text .txt -width 20 -height 10 \
    -yscrollcommand ".srl_y set" -xscrollcommand ".srl_x set" -wrap none

我-wrap none添加-wrap none到最后。