#!/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