Tk Library Source Code: Attachment Details

Overview

Artifact ID:	220315e9a37c6d144460121b08c047e2d62b2b43
Ticket:	943984ffffffffffffffffffffffffffffffffff
Date:	2004-04-29 03:31:55
User:	davygrvy
Artifact Attached:	c1f66feb51ab2ac9b828b7f8e6f98bb7ec2d814b
Filename:	patch.txt
Description:	the fix.

Content:

     1
     2
     3
     4
     5
     6
     7
     8
     9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
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) 
  		}
  	    }
  	}