The Trunk: Collections-fbs.554.mcz

Frank Shearar uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-fbs.554.mcz

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

Name: Collections-fbs.554
Author: fbs
Time: 29 December 2013, 7:10:52.228 pm
UUID: eed3b0bf-2aaa-8d43-acc7-693d5881a32c
Ancestors: Collections-fbs.553

Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences.

=============== Diff against Collections-fbs.553 ===============

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 |
+ (SystemBrowser browseWithPrettyPrint)
- (Preferences browseWithPrettyPrint)
  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]]!