The Inbox: Collections-fbs.558.mcz

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

The Inbox: Collections-fbs.558.mcz

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