blob: 0ed17503a56f0676389ed340081d50a8fb2f643a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
generic/tixGrSort.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/generic/tixGrSort.c b/generic/tixGrSort.c
index 7dee30f..26ec054 100644
--- a/generic/tixGrSort.c
+++ b/generic/tixGrSort.c
@@ -447,8 +447,8 @@ SortCompareProc(first, second)
* Parse the result of the command.
*/
- order = strtol(sortInterp->result, &end, 0);
- if ((end == sortInterp->result) || (*end != 0)) {
+ order = strtol(Tcl_GetStringResult(sortInterp), &end, 0);
+ if ((end == Tcl_GetStringResult(sortInterp)) || (*end != 0)) {
Tcl_ResetResult(sortInterp);
Tcl_AppendResult(sortInterp,
"comparison command returned non-numeric result",
|
GitWeb
