equal
deleted
inserted
replaced
12 |
12 |
13 "{ Package: 'stx:libtool' }" |
13 "{ Package: 'stx:libtool' }" |
14 |
14 |
15 AbstractFileBrowser subclass:#FileBrowserV2 |
15 AbstractFileBrowser subclass:#FileBrowserV2 |
16 instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess |
16 instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess |
17 listOfDeviceDrives selectedDeviceDrive' |
17 listOfDeviceDrives selectedDeviceDrive imgView' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-Tools-File' |
20 category:'Interface-Tools-File' |
21 ! |
21 ! |
22 |
22 |
1441 |
1441 |
1442 ^ super update:something with:aParameter from:changedObject. |
1442 ^ super update:something with:aParameter from:changedObject. |
1443 ! |
1443 ! |
1444 |
1444 |
1445 updatePreview |
1445 updatePreview |
1446 |previewLabel imgView shownImage plug| |
1446 |previewLabel shownImage plug| |
1447 |
|
1448 shownImage := nil. |
|
1449 imgView := builder componentAt:#Preview. |
|
1450 previewLabel := builder componentAt:#PreviewLabel. |
|
1451 |
1447 |
1452 self previewVisibleHolder value ifTrue:[ |
1448 self previewVisibleHolder value ifTrue:[ |
|
1449 shownImage := nil. |
|
1450 imgView := builder componentAt:#Preview. |
|
1451 previewLabel := builder componentAt:#PreviewLabel. |
1453 plug := Plug new. |
1452 plug := Plug new. |
1454 plug respondTo:#closePreview with:[ self previewVisibleHolder value:false ]. |
1453 plug respondTo:#closePreview with:[ self previewVisibleHolder value:false ]. |
1455 |
1454 |
1456 previewLabel menuHolder:(self class previewLabelMenu decodeAsLiteralArray). |
1455 previewLabel menuHolder:(self class previewLabelMenu decodeAsLiteralArray). |
1457 previewLabel menuPerformer:plug asValue. |
1456 previewLabel menuPerformer:plug asValue. |
1649 ! ! |
1648 ! ! |
1650 |
1649 |
1651 !FileBrowserV2 class methodsFor:'documentation'! |
1650 !FileBrowserV2 class methodsFor:'documentation'! |
1652 |
1651 |
1653 version |
1652 version |
1654 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.104 2004-02-02 09:47:27 penk Exp $' |
1653 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.105 2004-02-02 17:11:53 penk Exp $' |
1655 ! ! |
1654 ! ! |
1656 |
1655 |
1657 FileBrowserV2 initialize! |
1656 FileBrowserV2 initialize! |