File Manager

X7ROOT File Manager

Current Path: /usr/share/tk8.5/demos

📁 ..
📄 README(2.03 KB)
📄 anilabel.tcl(6.51 KB)
📄 aniwave.tcl(3.41 KB)
📄 arrow.tcl(7.8 KB)
📄 bind.tcl(2.87 KB)
📄 bitmap.tcl(1.38 KB)
📄 browse(1.72 KB)
📄 button.tcl(1.47 KB)
📄 check.tcl(2.22 KB)
📄 clrpick.tcl(1.4 KB)
📄 colors.tcl(4.88 KB)
📄 combo.tcl(1.94 KB)
📄 cscroll.tcl(3.31 KB)
📄 ctext.tcl(4.76 KB)
📄 dialog1.tcl(660 B)
📄 dialog2.tcl(613 B)
📄 en.msg(3.8 KB)
📄 entry1.tcl(1.35 KB)
📄 entry2.tcl(2.06 KB)
📄 entry3.tcl(5.95 KB)
📄 filebox.tcl(2.2 KB)
📄 floor.tcl(77.24 KB)
📄 form.tcl(1.02 KB)
📄 goldberg.tcl(55.23 KB)
📄 hello(512 B)
📄 hscale.tcl(1.46 KB)
📄 icon.tcl(2.01 KB)
📄 image1.tcl(1002 B)
📄 image2.tcl(3.28 KB)
📁 images
📄 items.tcl(9.5 KB)
📄 ixset(7.91 KB)
📄 knightstour.tcl(8.38 KB)
📄 label.tcl(1.29 KB)
📄 labelframe.tcl(1.8 KB)
📄 license.terms(2.16 KB)
📄 mclist.tcl(3.89 KB)
📄 menu.tcl(6.57 KB)
📄 menubu.tcl(4.37 KB)
📄 msgbox.tcl(1.98 KB)
📄 nl.msg(6.61 KB)
📄 paned1.tcl(1.08 KB)
📄 paned2.tcl(2.18 KB)
📄 pendulum.tcl(7.46 KB)
📄 plot.tcl(2.69 KB)
📄 puzzle.tcl(2.54 KB)
📄 radio.tcl(2.69 KB)
📄 rmt(5.22 KB)
📄 rolodex(8.11 KB)
📄 ruler.tcl(5.09 KB)
📄 sayings.tcl(2.21 KB)
📄 search.tcl(4.29 KB)
📄 spin.tcl(1.78 KB)
📄 states.tcl(1.63 KB)
📄 style.tcl(6.78 KB)
📄 tclIndex(4.25 KB)
📄 tcolor(10.99 KB)
📄 text.tcl(3.34 KB)
📄 textpeer.tcl(2.13 KB)
📄 timer(1.09 KB)
📄 toolbar.tcl(3.19 KB)
📄 tree.tcl(3.29 KB)
📄 ttkbut.tcl(3.34 KB)
📄 ttkmenu.tcl(2.35 KB)
📄 ttknote.tcl(2.41 KB)
📄 ttkpane.tcl(3.95 KB)
📄 ttkprogress.tcl(1.52 KB)
📄 ttkscale.tcl(1.39 KB)
📄 twind.tcl(10.57 KB)
📄 unicodeout.tcl(3.45 KB)
📄 vscale.tcl(1.44 KB)
📄 widget(22.83 KB)

Editing: browse

#!/bin/sh
# the next line restarts using wish \
exec wish8.5 "$0" ${1+"$@"}

# browse --
# This script generates a directory browser, which lists the working
# directory and allows you to open files or subdirectories by
# double-clicking.

package require Tk

# 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 sunken -width 20 -height 20 \
	-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.

set browseScript [file join [pwd] $argv0]
proc browse {dir file} {
    global env browseScript
    if {[string compare $dir "."] != 0} {set file $dir/$file}
    switch [file type $file] {
	directory {
	    exec [info nameofexecutable] $browseScript $file &
	}
	file {
	    if {[info exists env(EDITOR)]} {
		eval exec $env(EDITOR) $file &
	    } else {
		exec xedit $file &
	    }
	}
	default {
	    puts stdout "\"$file\" isn't a directory or regular file"
	}
    }
}

# Fill the listbox with a list of all the files in the directory.

if {$argc>0} {set dir [lindex $argv 0]} else {set dir "."}
foreach i [lsort [glob * .* *.*]] {
    if {[file type $i] eq "directory"} {
	# Safe to do since it is still a directory.
	append i /
    }
    .list insert end $i
}

# Set up bindings for the browser.

bind all <Control-c> {destroy .}
bind .list <Double-Button-1> {foreach i [selection get] {browse $dir $i}}

# Local Variables:
# mode: tcl
# End:

X7ROOT File Manager

Editing: browse

Upload File

Create Folder