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: |
ac6afc928ac877d235b765a7576df568 |
| 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
Changes to generic/itk_cmds.c.
54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
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 itk}] == 0} {\n\
return\n\
}\n\
set dirs {}\n\
if {[info exists env(ITK_LIBRARY)]} {\n\
lappend dirs $env(ITK_LIBRARY)\n\
}\n\
lappend dirs [file join [file dirname $tcl_library] itk$version]\n\
set bindir [file dirname [info nameofexecutable]]\n\
lappend dirs [file join $bindir .. lib itk$version]\n\
|
< < < |
54 55 56 57 58 59 60 61 62 63 64 65 66 67 |
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(ITK_LIBRARY)]} {\n\
lappend dirs $env(ITK_LIBRARY)\n\
}\n\
lappend dirs [file join [file dirname $tcl_library] itk$version]\n\
set bindir [file dirname [info nameofexecutable]]\n\
lappend dirs [file join $bindir .. lib itk$version]\n\
|
Changes to library/itk.tcl.
13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
# ====================================================================== # See the file "license.terms" for information on usage and # redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # Provide transparent access to all [incr Tk] commands # if {$tcl_platform(os) == "MacOS"} { source -rsrc itk:tclIndex } else { lappend auto_path ${itk::library} } # ---------------------------------------------------------------------- # USAGE: itk::remove_destroy_hook <widget> # # Used internally via "itk_component delete" when disconnecting a # component <widget> from the mega-widget that contains it. # Each component has a special binding for the <Destroy> event |
< < < | < |
13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
# ======================================================================
# See the file "license.terms" for information on usage and
# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# Provide transparent access to all [incr Tk] commands
#
lappend auto_path ${itk::library}
# ----------------------------------------------------------------------
# USAGE: itk::remove_destroy_hook <widget>
#
# Used internally via "itk_component delete" when disconnecting a
# component <widget> from the mega-widget that contains it.
# Each component has a special binding for the <Destroy> event
|