Packages July 2022

packages@lists.squeakfoundation.org

1 participants
59 discussions

The Trunk: System-mt.1365.mcz
by commits＠source.squeak.org 04 Jul '22

04 Jul '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1365.mcz ==================== Summary ==================== Name: System-mt.1365 Author: mt Time: 4 July 2022, 10:13:34.300024 am UUID: b6c5f9d9-0329-8c47-a4d6-2795ba189725 Ancestors: System-mt.1364 Fixes CI access for not-yet-accessible versions. =============== Diff against System-mt.1364 =============== Item was changed: ----- Method: SystemVersion>>ciStatusTimestamp (in category 'continuous integration') ----- ciStatusTimestamp "Slow. Fetch HTML page, extract first occurrence of ... <time-ago datetime='2021-08-04T14:24:20Z' ... " | statusResponse statusPage begin end dateAndTime | statusResponse := WebClient httpGet: self ciStatusPageUrl. statusResponse isSuccess ifFalse: [^ nil]. statusPage := statusResponse content. begin := statusPage findString: 'datetime' startingAt: 100000. "Skip the first X bytes decoration." + begin = 0 ifTrue: [^ nil]. end := statusPage findString: 'Z' startingAt: begin. + end = 0 ifTrue: [^ nil]. dateAndTime := DateAndTime readFrom: (statusPage copyFrom: begin + 10 to: end) readStream. ^ String streamContents: [:s | dateAndTime asDate = Date today ifTrue: [s nextPutAll: 'Today' translated, ','] ifFalse: [dateAndTime asDate = Date yesterday ifTrue: [s nextPutAll: 'Yesterday' translated, ','] ifFalse: [dateAndTime printYMDOn: s]]. s space. dateAndTime printHMOn: s]!

1 0

The Trunk: Help-Squeak-TerseGuide-mt.15.mcz
by commits＠source.squeak.org 04 Jul '22

04 Jul '22

