summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrjohnson <rjohnson>1999-04-17 02:05:23 (GMT)
committerrjohnson <rjohnson>1999-04-17 02:05:23 (GMT)
commitaa98b53a53f5565dca97b25a012ca3d77f83531c (patch)
tree6a4222f73dd6b72b6462cbc48ce55b7853d6cdf0
parentf918ed3b3397df68218337d79016a5851ea4be69 (diff)
downloadtk-aa98b53a53f5565dca97b25a012ca3d77f83531c.zip
tk-aa98b53a53f5565dca97b25a012ca3d77f83531c.tar.gz
tk-aa98b53a53f5565dca97b25a012ca3d77f83531c.tar.bz2
Fixed bug 1768 - core dump in scale widget.
-rw-r--r--generic/tkScale.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tkScale.c b/generic/tkScale.c
index 6d23cf3..2ba4765 100644
--- a/generic/tkScale.c
+++ b/generic/tkScale.c
@@ -13,11 +13,12 @@
*
* Copyright (c) 1990-1994 The Regents of the University of California.
* Copyright (c) 1994-1997 Sun Microsystems, Inc.
+ * Copyright (c) 1999 by Scriptics Corporation.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tkScale.c,v 1.4 1999/04/17 01:39:06 rjohnson Exp $
+ * RCS: @(#) $Id: tkScale.c,v 1.5 1999/04/17 02:05:23 rjohnson Exp $
*/
#include "tkPort.h"
@@ -631,8 +632,8 @@ ConfigureScale(interp, scalePtr, objc, objv)
valuePtr = Tcl_GetVar2Ex(interp, name, NULL, TCL_GLOBAL_ONLY);
if (valuePtr != NULL) {
Tcl_GetDoubleFromObj(interp, valuePtr, &value);
+ scalePtr->value = TkRoundToResolution(scalePtr, value);
}
- scalePtr->value = TkRoundToResolution(scalePtr, value);
}
/*