關於捲軸方塊, 請問要如何實現像是wireshark中, automatic scrolling in live capture? 即如何讓scrollbar 能夠自動的依照所輸出的資料, 自動捲動到最新的位置(通常是最下方)?

假設你永遠都把最後一個建立的item儲存在$end變數裡，那你只要執行下面的一行程式scrollbar就會捲到$end這個項目的位置：

$tree see $end

謝謝你的回應。其實我現在是想用tcl實做一個serial console(com1)程式，但我遇到幾個問題，不知是否適合在這邊提出？

第一個就是auto scrolling，現在程式可以把serial com1的output顯示在text widget中，隨著資料的輸出，scrollbar越變越短，但不會自動跑到最下方顯示最新的資料。你提到可以用see這個指令去實現，但text widget是否也支援此種方式?

另一個問題是，我同時想在text widget裡輸入指令到com1裡，我知道如何送資料到com1，但是不知道要如何抓取從text widget輸入的值，再送到com1中，不知你知道有沒有什麼方法?

text也可以用一樣的方法，像這樣:

$txt see end

從text取資料的例子如下:

$txt get 1.0 2.1 ;#從第1行的開頭取到第2行第1個字

$txt get 2.3 end ;#從第2行第3個字取到最後一個字

$txt get "3.2 linestart" "4.7 lineend" ;#從第3行的開頭取到第4行的尾巴

ps.用tcl寫serial port件一個非常幸福的事，因為真的非常...非常...的方便。我熱愛Tcl有一部份是這個原因~哈哈!!

請問Dai大...由於公司使用的8.4.19版的ActiveTCL

我在tclsh下該如何成功使用ttk::的指令呢??

我拿您這篇的範例要練習...可是一直出現
invalid command name "::ttk::treeview"

麻煩幫忙一下!!!

8.4版的Tcl沒有內建ttk，所以你可能要先做以下兩個步驟:

1.安裝tile

$ teacup install tile

2.在程式碼的開頭引入tile

package require tile


這樣就可以了

哈...自行解決了!!!

package require Tk
package require tile

假如沒裝過tile..可以cmd 執行c:\tcl\bin\teacup tile 即可

繼續了解TCL...呵呵

呵~~恭喜。

Dai^^~我又來發問了
如果我想treeview中做一個搜尋的功能
我要怎麼讓我選到的選項
有被選擇到且反白的效果呢?

Dai 你好
目前我已經找到方法可以選擇tree中的item
使用 $tree selection set $item
不過現在的問題是我選到一個tree中資料夾中的item
他並不會自動展開資料夾
請問有展開tree中資料夾的指令嗎?

有的~可以這樣子 :

$tree item $item -open true


如果要收起來的話:

$tree item $item -open false

新年快樂 ^^

Dai 您好
請問treeview 可以做成syn的嗎?
set tree [::ttk::treeview .tree -show tree]
set item1 [$tree insert {} end -text "項目1"]
set item2 [$tree insert {} end -text "項目2"]
set item3 [$tree insert {} end -text "項目3"]
$tree selection set [list $item1 $item3]
$tree selection add $item2
pack $tree -expand 1 -fill both
#$tree selection remove $items
bind $tree {
set deleitem [$::tree selection]

$tree selection remove $deleitem
update
}
以上範例，我按Delete時候，刪除的東西不能馬上更新
假設我刪除項目1，照理來說list的清單要變成只剩項目2.3
但是卻還是1.2.3都在上面，麻煩幫我解答><

bind $tree <> {...}
我漏打了 sorry

研究出來了，在這邊分享給大家~~~~
按下enter會insert child到選擇的項目內
按下delete會刪除選擇的項目
package require tile

set tree [::ttk::treeview .tree -show tree]
set item1 [$tree insert {} end -text "項目1"]
set item2 [$tree insert {} end -text "項目2"]
set item3 [$tree insert {} end -text "項目3"]
$tree selection set [list $item1 $item3]
$tree selection add $item2
pack $tree -expand 1 -fill both


#tree selection insert $items
bind $tree < Return > {
set deleitem [$::tree selection]

.tree insert $deleitem end -text "child"
update
}

#tree delete insert $items
bind $tree < Delete > {
set deleitem [$::tree selection]

.tree delete $deleitem
update
}

這個例子很實用，謝謝小白的分享~

Hi, Dai

首先感謝你所寫的文章，讓我受益良多...

以下是我想問的問題:

我是透過GPIB去控制示波器，然後會抓取示波器的資訊

我現在是想把抓到的資訊秀出來(抓一筆資料，秀一筆)

我想到的是用text widget

但是就是沒辦法實現，目前的結果都是把資料抓完再一次秀出來

For example:

Data 1: 123456
Data 2: 123666
...
請問一下使用text widget可行嗎?
如果可以我該如何修改?
For example:

text .t -width 80 -height 20 -bg white
pack .t
for {set i 0} {$i < 10} {incr i} {
set data [getdata times ]
.t insert end $data

}

proc getdata {times} {
...
}

這要先看 [getdata times ] 是一次回傳所有資料 或是一次一行 ~
如果是一次就回傳所有的資料，用.t insert 就一定會一次把資料顯示出來，除非自己手動切開每一行 ~
如果說是一次一行，那你可以在.t insert 的上一行加入 update 或是 用after命令 讓每次insert資料的中間delay一點時間 ~

