Lines Matching refs:file
22 # The procedure below is invoked to open a browser on a given file; if the
23 # file is a directory then another instance of this program is invoked; if
24 # the file is a regular file then the Mx editor is invoked to display
25 # the file.
27 proc browse {dir file} {
29 if {[string compare $dir "."] != 0} {set file $dir/$file}
30 if [file isdirectory $file] {
31 exec browse $file &
33 if [file isfile $file] {
35 eval exec $env(EDITOR) $file &
37 exec xedit $file &
40 puts stdout "\"$file\" isn't a directory or regular file"