#
# $Header: /home/rockware/cvs-main/operator/tcl/opClock.tcl,v 1.8 1995/03/16 12:43:19 erez Exp $
# Written by: Erez Strauss (C) All Rights Reserved 1994, 1995.
#
proc opClockOpen {} {
    catch { destroy .clock }
    toplevel .clock
    label .clock.l -textvariable TimeVar -font 7x14
    pack .clock.l
    #    frame .clock.icon
    #    label .clock.icon.l -textvariable TimeVar -font 7x14
    #    pack .clock.icon.l
    #    wm iconwindow .clock .clock.icon
    #    wm iconify .clock
    opClockUpdate
}
proc opClockUpdate {} {
    global TimeVar
    set TimeVar [exec date +%H:%M:%S]
    after 10000 opClockUpdate
}
