Re: Re[2]: Tkined 1.4.0 event processing

Juergen Schoenwaelder (schoenw@cs.utwente.nl)
Fri, 12 Jul 1996 17:19:25 +0200

<mark.newnham@grandmet.co.uk> wrote:

> I get "??? Jul 12 16:44:52 expected integer but got "MET"

Oh, we had this one. The "official" patch for this problem is appended
below. Note, this patch is against the plain event.tcl from the 2.1.0
distribution.

Juergen

*** event.tcl.orig Sun Jun 2 20:20:12 1996
--- event.tcl Fri Jul 12 14:49:09 1996
***************
*** 540,548 ****

# convert the date to a gmt clock value

! set year [lindex [clock format [clock seconds]] 4]
! set date [format "??? %s %2d %2d:%2d:%2d %4d" \
! $month $day $hour $min $sec $year]
set clock [clock scan $date]

# map the facility and level numbers to a readable string
--- 540,546 ----

# convert the date to a gmt clock value

! set date [format "%s %2d %2d:%2d:%2d" $month $day $hour $min $sec]
set clock [clock scan $date]

# map the facility and level numbers to a readable string