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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
package require BLT
set imgData {
R0lGODlhEAANAMIAAAAAAH9/f///////AL+/vwAA/wAAAAAAACH5BAEAAAUALAAAAAAQAA0A
AAM8WBrM+rAEQWmIb5KxiWjNInCkV32AJHRlGQBgDA7vdN4vUa8tC78qlrCWmvRKsJTquHkp
ZTKAsiCtWq0JADs=
}
set icon2 [image create picture -file images/blt98.gif]
set icon [image create picture -data $imgData]
set bg white
set image ""
set menu .m
if { [file exists ../library] } {
set blt_library ../library
}
blt::comboview .l \
-background white \
-activebackground skyblue4 \
-activeforeground white \
-checkbuttonoutlinecolor "" \
-checkbuttonfillcolor "" \
-disabledbackground \#f0f0f0 \
-textvariable myText1 \
-iconvariable myIcon1 \
-yscrollbar .l.ybar \
-xscrollbar .l.xbar
blt::tk::scrollbar .l.xbar
blt::tk::scrollbar .l.ybar
set onOff 1
set wwho ""
foreach {item type} {
Undo command
X1 checkbutton
Y1 radiobutton
Redo checkbutton
Cut command
Copy checkbutton
X2 checkbutton
Y2 radiobutton
Paste checkbutton
"Edit Options" separator
"Select All" checkbutton
X3 checkbutton
Y3 radiobutton
Find cascade
Replace checkbutton
} {
set char [string range $item 0 0]
.l add \
-type $type \
-text $item \
-accel "Ctrl+$char" \
-underline 0 \
-tag "$type [string tolower $char]" \
-icon $icon \
-variable $item \
-value $item \
}
set X1 1
set Redo 1
.l item configure Find -menu $menu
#-state disabled
.l item configure x -state disabled
.l item configure radiobutton -variable wwho
.l item configure Y1 -state disabled
puts stderr "config=[.l item configure Y3]"
set wwho Y1
blt::combomenu $menu \
-bg $bg \
-textvariable myText1 \
-iconvariable myIcon1 \
-disabledforeground grey45 \
-disabledbackground grey85 \
-disabledacceleratorforeground grey45 \
-height { 0 500 } \
-xscrollcommand [list $menu.xbar set] \
-yscrollcommand [list $menu.ybar set] \
-yscrollbar $menu.ybar \
-font "Arial 8" \
-xscrollbar $menu.xbar
blt::tk::scrollbar $menu.xbar
blt::tk::scrollbar $menu.ybar
set onOff 0
foreach item {
Undo X1 Y1 Redo Cut Copy X2 Y2 Paste "Select All" X3 Y3 Find Replace
} {
set char [string range $item 0 0]
$menu add \
-type checkbutton \
-text $item \
-accel "Ctrl+$char" \
-accel "" \
-underline 0 \
-tag [string tolower $char] \
-icon $icon \
-variable $item \
-value $item \
}
set wwho2 ""
$menu item configure Undo -type command
$menu item configure Cut -type command
$menu item configure Find -type cascade -menu $menu.m
#-state disabled
$menu item configure Y3 -type command -image $icon2
$menu item configure Undo -type command
$menu item configure Paste -type separator
$menu item configure x -state disabled
$menu item configure y -type radiobutton -variable wwho2
set labels {
Aarhus Aaron Ababa aback abaft abandon abandoned abandoning
abandonment abandons abase abased abasement abasements abases
abash abashed abashes abashing abasing abate abated abatement
abatements abater abates abating Abba abbe abbey abbeys abbot
abbots Abbott abbreviate abbreviated abbreviates abbreviating
abbreviation abbreviations Abby abdomen abdomens abdominal
abduct abducted abduction abductions abductor abductors abducts
Abe abed Abel Abelian Abelson Aberdeen Abernathy aberrant
aberration aberrations abet abets abetted abetter abetting
abeyance abhor abhorred abhorrent abhorrer abhorring abhors
abide abided abides abiding Abidjan Abigail Abilene abilities
ability abject abjection abjections abjectly abjectness abjure
abjured abjures abjuring ablate ablated ablates ablating
ablation ablative ablaze able abler ablest ably Abner abnormal
abnormalities abnormality abnormally Abo aboard abode abodes
abolish abolished abolisher abolishers abolishes abolishing
abolishment abolishments abolition abolitionist abolitionists
abominable abominate aboriginal aborigine aborigines abort
aborted aborting abortion abortions abortive abortively aborts
Abos abound abounded abounding abounds about above aboveboard
aboveground abovementioned abrade abraded abrades abrading
Abraham Abram Abrams Abramson abrasion abrasions abrasive
abreaction abreactions abreast abridge abridged abridges
abridging abridgment abroad abrogate abrogated abrogates
abrogating abrupt abruptly abruptness abscess abscessed
abscesses abscissa abscissas abscond absconded absconding
absconds absence absences absent absented absentee
absenteeism absentees absentia absenting absently absentminded
absents absinthe absolute absolutely absoluteness absolutes
absolution absolve absolved absolves absolving absorb
absorbed absorbency absorbent absorber absorbing absorbs
absorption absorptions absorptive abstain abstained abstainer
abstaining abstains abstention abstentions abstinence
abstract abstracted abstracting abstraction abstractionism
abstractionist abstractions abstractly abstractness
abstractor abstractors abstracts abstruse abstruseness
absurd absurdities absurdity absurdly Abu abundance abundant
abundantly abuse abused abuses abusing abusive abut abutment
abuts abutted abutter abutters abutting abysmal abysmally
abyss abysses Abyssinia Abyssinian Abyssinians acacia
academia academic academically academics academies academy
Acadia Acapulco accede acceded accedes accelerate accelerated
accelerates accelerating acceleration accelerations
accelerator accelerators accelerometer accelerometers accent
accented accenting accents accentual accentuate accentuated
accentuates accentuating accentuation accept acceptability
acceptable acceptably acceptance acceptances accepted
accepter accepters accepting acceptor acceptors accepts
access accessed accesses accessibility accessible accessibly
accessing accession accessions accessories accessors
accessory accident accidental accidentally accidently
accidents acclaim acclaimed acclaiming acclaims acclamation
acclimate acclimated acclimates acclimating acclimatization
acclimatized accolade accolades accommodate accommodated
accommodates accommodating accommodation accommodations
accompanied accompanies accompaniment accompaniments
accompanist accompanists accompany accompanying accomplice
accomplices accomplish accomplished accomplisher accomplishers
accomplishes accomplishing accomplishment accomplishments
accord accordance accorded accorder accorders according
accordingly accordion accordions accords accost accosted
accosting accosts account accountability accountable accountably
accountancy accountant accountants accounted accounting
accounts Accra accredit accreditation accreditations
accredited accretion accretions accrue accrued accrues
accruing acculturate acculturated acculturates acculturating
acculturation accumulate accumulated accumulates accumulating
accumulation accumulations accumulator accumulators
accuracies accuracy accurate accurately accurateness accursed
accusal accusation accusations accusative accuse accused
accuser accuses accusing accusingly accustom accustomed
accustoming accustoms ace aces acetate acetone acetylene
Achaean Achaeans ache ached aches achievable achieve achieved
achievement achievements achiever achievers achieves achieving
Achilles aching acid acidic acidities acidity acidly acids
acidulous Ackerman Ackley acknowledge acknowledgeable
acknowledged acknowledgement acknowledgements acknowledger
acknowledgers acknowledges acknowledging acknowledgment
acknowledgments acme acne acolyte acolytes acorn acorns
acoustic acoustical acoustically acoustician acoustics
acquaint acquaintance acquaintances acquainted acquainting
acquaints acquiesce acquiesced acquiescence acquiescent
acquiesces acquiescing acquirable acquire acquired acquires
acquiring acquisition acquisitions
}
blt::combomenu $menu.m \
-bg $bg \
-textvariable myText1 \
-iconvariable myIcon1 \
-disabledforeground grey45 \
-disabledbackground grey85 \
-disabledacceleratorforeground grey45 \
-width { 0 400 } \
-height { 0 500 } \
-yscrollbar $menu.m.ybar \
-xscrollbar $menu.m.xbar
$menu.m listadd $labels \
-icon $icon
blt::tk::scrollbar $menu.m.xbar
blt::tk::scrollbar $menu.m.ybar
bind . <3> {
puts stderr "release grab"
grab release [grab current]
}
#. configure -bg blue
blt::table . \
0,0 .l -fill both
|
