equal
deleted
inserted
replaced
731 level: 1 |
731 level: 1 |
732 visibilityChannel: previewVisibleHolder |
732 visibilityChannel: previewVisibleHolder |
733 hasBorder: false |
733 hasBorder: false |
734 component: ImageView |
734 component: ImageView |
735 ) |
735 ) |
|
736 (ActionButtonSpec |
|
737 label: 'closePreviewButtonImage' |
|
738 name: 'ClosePreviewButton' |
|
739 layout: (LayoutFrame -169 1 39 0 -147 1 61 0) |
|
740 visibilityChannel: previewVisibleHolder |
|
741 hasCharacterOrientedLabel: false |
|
742 translateLabel: true |
|
743 ) |
736 ) |
744 ) |
737 |
745 |
738 ) |
746 ) |
739 ) |
747 ) |
740 ! ! |
748 ! ! |
1481 |
1489 |
1482 ^ super update:something with:aParameter from:changedObject. |
1490 ^ super update:something with:aParameter from:changedObject. |
1483 ! |
1491 ! |
1484 |
1492 |
1485 updatePreview |
1493 updatePreview |
1486 |previewLabel shownImage plug| |
1494 |previewLabel shownImage plug closePreviewButton| |
1487 |
1495 |
1488 self previewVisibleHolder value ifTrue:[ |
1496 self previewVisibleHolder value ifTrue:[ |
1489 shownImage := nil. |
1497 shownImage := nil. |
1490 imgView := builder componentAt:#Preview. |
1498 imgView := builder componentAt:#Preview. |
1491 previewLabel := builder componentAt:#PreviewLabel. |
1499 previewLabel := builder componentAt:#PreviewLabel. |
|
1500 closePreviewButton := builder componentAt:#ClosePreviewButton. |
|
1501 |
1492 plug := Plug new. |
1502 plug := Plug new. |
1493 plug respondTo:#closePreview with:[ self previewVisibleHolder value:false ]. |
1503 plug respondTo:#closePreview with:[ self previewVisibleHolder value:false ]. |
1494 |
1504 |
1495 previewLabel menuHolder:(self class previewLabelMenu decodeAsLiteralArray). |
1505 previewLabel menuHolder:(self class previewLabelMenu decodeAsLiteralArray). |
1496 previewLabel menuPerformer:plug asValue. |
1506 previewLabel menuPerformer:plug asValue. |
|
1507 |
|
1508 closePreviewButton action:[ self previewVisibleHolder value:false ]. |
1497 |
1509 |
1498 previewProcess notNil ifTrue:[ |
1510 previewProcess notNil ifTrue:[ |
1499 previewProcess terminate |
1511 previewProcess terminate |
1500 ]. |
1512 ]. |
1501 previewProcess := [ |
1513 previewProcess := [ |
1722 ! ! |
1734 ! ! |
1723 |
1735 |
1724 !FileBrowserV2 class methodsFor:'documentation'! |
1736 !FileBrowserV2 class methodsFor:'documentation'! |
1725 |
1737 |
1726 version |
1738 version |
1727 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.146 2006-01-30 08:44:13 cg Exp $' |
1739 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.147 2006-02-03 11:02:12 cg Exp $' |
1728 ! ! |
1740 ! ! |
1729 |
1741 |
1730 FileBrowserV2 initialize! |
1742 FileBrowserV2 initialize! |