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: image2.tcl

# image2.tcl --
#
# This demonstration script creates a simple collection of widgets
# that allow you to select and view images in a Tk label.

if {![info exists widgetDemo]} {
    error "This script should be run from the \"widget\" demo."
}

package require Tk

# loadDir --
# This procedure reloads the directory listbox from the directory
# named in the demo's entry.
#
# Arguments:
# w -			Name of the toplevel window of the demo.

proc loadDir w {
    global dirName

$w.f.list delete 0 end
    foreach i [lsort [glob -type f -directory $dirName *]] {
	$w.f.list insert end [file tail $i]
    }
}

# selectAndLoadDir --
# This procedure pops up a dialog to ask for a directory to load into
# the listobx and (if the user presses OK) reloads the directory
# listbox from the directory named in the demo's entry.
#
# Arguments:
# w -			Name of the toplevel window of the demo.

proc selectAndLoadDir w {
    global dirName
    set dir [tk_chooseDirectory -initialdir $dirName -parent $w -mustexist 1]
    if {[string length $dir] != 0} {
	set dirName $dir
	loadDir $w
    }
}

# loadImage --
# Given the name of the toplevel window of the demo and the mouse
# position, extracts the directory entry under the mouse and loads
# that file into a photo image for display.
#
# Arguments:
# w -			Name of the toplevel window of the demo.
# x, y-			Mouse position within the listbox.

proc loadImage {w x y} {
    global dirName

set file [file join $dirName [$w.f.list get @$x,$y]]
    if {[catch {
	image2a configure -file $file
    }]} then {
	# Mark the file as not loadable
	$w.f.list itemconfigure @$x,$y -bg \#c00000 -selectbackground \#ff0000
    }
}

set w .image2
catch {destroy $w}
toplevel $w
wm title $w "Image Demonstration #2"
wm iconname $w "Image2"
positionWindow $w

label $w.msg -font $font -wraplength 4i -justify left -text "This demonstration allows you to view images using a Tk \"photo\" image.  First type a directory name in the listbox, then type Return to load the directory into the listbox.  Then double-click on a file name in the listbox to see that image."
pack $w.msg -side top

## See Code / Dismiss buttons
set btns [addSeeDismiss $w.buttons $w]
pack $btns -side bottom -fill x

frame $w.mid
pack $w.mid -fill both -expand 1

labelframe $w.dir -text "Directory:"
# Main widget program sets variable tk_demoDirectory
set dirName [file join $tk_demoDirectory images]
entry $w.dir.e -width 30 -textvariable dirName
button $w.dir.b -pady 0 -padx 2m -text "Select Dir." \
	-command "selectAndLoadDir $w"
bind $w.dir.e <Return> "loadDir $w"
pack $w.dir.e -side left -fill both -padx 2m     -pady 2m -expand true
pack $w.dir.b -side left -fill y    -padx {0 2m} -pady 2m
labelframe $w.f -text "File:" -padx 2m -pady 2m

listbox $w.f.list -width 20 -height 10 -yscrollcommand "$w.f.scroll set"
scrollbar $w.f.scroll -command "$w.f.list yview"
pack $w.f.list $w.f.scroll -side left -fill y -expand 1
$w.f.list insert 0 earth.gif earthris.gif teapot.ppm
bind $w.f.list <Double-1> "loadImage $w %x %y"

catch {image delete image2a}
image create photo image2a
labelframe $w.image -text "Image:"
label $w.image.image -image image2a
pack $w.image.image -padx 2m -pady 2m

grid $w.dir -        -sticky ew -padx 1m -pady 1m -in $w.mid
grid $w.f   $w.image -sticky nw -padx 1m -pady 1m -in $w.mid
grid columnconfigure $w.mid 1 -weight 1

X7ROOT File Manager

Editing: image2.tcl

Upload File

Create Folder