--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/reference/ocr-new/browser.tcl Thu May 18 23:12:51 2006 +0200
@@ -0,0 +1,35 @@
+#!/usr/sww/bin/wish -f
+
+scrollbar .scroll -command ".list yview"
+listbox .list -yscrollcommand ".scroll set" -relief raised -geometry 20x20
+pack append . .scroll {right filly} .list {left expand fill}
+
+if {$argc > 0} {
+ set dir [lindex $argv 0]
+} else {
+ set dir .
+}
+foreach i [exec ls -aF $dir] {
+ .list insert end $i
+}
+proc browse {dir file} {
+ if {$dir != "."} {set file $dir/$file}
+ if [file isdirectory $file] {
+ exec browser.tcl $file &
+ } else {
+ if [file isfile $file] {
+ exec mx $file &
+ } else {
+ puts stdout "This is neither dir nor regular file"
+ }
+ }
+}
+
+bind .list <Control-c> {destroy .}
+bind .list <Double-Button-1> {
+ foreach i [selection get] {browse $dir $i}
+}
+focus .list
+
+
+