A new version of Collections was added to project The Inbox:
http://source.squeak.org/inbox/Collections-fbs.558.mcz==================== Summary ====================
Name: Collections-fbs.558
Author: fbs
Time: 3 January 2014, 7:56:38.153 pm
UUID: 2f723673-4596-e64c-9f28-bd90c02bab4d
Ancestors: Collections-fbs.557
No #confirmFirstUseOfStyle means we can remove this.
=============== Diff against Collections-fbs.557 ===============
Item was removed:
- ----- Method: String>>askIfAddStyle:req: (in category 'converting') -----
- askIfAddStyle: priorMethod req: requestor
- ^ self "we are a string with no text style"!
Item was removed:
- ----- 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)
- 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]]!