Posted to tcl by mjanssen at Mon Jun 11 17:42:39 GMT 2007view raw

  1. putlog "binding time.."
  2. bind time - "* * * * *" itsnow
  3. proc itsnow {minute hour day month year} {
  4. putlog "it's now $hour:$minute $day-$month-$year"
  5. }