File: watch

package info (click to toggle)
advi 2.0.0-5
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 13,728 kB
  • sloc: ml: 16,318; makefile: 1,223; ansic: 1,020; sh: 262; perl: 55; tcl: 10
file content (13 lines) | stat: -rwxr-xr-x 158 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/bin/wish

proc show_time {} {
    global time
    set time [exec date +%r]
    after 1000 show_time
}


label .l -textvariable time
pack .l

show_time