Itk - the [incr Tk] extension

Check-in [9922af6179]
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:Fix [ae14d0a924] by getting context for Itcl_GetInstanceVar() call right.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9922af61795c9bba51b97313906ad71e57f06b98
User & Date: dgp 2015-01-30 18:48:35
Context
2015-02-05
13:43
Itk_ArchCompAddCmd(): Make sure old frame is restored even in error exit. check-in: 9219eeba4c user: dgp tags: trunk
2015-01-30
18:50
merge trunk check-in: cb282e78f1 user: dgp tags: itk-4-0-1-rc
18:48
Fix [ae14d0a924] by getting context for Itcl_GetInstanceVar() call right. check-in: 9922af6179 user: dgp tags: trunk
2015-01-26
17:00
Accommodate the changed Tcl_GetHashKey() signature. check-in: e764406f0f user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itkArchetype.c.

586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
                if (!optPart) {
                    optPart = Itk_CreateOptionPart(interp, (ClientData)ivPtr,
                        Itk_PropagatePublicVar, (Tcl_CmdDeleteProc*)NULL,
                        (ClientData)ivPtr);

                    val = Itcl_GetInstanceVar(interp,
		            Tcl_GetString(ivPtr->namePtr),
                            contextObj, contextObj->iclsPtr);

                    result = Itk_AddOptionPart(interp, info,
                            Tcl_GetString(ivPtr->namePtr),
			    (char*)NULL, (char*)NULL,
                            val, (char*)NULL, optPart, &archOpt);

                    if (result != TCL_OK) {






|







586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
                if (!optPart) {
                    optPart = Itk_CreateOptionPart(interp, (ClientData)ivPtr,
                        Itk_PropagatePublicVar, (Tcl_CmdDeleteProc*)NULL,
                        (ClientData)ivPtr);

                    val = Itcl_GetInstanceVar(interp,
		            Tcl_GetString(ivPtr->namePtr),
                            contextObj, iclsPtr);

                    result = Itk_AddOptionPart(interp, info,
                            Tcl_GetString(ivPtr->namePtr),
			    (char*)NULL, (char*)NULL,
                            val, (char*)NULL, optPart, &archOpt);

                    if (result != TCL_OK) {