Tk Library Source Code

Artifact 21f9603db0f014c95c4356cffe67629ff9234c74:

Attachment "patch.txt" to ticket [949765ffff] added by davygrvy 2004-05-07 17:14:23.

---

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
  	}