Posted to tcl by mjanssen at Mon Jun 11 17:42:39 GMT 2007view pretty
putlog "binding time.." bind time - "* * * * *" itsnow proc itsnow {minute hour day month year} { putlog "it's now $hour:$minute $day-$month-$year" }
putlog "binding time.." bind time - "* * * * *" itsnow proc itsnow {minute hour day month year} { putlog "it's now $hour:$minute $day-$month-$year" }