equal
deleted
inserted
replaced
54204 ]. |
54204 ]. |
54205 |
54205 |
54206 (navigationState isClassBrowser) ifTrue:[ |
54206 (navigationState isClassBrowser) ifTrue:[ |
54207 "/ must check if that class is in the list ... |
54207 "/ must check if that class is in the list ... |
54208 ((navigationState classList value ? #()) includesIdentical:aClass) ifFalse:[ |
54208 ((navigationState classList value ? #()) includesIdentical:aClass) ifFalse:[ |
54209 navigationState isSingleClassBrowser ifTrue:[ |
54209 ((navigationState classList value ? #()) includesIdentical:aClass theNonMetaclass) ifFalse:[ |
54210 navigationState classList value:(Array with:aClass). |
54210 navigationState isSingleClassBrowser ifTrue:[ |
54211 ] ifFalse:[ |
54211 navigationState classList value:(Array with:aClass). |
54212 (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[ |
54212 ] ifFalse:[ |
54213 self spawnFullBrowserInClass:aClass selector:aSelector in:#newBuffer. |
54213 (self confirm:'Class not in list.\\Add a buffer for it ?' withCRs) ifTrue:[ |
|
54214 self spawnFullBrowserInClass:aClass selector:aSelector in:#newBuffer. |
|
54215 ]. |
|
54216 ^ self |
54214 ]. |
54217 ]. |
54215 ^ self |
|
54216 ]. |
54218 ]. |
54217 ]. |
54219 ]. |
54218 self selectedClasses value:(OrderedCollection with:aClass). |
54220 self selectedClasses value:(OrderedCollection with:aClass). |
54219 self selectedMethods value:methods. |
54221 self selectedMethods value:methods. |
54220 ^ self |
54222 ^ self |