#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Sat, 29 Jun 2019 23:25:22 +0200
changeset 6081 52da01945044
parent 6080 a90e3bbb4c79
child 6082 96c1001f95ef
#BUGFIX by cg class: ImageEditView changed: #pasteAt:mode: update colormap after paste
ImageEditView.st
--- a/ImageEditView.st	Fri Jun 28 11:06:53 2019 +0200
+++ b/ImageEditView.st	Sat Jun 29 23:25:22 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -1928,6 +1926,7 @@
                         image restored.
                         self redraw: (imageBox := (imagePoint * magnification extent: (ClipboardImage extent * magnification)) expandedBy: 1@1).
                         self setModified.
+                        self changed:#imageColors.
                         ^ self.
                     ].
                     answer == #new ifTrue:[
@@ -1986,6 +1985,7 @@
                         image restored.
                         self redraw: (imageBox := (imagePoint * magnification extent: (ClipboardImage extent * magnification)) expandedBy: 1@1).
                         self setModified.
+                        self changed:#imageColors.
                         ^ self.
                     ].
                     self warn:(resources string:'Sorry: unimplemented function').
@@ -2052,11 +2052,12 @@
             self redraw: (imageBox := (imagePoint * magnification extent: (ClipboardImage extent * magnification)) expandedBy: 1@1).
 "/            masterApplication imagePreView redraw: (imageBox expandedBy: 1).
             self setModified.
+            self changed:#imageColors.
         ]
    ]
 
     "Modified: / 07-12-2017 / 15:56:42 / cg"
-    "Modified: / 27-05-2018 / 11:17:45 / Claus Gittinger"
+    "Modified: / 29-06-2019 / 23:21:19 / Claus Gittinger"
 !
 
 shiftImageHorizontal:shiftH vertical:shiftV
@@ -3380,7 +3381,7 @@
 
         image depth ~~ image bitsPerSample sum ifTrue:[
             s print:' ('.    
-            image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·'].   
+            image bitsPerSample do:[:each | s print:each] separatedBy:[s print:'·'].   
             s print:')'.    
         ].