diff options
| author | rjohnson <rjohnson@noemail.net> | 1999-04-17 02:05:22 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson@noemail.net> | 1999-04-17 02:05:22 (GMT) |
| commit | 8d61e5b395e26832d149ef01d398825395a0b3f1 (patch) | |
| tree | 6a4222f73dd6b72b6462cbc48ce55b7853d6cdf0 /generic/tkScale.c | |
| parent | 9bef7c07c5dd0fcf4389c0081da5ddf5616c1334 (diff) | |
| download | tk-8d61e5b395e26832d149ef01d398825395a0b3f1.zip tk-8d61e5b395e26832d149ef01d398825395a0b3f1.tar.gz tk-8d61e5b395e26832d149ef01d398825395a0b3f1.tar.bz2 | |
Fixed bug 1768 - core dump in scale widget.
FossilOrigin-Name: 13c44fc8865e31a929690b486b4d237de2ba31d5
Diffstat (limited to 'generic/tkScale.c')
| -rw-r--r-- | generic/tkScale.c | 5 |
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); } /* |