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 := aKey) notNil ifTrue:[ |
137 majorKey := self resolveName:aKey. |
138 aKey isBehavior ifFalse:[ |
|
139 majorKey := Smalltalk at:aKey asSymbol |
|
140 ] |
|
141 ]. |
|
142 self selection:nil |
138 self selection:nil |
143 ! |
139 ! |
144 |
140 |
145 minorKeys |
141 minorKeys |
146 "get the list of selector keys |
142 "get the list of selector keys |