Squeak-dev July 2022

squeak-dev@lists.squeakfoundation.org

33 participants
227 discussions

The Trunk: TrueType-mt.96.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.96.mcz ==================== Summary ==================== Name: TrueType-mt.96 Author: mt Time: 2 July 2022, 12:11:10.73687 pm UUID: c94bc89e-87ea-6e42-aaac-785eec03f09b Ancestors: TrueType-ct.95 Complements 61Deprecated-mt.1. =============== Diff against TrueType-ct.95 =============== Item was removed: - ----- Method: TTFontDescription>>blankGlyphForSeparators (in category 'migration') ----- - blankGlyphForSeparators - - | space | - self flag: #deprecated. "See TTCharacterMappingTable >> #mapAllSeparatorsToSpace." - - space := (self at: Character space charCode) copy. - space contours: #(). - Character separators do: [:s | - glyphTable at: s charCode +1 put: space. - ]. - ! Item was removed: - ----- Method: TTFontDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category 'rendering') ----- - renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth - "Render the glyph with the given code point at the specified pixel height." - - self flag: #deprecated. - ^ self - renderGlyph: code height: fontHeight extraScale: 1.0 - fgColor: fgColor bgColor: bgColor depth: depth - lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! Item was removed: - ----- Method: TTFontDescription>>renderGlyph:height:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category 'rendering') ----- - renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis - "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." - - self flag: #deprecated. - ^ self - renderGlyph: code height: fontHeight extraScale: 1.0 - fgColor: fgColor bgColor: bgColor depth: depth - lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis!

1 0

The Trunk: 61Deprecated-mt.1.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

Marcel Taeumel uploaded a new version of 61Deprecated to project The Trunk: http://source.squeak.org/trunk/61Deprecated-mt.1.mcz ==================== Summary ==================== Name: 61Deprecated-mt.1 Author: mt Time: 2 July 2022, 12:10:50.27287 pm UUID: 535485eb-11f0-8942-b58e-649df6f526f2 Ancestors: First (actual) deprecations in 6.1alpha. ==================== Snapshot ==================== ----- Method: TTFontDescription>>blankGlyphForSeparators (in category '*61Deprecated-migration') ----- blankGlyphForSeparators | space | self flag: #deprecated. "See TTCharacterMappingTable >> #mapAllSeparatorsToSpace." space := (self at: Character space charCode) copy. space contours: #(). Character separators do: [:s | glyphTable at: s charCode +1 put: space. ]. ! ----- Method: TTFontDescription>>renderGlyph:height:fgColor:bgColor:depth: (in category '*61Deprecated-rendering') ----- renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth "Render the glyph with the given code point at the specified pixel height." self flag: #deprecated. ^ self renderGlyph: code height: fontHeight extraScale: 1.0 fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: nil lineGlyphWidth: 0 emphasis: 0! ----- Method: TTFontDescription>>renderGlyph:height:fgColor:bgColor:depth:lineGlyph:lineGlyphWidth:emphasis: (in category '*61Deprecated-rendering') ----- renderGlyph: code height: fontHeight fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis "Render the glyph with the given code point at the specified pixel height. Underline it with lineGlyph." self flag: #deprecated. ^ self renderGlyph: code height: fontHeight extraScale: 1.0 fgColor: fgColor bgColor: bgColor depth: depth lineGlyph: lineGlyphOrNil lineGlyphWidth: lWidth emphasis: emphasis!

1 0

The Trunk: ReleaseBuilder-mt.239.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

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

1 0

The Trunk: Graphics-kfr.527.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

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

2 1

The Trunk: MorphicExtras-mt.319.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

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

1 0

