equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1533 self currentFileNameHolderChanged. |
1535 self currentFileNameHolderChanged. |
1534 ]. |
1536 ]. |
1535 ^ self. |
1537 ^ self. |
1536 ]. |
1538 ]. |
1537 changedObject == self selectionInFileList ifTrue:[ |
1539 changedObject == self selectionInFileList ifTrue:[ |
|
1540 (changedObject value ? #()) do:[:eachSelectedItem | |
|
1541 (eachSelectedItem modificationTime notNil |
|
1542 and:[ eachSelectedItem fileName notNil |
|
1543 and:[ eachSelectedItem fileName modificationTime > eachSelectedItem modificationTime ]] |
|
1544 ) ifTrue:[ |
|
1545 "/ the file was modified in the meantime. |
|
1546 "/ flush its info. |
|
1547 eachSelectedItem resetItem |
|
1548 ]. |
|
1549 ]. |
|
1550 |
1538 self updateToExternFileHolderLock doIfUnLocked:[ |
1551 self updateToExternFileHolderLock doIfUnLocked:[ |
1539 self updateContentsSelection doLocked:[ |
1552 self updateContentsSelection doLocked:[ |
1540 self selectionChanged. |
1553 self selectionChanged. |
1541 ] |
1554 ] |
1542 ]. |
1555 ]. |
3211 preview := nil |
3224 preview := nil |
3212 ] |
3225 ] |
3213 ! |
3226 ! |
3214 |
3227 |
3215 resetItem |
3228 resetItem |
3216 " dont know what someone else is doing with the file - read all item properties new " |
3229 " don't know what someone else is doing with the file - read all item properties new " |
3217 |
3230 |
3218 fileInfo := nil. |
3231 fileInfo := nil. |
3219 icon := nil. |
3232 icon := nil. |
3220 fileType := nil. |
3233 fileType := nil. |
3221 preview := nil. |
3234 preview := nil. |