Itk - the [incr Tk] extension

Check-in [ac6afc928a]
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:Remove Mac OS 9 support.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | itk-3-branch
Files: files | file ages | folders
SHA3-256: ac6afc928ac877d235b765a7576df5688c5b618f3e80d6bc6465244987e9ff70
User & Date: dgp 2018-06-14 12:43:26
Context
2018-06-14
12:43
Remove Mac OS 9 support. Leaf check-in: ac6afc928a user: dgp tags: itk-3-branch
2016-03-01
15:42
merge release check-in: 1b04f825dc user: dgp tags: itk-3-branch
Changes
Hide Diffs Side-by-Side Diffs Show Whitespace Changes Patch

Changes to generic/itk_cmds.c.

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

Changes to library/itk.tcl.

    13     13   # ======================================================================
    14     14   # See the file "license.terms" for information on usage and
    15     15   # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    16     16   
    17     17   #
    18     18   # Provide transparent access to all [incr Tk] commands
    19     19   #
    20         -if {$tcl_platform(os) == "MacOS"} {
    21         -    source -rsrc itk:tclIndex
    22         -} else {
    23     20       lappend auto_path ${itk::library}
    24         -}
    25     21   
    26     22   # ----------------------------------------------------------------------
    27     23   #  USAGE:  itk::remove_destroy_hook <widget>
    28     24   #
    29     25   #  Used internally via "itk_component delete" when disconnecting a
    30     26   #  component <widget> from the mega-widget that contains it.
    31     27   #  Each component has a special binding for the <Destroy> event