equal
deleted
inserted
replaced
1413 !FileBrowserV2 methodsFor:'change & update'! |
1413 !FileBrowserV2 methodsFor:'change & update'! |
1414 |
1414 |
1415 currentFileNameHolderChanged |
1415 currentFileNameHolderChanged |
1416 |newEntryValue nSelected files volume| |
1416 |newEntryValue nSelected files volume| |
1417 |
1417 |
1418 files := self currentFileNameHolder value. |
1418 files := self currentSelectedObjects. |
1419 nSelected := files size. |
1419 nSelected := files size. |
1420 |
1420 |
1421 nSelected == 0 ifTrue:[ |
1421 nSelected == 0 ifTrue:[ |
1422 newEntryValue := ''. |
1422 newEntryValue := ''. |
1423 ] ifFalse:[ |
1423 ] ifFalse:[ |
1434 ifTrue:[files first volume] |
1434 ifTrue:[files first volume] |
1435 ifFalse:nil. |
1435 ifFalse:nil. |
1436 self selectedDeviceDrive value:volume. |
1436 self selectedDeviceDrive value:volume. |
1437 ]. |
1437 ]. |
1438 self updatePreview. |
1438 self updatePreview. |
|
1439 |
|
1440 "Modified: / 04-12-2006 / 13:15:48 / cg" |
1439 ! |
1441 ! |
1440 |
1442 |
1441 fileEntryFieldHolderChanged |
1443 fileEntryFieldHolderChanged |
1442 |fileName fileNameString answer dir| |
1444 |fileName fileNameString answer dir| |
1443 |
1445 |
1492 selectedDeviceDriveChanged |
1494 selectedDeviceDriveChanged |
1493 |
1495 |
1494 | newDrive curSel newFile| |
1496 | newDrive curSel newFile| |
1495 |
1497 |
1496 newDrive := self selectedDeviceDrive value. |
1498 newDrive := self selectedDeviceDrive value. |
1497 curSel := self currentFileNameHolder value. |
1499 curSel := self currentSelectedObjects. |
1498 curSel notEmpty ifTrue:[ |
1500 curSel notEmpty ifTrue:[ |
1499 curSel first volume = newDrive ifTrue:[ ^self]. |
1501 curSel first volume = newDrive ifTrue:[ ^self]. |
1500 ]. |
1502 ]. |
1501 |
1503 |
1502 newDrive notNil ifTrue:[ |
1504 newDrive notNil ifTrue:[ |
1510 curSel notEmpty ifTrue:[ |
1512 curSel notEmpty ifTrue:[ |
1511 self selectedDeviceDrive value:(curSel first volume). |
1513 self selectedDeviceDrive value:(curSel first volume). |
1512 ] ifFalse:[ |
1514 ] ifFalse:[ |
1513 self selectedDeviceDrive value:'C:'. |
1515 self selectedDeviceDrive value:'C:'. |
1514 ]. |
1516 ]. |
|
1517 |
|
1518 "Modified: / 04-12-2006 / 13:15:55 / cg" |
1515 ! |
1519 ! |
1516 |
1520 |
1517 selectedImage |
1521 selectedImage |
1518 |files selectedFile mime img| |
1522 |files selectedFile mime img| |
1519 |
1523 |
1850 ! ! |
1854 ! ! |
1851 |
1855 |
1852 !FileBrowserV2 class methodsFor:'documentation'! |
1856 !FileBrowserV2 class methodsFor:'documentation'! |
1853 |
1857 |
1854 version |
1858 version |
1855 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.159 2006-10-23 21:15:30 cg Exp $' |
1859 ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.160 2006-12-04 12:17:40 cg Exp $' |
1856 ! ! |
1860 ! ! |
1857 |
1861 |
1858 FileBrowserV2 initialize! |
1862 FileBrowserV2 initialize! |