The Trunk: Tools-topa.931.mcz

Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.931.mcz

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

Name: Tools-topa.931
Author: topa
Time: 11 February 2020, 1:29:25.688537 pm
UUID: 1a957e2d-e3bf-49a5-84a5-2333e6f0d587
Ancestors: Tools-topa.930

Fix browser-dependency of Collections

=============== Diff against Tools-topa.930 ===============

Item was added:
+ ----- Method: Text>>askIfAddStyle:req: (in category '*Tools-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)
+ 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]]!