The Trunk: MonticelloConfigurations-mt.179.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.179.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.179 Author: mt Time: 2 July 2022, 11:26:29.792753 am UUID: 7e551122-54fa-2842-bde7-286931b40d4f Ancestors: MonticelloConfigurations-dtl.178 Fixes HTTP-vs-HTTPS confusion during MC updates so that we can migrate from HTTP to HTTPS without having to download every .mcm there has ever been again. =============== Diff against MonticelloConfigurations-dtl.178 =============== Item was added: + ----- Method: MCMcmUpdater class>>alternativeDescriptionOf: (in category 'utilities') ----- + alternativeDescriptionOf: repoDescription + "Treat HTTP and HTTPS as the same repository." + + (repoDescription beginsWith: 'http:') + ifTrue: [^ 'https', (repoDescription allButFirst: 4)]. + (repoDescription beginsWith: 'https:') + ifTrue: [^ 'http', (repoDescription allButFirst: 5)]. + ^ repoDescription! Item was changed: ----- Method: MCMcmUpdater class>>forRepository:updateMap: (in category 'registry') ----- forRepository: repository updateMap: basename "Answer the requested updater from the repository, or nil of not found" "MCMcmUpdater forRepository: 'http://source.squeak.org/trunk' updateMap: 'update'" "MCMcmUpdater forRepository: 'foo' updateMap: 'bar'" ^ ((Registry ifNil: [Registry := Dictionary new]) at: repository + ifAbsent: [Registry at: (self alternativeDescriptionOf: repository) ifAbsent: [^nil]]) - ifAbsent: [^nil]) at: basename ifAbsent: [^nil]! Item was added: + ----- Method: MCMcmUpdater>>lastUpdateMapAt: (in category 'accessing') ----- + lastUpdateMapAt: repoDescription + + ^ self lastUpdateMap + at: repoDescription + ifAbsent: [ + self lastUpdateMap + at: (self class alternativeDescriptionOf: repoDescription) + ifAbsent: [0]]! Item was added: + ----- Method: MCMcmUpdater>>lastUpdateMapAt:put: (in category 'accessing') ----- + lastUpdateMapAt: repoDescription put: lastUpdate + + self lastUpdateMap at: repoDescription put: lastUpdate. + self lastUpdateMap at: (self class alternativeDescriptionOf: repoDescription) put: lastUpdate.! Item was changed: ----- Method: MCMcmUpdater>>refreshUpdateMapFor:with: (in category 'updating') ----- refreshUpdateMapFor: r with: updateList "Update the lastUpdateMap and answer a possibly reduced updateList" | config | + (self lastUpdateMapAt: r description) = 0 ifTrue: [ - (lastUpdateMap at: r description ifAbsent: [0]) = 0 ifTrue: [ "No update has ever been loaded from this repo. If no package is present in the image either, we can skip right to the latest config" config := r versionNamed: updateList last value. (config dependencies anySatisfy: [:dep | dep package hasWorkingCopy]) ifFalse: [(self useLatestPackagesFrom: r) + ifTrue: [self lastUpdateMapAt: r description put: updateList last key]. - ifTrue: [lastUpdateMap at: r description put: updateList last key]. updateList isEmpty ifTrue: [^ #()] ifFalse: [^ updateList last: 1]]]. ^ updateList ! Item was changed: ----- Method: MCMcmUpdater>>updateFromRepository (in category 'updating') ----- updateFromRepository | config repo | repo := self getRepositoryFromRepositoryGroup. repo cacheAllFileNamesDuring: [ | updateList | updateList := self updateListFor: repo. "Proceed only if there are updates available at all." updateList ifNotEmpty: [ updateList := self refreshUpdateMapFor: repo with: updateList. "Now process each update file. Check if we have all dependencies and if not, load the entire configuration (this is mostly to skip older updates quickly)" updateList do:[:assoc| ProgressNotification signal: '' extra: ('Processing {1}' translated format: {assoc value}). config := repo versionNamed: assoc value. self updateFromConfig: config. + self lastUpdateMapAt: repo description put: assoc key. - self lastUpdateMap at: repo description put: assoc key. ] displayingProgress: 'Processing configurations' translated. "We've loaded all the provided update configurations. Use the latest configuration to update all the remaining packages." (self useLatestPackagesFrom: repo) ifTrue: [ config updateFromRepositories. config upgrade]. ]]. ^ config ! Item was changed: ----- Method: MCMcmUpdater>>updateFromRepository:upTo: (in category 'updating') ----- updateFromRepository: repository upTo: versionNumber | config | config := nil. repository cacheAllFileNamesDuring: [ | updateList | updateList := self updateListFor: repository. "Proceed only if there are updates available at all." updateList ifNotEmpty: [ updateList := self refreshUpdateMapFor: repository with: updateList. "Now process each update file. Check if we have all dependencies and if not, load the entire configuration (this is mostly to skip older updates quickly)" updateList do:[:assoc| assoc key > versionNumber ifTrue: [^config]. ProgressNotification signal: '' extra: ('Processing ' translated format: {assoc value}). config := repository versionNamed: assoc value. self updateFromConfig: config. + self lastUpdateMapAt: repository description put: assoc key. - self lastUpdateMap at: repository description put: assoc key. ] displayingProgress: 'Processing configurations' translated. ]]. ^config ! Item was changed: ----- Method: MCMcmUpdater>>updateListFor: (in category 'private') ----- updateListFor: repo | updateList allNames minVersion | updateList := OrderedCollection new. + minVersion := self lastUpdateMapAt: repo description. - minVersion := self lastUpdateMap at: repo description ifAbsent: [0]. "Find all the update-*.mcm files" allNames := ('Checking {1}' translated format: {repo description}) displayProgressFrom: 0 to: 1 during: [:bar| bar value: 0. repo allFileNamesOrCache ]. allNames do: [:fileName | | version | ((fileName endsWith: '.mcm') and: [fileName packageAndBranchName = self updateMapName and: [(version := fileName versionNumber) >= minVersion]]) ifTrue: [updateList add: version -> fileName]]. ^updateList sort!

1 0

The Trunk: Monticello-mt.781.mcz
by commits＠source.squeak.org 02 Jul '22

02 Jul '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.781.mcz ==================== Summary ==================== Name: Monticello-mt.781 Author: mt Time: 2 July 2022, 9:56:11.742503 am UUID: c926f650-7352-6241-927a-0e052dbbd824 Ancestors: Monticello-mt.780 Extend MC repository instantiation interface to allow HTTPS, not only HTTP. =============== Diff against Monticello-mt.780 =============== Item was changed: ----- Method: MCRepository class>>location:username:password: (in category 'instance creation') ----- location: urlOrPath username: user password: pass "Answer an MCRepository for the given url or path. Accepted locations are: - http, and ftp urls (i.e., http://source.squeak.org/trunk) - directory paths (i.e., C:\Squeak\packages) - directory matches (i.e., C:\Squeak\packages\*) If provided, the supplied user name and password will be used." | url | (urlOrPath findString: '://') > 0 ifTrue:[ url := urlOrPath asUrl. ^ url scheme caseOf: { ['ftp'] -> [MCFtpRepository host: url authority directory: url pathString allButFirst user: user password: user]. ['http'] -> [MCHttpRepository location: urlOrPath user: user password: pass]. + ['https'] -> [MCHttpRepository + location: urlOrPath + user: user + password: pass]. } otherwise:[self error: 'Unsupported scheme: ', url scheme]. ]. (urlOrPath endsWith: '*') ifTrue:[ ^MCSubDirectoryRepository new directory: (FileDirectory on: urlOrPath allButLast)]. ^MCDirectoryRepository directory: (FileDirectory on: urlOrPath)!

1 0

The Inbox: Morphic-kfr.2015.mcz
by commits＠source.squeak.org 01 Jul '22

01 Jul '22

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!

1 0

Image stops responding Form>>copyWithColorsReducedTo:
by karl ramberg 01 Jul '22

01 Jul '22

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

2 6

The Inbox: Graphics-kfr.527.mcz
by commits＠source.squeak.org 01 Jul '22

01 Jul '22

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

1 0

Jump to page: