865 translateLabel: true |
866 translateLabel: true |
866 hideMenuOnActivated: false |
867 hideMenuOnActivated: false |
867 indication: filenameEntryFieldVisibleHolder |
868 indication: filenameEntryFieldVisibleHolder |
868 ) |
869 ) |
869 (MenuItem |
870 (MenuItem |
|
871 label: 'Info' |
|
872 translateLabel: true |
|
873 hideMenuOnActivated: false |
|
874 indication: infoBarVisibleHolder |
|
875 ) |
|
876 (MenuItem |
870 label: 'Preview' |
877 label: 'Preview' |
871 translateLabel: true |
878 translateLabel: true |
872 hideMenuOnActivated: false |
879 hideMenuOnActivated: false |
873 indication: previewVisibleHolder |
880 indication: previewVisibleHolder |
874 ) |
881 ) |
1306 " aspect for show FileEntryField " |
1313 " aspect for show FileEntryField " |
1307 |
1314 |
1308 ^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue] |
1315 ^ self aspectFor:#filenameEntryFieldVisibleHolder ifAbsent:[true asValue] |
1309 ! |
1316 ! |
1310 |
1317 |
|
1318 infoBarVisibleHolder |
|
1319 " aspect for show infoBar " |
|
1320 |
|
1321 ^ self aspectFor:#infoBarVisibleHolder ifAbsent:[true asValue] |
|
1322 ! |
|
1323 |
1311 previewVisibleHolder |
1324 previewVisibleHolder |
1312 " aspect for show preview" |
1325 " aspect for show preview" |
1313 |
1326 |
1314 ^ self aspectFor:#previewVisibleHolder ifAbsent:[false asValue] |
1327 ^ self aspectFor:#previewVisibleHolder ifAbsent:[false asValue] |
1315 ! |
1328 ! |
1481 (changedObject == self previewVisibleHolder) ifTrue:[ |
1494 (changedObject == self previewVisibleHolder) ifTrue:[ |
1482 self updatePreview. |
1495 self updatePreview. |
1483 ^ self. |
1496 ^ self. |
1484 ]. |
1497 ]. |
1485 (changedObject == self toolBarVisibleHolder |
1498 (changedObject == self toolBarVisibleHolder |
1486 or:[changedObject == self filenameEntryFieldVisibleHolder]) ifTrue:[ |
1499 or:[changedObject == self filenameEntryFieldVisibleHolder |
|
1500 or:[changedObject == self infoBarVisibleHolder]]) ifTrue:[ |
1487 self updateToolVisibility. |
1501 self updateToolVisibility. |
1488 ^ self. |
1502 ^ self. |
1489 ]. |
1503 ]. |
1490 (changedObject == self sortBlockProperty or:[changedObject == self sortDirectoriesBeforeFiles]) ifTrue:[ |
1504 (changedObject == self sortBlockProperty or:[changedObject == self sortDirectoriesBeforeFiles]) ifTrue:[ |
1491 self sortFileListsBy:(self sortBlockProperty value) withReverse:false. |
1505 self sortFileListsBy:(self sortBlockProperty value) withReverse:false. |
1533 ] |
1547 ] |
1534 ]. |
1548 ]. |
1535 ! |
1549 ! |
1536 |
1550 |
1537 updateToolVisibility |
1551 updateToolVisibility |
1538 |builder toolBar filenameEntryField vPanel topOffset visible d| |
1552 |builder toolBar infoBar filenameEntryField vPanel topOffset bottomOffset |
|
1553 toolBarVisible filenameEntryFieldVisible infoBarVisible d| |
1539 |
1554 |
1540 builder := self builder. |
1555 builder := self builder. |
1541 |
1556 |
1542 topOffset := 0. |
1557 topOffset := 0. |
1543 visible := self toolBarVisibleHolder value. |
1558 bottomOffset := 0. |
1544 visible ifTrue:[ |
1559 |
|
1560 toolBarVisible := self toolBarVisibleHolder value. |
|
1561 toolBarVisible ifTrue:[ |
1545 toolBar := builder componentAt:#ToolbarBox. |
1562 toolBar := builder componentAt:#ToolbarBox. |
1546 topOffset := topOffset + toolBar height. |
1563 topOffset := topOffset + toolBar height. |
1547 ]. |
1564 ]. |
1548 |
1565 |
1549 visible := self filenameEntryFieldVisibleHolder value. |
1566 filenameEntryFieldVisible := self filenameEntryFieldVisibleHolder value. |
1550 visible ifTrue:[ |
1567 filenameEntryFieldVisible ifTrue:[ |
1551 filenameEntryField := builder componentAt:#FilenameEntryFieldBox. |
1568 filenameEntryField := builder componentAt:#FilenameEntryFieldBox. |
1552 d := filenameEntryField layout bottomOffset - filenameEntryField layout topOffset. |
1569 d := filenameEntryField layout bottomOffset - filenameEntryField layout topOffset. |
1553 filenameEntryField layout topOffset:topOffset bottomOffset:topOffset + d. |
1570 filenameEntryField layout topOffset:topOffset bottomOffset:topOffset + d. |
1554 topOffset := topOffset + filenameEntryField height. |
1571 topOffset := topOffset + filenameEntryField height. |
1555 filenameEntryField container notNil ifTrue:[ |
1572 filenameEntryField container notNil ifTrue:[ |
1556 filenameEntryField containerChangedSize. |
1573 filenameEntryField containerChangedSize. |
1557 ]. |
1574 ]. |
1558 ]. |
1575 ]. |
1559 |
1576 |
|
1577 infoBarVisible := self infoBarVisibleHolder value. |
|
1578 infoBarVisible ifTrue:[ |
|
1579 infoBar := builder componentAt:#InfoBox. |
|
1580 bottomOffset := bottomOffset - infoBar height. |
|
1581 ]. |
|
1582 |
1560 vPanel := builder componentAt:#BrowserBox. |
1583 vPanel := builder componentAt:#BrowserBox. |
1561 vPanel layout topOffset:topOffset+1. |
1584 vPanel layout topOffset:topOffset+1. |
|
1585 vPanel layout bottomOffset:bottomOffset-1. |
1562 vPanel container notNil ifTrue:[ |
1586 vPanel container notNil ifTrue:[ |
1563 vPanel containerChangedSize. |
1587 vPanel containerChangedSize. |
1564 ]. |
1588 ]. |
1565 ! ! |
1589 ! ! |
1566 |
1590 |
1687 |
1711 |
1688 super makeDependent. |
1712 super makeDependent. |
1689 self sortBlockProperty addDependent:self. |
1713 self sortBlockProperty addDependent:self. |
1690 self filenameEntryFieldVisibleHolder addDependent:self. |
1714 self filenameEntryFieldVisibleHolder addDependent:self. |
1691 self toolBarVisibleHolder addDependent:self. |
1715 self toolBarVisibleHolder addDependent:self. |
|
1716 self infoBarVisibleHolder addDependent:self. |
1692 self previewVisibleHolder addDependent:self. |
1717 self previewVisibleHolder addDependent:self. |
1693 ! |
1718 ! |
1694 |
1719 |
1695 postBuildDirectoryTree:aWidget |
1720 postBuildDirectoryTree:aWidget |
1696 aWidget application multipleSelect:true. |
1721 aWidget application multipleSelect:true. |