]> cvs.zerfleddert.de Git - micropolis/blob - src/tclx/ucbsrc/tclexpr.dif
make double click work on OS X
[micropolis] / src / tclx / ucbsrc / tclexpr.dif
1 *** ../../tcl6.4/tclExpr.c Mon Mar 23 09:54:06 1992
2 --- tclExpr.c Tue Oct 6 17:20:10 1992
3 ***************
4 *** 1318,1324
5 if (value.type == TYPE_INT) {
6 sprintf(interp->result, "%ld", value.intValue);
7 } else if (value.type == TYPE_DOUBLE) {
8 ! sprintf(interp->result, "%g", value.doubleValue);
9 } else {
10 if (value.pv.buffer != value.staticSpace) {
11 interp->result = value.pv.buffer;
12
13 --- 1318,1324 -----
14 if (value.type == TYPE_INT) {
15 sprintf(interp->result, "%ld", value.intValue);
16 } else if (value.type == TYPE_DOUBLE) {
17 ! Tcl_ReturnDouble (interp, value.doubleValue);
18 } else {
19 if (value.pv.buffer != value.staticSpace) {
20 interp->result = value.pv.buffer;
Impressum, Datenschutz