Christoph Thiede uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ct.793.mcz
==================== Summary ====================
Name: Monticello-ct.793
Author: ct
Time: 17 August 2023, 9:56:07.31349 am
UUID: bd190a4a-830f-4347-8b3f-75fc44316702
Ancestors: Monticello-tpr.792
Fixes regression in MCFileBasedRepository>>#versionNamed: that no longer answered nil for absent versions. Adds the comment from super to document this behavior clearer.
=============== Diff against Monticello-tpr.792 ===============
Item was changed:
----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') -----
versionNamed: aMCVersionName
+ "Answer the MCVersion with name, aMCVersionName, or nil if it doesn't exist in this repository."
- "For FileBased repositories, aMCVersionName must have the appropriate extension!! Try to handle that "
| version |
version := self cache
at: aMCVersionName
ifAbsent:
[[self loadVersionFromFileNamed: aMCVersionName ]
on: FileDoesNotExistException , NotFound
do:
[:err|
"in some cases we try to load package versions where aMCVersionName does
not include the filename extension. Try again with the mcz extension; we
might need to be even cleverer?"
+ [self loadVersionFromFileNamed: aMCVersionName, '.mcz']
+ on: FileDoesNotExistException , NotFound
+ do: [:err2 | nil]] ].
- err return: (self loadVersionFromFileNamed: aMCVersionName, '.mcz')] ].
self resizeCache: cache.
(version notNil and: [ version isCacheable ]) ifTrue:
[ cache
at: aMCVersionName asMCVersionName
put: version ].
^ version!
Christoph Thiede uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ct.795.mcz
==================== Summary ====================
Name: Monticello-ct.795
Author: ct
Time: 18 August 2023, 6:08:35.533379 pm
UUID: b2acee72-e230-624f-b0da-50a78828eba4
Ancestors: Monticello-ct.794, Monticello-ct.793
Merges Monticello-ct.793 (fixes regression in MCFileBasedRepository>>#versionNamed:).
=============== Diff against Monticello-ct.794 ===============
Item was changed:
----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') -----
versionNamed: aMCVersionName
+ "Answer the MCVersion with name, aMCVersionName, or nil if it doesn't exist in this repository."
- "For FileBased repositories, aMCVersionName must have the appropriate extension!! Try to handle that "
| version |
version := self cache
at: aMCVersionName
ifAbsent:
[[self loadVersionFromFileNamed: aMCVersionName ]
on: FileDoesNotExistException , NotFound
do:
[:err|
"in some cases we try to load package versions where aMCVersionName does
not include the filename extension. Try again with the mcz extension; we
might need to be even cleverer?"
+ [self loadVersionFromFileNamed: aMCVersionName, '.mcz']
+ on: FileDoesNotExistException , NotFound
+ do: [:err2 | nil]] ].
- err return: (self loadVersionFromFileNamed: aMCVersionName, '.mcz')] ].
self resizeCache: cache.
(version notNil and: [ version isCacheable ]) ifTrue:
[ cache
at: aMCVersionName asMCVersionName
put: version ].
^ version!
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2123.mcz
==================== Summary ====================
Name: Morphic-mt.2123
Author: mt
Time: 18 August 2023, 11:50:17.756619 am
UUID: 50623e86-951e-4644-8755-68603d683800
Ancestors: Morphic-mt.2122
Remove some dead code that has been around since 4.3 but was never used. #isParagraphAttribute was also never implemented.
See #changeEmphasis:. There, #replaceSelectionWith: works just fine.
=============== Diff against Morphic-mt.2122 ===============
Item was removed:
- ----- Method: TextEditor>>applyAttribute: (in category 'private') -----
- applyAttribute: aTextAttribute
- "The user selected aTextAttribute via shortcut, menu or other means.
- If there is a selection, apply the attribute to the selection.
- In any case use the attribute for the user input (emphasisHere)"
- | interval |
-
- emphasisHere := Text addAttribute: aTextAttribute toArray: emphasisHere.
-
- interval := self selectionInterval.
- (interval isEmpty and: [ aTextAttribute isParagraphAttribute not ])
- ifTrue: [ ^self ].
-
- self text addAttribute: aTextAttribute from: interval first to: interval last.
- paragraph recomposeFrom: interval first to: interval last delta: 0.
- self recomputeSelection. "Needed so visible selection is updated to reflect new visual extent of selection"
- morph changed!
Item was removed:
- ----- Method: TextEditor>>unapplyAttribute: (in category 'private') -----
- unapplyAttribute: aTextAttribute
- "The user selected aTextAttribute to be removed.
- If there is a selection, unapply the attribute to the selection.
- In any case do not use the attribute for the user input (emphasisHere)"
-
- | interval |
-
- emphasisHere := emphasisHere copyWithout: aTextAttribute.
-
- interval := self selectionInterval.
- (interval isEmpty and: [ aTextAttribute isParagraphAttribute not ])
- ifTrue: [ ^self ].
-
- self text removeAttribute: aTextAttribute from: interval first to: interval last.
- paragraph recomposeFrom: interval first to: interval last delta: 0.
- self recomputeSelection. "Needed so visible selection is updated to reflect new visual extent of selection"
- morph changed!
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.500.mcz
==================== Summary ====================
Name: EToys-mt.500
Author: mt
Time: 18 August 2023, 11:41:34.646619 am
UUID: f5a034b3-a503-dd4a-a52f-c568156f3cd5
Ancestors: EToys-mt.499
Rescue #intersectsAny: from EToys over to Graphics package.
=============== Diff against EToys-mt.499 ===============
Item was removed:
- ----- Method: Rectangle>>intersectsAny: (in category '*Etoys-Squeakland-testing') -----
- intersectsAny: rectangleList
- "Answer whether aRectangle intersects any of a list of other rectangles."
-
- rectangleList do: [:r | (self intersects: r) ifTrue: [^ true]].
- ^ false!