equal
deleted
inserted
replaced
1248 " |
1248 " |
1249 ^ self reload. |
1249 ^ self reload. |
1250 ]. |
1250 ]. |
1251 |
1251 |
1252 propertyAspects := IdentityDictionary new. |
1252 propertyAspects := IdentityDictionary new. |
1253 slices := currentView specClass slices. |
1253 slices := specBeingEdited class slices. |
1254 |
1254 |
1255 list := slices collect:[:slice| |
1255 list := slices collect:[:slice| |
1256 slice first asString |
1256 slice first asString |
1257 ]. |
1257 ]. |
1258 list := list, (Array with:(self class titleOfLayoutMenu)). |
1258 list := list, (Array with:(self class titleOfLayoutMenu)). |
1283 ! |
1283 ! |
1284 |
1284 |
1285 propertySelectionChanged |
1285 propertySelectionChanged |
1286 "property selection changed; switch to new property selection |
1286 "property selection changed; switch to new property selection |
1287 " |
1287 " |
1288 |plist| |
1288 |plist specClass| |
1289 |
1289 |
1290 self modified:false. |
1290 self modified:false. |
1291 plist := self propertyList. |
1291 |
|
1292 specClass := specBeingEdited class. |
|
1293 plist := self propertyList. |
1292 |
1294 |
1293 (plist selection isNil) ifTrue:[ |
1295 (plist selection isNil) ifTrue:[ |
1294 ^ self showSpec:nil |
1296 ^ self showSpec:nil |
1295 ]. |
1297 ]. |
1296 propertySelection := plist selection. |
1298 propertySelection := plist selection. |
1297 |
1299 |
1298 currentView specClass slices do:[:slice| |
1300 specClass slices do:[:slice| |
1299 slice first = propertySelection ifTrue:[ |
1301 slice first = propertySelection ifTrue:[ |
1300 ^ self showSpec:(currentView specClass perform:(slice last)) |
1302 ^ self showSpec:(specClass perform:(slice last)) |
1301 ] |
1303 ] |
1302 ]. |
1304 ]. |
1303 ^ self showAndFetchLayout "/ layout specifications |
1305 ^ self showAndFetchLayout "/ layout specifications |
1304 ! |
1306 ! |
1305 |
1307 |