equal
deleted
inserted
replaced
1414 "apply current changes and write back to current view |
1414 "apply current changes and write back to current view |
1415 " |
1415 " |
1416 modified ifTrue:[ |
1416 modified ifTrue:[ |
1417 self modified:false. |
1417 self modified:false. |
1418 |
1418 |
1419 self isLayoutSpec ifFalse:[ |
1419 self isSingleSelection ifTrue:[ |
1420 builderView updateFromSpec:specBeingEdited |
1420 self isLayoutSpec ifFalse:[ |
1421 ] ifTrue:[ |
1421 builderView updateFromSpec:specBeingEdited |
1422 layoutType notNil ifTrue:[ |
1422 ] ifTrue:[ |
1423 self perform:(('write', layoutType asString) asSymbol) |
1423 layoutType notNil ifTrue:[ |
|
1424 self perform:(('write', layoutType asString) asSymbol) |
|
1425 ] |
1424 ] |
1426 ] |
1425 ] |
1427 ] |
1426 ] |
1428 ] |
1427 |
1429 |
1428 ! |
1430 ! |
1445 modified := true. "supress notifications" |
1447 modified := true. "supress notifications" |
1446 |
1448 |
1447 currentSpecChannel notNil ifTrue:[ |
1449 currentSpecChannel notNil ifTrue:[ |
1448 currentSpecChannel value:specBeingEdited. |
1450 currentSpecChannel value:specBeingEdited. |
1449 |
1451 |
1450 self isLayoutSpec ifTrue:[ |
1452 self isSingleSelection ifTrue:[ |
1451 self showAndFetchLayout. |
1453 self isLayoutSpec ifTrue:[ |
|
1454 self showAndFetchLayout. |
|
1455 ] |
1452 ] |
1456 ] |
1453 ]. |
1457 ]. |
1454 modified := false. |
1458 modified := false. |
1455 |
1459 |
1456 ! ! |
1460 ! ! |
1890 |
1894 |
1891 isLayoutSpec |
1895 isLayoutSpec |
1892 "returns true if current menu is a layout specification |
1896 "returns true if current menu is a layout specification |
1893 " |
1897 " |
1894 ^ propertyList selection == self class titleOfLayoutMenu |
1898 ^ propertyList selection == self class titleOfLayoutMenu |
|
1899 ! |
|
1900 |
|
1901 isMultiSelection |
|
1902 "returns true in case of a multiple selection |
|
1903 " |
|
1904 ^ builderView numberOfSelections > 1 |
|
1905 ! |
|
1906 |
|
1907 isSingleSelection |
|
1908 "returns true in case of a single selection |
|
1909 " |
|
1910 ^ currentView notNil |
1895 ! ! |
1911 ! ! |
1896 |
1912 |
1897 !UIPropertyView class methodsFor:'documentation'! |
1913 !UIPropertyView class methodsFor:'documentation'! |
1898 |
1914 |
1899 version |
1915 version |