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: timer

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

# timer --
# This script generates a counter with start and stop buttons.

package require Tcl 8.4
package require Tk

label .counter -text 0.00 -relief raised -width 10 -padx 2m -pady 1m
button .start -text Start -command {
    if {$stopped} {
	set stopped 0
	set startMoment [clock clicks -milliseconds]
	tick
	.stop configure -state normal
	.start configure -state disabled
    }
}
button .stop -text Stop -state disabled -command {
    set stopped 1
    .stop configure -state disabled
    .start configure -state normal
}
pack .counter -side bottom -fill both
pack .start -side left -fill both -expand yes
pack .stop -side right -fill both -expand yes

set startMoment {}

set stopped 1

proc tick {} {
    global startMoment stopped
    if {$stopped} {return}
    after 50 tick
    set elapsedMS [expr {[clock clicks -milliseconds] - $startMoment}]
    .counter config -text [format "%.2f" [expr {double($elapsedMS)/1000}]]
}

bind . <Control-c> {destroy .}
bind . <Control-q> {destroy .}
focus .

# Local Variables:
# mode: tcl
# End:

X7ROOT File Manager

Editing: timer

Upload File

Create Folder