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

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

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

commits-2
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]]!