equal
deleted
inserted
replaced
247 frame := self |
247 frame := self |
248 ]. |
248 ]. |
249 self setSelection:nil withRedraw:true. |
249 self setSelection:nil withRedraw:true. |
250 |
250 |
251 newSel := OrderedCollection new. |
251 newSel := OrderedCollection new. |
252 builder := UIBuilder new. |
252 builder := UIBuilder new isEditing:true. |
|
253 |
253 className notNil ifTrue:[ |
254 className notNil ifTrue:[ |
254 builder applicationClass:(self resolveName:className) |
255 builder applicationClass:(self resolveName:className) |
255 ]. |
256 ]. |
256 |
257 |
257 keepLayout ifFalse:[ |
258 keepLayout ifFalse:[ |
888 |spec builder| |
889 |spec builder| |
889 |
890 |
890 treeView cvsSetupListDo:[ |
891 treeView cvsSetupListDo:[ |
891 self removeAll. |
892 self removeAll. |
892 spec := UISpecification from:specOrSpecArray. |
893 spec := UISpecification from:specOrSpecArray. |
893 builder := UIBuilder new. |
894 builder := UIBuilder new isEditing:true. |
|
895 |
894 spec window setupView:self topView for:builder. |
896 spec window setupView:self topView for:builder. |
895 self addSpec:(spec component) builder:builder in:self. |
897 self addSpec:(spec component) builder:builder in:self. |
896 self realizeAllSubViews. |
898 self realizeAllSubViews. |
897 inputView raise. |
899 inputView raise. |
898 treeView setAttributesFromWindowSpec:(spec window). |
900 treeView setAttributesFromWindowSpec:(spec window). |
1288 ]. |
1290 ]. |
1289 |
1291 |
1290 self singleSelection notNil ifTrue:[ |
1292 self singleSelection notNil ifTrue:[ |
1291 self withSelectionHiddenDo:[ |
1293 self withSelectionHiddenDo:[ |
1292 self transaction:#specification selectionDo:[:aView| |
1294 self transaction:#specification selectionDo:[:aView| |
1293 builder := UIBuilder new. |
1295 builder := UIBuilder new isEditing:true. |
1294 className notNil ifTrue:[ |
1296 className notNil ifTrue:[ |
1295 builder applicationClass:(self resolveName:className). |
1297 builder applicationClass:(self resolveName:className). |
1296 ]. |
1298 ]. |
1297 props := self propertyOfView:aView. |
1299 props := self propertyOfView:aView. |
1298 name := (aSpec name) withoutSeparators. |
1300 name := (aSpec name) withoutSeparators. |
1476 frame := self findViewWithId:(args at:3). |
1478 frame := self findViewWithId:(args at:3). |
1477 ]. |
1479 ]. |
1478 frame isNil ifTrue:[ |
1480 frame isNil ifTrue:[ |
1479 frame := self |
1481 frame := self |
1480 ]. |
1482 ]. |
1481 view := self addSpec:(args at:1) builder:(UIBuilder new) in:frame. |
1483 view := self addSpec:(args at:1) builder:(UIBuilder new isEditing:true) in:frame. |
1482 view realize. |
1484 view realize. |
1483 inputView raise. |
1485 inputView raise. |
1484 |
1486 |
1485 prop := self propertyOfView:view. |
1487 prop := self propertyOfView:view. |
1486 prop identifier:(args at:2). |
1488 prop identifier:(args at:2). |
1495 props := self propertyOfIdentifier:(args at:2). |
1497 props := self propertyOfIdentifier:(args at:2). |
1496 |
1498 |
1497 props notNil ifTrue:[ |
1499 props notNil ifTrue:[ |
1498 view := props view. |
1500 view := props view. |
1499 spec := args at:1. |
1501 spec := args at:1. |
1500 builder := UIBuilder new. |
1502 builder := UIBuilder new isEditing:true. |
|
1503 |
1501 className notNil ifTrue:[ |
1504 className notNil ifTrue:[ |
1502 builder applicationClass:(self resolveName:className). |
1505 builder applicationClass:(self resolveName:className). |
1503 ]. |
1506 ]. |
1504 props spec:spec. |
1507 props spec:spec. |
1505 self rebuildView:view fromSpec:spec withBuilder:builder. |
1508 self rebuildView:view fromSpec:spec withBuilder:builder. |