Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.507.mcz
==================== Summary ====================
Name: EToys-ct.507 Author: ct Time: 20 November 2023, 9:47:36.195889 pm UUID: e4f4a0ab-41bc-4430-ad3b-5fc4c2089263 Ancestors: EToys-dtl.506
Recategorizations.
=============== Diff against EToys-dtl.506 ===============
Item was changed: + ----- Method: CachingMorph>>updateCacheCanvas: (in category 'caching') ----- - ----- Method: CachingMorph>>updateCacheCanvas: (in category 'as yet unclassified') ----- updateCacheCanvas: aCanvas "Update the cached image of the morphs being held by this hand."
| myBnds rectList | myBnds := self fullBounds. (cacheCanvas isNil or: [cacheCanvas extent ~= myBnds extent]) ifTrue: [cacheCanvas := (aCanvas allocateForm: myBnds extent) getCanvas. cacheCanvas translateBy: myBnds origin negated during: [:tempCanvas | super fullDrawOn: tempCanvas]. ^self].
"incrementally update the cache canvas" rectList := damageRecorder invalidRectsFullBounds: (0 @ 0 extent: myBnds extent). damageRecorder reset. rectList do: [:r | cacheCanvas translateTo: myBnds origin negated clippingTo: r during: [:c | c fillColor: Color transparent. "clear to transparent" super fullDrawOn: c]]!
Item was changed: + ----- Method: KidNavigationMorph>>addButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>addButtons (in category 'as yet unclassified') ----- addButtons
(self addARow: {
self inAColumn: {self buttonFind}. self transparentSpacerOfSize:6@6. self transparentSpacerOfSize:6@6. self inAColumn: {self buttonNewProject}. }) layoutInset: 6. self addARow: { self transparentSpacerOfSize:0@6. }. (self addARow: { self inAColumn: {self buttonPublish}. }) layoutInset: 6. self addARow: { self transparentSpacerOfSize:0@18. }. (self addARow: { self inAColumn: {self buttonQuit}. }) layoutInset: 6.
!
Item was changed: + ----- Method: KidNavigationMorph>>amountToShowWhenSmall (in category 'private - ui') ----- - ----- Method: KidNavigationMorph>>amountToShowWhenSmall (in category 'as yet unclassified') ----- amountToShowWhenSmall ^49!
Item was changed: + ----- Method: KidNavigationMorph>>colorForButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>colorForButtons (in category 'as yet unclassified') ----- colorForButtons
^Color r: 0.613 g: 0.71 b: 1.0 !
Item was changed: + ----- Method: KidNavigationMorph>>fontForButtons (in category 'buttons') ----- - ----- Method: KidNavigationMorph>>fontForButtons (in category 'as yet unclassified') ----- fontForButtons
^Preferences standardEToysFont!
Item was changed: + ----- Method: TextAnchorPlus>>emphasizeScanner: (in category 'visiting') ----- - ----- Method: TextAnchorPlus>>emphasizeScanner: (in category 'as yet unclassified') ----- emphasizeScanner: scanner
anchoredMorph ifNil: [^self]. (anchoredMorph owner isKindOf: TextPlusPasteUpMorph) ifFalse: [^anchoredMorph := nil]. "follwing has been removed - there was no implementation for it" "scanner setYFor: anchoredMorph"
!
packages@lists.squeakfoundation.org