[squeak-dev] The Trunk: Tools-mt.544.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 7 11:39:50 UTC 2015


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.544.mcz

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

Name: Tools-mt.544
Author: mt
Time: 7 March 2015, 12:39:29.451 pm
UUID: e5f6e0d2-f8ba-b042-aed1-49fcb8cb0617
Ancestors: Tools-mt.543

Simple indication for monitored items added to object explorer. In particular, this is an indication for post-init refreshing as triggered by monitoring.

=============== Diff against Tools-mt.543 ===============

Item was changed:
  ----- Method: IndentingListItemMorph>>highlight (in category 'private-container protocol') -----
  highlight
  
+ 	(self valueOfProperty: #wasRefreshed ifAbsent: [false])
+ 		ifFalse: [self color: complexContents highlightingColor]
+ 		ifTrue: [self color: self color negated].
+ 		
- 	self color: complexContents highlightingColor.
  	self changed.
  	
  !

Item was changed:
  ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') -----
  refresh
  
  	self contents: complexContents asString.
+ 	icon := complexContents icon.
+ 	
+ 	(self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [
+ 		self setProperty: #wasRefreshed toValue: true.
+ 		self color: Color yellow. "Indicate refresh operation."].!
- 	icon := complexContents icon.!

Item was changed:
  ----- Method: IndentingListItemMorph>>unhighlight (in category 'drawing') -----
  unhighlight
  
+ 	(self valueOfProperty: #wasRefreshed ifAbsent: [false])
+ 		ifFalse: [self color: complexContents preferredColor]
+ 		ifTrue: [self color: self color negated].
+ 
- 	self color: complexContents preferredColor.
  	self changed.
  	
  	
  !



More information about the Squeak-dev mailing list