Itk - the [incr Tk] extension

Check-in [755afe01e1]
Login

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

Overview
Comment:Don't allow Itk 4.0.3 to bring in Itcl 4.1+, which will break it.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | itk-4-0-3
Files: files | file ages | folders
SHA1: 755afe01e13ecddfa46ecb21eea3e777d468ca0d
User & Date: dgp 2017-07-07 18:21:32
Context
2017-07-28
17:04
Repurpose the trunk for ongoing development of Itk 4.1.*. check-in: fc469d3c3b user: dgp tags: itk-4-1-0, trunk
2017-07-07
18:21
Don't allow Itk 4.0.3 to bring in Itcl 4.1+, which will break it. check-in: 755afe01e1 user: dgp tags: itk-4-0-3, trunk
2017-06-29
15:25
Bump to Itk 4.0.3. check-in: f48084eacd user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Makefile.in.

226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
	    rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \
	    sed -e '/man\.macros/r man.macros' -e '/man\.macros/d' \
		$$i > $(DESTDIR)$(mandir)/mann/$$i; \
	    chmod 444 $(DESTDIR)$(mandir)/mann/$$i; \
	done

test: binaries libraries
	$(WISH) `@CYGPATH@ $(srcdir)/tests/all.tcl` -load "package require itk $(PACKAGE_VERSION)" $(TESTFLAGS)

shell: binaries libraries
	@$(WISH) $(SCRIPT)

gdb:
	$(TCLSH_ENV) gdb $(WISH_PROG) $(SCRIPT)








|







226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
	    rm -f $(DESTDIR)$(mandir)/mann/`basename $$i`; \
	    sed -e '/man\.macros/r man.macros' -e '/man\.macros/d' \
		$$i > $(DESTDIR)$(mandir)/mann/$$i; \
	    chmod 444 $(DESTDIR)$(mandir)/mann/$$i; \
	done

test: binaries libraries
	$(WISH) `@CYGPATH@ $(srcdir)/tests/all.tcl` -load "package require -exact itk $(PACKAGE_VERSION)" $(TESTFLAGS)

shell: binaries libraries
	@$(WISH) $(SCRIPT)

gdb:
	$(TCLSH_ENV) gdb $(WISH_PROG) $(SCRIPT)

Changes to generic/itkBase.c.

120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
      return TCL_ERROR;
    }
    if (Tk_InitStubs(interp, TK_VERSION, 0) == NULL) {
	return TCL_ERROR;
    };
    if (Itcl_InitStubs(interp, ITCL_VERSION, 0) == NULL) {
	return TCL_ERROR;
    }

    /*
     *  Add the "itk_option" ensemble to the itcl class definition parser.
     */
    parserNs = Tcl_FindNamespace(interp, "::itcl::parser",







|







120
121
122
123
124
125
126
127
128
129
130
131
132
133
134

    if (Tcl_InitStubs(interp, TCL_VERSION, 0) == NULL) {
      return TCL_ERROR;
    }
    if (Tk_InitStubs(interp, TK_VERSION, 0) == NULL) {
	return TCL_ERROR;
    };
    if (Itcl_InitStubs(interp, "4.0-4.1", 0) == NULL) {
	return TCL_ERROR;
    }

    /*
     *  Add the "itk_option" ensemble to the itcl class definition parser.
     */
    parserNs = Tcl_FindNamespace(interp, "::itcl::parser",