Tk Library Source Code: Attachment Details

Overview

Artifact ID:	3906839b009618a520b0e4389ddc95a45a871560
Ticket:	949765ffffffffffffffffffffffffffffffffff
Date:	2004-05-07 17:14:23
User:	davygrvy
Artifact Attached:	21f9603db0f014c95c4356cffe67629ff9234c74
Filename:	patch.txt
Description:

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
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	7 May 2004 09:34:41 -0000
***************
*** 630,636 ****
  		set max $histogram($i)
  	    }
  	}
! 	set perSec [expr {$max / $secsPerMinute}]
  	if {$perSec > $counter(maxPerMinute)} {
  	    set counter(maxPerMinute) $perSec
  	}
--- 630,636 ----
  		set max $histogram($i)
  	    }
  	}
! 	set perSec [expr {double($max) / $secsPerMinute}]
  	if {$perSec > $counter(maxPerMinute)} {
  	    set counter(maxPerMinute) $perSec
  	}