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
|
#
# 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$
# ----------------------------------------------------------------------
# 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}
}
#
# 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
}
|
