boxsel {} {
-global ctext cflist currentid
+global ctext cflist currentid treemode viewpath
if {![info exists currentid]} return
set sel [lsort [$cflist curselection]]
if {$sel eq {}} return
set first [lindex $sel 0]
-catch {$ctext yview fmark.$first}
+set viewpath [ $cflist get $first ]
+if { $treemode } {
+ viewfull [$
version ???
Cheers Ingo
--
++
| Ingo Bormuth, voicebox & telefax: +49-12125-10226517 |
| GnuPG key 86326EC9 at http://ibormuth.efil.de/contact |
++
Added tree view.
2 matches
Mail list logo