Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.239.mcz
==================== Summary ====================
Name: ReleaseBuilder-mt.239
Author: mt
Time: 2 July 2022, 12:08:43.90387 pm
UUID: d3c9248c-6e00-2d46-a4d1-87ce3d4c6b49
Ancestors: ReleaseBuilder-mt.238
Trunk is open for contributions again. We are now working on Squeak6.1alpha. All new deprecations go into the package "61Deprecated".
=============== Diff against ReleaseBuilder-mt.238 ===============
Item was changed:
----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') -----
initialize
QAndA ifNil: [self clearQAndA].
"We have to be after AutoStart so that Morphic is up and running."
Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart.
+ SystemVersion newVersion: 'Squeak6.1alpha'!
- SystemVersion newVersion: 'Squeak6.0rc1'!
Item was changed:
----- Method: ReleaseBuilder class>>versionStringAlpha (in category 'accessing') -----
versionStringAlpha
"Result format is specified in SystemVersion."
+ ^ 'Squeak{1}.{2}alpha' format: {self releaseVersionMajor. self releaseVersionMinor}!
- ^ 'Squeak{1}.{2}alpha' format: {self releaseVersionMajor. self releaseVersionMinor+1}!
Marcel Taeumel uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-kfr.527.mcz
==================== Summary ====================
Name: Graphics-kfr.527
Author: kfr
Time: 1 July 2022, 7:15:00.033758 pm
UUID: 45123247-99ec-da41-b9a2-a3680dfe2f66
Ancestors: Graphics-kfr.526
We can't reduce color of 32 bit depth directly.
Convert to 16 bits first to get around problem.
=============== Diff against Graphics-kfr.526 ===============
Item was changed:
----- Method: Form>>copyWithColorsReducedTo: (in category 'converting') -----
copyWithColorsReducedTo: nColors
"Note: this has not been engineered.
There are better solutions in the literature."
| palette colorMap |
+ self depth > 16 ifTrue:[^(self asFormOfDepth: 16) copyWithColorsReducedTo: nColors]. "First reduce to 16 bit depth"
- self depth > 16 ifTrue:[^self]."bail out. will cause problems on 32 bit depth forms"
palette := self reducedPaletteOfSize: nColors.
colorMap := (1 to: (1 bitShift: depth)) collect:
[:i | | pc closest |
pc := Color colorFromPixelValue: i-1 depth: depth.
closest := palette detectMin: [:c | c diff: pc].
closest pixelValueForDepth: depth].
^ self deepCopy copyBits: self boundingBox from: self at: 0@0 colorMap: (colorMap as: Bitmap)
!
Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.319.mcz
==================== Summary ====================
Name: MorphicExtras-mt.319
Author: mt
Time: 2 July 2022, 11:36:14.473753 am
UUID: 11add77d-f302-4448-8358-342af37c9489
Ancestors: MorphicExtras-mt.318
Fixes invalid category...
=============== Diff against MorphicExtras-mt.318 ===============
Item was changed:
+ ----- Method: StoryboardBookMorph>>intoWorld: (in category 'initialization') -----
- ----- Method: StoryboardBookMorph>>intoWorld: (in category 'nil') -----
intoWorld: world
zoomController openInWorld.!
A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-kfr.2015.mcz
==================== Summary ====================
Name: Morphic-kfr.2015
Author: kfr
Time: 1 July 2022, 7:20:33.220758 pm
UUID: 4c01e4ed-3290-0848-990e-4a31fd76a48b
Ancestors: Morphic-kfr.2014
Reverting Morphic-kfr.2014. Issue solved in Graphics-kfr.527
=============== Diff against Morphic-kfr.2014 ===============
Item was changed:
----- Method: SketchMorph>>reduceColorPalette: (in category 'menu') -----
reduceColorPalette: evt
"Let the user ask for a reduced number of colors in this sketch"
| str nColors |
- originalForm depth > 16 ifTrue:[^self inform:'Not possible for pictures of 32 bit depth' translated].
str := UIManager default
request: 'Please enter a number greater than one.
(note: this cannot be undone, so answer zero
to abort if you need to make a backup first)' translated
initialAnswer: '256'.
nColors := Integer readFrom: (ReadStream on: str).
(nColors between: 2 and: 256) ifFalse: [^ self].
originalForm := originalForm copyWithColorsReducedTo: nColors.
rotatedForm := nil.
self changed!
Hi,
If I do Form>>copyWithColorsReducedTo:256 on any form the image stops
responding.
No debug log.
This is on a updated Trunk image.
I'm on a Windows machine.
Best,
Karl
A new version of Graphics was added to project The Inbox:
http://source.squeak.org/inbox/Graphics-kfr.527.mcz
==================== Summary ====================
Name: Graphics-kfr.527
Author: kfr
Time: 1 July 2022, 7:15:00.033758 pm
UUID: 45123247-99ec-da41-b9a2-a3680dfe2f66
Ancestors: Graphics-kfr.526
We can't reduce color of 32 bit depth directly.
Convert to 16 bits first to get around problem.
=============== Diff against Graphics-kfr.526 ===============
Item was changed:
----- Method: Form>>copyWithColorsReducedTo: (in category 'converting') -----
copyWithColorsReducedTo: nColors
"Note: this has not been engineered.
There are better solutions in the literature."
| palette colorMap |
+ self depth > 16 ifTrue:[^(self asFormOfDepth: 16) copyWithColorsReducedTo: nColors]. "First reduce to 16 bit depth"
- self depth > 16 ifTrue:[^self]."bail out. will cause problems on 32 bit depth forms"
palette := self reducedPaletteOfSize: nColors.
colorMap := (1 to: (1 bitShift: depth)) collect:
[:i | | pc closest |
pc := Color colorFromPixelValue: i-1 depth: depth.
closest := palette detectMin: [:c | c diff: pc].
closest pixelValueForDepth: depth].
^ self deepCopy copyBits: self boundingBox from: self at: 0@0 colorMap: (colorMap as: Bitmap)
!