equal
deleted
inserted
replaced
157 |
157 |
158 helpKeyFor:aComponent |
158 helpKeyFor:aComponent |
159 |v key| |
159 |v key| |
160 |
160 |
161 helpKeys isNil ifTrue:[^ nil]. |
161 helpKeys isNil ifTrue:[^ nil]. |
162 |
|
163 v := aComponent. |
162 v := aComponent. |
164 [v notNil] whileTrue:[ |
163 [v notNil] whileTrue:[ |
165 (key := helpKeys at:v ifAbsent:nil) notNil ifTrue:[ |
164 (key := helpKeys at:v ifAbsent:nil) notNil ifTrue:[ |
166 ^ key |
165 ^ key |
167 ]. |
166 ]. |
704 ! ! |
703 ! ! |
705 |
704 |
706 !WindowBuilder class methodsFor:'documentation'! |
705 !WindowBuilder class methodsFor:'documentation'! |
707 |
706 |
708 version |
707 version |
709 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.41 1997-06-20 11:37:45 cg Exp $' |
708 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.42 1997-06-20 17:31:49 ca Exp $' |
710 ! ! |
709 ! ! |