Index: tkScale.c =================================================================== RCS file: /cvsroot/tk/generic/tkScale.c,v retrieving revision 1.1.4.8 diff -c -r1.1.4.8 tkScale.c *** tkScale.c 1999/03/30 23:56:57 1.1.4.8 --- tkScale.c 1999/04/09 00:10:29 *************** *** 619,625 **** /* * If the scale is tied to the value of a variable, then set ! * the scale's value from the value of the variable, if it exists. */ if (scalePtr->varNamePtr != NULL) { --- 619,626 ---- /* * If the scale is tied to the value of a variable, then set ! * the scale's value from the value of the variable, if it exists ! * and it holds a valid double value. */ if (scalePtr->varNamePtr != NULL) { *************** *** 629,638 **** name = Tcl_GetString(scalePtr->varNamePtr); valuePtr = Tcl_GetVar2Ex(interp, name, NULL, TCL_GLOBAL_ONLY); ! if (valuePtr != NULL) { ! Tcl_GetDoubleFromObj(interp, valuePtr, &value); } - scalePtr->value = TkRoundToResolution(scalePtr, value); } /* --- 630,640 ---- name = Tcl_GetString(scalePtr->varNamePtr); valuePtr = Tcl_GetVar2Ex(interp, name, NULL, TCL_GLOBAL_ONLY); ! if ((valuePtr != NULL) ! && (Tcl_GetDoubleFromObj(interp, valuePtr, &value) ! == TCL_OK)) { ! scalePtr->value = TkRoundToResolution(scalePtr, value); } } /*