Tk Library Source Code

Artifact c1f66feb51ab2ac9b828b7f8e6f98bb7ec2d814b:

Attachment "patch.txt" to ticket [943984ffff] added by davygrvy 2004-04-29 03:31:55.

---

Index: counter.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.tcl,v
retrieving revision 1.14
diff -c -r1.14 counter.tcl
*** counter.tcl	25 Jan 2004 07:29:21 -0000	1.14
--- counter.tcl	28 Apr 2004 20:02:04 -0000
***************
*** 679,685 ****
  	    if {[info exists hourhist($i)]} {
  		set dayhist($dayIndex) [expr {$dayhist($dayIndex) + $hourhist($i)}]
  		if {$hourhist($i) > $max} { 
! 		    set mx $hourhist($i) 
  		}
  	    }
  	}
--- 679,685 ----
  	    if {[info exists hourhist($i)]} {
  		set dayhist($dayIndex) [expr {$dayhist($dayIndex) + $hourhist($i)}]
  		if {$hourhist($i) > $max} { 
! 		    set max $hourhist($i) 
  		}
  	    }
  	}