aDriv4 website!

Linux server2.lukinet.app 4.18.0-477.27.2.el8_8.x86_64 #1 SMP Fri Sep 29 08:21:01 EDT 2023 x86_64
Apache
184.94.215.141

File Name : timer

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

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

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:

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2023-10-05 09:54:45
..	dir	-	root/root	0755	2023-10-05 09:54:45
images	dir	-	root/root	0755	2023-10-05 09:54:45
README	text/plain	2.03 KB	root/root	0644	2019-10-16 05:25:12
anilabel.tcl	text/plain	6.51 KB	root/root	0644	2019-10-16 05:25:12
aniwave.tcl	text/plain	3.41 KB	root/root	0644	2019-10-16 05:25:12
arrow.tcl	text/plain	7.8 KB	root/root	0644	2019-10-16 05:25:12
bind.tcl	text/plain	2.88 KB	root/root	0644	2019-10-16 05:25:12
bitmap.tcl	text/plain	1.38 KB	root/root	0644	2019-10-16 05:25:12
browse	text/x-shellscript	1.72 KB	root/root	0755	2019-10-16 05:25:12
button.tcl	text/plain	1.47 KB	root/root	0644	2019-10-16 05:25:12
check.tcl	text/plain	2.22 KB	root/root	0644	2019-10-16 05:25:12
clrpick.tcl	text/plain	1.4 KB	root/root	0644	2019-10-16 05:25:12
colors.tcl	text/plain	4.88 KB	root/root	0644	2019-10-16 05:25:12
combo.tcl	text/plain	1.92 KB	root/root	0644	2019-10-16 05:25:12
cscroll.tcl	text/plain	3.31 KB	root/root	0644	2019-10-16 05:25:12
ctext.tcl	text/plain	5.88 KB	root/root	0644	2019-10-16 05:25:12
dialog1.tcl	text/plain	660 B	root/root	0644	2019-10-16 05:25:12
dialog2.tcl	text/plain	613 B	root/root	0644	2019-10-16 05:25:12
en.msg	text/plain	3.78 KB	root/root	0644	2019-10-16 05:25:12
entry1.tcl	text/plain	1.35 KB	root/root	0644	2019-10-16 05:25:12
entry2.tcl	text/plain	2.03 KB	root/root	0644	2019-10-16 05:25:12
entry3.tcl	text/plain	5.96 KB	root/root	0644	2019-10-16 05:25:12
filebox.tcl	text/plain	2.3 KB	root/root	0644	2019-10-16 05:25:12
floor.tcl	text/plain	77.25 KB	root/root	0644	2019-10-16 05:25:12
fontchoose.tcl	text/plain	1.71 KB	root/root	0644	2019-10-16 05:25:12
form.tcl	text/plain	1.02 KB	root/root	0644	2019-10-16 05:25:12
goldberg.tcl	text/plain	55.23 KB	root/root	0644	2019-10-16 05:25:12
hello	text/x-shellscript	512 B	root/root	0755	2019-10-16 05:25:12
hscale.tcl	text/plain	1.46 KB	root/root	0644	2019-10-16 05:25:12
icon.tcl	text/plain	2.01 KB	root/root	0644	2019-10-16 05:25:12
image1.tcl	text/plain	1002 B	root/root	0644	2019-10-16 05:25:12
image2.tcl	text/plain	3.27 KB	root/root	0644	2019-10-16 05:25:12
items.tcl	text/plain	9.9 KB	root/root	0644	2019-10-16 05:25:12
ixset	text/x-shellscript	7.88 KB	root/root	0755	2019-10-16 05:25:12
knightstour.tcl	text/plain	8.93 KB	root/root	0644	2019-10-16 05:25:12
label.tcl	text/plain	1.35 KB	root/root	0644	2019-10-16 05:25:12
labelframe.tcl	text/plain	1.8 KB	root/root	0644	2019-10-16 05:25:12
license.terms	text/plain	2.21 KB	root/root	0644	2019-10-16 05:25:12
mclist.tcl	text/plain	4.25 KB	root/root	0644	2019-10-16 05:25:12
menu.tcl	text/plain	6.62 KB	root/root	0644	2019-10-16 05:25:12
menubu.tcl	text/plain	4.37 KB	root/root	0644	2019-10-16 05:25:12
msgbox.tcl	text/plain	1.95 KB	root/root	0644	2019-10-16 05:25:12
nl.msg	text/plain	6.59 KB	root/root	0644	2019-10-16 05:25:12
paned1.tcl	text/plain	1.08 KB	root/root	0644	2019-10-16 05:25:12
paned2.tcl	text/plain	2.19 KB	root/root	0644	2019-10-16 05:25:12
pendulum.tcl	text/plain	7.42 KB	root/root	0644	2019-10-16 05:25:12
plot.tcl	text/plain	2.69 KB	root/root	0644	2019-10-16 05:25:12
puzzle.tcl	text/plain	2.54 KB	root/root	0644	2019-10-16 05:25:12
radio.tcl	text/plain	2.69 KB	root/root	0644	2019-10-16 05:25:12
rmt	text/x-shellscript	5.19 KB	root/root	0755	2019-10-16 05:25:12
rolodex	text/x-shellscript	8.11 KB	root/root	0755	2019-10-16 05:25:12
ruler.tcl	text/plain	5.09 KB	root/root	0644	2019-10-16 05:25:12
sayings.tcl	text/plain	2.22 KB	root/root	0644	2019-10-16 05:25:12
search.tcl	text/plain	4.3 KB	root/root	0644	2019-10-16 05:25:12
spin.tcl	text/plain	1.78 KB	root/root	0644	2019-10-16 05:25:12
states.tcl	text/plain	2 KB	root/root	0644	2019-10-16 05:25:12
style.tcl	text/plain	6.78 KB	root/root	0644	2019-10-16 05:25:12
tclIndex	text/plain	4.25 KB	root/root	0644	2019-10-16 05:25:12
tcolor	text/x-shellscript	10.99 KB	root/root	0755	2019-10-16 05:25:12
text.tcl	text/plain	4.17 KB	root/root	0644	2019-10-16 05:25:12
textpeer.tcl	text/plain	2.14 KB	root/root	0644	2019-10-16 05:25:12
timer	text/x-shellscript	1.07 KB	root/root	0755	2019-10-16 05:25:12
toolbar.tcl	text/plain	3.19 KB	root/root	0644	2019-10-16 05:25:12
tree.tcl	text/plain	3.09 KB	root/root	0644	2019-10-16 05:25:12
ttkbut.tcl	text/plain	3.33 KB	root/root	0644	2019-10-16 05:25:12
ttkmenu.tcl	text/plain	2.33 KB	root/root	0644	2019-10-16 05:25:12
ttknote.tcl	text/plain	2.26 KB	root/root	0644	2019-10-16 05:25:12
ttkpane.tcl	text/plain	4.07 KB	root/root	0644	2019-10-16 05:25:12
ttkprogress.tcl	text/plain	1.5 KB	root/root	0644	2019-10-16 05:25:12
ttkscale.tcl	text/plain	1.39 KB	root/root	0644	2019-10-16 05:25:12
twind.tcl	text/plain	10.79 KB	root/root	0644	2019-10-16 05:25:12
unicodeout.tcl	text/plain	4.3 KB	root/root	0644	2019-10-16 05:25:12
vscale.tcl	text/plain	1.44 KB	root/root	0644	2019-10-16 05:25:12
widget	text/x-shellscript	22.72 KB	root/root	0755	2019-10-16 05:25:12

For more Private tool come to me!

https://t.me/aDriv4vz