哈囉~Dai~
好久不見，請問一下關於treeview的問題，如果我想改變文字顏色字型
set tree [::ttk::treeview .tree -show tree -foreground blue]
或者
set item1 [$tree insert {} end -text "項目1" -foreground blue]
都會顯示 unknown option "-foreground"
這套件沒辦法使用嗎?

Hi 翊翾,

真的很久不見了 @@ 。 請試試下面的程式，重點在treeview的tag運用：

set tree [::ttk::treeview .tree -show tree]
set item1 [$tree insert {} end -text "項目1" -tag blue]
set item2 [$tree insert {} end -text "項目2"]
pack $tree -expand 1 -fill both

$tree tag configure blue -foreground blue

Dai大大
原來tag是這樣使用的阿...
又學到一招，希望我可以畫出美美的treeview，感恩呢^^

要美美的tree,可以玩一下treectrl
不過要小心上癮,這個功能強大,變化多端
一不小心就沉迷於調整出漂亮的介面,而荒廢了程式主要的功能

Dai，您好
我想請問一下
如果我要從選擇的這邊抓出value而不是selection ID的話
我該怎麼做呢？

我自己回答吧

set testitem [$seltree selection]
set text [.selectarea.tree item $testitem -text]

puts $text
就可以取出text值了

現在另一個問題是，請問我要怎樣能夠選擇parent的項目的時候，會自動選擇parent底下所有children項目呢？

set testitem [$seltree selection]
# 先取出selected item name
set itname [.selectarea.tree item $testitem]

foreach selected $testitem {
# 取得選擇項目的 parent id
set pp [.selectarea.tree parent $selected]
puts $pp
}

如果selection的parent id為空，就取出此id底下所有children項目

Dai
不知道你有沒有發現
水平捲軸在Treeview好像並不會動
我網路上看了，這好像是個Bug

如何可以讓scrollbar 自動回到最頂端

你好，我也是剛開始使用TCL的使用者，想請問如果想在清單裡面使用checkbutton，而不使用反白，該怎麼做呢?

有點懶寫的不是很好，但原理大概是這樣

set t [ttk::treeview .t -show tree ]
pack .t -expand 1 -fill both

set ::imgCheck [image create photo -file check.gif]
set ::imgUncheck [image create photo -file uncheck.gif]

.t insert {} end -text 1 -tags tag1
.t tag configure tag1 -image $::imgCheck

.t tag bind tag1 {
if {[.t tag configure tag1 -image] == $::imgCheck} {
.t tag configure tag1 -image $::imgUncheck
} else {
.t tag configure tag1 -image $::imgCheck
}
}

十分感謝在百忙之中還撥冗解惑!!
我嘗試執行你的程式碼，卻出現以下畫面，請問是何種問題?
couldn't open "check.gif":no such file or directory while executing "image create photo - file check.gif"......
另外想請教仿間有無推薦的TCL指令集或工具書可供參考。 TKs

1. 這個tcl程式檔需要跟2個gif的檔案放在同一個資料夾中，分別是 check.gif及uncheck.gif (請自己用小畫家做16x16)
2. 推薦這一本書: Practical Programming in Tcl and Tk (4th Edition)

HI DAI， 想請教你一個問題，我原本有個程式長這樣
set id1 [$tree item $item1 -text]
puts [exec wish $id1] 是可以執行的
後來因需求改成
set i 1
set id$i [$tree item $[item$i] -text]
puts [exec wish $[id$i]]
執行結果卻出現 ERROR : invalid command name "item1"
請問是何問題?

用陣列比較方便吧!!

set i 1
set id($i) [$tree item $item($i) -text]
puts [exec wish $id($i)]

HI Dai，嘗試了你說的方法，他卻出現不一樣的問題
Error: can't read"item(2)":no such variable

HI Dai，上次的問題解決了，想請教你一個新的問題，因為有時候TREE裡面的item是後來執行的時候才增加，而不是一開始就設定好了，我如果想透過selection id 抓清單上新增加的value，該怎麼寫呢?

應該可以這樣做 :
1.所有你新增的item id都用陣列存起來
2.然後參考21.3及21.4小節應該就可以達到功能了

抱歉，我可能不是講得很清楚，我的意思是說就像你上面其中一個範例是增加mp3的檔案，你可能一次增加幾個你不確定，所以他們就沒辦法事先設定到ITEM? 裡面，但是新增完他們就有SELECTION ID，我想問的是如何透過SELECTION ID，去PUTS你剛增加的MP3檔案，其中的一個MP3的名稱

不管item是預先建立或動態產生的，按下按鈕永遠顯示選中的項目:

set tree [::ttk::treeview .tree -show tree]
foreach item [list 1 2 3 4 5] {
set id [$tree insert {} end -text "項目$item"]
set item($id) "私人資料xxx" ;# 用陣列保存id及item私人資料
}
set btn [::ttk::button .btn -text "選取的項目" -command {
set id [.tree selection] ;#參考21.4
puts [.tree item $id -text] ;#參考21.3
puts $item($id)
}]
pack $tree -expand 1 -fill both
pack $btn -expand 1 -fill both

HI DAI，十分感謝解答我的疑惑，原本看到 puts [$tree item $item1 -text]，我就認為只能顯示原本設定好的ITEM，看到
set id [.tree selection] ;#參考21.4
puts [.tree item $id -text] ;#參考21.3
才恍然大悟，原來可以這樣顯示SELECTION的清單名稱^^

祝你學習順利~加油!!

想請問一下 兩個應用程式都有附加tcl的語法, tcl有沒有方式
可以讓這兩個程式可以相互溝通?