The Trunk: Morphic-ar.368.mcz

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'!