Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.368.mcz
==================== Summary ====================
Name: Morphic-ar.368 Author: ar Time: 1 March 2010, 7:43:55.198 pm UUID: 6f160ddd-4ffb-404b-80c7-067f0d2d3d81 Ancestors: Morphic-dtl.367
Add a preference to restore simple rectangular feedback for indicating changes.
=============== Diff against Morphic-dtl.367 ===============
Item was added: + ----- Method: PluggableTextMorph class>>simpleFrameAdornments: (in category 'frame adornments') ----- + simpleFrameAdornments: aBool + "Sets the simpleFrameAdornment preference + PluggableTextMorph simpleFrameAdornments: true. + PluggableTextMorph simpleFrameAdornments: false. + " + SimpleFrameAdornments := aBool + !
Item was added: + ----- Method: PluggableTextMorph class>>simpleFrameAdornments (in category 'frame adornments') ----- + simpleFrameAdornments + <preference: 'Simple Frame Adornments' + category: 'Morphic' + description: 'When true, use a simple rectangular feedback for indicating unsaved changes in text editors' + type: #Boolean> + ^SimpleFrameAdornments ifNil:[false]!
Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor"
| form | - "The old frame adornment style in case you care" - false ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor].
+ self class simpleFrameAdornments + ifTrue:[^aCanvas frameRectangle: self innerBounds width: 2 color: aColor]. + "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form at: (self innerBounds topRight - (form width@0)) sourceRect: form boundingBox rule: 34. !
Item was changed: ScrollPane subclass: #PluggableTextMorph instanceVariableNames: 'textMorph getTextSelector setTextSelector getSelectionSelector hasUnacceptedEdits askBeforeDiscardingEdits selectionInterval hasEditingConflicts' + classVariableNames: 'AdornmentCache SimpleFrameAdornments' - classVariableNames: 'AdornmentCache' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'!
squeak-dev@lists.squeakfoundation.org