| changeset 306 | e5e33576c3ad |
| parent 300 | 2a35cb573365 |
| child 327 | 0040d47658c6 |
| 305:e1330d6cddb1 | 306:e5e33576c3ad |
|---|---|
1038 , specClass name , ' methodsFor:' , category storeString |
1038 , specClass name , ' methodsFor:' , category storeString |
1039 , Character excla asString , '\\' |
1039 , Character excla asString , '\\' |
1040 |
1040 |
1041 , specSelector , '\' |
1041 , specSelector , '\' |
1042 , ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\' |
1042 , ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\' |
1043 , ' |holder root|\\' |
1043 , ' ^ self class ', specSelector |
1044 , ' (holder := builder bindingAt:#', specSelector, ') isNil ifTrue:[\' |
|
1045 , ' holder := SelectionInTree new.\' |
|
1046 , ' root := self class ', specSelector, '.\' |
|
1047 , ' root expand.\' |
|
1048 , ' holder root:root.\' |
|
1049 , ' ].\' |
|
1050 , ' ^ holder' |
|
1051 , '\' |
1044 , '\' |
1052 , Character excla asString |
1045 , Character excla asString |
1053 , ' ' |
1046 , ' ' |
1054 , Character excla asString |
1047 , Character excla asString |
1055 , '\\'. |
1048 , '\\'. |
1062 ! |
1055 ! |
1063 |
1056 |
1064 doNew |
1057 doNew |
1065 "remove all items; restart |
1058 "remove all items; restart |
1066 " |
1059 " |
1067 |anchor| |
1060 treeView root:(TreeItem name:'Anchor' contents:#anchor). |
1068 |
|
1069 anchor := TreeItem name:'Anchor' contents:#anchor. |
|
1070 anchor expand. |
|
1071 treeView model:(SelectionInTree new root:anchor). |
|
1072 treeView selection:0. |
1061 treeView selection:0. |
1073 |
1062 |
1074 ! |
1063 ! |
1075 |
1064 |
1076 doReload |
1065 doReload |
1243 ] |
1232 ] |
1244 ] |
1233 ] |
1245 ]. |
1234 ]. |
1246 anchor notNil ifTrue:[ |
1235 anchor notNil ifTrue:[ |
1247 anchor expand. |
1236 anchor expand. |
1248 treeView model root:anchor. |
1237 treeView root:anchor. |
1249 ] ifFalse:[ |
1238 ] ifFalse:[ |
1250 self doNew |
1239 self doNew |
1251 ]. |
1240 ]. |
1252 ! |
1241 ! |
1253 |
1242 |