From aa98b53a53f5565dca97b25a012ca3d77f83531c Mon Sep 17 00:00:00 2001
From: rjohnson <rjohnson>
Date: Sat, 17 Apr 1999 02:05:23 +0000
Subject: Fixed bug 1768 - core dump in scale widget.

---
 generic/tkScale.c | 5 +++--
 1 file 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);
 	}
 
 	/*
-- 
cgit v0.12