Itk - the [incr Tk] extension

Check-in [b3513260e3]
Login

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

Overview
Comment:[fa152b6a6e] Continue support of mixed case pacakge name "Itk". Permits continued use of [package require Itk] in existing scripts. Thanks ralfixx!
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b3513260e348d3c89311810f2648768c6a557950
User & Date: dgp 2015-05-01 16:50:14
Context
2016-02-11
20:58
The Itk_ConfigOptionPartProc "Itk_PropagatePublicVar" can only work on a scalar variable, so screen out array variables from having an ArchOptionPart created. check-in: f5fc5c8074 user: dgp tags: trunk
2015-07-29
16:45
merge trunk check-in: 482c48daf2 user: dgp tags: dgp-method-type
2015-05-01
16:50
[fa152b6a6e] Continue support of mixed case pacakge name "Itk". Permits continued use of [package require Itk] in existing scripts. Thanks ralfixx! check-in: b3513260e3 user: dgp tags: trunk
16:42
[8a022f72e7] Correct memory access violation. Thanks ralfixx! check-in: 2f9e81a683 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itkBase.c.

210
211
212
213
214
215
216

217
218
219
220
221
222
223
    /*
     *  Signal that the package has been loaded and provide the Itk Stubs table
     *  for dependent modules.  I know this is unlikely, but possible that
     *  someone could be extending Itk.  Who is to say that Itk is the
     *  end-of-the-line?
     */


    return Tcl_PkgProvideEx(interp, "itk", ITK_PATCH_LEVEL,
            (ClientData) &itkStubs);
}

/*
 * ------------------------------------------------------------------------
 *  Itk_Init()







>







210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
    /*
     *  Signal that the package has been loaded and provide the Itk Stubs table
     *  for dependent modules.  I know this is unlikely, but possible that
     *  someone could be extending Itk.  Who is to say that Itk is the
     *  end-of-the-line?
     */

    Tcl_PkgProvideEx(interp, "Itk", ITK_PATCH_LEVEL, (ClientData) &itkStubs);
    return Tcl_PkgProvideEx(interp, "itk", ITK_PATCH_LEVEL,
            (ClientData) &itkStubs);
}

/*
 * ------------------------------------------------------------------------
 *  Itk_Init()

Changes to pkgIndex.tcl.in.

1
2
3

# Tcl package index file, version 1.0

package ifneeded itk @PACKAGE_VERSION@ [list load [file join $dir "@PKG_LIB_FILE@"] itk]



|
>
1
2
3
4
# Tcl package index file, version 1.0

package ifneeded itk @PACKAGE_VERSION@ [list load [file join $dir "@PKG_LIB_FILE@"] Itk]
package ifneeded Itk @PACKAGE_VERSION@ [list load [file join $dir "@PKG_LIB_FILE@"] Itk]