[Pkg] The Trunk: Collections-fbs.554.mcz

[commits at source.squeak.org]

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