Itk - the [incr Tk] extension

Check-in [d40921fe23]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

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

Overview
Comment:Stop using obsolete [source -rsrc].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:d40921fe23e4273cff733bd8dee088d4bd7b3736c4622fc56fa2f428bf1705d6
User & Date: stu 2018-06-13 19:12:38
Context
2018-06-14
12:44
Remove Max OS 9 support. check-in: bcd4e565ae user: dgp tags: trunk
2018-06-13
19:12
Stop using obsolete [source -rsrc]. check-in: d40921fe23 user: stu tags: trunk
2017-07-28
17:04
Repurpose the trunk for ongoing development of Itk 4.1.*. check-in: fc469d3c3b user: dgp tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to generic/itkBase.c.

    55     55           global env tcl_library\n\
    56     56           variable library\n\
    57     57           variable patchLevel\n\
    58     58           rename _find_init {}\n\
    59     59           if {[info exists library]} {\n\
    60     60               lappend dirs $library\n\
    61     61           } else {\n\
    62         -            if {[catch {uplevel #0 source -rsrc itk}] == 0} {\n\
    63         -                return\n\
    64         -            }\n\
    65     62               set dirs {}\n\
    66     63               if {[info exists env(ITK_LIBRARY)]} {\n\
    67     64                   lappend dirs $env(ITK_LIBRARY)\n\
    68     65               }\n\
    69     66               lappend dirs [file join [file dirname $tcl_library] itk$patchLevel]\n\
    70     67               set bindir [file dirname [info nameofexecutable]]\n\
    71     68               lappend dirs [file join $bindir .. lib itk$patchLevel]\n\