Itcl - the [incr Tcl] extension

Check-in [94d9228227]
Login
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:Remove [source -rsrc]. Only in Tcl 8.3 and only works on Max OS 9.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | itcl-3-branch
Files: files | file ages | folders
SHA3-256:94d922822719da13f6579bc91765a62c1ffff06d07f63f158b5afb40a7288866
User & Date: dgp 2018-06-14 12:40:41
Context
2018-06-14
12:40
Remove [source -rsrc]. Only in Tcl 8.3 and only works on Max OS 9. Leaf check-in: 94d9228227 user: dgp tags: itcl-3-branch
2017-12-12
04:20
Support Tcl 8.7. Put migration supports in place for Tcl 8.4 and 8.5. check-in: a036f93dad user: dgp tags: itcl-3-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/itcl_cmds.c.

49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
        global env tcl_library\n\
        variable library\n\
        variable version\n\
        rename _find_init {}\n\
        if {[info exists library]} {\n\
            lappend dirs $library\n\
        } else {\n\
            if {[catch {uplevel #0 source -rsrc itcl}] == 0} {\n\
                return\n\
            }\n\
            set dirs {}\n\
            if {[info exists env(ITCL_LIBRARY)]} {\n\
                lappend dirs $env(ITCL_LIBRARY)\n\
            }\n\
            lappend dirs [file join [file dirname $tcl_library] itcl$version]\n\
            set bindir [file dirname [info nameofexecutable]]\n\
            lappend dirs [file join $bindir .. lib itcl$version]\n\







<
<
<







49
50
51
52
53
54
55



56
57
58
59
60
61
62
        global env tcl_library\n\
        variable library\n\
        variable version\n\
        rename _find_init {}\n\
        if {[info exists library]} {\n\
            lappend dirs $library\n\
        } else {\n\



            set dirs {}\n\
            if {[info exists env(ITCL_LIBRARY)]} {\n\
                lappend dirs $env(ITCL_LIBRARY)\n\
            }\n\
            lappend dirs [file join [file dirname $tcl_library] itcl$version]\n\
            set bindir [file dirname [info nameofexecutable]]\n\
            lappend dirs [file join $bindir .. lib itcl$version]\n\