equal
deleted
inserted
replaced
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 Object subclass:#WindowBuilder |
13 Object subclass:#WindowBuilder |
14 instanceVariableNames:'window windowView application bindings visuals focusSequence |
14 instanceVariableNames:'window windowView application bindings visuals focusSequence |
15 namedComponents componentCreationHook applicationClass |
15 namedComponents helpKeys componentCreationHook applicationClass |
16 keyboardProcessor subCanvasSpecs' |
16 keyboardProcessor subCanvasSpecs' |
17 classVariableNames:'' |
17 classVariableNames:'' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Interface-Support-UI' |
19 category:'Interface-Support-UI' |
20 ! |
20 ! |
153 |
153 |
154 focusSequence |
154 focusSequence |
155 ^ focusSequence |
155 ^ focusSequence |
156 ! |
156 ! |
157 |
157 |
158 helpTextFor:aComponent |
158 helpKeyFor:aComponent |
159 "activeHelp interface: return some help text for a component" |
159 |v key| |
160 |
160 |
|
161 helpKeys isNil ifTrue:[^ nil]. |
|
162 |
|
163 v := aComponent. |
|
164 [v notNil] whileTrue:[ |
|
165 (key := helpKeys at:v ifAbsent:nil) notNil ifTrue:[ |
|
166 ^ key |
|
167 ]. |
|
168 v := v superView |
|
169 ]. |
161 ^ nil |
170 ^ nil |
162 |
171 ! |
163 |
172 |
|
173 helpKeyFor:aComponent put:aKey |
|
174 |
|
175 aKey isNil ifTrue:[ |
|
176 helpKeys isNil ifFalse:[ |
|
177 helpKeys removeKey:aComponent ifAbsent:nil |
|
178 ] |
|
179 ] ifFalse:[ |
|
180 helpKeys isNil ifTrue:[ |
|
181 helpKeys := IdentityDictionary new |
|
182 ]. |
|
183 helpKeys at:aComponent put:aKey |
|
184 ] |
164 |
185 |
165 ! |
186 ! |
166 |
187 |
167 keyboardProcessor |
188 keyboardProcessor |
168 keyboardProcessor isNil ifTrue:[ |
189 keyboardProcessor isNil ifTrue:[ |
686 ! ! |
707 ! ! |
687 |
708 |
688 !WindowBuilder class methodsFor:'documentation'! |
709 !WindowBuilder class methodsFor:'documentation'! |
689 |
710 |
690 version |
711 version |
691 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.38 1997-06-16 09:41:35 ca Exp $' |
712 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.39 1997-06-16 16:53:35 ca Exp $' |
692 ! ! |
713 ! ! |