[squeak-dev] The Trunk: Morphic-MAD.205.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 7 04:47:20 UTC 2009


Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-MAD.205.mcz

==================== Summary ====================

Name: Morphic-MAD.205
Author: MAD
Time: 6 October 2009, 7:57:15 am
UUID: b21c7bc6-2c70-44e1-ae95-28461cdef578
Ancestors: Morphic-MAD.204

Fixing the mess I made of the formatting.

=============== Diff against Morphic-MAD.204 ===============

Item was changed:
  ----- Method: PluggableListMorph>>textHighlightColor (in category 'initialization') -----
  textHighlightColor
  	"Answer my default text highlight color."
  	^self valueOfProperty: #textHighlightColor ifAbsent: [ self textColor negated ].
  !

Item was changed:
  ----- Method: LazyListMorph>>colorForRow: (in category 'drawing') -----
+ colorForRow: row
+ 	
- colorForRow: 	row
  	^(selectedRow notNil and: [ row = selectedRow])
  		ifTrue: [ self color negated ]
  		ifFalse: [ self color ].!

Item was changed:
  ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') -----
  highlightingColor
- 
  	^self preferredColor negated!

Item was changed:
  ----- Method: ListItemWrapper>>preferredColor (in category 'accessing') -----
  preferredColor
- 
  	^ Color black!

Item was changed:
  ----- Method: LazyListMorph>>drawSelectionOn: (in category 'drawing') -----
  drawSelectionOn: aCanvas
+ 	
  	| selectionDrawBounds |
  	selectedRow ifNil: [ ^self ].
  	selectedRow = 0 ifTrue: [ ^self ].
  	selectionDrawBounds := self drawBoundsForRow: selectedRow.
  	selectionDrawBounds := selectionDrawBounds intersect: self bounds.
  	aCanvas fillRectangle: selectionDrawBounds color: (Preferences menuSelectionColor)!

Item was changed:
  ----- Method: SimpleHierarchicalListMorph>>drawOn: (in category 'drawing') -----
+ drawOn: aCanvas 
- drawOn: aCanvas
  	super drawOn: aCanvas.
+ 	selectedMorph
+ 		ifNotNil: [aCanvas
+ 				fillRectangle: (((scroller transformFrom: self)
+ 						invertBoundsRect: selectedMorph bounds)
- 	selectedMorph ifNotNil:
- 		[aCanvas fillRectangle:
- 			(((scroller transformFrom: self) invertBoundsRect: selectedMorph bounds)
  						intersect: scroller bounds)
+ 				color: Preferences menuSelectionColor].
+ 	self drawLinesOn: aCanvas!
- 				color: Preferences menuSelectionColor ].
- 	self drawLinesOn: aCanvas.
- 	
- 
- 
- !




More information about the Squeak-dev mailing list