equal
deleted
inserted
replaced
132 ! |
132 ! |
133 |
133 |
134 majorKey:aKey |
134 majorKey:aKey |
135 "get the class providing the window specifications |
135 "get the class providing the window specifications |
136 " |
136 " |
137 majorKey := self resolveName:aKey. |
137 |appl| |
|
138 |
|
139 appl := self application. |
|
140 |
|
141 appl notNil ifTrue:[ |
|
142 majorKey := appl resolveName:aKey |
|
143 ] ifFalse:[ |
|
144 majorKey := Smalltalk resolveName:aKey inClass:self class |
|
145 ]. |
138 self selection:nil |
146 self selection:nil |
139 ! |
147 ! |
140 |
148 |
141 minorKeys |
149 minorKeys |
142 "get the list of selector keys |
150 "get the list of selector keys |