Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cbc.191.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-cbc.191
Author: cbc
Time: 6 February 2017, 11:17:00.016517 am
UUID: 4644549a-9c94-4041-999d-b6647933c2b1
Ancestors: ToolBuilder-Morphic-topa.190
Fix so that PluggableTreeMorph obeys the Theme color selected, instead of setting the pane White.
=============== Diff against ToolBuilder-Morphic-topa.190 ===============
Item was changed:
----- Method: PluggableTreeMorph>>indicateUnfiltered (in category 'filtering') -----
indicateUnfiltered
+ self color: (self userInterfaceTheme color ifNil: [Color white]).
- self color: Color white.
scroller submorphsDo: [:m |
m visible: true; backgroundColor: nil].
self adjustSubmorphPositions.!
David T. Lewis uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-cbc.41.mcz
==================== Summary ====================
Name: XML-Parser-cbc.41
Author: cbc
Time: 6 February 2017, 9:55:05.728517 am
UUID: b80148cc-7082-b549-afaf-d53bcdc98930
Ancestors: XML-Parser-monty.40
Added missing #applyLanguageInformation: to String and ByteString (and gutted versions of #applyLanguageInfomation: to same locations, forwarding on to correctly spelled variants, as implied in version .40 previosly).
=============== Diff against XML-Parser-monty.40 ===============
Item was added:
+ ----- Method: ByteString>>applyLanguageInfomation: (in category '*xml-parser') -----
+ applyLanguageInfomation: languageEnvironment
+ "Fixed spelling"
+ ^self applyLanguageInformation: languageEnvironment!
Item was added:
+ ----- Method: ByteString>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+ !
Item was changed:
----- Method: String>>applyLanguageInfomation: (in category '*xml-parser') -----
applyLanguageInfomation: languageEnvironment
+ "Fixed spelling"
+ ^self applyLanguageInformation: languageEnvironment!
- "this is here for backwards compatibility but now just forwards to the
- correctly-spelled version defined directly on String and ByteString"
- self applyLanguageInformation: languageEnvironment!
Item was added:
+ ----- Method: String>>applyLanguageInformation: (in category '*xml-parser') -----
+ applyLanguageInformation: languageEnvironment
+
+ | leadingChar |
+ leadingChar := languageEnvironment leadingChar.
+ self withIndexDo: [:each :idx |
+ each asciiValue > 255
+ ifTrue: [self at: idx put: (Character leadingChar: leadingChar code: each asUnicode)]]!
David T. Lewis uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-mva.661.mcz
==================== Summary ====================
Name: Monticello-mva.661
Author: mva
Time: 6 February 2017, 4:59:07.409774 pm
UUID: 8d0b5971-0f1a-421d-a135-872f63b3d571
Ancestors: Monticello-dtl.660
use versionList for 'Changes against ...'
=============== Diff against Monticello-dtl.660 ===============
Item was changed:
----- Method: MCRepositoryInspector>>versionListMenu: (in category 'morphic ui') -----
versionListMenu: aMenu
1 to: self orderSpecs size do: [ :index |
aMenu addUpdating: #orderString: target: self selector: #order: argumentList: { index } ].
aMenu addLine.
aMenu add: 'Changes against ...' action: [| ri |
ri := aMenu defaultTarget.
(UIManager default
+ chooseFrom: ri versionList
+ values: ri versionList
- chooseFrom: ri allVersionNames
- values: ri allVersionNames
title: 'Select version to show patch against ...') ifNotNilDo: [:name |
| versionName target base |
versionName := MCVersionName on: name.
target := ri repository versionNamed: ri versionInfo name.
base := aMenu defaultTarget repository versionNamed: versionName.
(MCPatchBrowser
forPatch: (target snapshot patchRelativeToBase: base snapshot))
showLabelled: 'Changes from ', versionName, ' to ', ri versionInfo name]].
^aMenu!
David T. Lewis uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-dtl.660.mcz
==================== Summary ====================
Name: Monticello-dtl.660
Author: dtl
Time: 4 February 2017, 3:41:36.748119 pm
UUID: 76f4ac3a-8a71-4398-86b8-910e1da4cf13
Ancestors: Monticello-cmm.659
Merge Monticello-mva.648 from inbox.
Name: Monticello-mva.648
Author: mva
Time: 4 February 2017, 10:37:54.334409 am
fix 'order by filename'
Also remove the exception handler from MCRepositoryInspector>>versionList. The exception handler masked the sort block problem that is fixed in the Monticello-mva.648 update, and is not needed so get rid of it.
=============== Diff against Monticello-cmm.659 ===============
Item was changed:
----- Method: MCRepositoryInspector>>orderSpecs (in category 'morphic ui') -----
orderSpecs
^{
'unchanged' -> nil.
'order by package' -> [ :x :y | x packageName < y packageName ].
'order by author' -> [ :x :y | x author caseInsensitiveLessOrEqual: y author ].
'order by version-string' -> [ :x :y | x versionNumber asString < y versionNumber asString ].
'order by version-number' -> [ :x :y | x versionNumber > y versionNumber ].
+ 'order by filename' -> [ :x :y | x < y ].
- 'order by filename' -> [ :x :y | x fileName < y fileName ].
}!
Item was changed:
----- Method: MCRepositoryInspector>>versionList (in category 'morphic ui') -----
versionList
| result |
result := selectedPackage
ifNil: [ self versionNamesForNoPackageSelection ]
ifNotNil: [ self versionNamesForSelectedPackage ].
- "Not sure why we need this ugly Error trapping here.."
(self orderSpecs at: order) value ifNotNil:
[ : sortBlock | result sort:
+ [ : a : b | sortBlock
- [ : a : b | [ sortBlock
value: a
+ value: b ] ].
- value: b ]
- on: Error
- do: [ true ] ] ].
^ result collect:
[ : each | self versionHighlight: each ]!
David T. Lewis uploaded a new version of XML-Parser to project The Trunk:
http://source.squeak.org/trunk/XML-Parser-monty.40.mcz
==================== Summary ====================
Name: XML-Parser-monty.40
Author: monty
Time: 3 February 2017, 10:16:46.010855 pm
UUID: 2275e939-142b-4c7d-ab90-827c5853f985
Ancestors: XML-Parser-topa.39
Changed the send of #applyLanguageInfomation: to use the correctly-spelled #applyLanguageInformation: defined on String and ByteString, and changed the #applyLanguageInfomation: XML-Parser extension to just forward to #applyLanguageInformation: with a comment explaining it
=============== Diff against XML-Parser-topa.39 ===============
Item was removed:
- ----- Method: ByteString>>applyLanguageInfomation: (in category '*xml-parser') -----
- applyLanguageInfomation: languageEnvironment
- !
Item was changed:
----- Method: SAXDriver>>handlePCData: (in category 'handling tokens') -----
handlePCData: aString
self languageEnvironment
+ ifNotNil: [aString applyLanguageInformation: self languageEnvironment].
- ifNotNil: [aString applyLanguageInfomation: self languageEnvironment].
self saxHandler
checkEOD;
characters: aString!
Item was changed:
----- Method: String>>applyLanguageInfomation: (in category '*xml-parser') -----
applyLanguageInfomation: languageEnvironment
+ "this is here for backwards compatibility but now just forwards to the
+ correctly-spelled version defined directly on String and ByteString"
+ self applyLanguageInformation: languageEnvironment!
-
- | leadingChar |
- leadingChar := languageEnvironment leadingChar.
- self withIndexDo: [:each :idx |
- each asciiValue > 255
- ifTrue: [self at: idx put: (Character leadingChar: leadingChar code: each asUnicode)]]!
David T. Lewis uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-dtl.278.mcz
==================== Summary ====================
Name: EToys-dtl.278
Author: dtl
Time: 4 February 2017, 3:03:34.10105 am
UUID: b4ea5ca2-0764-465f-8b9b-283220e19d97
Ancestors: EToys-pre.277
Add useArtificialSweetenerBar preference query because it is required for the showSugarNavigator preference, which calls updateLocaleDependents when set.
=============== Diff against EToys-pre.277 ===============
Item was added:
+ ----- Method: Preferences class>>useArtificialSweetenerBar (in category '*Etoys-Squeakland-standard queries') -----
+ useArtificialSweetenerBar
+ ^ self
+ valueOfFlag: #useArtificialSweetenerBar
+ ifAbsent: [false]!