Index: generic/tkScale.c =================================================================== RCS file: /cvsroot/tk/generic/tkScale.c,v retrieving revision 1.10 diff -c -r1.10 tkScale.c *** tkScale.c 1999/12/22 20:01:07 1.10 --- tkScale.c 2000/01/27 22:41:38 *************** *** 1147,1166 **** TkScale *scalePtr; /* Information about scale widget. */ double value; /* Value to round. */ { ! double rem, new; if (scalePtr->resolution <= 0) { return value; } ! new = scalePtr->resolution * floor(value/scalePtr->resolution); rem = value - new; if (rem < 0) { if (rem <= -scalePtr->resolution/2) { ! new -= scalePtr->resolution; } } else { if (rem >= scalePtr->resolution/2) { ! new += scalePtr->resolution; } } return new; --- 1147,1167 ---- TkScale *scalePtr; /* Information about scale widget. */ double value; /* Value to round. */ { ! double rem, new, tick; if (scalePtr->resolution <= 0) { return value; } ! tick = floor(value/scalePtr->resolution); ! new = scalePtr->resolution * tick; rem = value - new; if (rem < 0) { if (rem <= -scalePtr->resolution/2) { ! new = (tick - 1.0) * scalePtr->resolution; } } else { if (rem >= scalePtr->resolution/2) { ! new = (tick + 1.0) * scalePtr->resolution; } } return new;