ImageEditor.st
changeset 694 88c7004cfb6c
parent 688 788fe83ab3c0
child 702 c9de7a9bc416
equal deleted inserted replaced
693:bb247cc428c3 694:88c7004cfb6c
   998         builder aspectAt:#listOfColors put:(holder :=  List new).
   998         builder aspectAt:#listOfColors put:(holder :=  List new).
   999     ].
   999     ].
  1000     ^ holder
  1000     ^ holder
  1001 !
  1001 !
  1002 
  1002 
  1003 listOfColors2
       
  1004 
       
  1005     |holder|
       
  1006     (holder := builder bindingAt:#listOfColors) isNil ifTrue:[
       
  1007         builder aspectAt:#listOfColors put:(holder :=  List new).
       
  1008     ].
       
  1009     ^ holder
       
  1010 !
       
  1011 
       
  1012 selectionOfColor
  1003 selectionOfColor
  1013 
  1004 
  1014     |holder|
  1005     |holder|
  1015     (holder := builder bindingAt:#selectionOfColor) isNil ifTrue:[
  1006     (holder := builder bindingAt:#selectionOfColor) isNil ifTrue:[
  1016         builder aspectAt:#selectionOfColor put:(
  1007         builder aspectAt:#selectionOfColor put:(
  1115     ifTrue:
  1106     ifTrue:
  1116     [
  1107     [
  1117         self image fileName: oldFileName.
  1108         self image fileName: oldFileName.
  1118         self listOfColors contents: image colorMap.
  1109         self listOfColors contents: image colorMap.
  1119         self findColorMapMode.
  1110         self findColorMapMode.
  1120         self updateInputFieldsAndLabelsAndHistory.
  1111         self updateLabelsAndHistory.
  1121     ]
  1112     ]
  1122 !
  1113 !
  1123 
  1114 
  1124 editMode: aMode
  1115 editMode: aMode
  1125 
  1116 
  1175 
  1166 
  1176 
  1167 
  1177 
  1168 
  1178 !
  1169 !
  1179 
  1170 
  1180 updateInputFieldsAndLabelsAndHistory
  1171 updateLabelsAndHistory
  1181 
  1172 
  1182     self imageIsLoaded value: self image notNil.
  1173     self imageIsLoaded value: self image notNil.
  1183 
  1174 
  1184     self image isNil ifTrue: [^nil].
  1175     self image isNil ifTrue: [^nil].
  1185 
  1176 
  1335         self image notNil
  1326         self image notNil
  1336         ifTrue:
  1327         ifTrue:
  1337         [
  1328         [
  1338             self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1329             self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1339             self findColorMapMode.
  1330             self findColorMapMode.
  1340             self updateInputFieldsAndLabelsAndHistory.
  1331             self updateLabelsAndHistory.
  1341         ]
  1332         ]
  1342         ifFalse:
  1333         ifFalse:
  1343         [
  1334         [
  1344             self updateForNoneImage
  1335             self updateForNoneImage
  1345         ]
  1336         ]
  1370             ifFalse:
  1361             ifFalse:
  1371             [
  1362             [
  1372                 self listOfColors removeAll.
  1363                 self listOfColors removeAll.
  1373             ].
  1364             ].
  1374             self findColorMapMode.     
  1365             self findColorMapMode.     
  1375             self updateInputFieldsAndLabelsAndHistory.
  1366             self updateLabelsAndHistory.
  1376         ]
  1367         ]
  1377         ifFalse:
  1368         ifFalse:
  1378         [
  1369         [
  1379             self updateForNoneImage
  1370             self updateForNoneImage
  1380         ]
  1371         ]
  1395         ifFalse:
  1386         ifFalse:
  1396         [
  1387         [
  1397             self listOfColors removeAll.
  1388             self listOfColors removeAll.
  1398         ].
  1389         ].
  1399         self findColorMapMode.
  1390         self findColorMapMode.
  1400         self updateInputFieldsAndLabelsAndHistory.
  1391         self updateLabelsAndHistory.
  1401     ]
  1392     ]
  1402     ifFalse:
  1393     ifFalse:
  1403     [
  1394     [
  1404         self updateForNoneImage
  1395         self updateForNoneImage
  1405     ]
  1396     ]
  1413         self image notNil
  1404         self image notNil
  1414         ifTrue:
  1405         ifTrue:
  1415         [
  1406         [
  1416             self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1407             self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1417             self findColorMapMode.
  1408             self findColorMapMode.
  1418             self updateInputFieldsAndLabelsAndHistory.
  1409             self updateLabelsAndHistory.
  1419         ]
  1410         ]
  1420         ifFalse:
  1411         ifFalse:
  1421         [
  1412         [
  1422             self updateForNoneImage
  1413             self updateForNoneImage
  1423         ]
  1414         ]
  1429     (self imageEditView loadFromMessage: aMessage) notNil
  1420     (self imageEditView loadFromMessage: aMessage) notNil
  1430     ifTrue:
  1421     ifTrue:
  1431     [
  1422     [
  1432         self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1423         self listOfColors contents: self image usedColors asSet asOrderedCollection.
  1433         self findColorMapMode.
  1424         self findColorMapMode.
  1434         self updateInputFieldsAndLabelsAndHistory.
       
  1435     ]
  1425     ]
  1436     ifFalse:
  1426     ifFalse:
  1437     [
  1427     [
  1438         self imageEditView resourceMessage: aMessage.
  1428         self imageEditView resourceMessage: aMessage.
  1439         self updateInputFields.
  1429     ].
  1440     ]
  1430     self updateLabelsAndHistory.
  1441 !
  1431 !
  1442 
  1432 
  1443 newImage
  1433 newImage
  1444 
  1434 
  1445     |aspects|
  1435     |aspects|
  1471         (self imageEditView image: image) notNil
  1461         (self imageEditView image: image) notNil
  1472         ifTrue:
  1462         ifTrue:
  1473         [
  1463         [
  1474             self listOfColors contents: cMap.
  1464             self listOfColors contents: cMap.
  1475             self findColorMapMode.
  1465             self findColorMapMode.
  1476             self updateInputFieldsAndLabelsAndHistory
  1466             self updateLabelsAndHistory
  1477         ]
  1467         ]
  1478     ].
  1468     ].
  1479 ! !
  1469 ! !
  1480 
  1470 
  1481 !ImageEditor methodsFor:'user actions - saving'!
  1471 !ImageEditor methodsFor:'user actions - saving'!
  1491 !
  1481 !
  1492 
  1482 
  1493 saveImageFileAs
  1483 saveImageFileAs
  1494 
  1484 
  1495     self imageEditView saveImageFileAs.
  1485     self imageEditView saveImageFileAs.
  1496     self updateInputFieldsAndLabelsAndHistory
  1486     self updateLabelsAndHistory
  1497 !
  1487 !
  1498 
  1488 
  1499 saveImageMaskFileAs
  1489 saveImageMaskFileAs
  1500 
  1490 
  1501     self imageEditView saveImageMaskFileAs
  1491     self imageEditView saveImageMaskFileAs
  1504 saveMethod
  1494 saveMethod
  1505 
  1495 
  1506     self imageEditView saveMethod notNil
  1496     self imageEditView saveMethod notNil
  1507     ifTrue:
  1497     ifTrue:
  1508     [
  1498     [
  1509         self updateInputFieldsAndLabelsAndHistory
  1499         self updateLabelsAndHistory
  1510     ]
  1500     ]
  1511 !
  1501 !
  1512 
  1502 
  1513 saveMethodAs
  1503 saveMethodAs
  1514 
  1504 
  1515     self imageEditView saveMethodAs notNil
  1505     self imageEditView saveMethodAs notNil
  1516     ifTrue:
  1506     ifTrue:
  1517     [
  1507     [
  1518         self updateInputFieldsAndLabelsAndHistory
  1508         self updateLabelsAndHistory
  1519     ]
  1509     ]
  1520 ! !
  1510 ! !
  1521 
  1511 
  1522 !ImageEditor class methodsFor:'documentation'!
  1512 !ImageEditor class methodsFor:'documentation'!
  1523 
  1513