[squeak-dev] The Trunk: Tools-topa.931.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 11 12:29:29 UTC 2020


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



More information about the Squeak-dev mailing list