/usr/share/tcltk/itk3.3/itk.tcl is in itk3 3.3-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 | #
# itk.tcl
# ----------------------------------------------------------------------
# Invoked automatically upon startup to customize the interpreter
# for [incr Tk].
# ----------------------------------------------------------------------
# AUTHOR: Michael J. McLennan
# Bell Labs Innovations for Lucent Technologies
# mmclennan@lucent.com
# http://www.tcltk.com/itcl
#
# RCS: $Id: itk.tcl,v 1.3 2002/05/14 22:53:28 davygrvy Exp $
# ----------------------------------------------------------------------
# Copyright (c) 1993-1998 Lucent Technologies, Inc.
# ======================================================================
# 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
# that causes it to disconnect itself from its parent when destroyed.
# This procedure removes the binding from the binding tag list and
# deletes the binding. It is much easier to implement this in
# Tcl than C.
# ----------------------------------------------------------------------
proc ::itk::remove_destroy_hook {widget} {
if {![winfo exists $widget]} {return}
set tags [bindtags $widget]
set i [lsearch $tags "itk-destroy-$widget"]
if {$i >= 0} {
bindtags $widget [lreplace $tags $i $i]
}
bind itk-destroy-$widget <Destroy> {}
}
#
# Define "usual" option-handling code for the Tk widgets:
#
itk::usual Button {
keep -background -cursor -foreground -font
keep -activebackground -activeforeground -disabledforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Canvas {
keep -background -cursor
keep -insertbackground -insertborderwidth -insertwidth
keep -insertontime -insertofftime
keep -selectbackground -selectborderwidth -selectforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Checkbutton {
keep -background -cursor -foreground -font
keep -activebackground -activeforeground -disabledforeground
keep -selectcolor
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Entry {
keep -background -cursor -foreground -font
keep -insertbackground -insertborderwidth -insertwidth
keep -insertontime -insertofftime
keep -selectbackground -selectborderwidth -selectforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Frame {
keep -background -cursor
}
itk::usual Label {
keep -background -cursor -foreground -font
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Listbox {
keep -background -cursor -foreground -font
keep -selectbackground -selectborderwidth -selectforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Menu {
keep -background -cursor -foreground -font
keep -activebackground -activeforeground -disabledforeground
keep -selectcolor -tearoff
}
itk::usual Menubutton {
keep -background -cursor -foreground -font
keep -activebackground -activeforeground -disabledforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Message {
keep -background -cursor -foreground -font
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Radiobutton {
keep -background -cursor -foreground -font
keep -activebackground -activeforeground -disabledforeground
keep -selectcolor
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Scale {
keep -background -cursor -foreground -font -troughcolor
keep -activebackground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Scrollbar {
keep -background -cursor -troughcolor
keep -activebackground -activerelief
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Text {
keep -background -cursor -foreground -font
keep -insertbackground -insertborderwidth -insertwidth
keep -insertontime -insertofftime
keep -selectbackground -selectborderwidth -selectforeground
keep -highlightcolor -highlightthickness
rename -highlightbackground -background background Background
}
itk::usual Toplevel {
keep -background -cursor
}
|