The Trunk: Tools-mt.544.mcz

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