hg/stx-libwidg2: comparison ImageEditView.st

equal deleted inserted replaced

-:2c614cc1559c
+:818a513a64c3
 "{ Package: 'stx:libwidg2' }"
 ImageView subclass:#ImageEditView
 	instanceVariableNames:'magnification imageReaderClass resourceClass resourceSelector
-		mouseKeyColorMode undoImages modified editMode lastPastePoint
+		mouseKeyColorMode undoImages modifiedHolder editMode
-		imageInfoHolder activityInfoHolder pickedColorHolder
+		lastPastePoint imageInfoHolder activityInfoHolder
-		drawingColors drawingPixels drawingColorHolders
+		pickedColorHolder drawingColors drawingPixels drawingColorHolders
 		drawingPixelHolders clickInfoCallBack'
 	classVariableNames:'Clipboard ClipboardMagnified LastMagnification
 		GridMagnificationLimit MaxUndos LastSaveDirectory LastSaveClass'
 	poolDictionaries:''
 	category:'Views-Misc'
 "
 !
 documentation
 "
-The ImageEditView is a view class which can be used by applications
+An ImageEditView is a view which can be used by applications
-like the Image Editor for modifying or inspecting images.
+like the Image Editor for editing or inspecting (bitmap-) images.
 [see also:]
-	ImageEditor Image
+ImageEditor Image
 [author:]
-	Thomas Zwick
+Thomas Zwick
 "
 ! !
 !ImageEditView class methodsFor:'initialization'!
 "Created: / 29.7.1998 / 18:49:39 / cg"
 !
 clearModified
-modified := false
+self modified:false
 !
 clickInfoCallBack:aTwoArgBlock
 clickInfoCallBack := aTwoArgBlock
 	self invalidate.
 	ClipboardMagnified := nil.
 ]
 "Modified: / 31.7.1998 / 02:38:47 / cg"
+!
+modified:aBoolean
+modifiedHolder value:aBoolean
+!
+modifiedHolder
+^ modifiedHolder
 !
 resourceClass
 ^resourceClass
 selectedColorIndex: aPixelIndex
 (drawingPixelHolders at:mouseKeyColorMode) value: aPixelIndex
 !
 setModified
-modified := true
+self modified:true
 !
 undoImages
 ^undoImages
 self enableMotionEvents.
 undoImages        := List new: MaxUndos.
 magnification     := LastMagnification ? (8@8).
-modified          := false.
+modifiedHolder    := false asValue.
 mouseKeyColorMode := 1.
 resourceClass     := resourceSelector := ''.
 drawingColorHolders := Array with:(nil asValue) with:(nil asValue).   "/ left/right mouse colors
 drawingPixelHolders := Array with:(nil asValue) with:(nil asValue).   "/ left/right mouse colors
 editMode          := #point.
 ! !
 !ImageEditView methodsFor:'release'!
 releasePasteDrawing
 self repairDamage.
 (lastPastePoint notNil and: [ClipboardMagnified notNil])
-ifTrue:
+ifTrue: [
-[
 self redraw: ((lastPastePoint"-self viewOrigin") extent: (ClipboardMagnified extent)).
 "/ self repairDamage.
 ].
 lastPastePoint := ClipboardMagnified := nil
 !
 releaseUndos
 undoImages removeAll.
-"/ cg: what a kludge - please change to use a valueHolder,
-"/    masterApplication notNil ifTrue:[
-"/        masterApplication valueOfCanUndo value: false.
-"/    ].
-"Modified: / 31.7.1998 / 02:47:21 / cg"
 ! !
 !ImageEditView methodsFor:'testing'!
 checkModified
+modifiedHolder value ifTrue:[
-modified ifTrue:
-[
 ((YesNoBox title:(resources string:'Image was not saved. Exit anyway ?'))
 noText:(resources string:'Cancel');
 yesText:(resources string:'Exit without Saving');
 showAtPointer;
-accepted) ifFalse: [^false].
+accepted
-modified := false
+) ifFalse: [^false].
+self modified:false.
 ].
 ^ true
 "Modified: / 29.7.1998 / 18:55:24 / cg"
 ! !
 !ImageEditView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.195 2004-03-29 14:16:30 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.196 2004-09-29 11:31:22 cg Exp $'
 ! !
 ImageEditView initialize!

changeset 2747	818a513a64c3
parent 2690	53bc9dc52ce4
child 2756	5a1646996277