[squeak-dev] The Trunk: Collections-rss.118.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Aug 23 20:24:23 UTC 2009


Andreas Raab uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-rss.118.mcz

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

Name: Collections-rss.118
Author: rss
Time: 23 August 2009, 1:09:48 am
UUID: bb898159-16d9-44e3-8dc6-4132b798583d
Ancestors: Collections-rkrk.117

Removing cruft left over from colorPrint browser option and colorWhenPrettyPrinting preference.

=============== Diff against Collections-rkrk.117 ===============

Item was changed:
  ----- Method: Text>>askIfAddStyle:req: (in category 'attributes') -----
  askIfAddStyle: priorMethod req: requestor
  	"Ask the user if we have a complex style (i.e. bold) for the first time"
  	| tell answ old |
+ 	(Preferences browseWithPrettyPrint)
- 	(Preferences browseWithPrettyPrint and: [Preferences colorWhenPrettyPrinting])
  		ifTrue: [self couldDeriveFromPrettyPrinting ifTrue: [^ self asString]].
  	self runs coalesce.
  	self unembellished ifTrue: [^ self asString].
  	priorMethod ifNotNil: [old := priorMethod getSourceFromFile].
  	(old == nil or: [old unembellished])
  		ifTrue:
  			[tell := 'This method contains style for the first time (e.g. bold or colored text).
  Do you really want to save the style info?'.
  			answ := (UIManager default 
  						chooseFrom: #('Save method with style' 'Save method simply')
  						title: tell).
  			answ = 2 ifTrue: [^ self asString]]!




More information about the Squeak-dev mailing list