455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
result = TCL_ERROR;
goto done;
}
if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
result = TCL_ERROR;
goto done;
}
TkTextPrintIndex(&index1, interp->result);
} else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
&& (length >= 3)) {
int i, j, numTags;
char **tagNames;
TkTextTag **oldTagArrayPtr;
if (argc < 4) {
|
|
|
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
|
result = TCL_ERROR;
goto done;
}
if (TkTextGetIndex(interp, textPtr, argv[2], &index1) != TCL_OK) {
result = TCL_ERROR;
goto done;
}
TkTextPrintIndex(&index1, Tcl_GetStringResult(interp));
} else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
&& (length >= 3)) {
int i, j, numTags;
char **tagNames;
TkTextTag **oldTagArrayPtr;
if (argc < 4) {
|
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
|
sprintf(buffer, "%d", matchLength);
if (Tcl_SetVar(interp, varName, buffer, TCL_LEAVE_ERR_MSG)
== NULL) {
code = TCL_ERROR;
goto done;
}
}
TkTextPrintIndex(&index, interp->result);
goto done;
}
/*
* Go to the next (or previous) line;
*/
|
|
|
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
|
sprintf(buffer, "%d", matchLength);
if (Tcl_SetVar(interp, varName, buffer, TCL_LEAVE_ERR_MSG)
== NULL) {
code = TCL_ERROR;
goto done;
}
}
TkTextPrintIndex(&index, Tcl_GetStringResult(interp));
goto done;
}
/*
* Go to the next (or previous) line;
*/
|