Tk Source Code

Check-in [ec3ea7f7]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed indentation
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-438
Files: files | file ages | folders
SHA1: ec3ea7f73b18c96eac56ec92e71b4028286eeee1
User & Date: fvogel 2015-11-28 22:18:58
Context
2015-11-28
22:35
Clearer separation between what [.text sync] and [.text sync -command] exactly perform check-in: f72cd1f4 user: fvogel tags: tip-438
22:18
Fixed indentation check-in: ec3ea7f7 user: fvogel tags: tip-438
21:39
Merged core-8-5-branch check-in: ff1b18fe user: fvogel tags: tip-438
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkText.c.

1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
		goto done;
	    }
	    Tcl_IncrRefCount(cmd);
	    if (TkTextPendingsync(textPtr)) {
		if (textPtr->afterSyncCmd) {
		    Tcl_DecrRefCount(textPtr->afterSyncCmd);
		}
		    textPtr->afterSyncCmd = cmd;
	    } else {
		    result = Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL);
		    Tcl_DecrRefCount(cmd);
	    }
	break;
	} else if (objc != 2) {
		Tcl_WrongNumArgs(interp, 2, objv, "?-command command?");
		result = TCL_ERROR;
		goto done;
	}
	if (textPtr->afterSyncCmd) {
		Tcl_DecrRefCount(textPtr->afterSyncCmd);
	}
	textPtr->afterSyncCmd = NULL;
	TkTextUpdateLineMetrics(textPtr, 1,
		TkBTreeNumLines(textPtr->sharedTextPtr->tree, textPtr), -1);
	break;
    }
    case TEXT_TAG:






|

|
|

|

|
|
|


|







1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
		goto done;
	    }
	    Tcl_IncrRefCount(cmd);
	    if (TkTextPendingsync(textPtr)) {
		if (textPtr->afterSyncCmd) {
		    Tcl_DecrRefCount(textPtr->afterSyncCmd);
		}
		textPtr->afterSyncCmd = cmd;
	    } else {
		result = Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL);
		Tcl_DecrRefCount(cmd);
	    }
	    break;
	} else if (objc != 2) {
	    Tcl_WrongNumArgs(interp, 2, objv, "?-command command?");
	    result = TCL_ERROR;
	    goto done;
	}
	if (textPtr->afterSyncCmd) {
	    Tcl_DecrRefCount(textPtr->afterSyncCmd);
	}
	textPtr->afterSyncCmd = NULL;
	TkTextUpdateLineMetrics(textPtr, 1,
		TkBTreeNumLines(textPtr->sharedTextPtr->tree, textPtr), -1);
	break;
    }
    case TEXT_TAG: