[Pkg] The Trunk: Morphic-ar.368.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Mar 2 03:45:19 UTC 2010


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



More information about the Packages mailing list