Return to browse CVS log

Up to [Micropolis - Activity] / micropolis / src / tk / library / demos

Annotation of micropolis/src/tk/library/demos/browse, revision 1.1.1.1

1.1       root        1: #!/usr/local/bin/wish -f
                      2: #
                      3: # This script generates a directory browser, which lists the working
                      4: # directory and allows you to open files or subdirectories by
                      5: # double-clicking.
                      6: 
                      7: # Create a scrollbar on the right side of the main window and a listbox
                      8: # on the left side.
                      9: 
                     10: scrollbar .scroll -command ".list yview"
                     11: listbox .list -yscroll ".scroll set" -relief raised -geometry 20x20
                     12: pack append . .scroll {right filly} .list {left expand fill}
                     13: 
                     14: # The procedure below is invoked to open a browser on a given file;  if the
                     15: # file is a directory then another instance of this program is invoked; if
                     16: # the file is a regular file then the Mx editor is invoked to display
                     17: # the file.
                     18: 
                     19: proc browse {dir file} {
                     20:     if {[string compare $dir "."] != 0} {set file $dir/$file}
                     21:     if [file isdirectory $file] {
                     22:        exec browse $file &
                     23:     } else {
                     24:        if [file isfile $file] {
                     25:            exec xedit $file &
                     26:        } else {
                     27:            puts stdout "\"$file\" isn't a directory or regular file"
                     28:        }
                     29:     }
                     30: }
                     31: 
                     32: # Fill the listbox with a list of all the files in the directory (run
                     33: # the "ls" command to get that information).
                     34: 
                     35: if $argc>0 {set dir [lindex $argv 0]} else {set dir "."}
                     36: foreach i [exec ls -a $dir] {
                     37:     .list insert end $i
                     38: }
                     39: 
                     40: # Set up bindings for the browser.
                     41: 
                     42: bind .list <Control-q> {destroy .}
                     43: bind .list <Control-c> {destroy .}
                     44: focus .list
                     45: bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i}}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.