--- a/ImageEditor.st Wed Sep 09 17:32:59 1998 +0200
+++ b/ImageEditor.st Thu Sep 10 16:51:59 1998 +0200
@@ -2383,33 +2383,37 @@
grabScreenImage
"let user choose an area and grab that are for editing"
- |image d8image img|
-
- image := Image fromUser.
+ Processor
+ addTimedBlock:[
+ |image d8image img|
- image depth > 8 ifTrue:[
- Object errorSignal handle:[:ex |
- ex signal == Object haltSignal ifTrue:[ex reject].
- ex signal == Signal noHandlerSignal ifTrue:[ex reject].
+ image := Image fromUser.
+
+ image depth > 8 ifTrue:[
+ Object errorSignal handle:[:ex |
+ ex signal == Object haltSignal ifTrue:[ex reject].
+ ex signal == Signal noHandlerSignal ifTrue:[ex reject].
- self warn:'Could not convert to depth8 image (too many colors)'.
- d8image := nil.
- ] do:[
- d8image := Depth8Image new.
- d8image fromImage:image.
- ].
- d8image notNil ifTrue:[
- image := d8image
- ]
- ].
- (imageEditView image:image) notNil ifTrue:[
- self listOfColors contents:(image colorMap).
- self findColorMapMode.
- self updateLabelsAndHistory.
- ]
+ self warn:'Could not convert to depth8 image (too many colors)'.
+ d8image := nil.
+ ] do:[
+ d8image := Depth8Image new.
+ d8image fromImage:image.
+ ].
+ d8image notNil ifTrue:[
+ image := d8image
+ ]
+ ].
+ (imageEditView image:image) notNil ifTrue:[
+ self listOfColors contents:(image colorMap).
+ self findColorMapMode.
+ self updateLabelsAndHistory.
+ ]
+ ]
+ afterSeconds:1
"Created: / 29.7.1998 / 21:24:42 / cg"
- "Modified: / 31.7.1998 / 01:14:33 / cg"
+ "Modified: / 10.9.1998 / 16:01:23 / cg"
! !
!ImageEditor methodsFor:'user actions - saving'!