Check-in [f03bd6f7d2]
Not logged in
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:[SF Bug 267] Make sure [::info vars] falls back to trying [::tcl::info::vars] when no Itcl context is found.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:f03bd6f7d2a4b468a8a05a9515b5c88c31025809785a714c5f6791f9287aa512
User & Date: dgp 2018-04-02 14:03:50
Context
2018-05-16
13:55
close fork Leaf check-in: af95a3325d user: dgp tags: trunk
2018-05-15
12:58
Contributed patch adding introspection functionality on Itcl instance vars. Closed-Leaf check-in: 9d573e1756 user: dgp tags: bug-050ac21f72
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-15
21:57
[SF Bug 281] Rebuild virtual tables as part of [inherit] so we resolve inherited commons properly. check-in: 84b0a3ad49 user: dgp tags: trunk
Changes

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]);