54 lines
1.5 KiB
Plaintext
54 lines
1.5 KiB
Plaintext
|
#!/usr/local/bin/wish -f
|
||
|
|
#
|
||
|
|
# This script generates a directory browser, which lists the working
|
||
|
|
# directory and allows you to open files or subdirectories by
|
||
|
|
# double-clicking.
|
||
|
|
|
||
|
|
# Create a scrollbar on the right side of the main window and a listbox
|
||
|
|
# on the left side.
|
||
|
|
|
||
|
|
scrollbar .scroll -command ".list yview"
|
||
|
|
pack .scroll -side right -fill y
|
||
|
|
listbox .list -yscroll ".scroll set" -relief raised -geometry 20x20 \
|
||
|
|
-setgrid yes
|
||
|
|
pack .list -side left -fill both -expand yes
|
||
|
|
wm minsize . 1 1
|
||
|
|
|
||
|
|
# The procedure below is invoked to open a browser on a given file; if the
|
||
|
|
# file is a directory then another instance of this program is invoked; if
|
||
|
|
# the file is a regular file then the Mx editor is invoked to display
|
||
|
|
# the file.
|
||
|
|
|
||
|
|
proc browse {dir file} {
|
||
|
|
global env
|
||
|
|
if {[string compare $dir "."] != 0} {set file $dir/$file}
|
||
|
|
if [file isdirectory $file] {
|
||
|
|
exec browse $file &
|
||
|
|
} else {
|
||
|
|
if [file isfile $file] {
|
||
|
|
if [info exists env(EDITOR)] {
|
||
|
|
eval exec $env(EDITOR) $file &
|
||
|
|
} else {
|
||
|
|
exec xedit $file &
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
puts stdout "\"$file\" isn't a directory or regular file"
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Fill the listbox with a list of all the files in the directory (run
|
||
|
|
# the "ls" command to get that information).
|
||
|
|
|
||
|
|
if $argc>0 {set dir [lindex $argv 0]} else {set dir "."}
|
||
|
|
foreach i [exec ls -a $dir] {
|
||
|
|
.list insert end $i
|
||
|
|
}
|
||
|
|
|
||
|
|
# Set up bindings for the browser.
|
||
|
|
|
||
|
|
bind .list <Control-q> {destroy .}
|
||
|
|
bind .list <Control-c> {destroy .}
|
||
|
|
focus .list
|
||
|
|
bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i}}
|