Marcel Taeumel uploaded a new version of Help-Squeak-TerseGuide to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-TerseGuide-mt.15.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-mt.15 Author: mt Time: 4 July 2022, 9:34:13.224724 am UUID: 301d2672-16ba-1244-a7b1-18fc8486d00c Ancestors: Help-Squeak-TerseGuide-mt.14 TerseGuide: sync #block and #conditionalExpression topics with recent updates on squeak.org =============== Diff against Help-Squeak-TerseGuide-mt.14 =============== Item was changed: ----- Method: TerseGuideHelp class>>block (in category 'pages') ----- block "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #block" + <generated> + ^(HelpTopic - ^HelpTopic title: 'Blocks' contents: '"Blocks: - blocks are objects and may be assigned to a variable - value is last expression evaluated unless explicit return - blocks may be nested - specification - [ arguments | | localvars | expressions ] + - ^ expression terminates block & method (exits all nested blocks) + - blocks intended for long term storage should not contain ^, + as they can not return to the sender context + - use #cull: (and #cull:cull:...) if you do not know the exact number of arguments + - blocks (along with polymorphism on booleans) are the basis of control structures + -> See Conditional Expressions - - ^expression terminates block & method (exits all nested blocks) - - blocks intended for long term storage should not contain ^ " | x y z fac | + x := [ y := 1. z := 2. ]. x value. "simple block usage" - x := [ y := 1. z := 2. ]. - x value. "simple block usage" x := [ :argOne :argTwo | argOne, '' and '' , argTwo.]. "set up block with argument passing" Transcript show: (x value: ''First'' value: ''Second''); cr. "use block with argument passing" + x := [:e | | v | v := 1. e + v] value: 2. "local variable in a block" - x := [:e | | v | v := 1. e + v] value: 2. "localvar in a block" fac := [ :n | n > 1 ifTrue: [n * (fac value: n-1)] ifFalse: [1]]. "closure on block variable" fac value: 5. "closure variable scoped to its block" + !!' readStream nextChunkText) + key: #block; + shouldStyle: true; + yourself! - !!' readStream nextChunkText! Item was added: + ----- Method: TerseGuideHelp class>>conditionalExpression (in category 'pages') ----- + conditionalExpression + "This method was automatically generated. Edit it using:" + "TerseGuideHelp edit: #conditionalExpression" + <generated> + ^(HelpTopic + title: 'Conditional Expression' + contents: + '"Conditional Expressions: + - Conditional expressions, or control structures in general, use + blocks as deferred computations which can be evaluated + selectively + " + | x switch result | + x := 11. + x > 10 ifTrue: [Transcript show: ''ifTrue''; cr]. "if then" + x > 10 ifFalse: [Transcript show: ''ifFalse''; cr]. "if else" + x > 10 "if then else" + ifTrue: [Transcript show: ''ifTrue''; cr] + ifFalse: [Transcript show: ''ifFalse''; cr]. + x > 10 "if else then" + ifFalse: [Transcript show: ''ifFalse''; cr] + ifTrue: [Transcript show: ''ifTrue''; cr]. + Transcript + show: + (x > 10 + ifTrue: [''ifTrue''] + ifFalse: [''ifFalse'']); + cr. + Transcript "nested if then else" + show: + (x > 10 + ifTrue: [x > 5 + ifTrue: [''A''] + ifFalse: [''B'']] + ifFalse: [''C'']); + cr. + switch := Dictionary new. "switch functionality" + switch at: $A put: [Transcript show: ''Case A''; cr]. + switch at: $B put: [Transcript show: ''Case B''; cr]. + switch at: $C put: [Transcript show: ''Case C''; cr]. + result := (switch at: $B) value. + + !!' readStream nextChunkText) + key: #conditionalExpression; + shouldStyle: true; + yourself! Item was removed: - ----- Method: TerseGuideHelp class>>conditionalStatement (in category 'pages') ----- - conditionalStatement - "This method was automatically generated. Edit it using:" - "TerseGuideHelp edit: #conditionalStatement" - ^HelpTopic - title: 'Conditional Statement' - contents: - '| x switch result | - x := 11. - x > 10 ifTrue: [Transcript show: ''ifTrue''; cr]. "if then" - x > 10 ifFalse: [Transcript show: ''ifFalse''; cr]. "if else" - x > 10 "if then else" - ifTrue: [Transcript show: ''ifTrue''; cr] - ifFalse: [Transcript show: ''ifFalse''; cr]. - x > 10 "if else then" - ifFalse: [Transcript show: ''ifFalse''; cr] - ifTrue: [Transcript show: ''ifTrue''; cr]. - Transcript - show: - (x > 10 - ifTrue: [''ifTrue''] - ifFalse: [''ifFalse'']); - cr. - Transcript "nested if then else" - show: - (x > 10 - ifTrue: [x > 5 - ifTrue: [''A''] - ifFalse: [''B'']] - ifFalse: [''C'']); - cr. - switch := Dictionary new. "switch functionality" - switch at: $A put: [Transcript show: ''Case A''; cr]. - switch at: $B put: [Transcript show: ''Case B''; cr]. - switch at: $C put: [Transcript show: ''Case C''; cr]. - result := (switch at: $B) value. - - !!' readStream nextChunkText! Item was changed: ----- Method: TerseGuideHelp class>>pages (in category 'accessing') ----- pages ^ #( introduction transcript assignment constants boolean arithmetic + bitwise conversion block exceptionHandling methodCall conditionalExpression - bitwise conversion block exceptionHandling methodCall conditionalStatement iterationStatement character string symbol array orderedCollection sortedCollection bag set interval association dictionary internalStream fileStream date time point rectangle pen dynamic metaclass debugging misc )!

1 0

The Trunk: ShoutCore-mt.95.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.95.mcz ==================== Summary ==================== Name: ShoutCore-mt.95 Author: mt Time: 3 July 2022, 12:00:42.129581 pm UUID: 62c775c6-aa2f-394f-a327-b13b3f13131d Ancestors: ShoutCore-mt.94 Explicitely update image with default value of new preference #enforceItalicEmphasisInComments:. =============== Diff against ShoutCore-mt.94 =============== Item was changed: + (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 enforceItalicEmphasisInComments: true.'! - (PackageInfo named: 'ShoutCore') postscript: 'SHTextStylerST80 allInstancesDo: [ :each | each instVarNamed: #parser put: nil ]'!

1 0

The Trunk: ShoutCore-mt.94.mcz
by commits＠source.squeak.org 03 Jul '22

