#BUGFIX by cg
class: ImageEditView
changed: #pasteAt:mode:
update colormap after paste
--- 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:')'.
].