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 |
1334 ^ directory |
1336 ^ directory |
1335 |
1337 |
1336 "Modified: / 15-01-2013 / 11:42:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1338 "Modified: / 15-01-2013 / 11:42:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1337 ! |
1339 ! |
1338 |
1340 |
|
1341 hasTwoImageFilesSelected |
|
1342 |sel| |
|
1343 |
|
1344 sel := self selectedFiles. |
|
1345 ^ (sel size == 2) and:[ sel conform:[:fn | fn asFilename mimeTypeFromName isImageType] ] |
|
1346 |
|
1347 "Created: / 07-06-2019 / 15:52:32 / Stefan Vogel" |
|
1348 ! |
|
1349 |
1339 selectionInFileList |
1350 selectionInFileList |
1340 |
1351 |
1341 selectionInFileList isNil ifTrue:[ |
1352 selectionInFileList isNil ifTrue:[ |
1342 selectionInFileList := ValueHolder new. |
1353 selectionInFileList := ValueHolder new. |
1343 selectionInFileList addDependent:self. |
1354 selectionInFileList addDependent:self. |