2016-05-30 210 views
0

我是新來的tcl/tk,我嘗試創建一個包含textarea和兩個滾動條(垂直和水平)的接口 我們的問題是,我可以看到水平滾動條,但未啓用水平滾動條不起作用

代碼:

frame .textarea 

label .textarea.l -text "Text" 
text .textarea.txt -width 70 -height 20 -xscroll {.textarea.h set} -yscroll {.textarea.v set} 
scrollbar .textarea.v -orient vertical -command {.textarea.txt yview} 
scrollbar .textarea.h -orient horizontal -command {.textarea.txt xview} 


grid .textarea.l -sticky nsew 
grid .textarea.txt .textarea.v -sticky nsew 
grid .textarea.h  -sticky nsew 

grid rowconfigure .textarea .textarea.txt -weight 1 
grid columnconfigure .textarea .textarea.txt -weight 1 

pack .textarea -side left 

PRINTSCREEN:

enter image description here

+1

使用-wrap沒有與文本插件的選項。 –

+0

@Peter Lewerin謝謝 –

回答

1

如果文本小部件設置爲包裝文本中的行(默認情況下),它將不會使用水平滾動條。要禁用包裝,使用

text $path ... -wrap none ... 

文檔:text

+0

它將使用滾動條,但可滾動區域的寬度將默認爲可查看區域的寬度,所以滾動條應始終覆蓋範圍0-100%。嵌入式圖像和小部件可以強制事物。 –