Sign in
apache
/
tcl-site
/
ad6f0bca7c326bbc13bc8b93bd207a48dc67dbb3
/
.
/
presentations
/
tcl
/
tcl
/
hello.tcl
blob: 30038c4750f22d82e6e00d5d039012f9155ba723 [
file
] [
log
] [
blame
]
set
Time
[
clock format
[
clock seconds
]]
label
.
time -textvariable Time
button
.
close -text
"Update Clock"
-command
{
set
Time
[
clock format
[
clock seconds
]]
}
pack
.
time
.
close