equal
deleted
inserted
replaced
958 ! |
958 ! |
959 |
959 |
960 doDefineSelector |
960 doDefineSelector |
961 "define selector only |
961 "define selector only |
962 " |
962 " |
963 |sel cls bindings accepted| |
963 |sel bindings accepted| |
964 |
964 |
965 accepted := true. |
965 accepted := true. |
966 bindings := IdentityDictionary new. |
966 bindings := IdentityDictionary new. |
967 |
967 |
968 specSelector notNil ifTrue:[sel := specSelector asString] |
968 specSelector notNil ifTrue:[sel := specSelector asString] |
1204 !HierarchicalListEditor methodsFor:'startup/release'! |
1204 !HierarchicalListEditor methodsFor:'startup/release'! |
1205 |
1205 |
1206 buildFrom:aClass andSelector:aSelector |
1206 buildFrom:aClass andSelector:aSelector |
1207 "rebuild window from a class and selector |
1207 "rebuild window from a class and selector |
1208 " |
1208 " |
1209 |sel anchor stream| |
1209 |sel anchor| |
1210 |
1210 |
1211 (specClass := aClass) isBehavior ifFalse:[ |
1211 (specClass := aClass) isBehavior ifFalse:[ |
1212 specClass notNil ifTrue:[ |
1212 specClass notNil ifTrue:[ |
1213 specClass := Smalltalk at:aClass asSymbol |
1213 specClass := Smalltalk at:aClass asSymbol |
1214 ] |
1214 ] |