Itcl - the [incr Tcl] extension

Check-in [af95a3325d]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2018 Conference, Houston/TX, US, Oct 15-19
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Aug 20.

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

Overview
Comment:close fork
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:af95a3325df57e5a0244579afbaf9215e71d31b1b1287906223f1d49378560f1
User & Date: dgp 2018-05-16 13:55:05
Context
2018-06-05
15:01
Add TCLLIBPATH to valgrind invocation. check-in: 0f3ae00c14 user: pooryorick tags: trunk
2018-05-16
13:56
Contributed patch adding introspection functionality on Itcl instance vars. Leaf check-in: 8d29902da1 user: dgp tags: bug-050ac21f72
13:55
close fork check-in: af95a3325d user: dgp tags: trunk
2018-04-02
14:03
[SF Bug 267] Make sure [::info vars] falls back to trying [::tcl::info::vars] when no Itcl context is found. check-in: f03bd6f7d2 user: dgp tags: trunk
2018-02-27
19:34
[c949e73d3e] Repair regression in [info option $option] by expanding the object context discoverable by Itcl_GetContext(). Seems related to constructor operations. check-in: b8f24e43d4 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itclInfo.c.

1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580

    if (objc > 2) {
	Tcl_WrongNumArgs(interp, 1, objv, " ?pattern?");
	return TCL_ERROR;
    }

    if (TCL_OK != Itcl_GetContext(interp, &iclsPtr, &ioPtr)) {
	if (objc == 2) {
	    /* Give pattern a chance to determine context */
	    Tcl_ResetResult(interp);
	} else {
	    return TCL_ERROR;
	}
    }
    if (iclsPtr) {
	    if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR|ITCL_WIDGET)) {
	        /* don't use the ::tcl::info::vars command */
	        useGlobalInfo = 0;
	        if (objc == 2) {
		    pattern = Tcl_GetString(objv[1]);







|
<
|
<
<
<







1561
1562
1563
1564
1565
1566
1567
1568

1569



1570
1571
1572
1573
1574
1575
1576

    if (objc > 2) {
	Tcl_WrongNumArgs(interp, 1, objv, " ?pattern?");
	return TCL_ERROR;
    }

    if (TCL_OK != Itcl_GetContext(interp, &iclsPtr, &ioPtr)) {
	/* Clear the error message */

	Tcl_ResetResult(interp);



    }
    if (iclsPtr) {
	    if (iclsPtr->flags & (ITCL_TYPE|ITCL_WIDGETADAPTOR|ITCL_WIDGET)) {
	        /* don't use the ::tcl::info::vars command */
	        useGlobalInfo = 0;
	        if (objc == 2) {
		    pattern = Tcl_GetString(objv[1]);