03 Jul '22

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.94.mcz ==================== Summary ==================== Name: ShoutCore-mt.94 Author: mt Time: 3 July 2022, 11:58:30.475581 am UUID: 6cf4d5f1-6ce3-1049-b8cd-08002edc3025 Ancestors: ShoutCore-mt.93 Adds preference to enforce italic typeset in comments. Enabled by default. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-May/220517.html =============== Diff against ShoutCore-mt.93 =============== Item was changed: SHTextStyler subclass: #SHTextStylerST80 instanceVariableNames: 'classOrMetaClass workspace font parser formatAssignments environment sourceMap processedSourceMap pixelHeight attributesByPixelHeight parseAMethod context' + classVariableNames: 'EnforceItalicEmphasisInComments SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' - classVariableNames: 'SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' poolDictionaries: '' category: 'ShoutCore-Styling'! !SHTextStylerST80 commentStamp: 'tween 8/27/2004 10:55' prior: 0! I style Smalltalk methods and expressions. My 'styleTable' class instance var holds an array ofArrays which control how each token is styled/coloured. See my defaultStyleTable class method for its structure. My styleTable can be changed by either modifying the defaultStyleTable class method and then executing SHTextStylerST80 initialize ; or by giving me a new styleTable through my #styleTable: class method. My 'textAttributesByPixelSize' class instance var contains a dictionary of dictionaries. The key is a pixelSize and the value a Dictionary from token type Symbol to TextAttribute array. It is created/maintained automatically. I also install these 3 preferences when my class initialize method is executed.... #syntaxHighlightingAsYouType - controls whether methods are styled in browsers #syntaxHighlightingAsYouTypeAnsiAssignment - controls whether assignments are formatted to be := #syntaxHighlightingAsYouTypeLeftArrowAssignment - controls whether assignments are formatted to be _ I reimplement #unstyledTextFrom: so that TextActions are preserved in the unstyled text ! Item was added: + ----- Method: SHTextStylerST80 class>>enforceItalicEmphasisInComments (in category 'preferences') ----- + enforceItalicEmphasisInComments + <preference: 'Enforce Italic in Comments' + categoryList: #(browsing Accessibility) + description: 'When enabled, always typeset source-code comments in italic, regardless of the current UI theme. When disabled, depend on what the current UI theme prescribes as text attributes for such comments.' + type: #Boolean> + + ^ EnforceItalicEmphasisInComments ifNil: [true]! Item was added: + ----- Method: SHTextStylerST80 class>>enforceItalicEmphasisInComments: (in category 'preferences') ----- + enforceItalicEmphasisInComments: aBooleanOrNil + + EnforceItalicEmphasisInComments = aBooleanOrNil ifTrue: [^ self]. + EnforceItalicEmphasisInComments := aBooleanOrNil. + + self userInterfaceTheme apply. "Invalidate all styling caches." + ! Item was changed: ----- Method: SHTextStylerST80>>createTextAttributesForPixelHeight: (in category 'style table') ----- createTextAttributesForPixelHeight: aNumber | result | result := IdentityDictionary new. result at: #default put: {}. "Required as fall-back for non-existing attributes." self class themeProperties do: [:each | | spec element emphasis font color | element := each first. spec := self userInterfaceTheme perform: element. spec isArray ifFalse: [spec := {spec}]. "Support color-only hints." color := spec first ifNotNil: [:colorSpec | Color colorFrom: colorSpec]. emphasis := spec at: 2 ifAbsent:[nil]. font := spec at: 3 ifAbsent: [nil]. + (element == #comment and: [self class enforceItalicEmphasisInComments]) + ifTrue: [ + emphasis + ifNil: [emphasis := TextEmphasis italic] + ifNotNil: [ + emphasis isArray + ifFalse: [emphasis := {emphasis}, {TextEmphasis italic}] + ifTrue: [emphasis := emphasis, {TextEmphasis italic}]. + emphasis := emphasis asSet asArray "no double italic"]]. + "Support for named text styles." font isString ifTrue: [ | textStyle | textStyle := TextStyle named: font. font := textStyle ifNotNil: [textStyle fontOfSize: aNumber]]. (self createAttributeArrayForColor: color emphasis: emphasis font: font) ifNotEmpty: [:attrArray | result at: element put: attrArray]]. + ^ result! - ^ result - !

1 0

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

02 Jul '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/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

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: 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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2022