Squeak-dev November 2018

squeak-dev@lists.squeakfoundation.org

48 participants
94 discussions

My formula for loading & starting Seaside in Squeak 5.2
by Tim Johnson 10 Nov '18

10 Nov '18

Hi, In case anyone finds this useful, this is the DoIt that has worked for me to load (& start) Seaside in Squeak 5.2: Installer ensureRecentMetacello. (Smalltalk at: #Metacello) new baseline:'Seaside3'; repository: 'github://SeasideSt/Seaside:master/repository'; load. (Installer ss3 project: 'WebClient') install: 'WebClient-Seaside-Adaptor'. "Optionally use the control panel to add adaptor, start and to set encoding" "WAControlPanel open." "do the above but without using the GUI" ((Smalltalk at: #WAWebServerAdaptor) port: 8080) codec: ((Smalltalk at: #GRCodec) forEncoding: 'utf-8'); start. The codec is optional – but the above allows me to put emojis into my components, like: crayon ^ WideString fromPacked: 128397 renderContentOn: html html text: self crayon. Thanks to everybody whose hard work has kept this going! Tim J

3 3

The Trunk: SystemReporter-eem.40.mcz
by commits＠source.squeak.org 10 Nov '18

10 Nov '18

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.40.mcz ==================== Summary ==================== Name: SystemReporter-eem.40 Author: eem Time: 9 November 2018, 8:42:06.189082 pm UUID: 8ef90e26-589b-4798-af85-490c58c03946 Ancestors: SystemReporter-eem.39 Include description of the flags in VM parameter 65. =============== Diff against SystemReporter-eem.39 =============== Item was changed: ----- Method: SystemReporter>>reportVMParameters: (in category 'reporting') ----- reportVMParameters: aStream | vmParameters isStack isCog isSpur | self header: 'Virtual Machine Parameters' on: aStream. vmParameters := Smalltalk vm getVMParameters. isStack := (vmParameters at: 42 ifAbsent: [0]) ~= 0. "42 = number of stack pages available" isCog := isStack and: [(vmParameters at: 46) ~= 0]. "46 is machine code zone size" isSpur := isStack and: [(vmParameters at: 41) anyMask: 2r10000]. "41 is imageFormatVersion for the VM; bit 16 is the Spur bit" (isSpur ifFalse: [#( 1 'size of old space' 2 'size of young+old space' 3 'size of memory' 4 'allocationCount' 5 'allocations between GCs' 6 'survivor count tenuring threshold')] ifTrue: [#( 1 'size of old space' 2 'used bytes in new space (used eden + used past space)' 3 'size of heap')]), #( 7 'full GCs since startup' 8 'total milliseconds in full GCs since startup'), (isSpur ifFalse: [#( 9 'incremental GCs since startup' 10 'total milliseconds in incremental GCs since startup' 11 'tenures of surving objects since startup'), {12 to: 19. 'specific to the translating VM'}] ifTrue: [#( 9 'scavenging GCs since startup' 10 'total milliseconds in scavenging GCs since startup' 11 'tenures of surving objects since startup'), {12 to: 15. 'reserved for future use'}, #( 16 'total microseconds in idle since startup' 17 'proportion of code zone available for use (Sista VMs only; read-write)' 18 'total milliseconds in full GC compaction since startup (a portion of parameter 8)' 19 'scavenge threshold; the effective size of eden')]), #( 20 'utc microseconds at startup (if non-zero)' 21 'root/remembered table size (occupancy)' 22 'root/remembered table overflows since startup' 23 'bytes of extra memory to reserve for VM buffers, plugins, etc.' 24 'free memory threshold above which object memory will be shrunk' 25 'memory headroom when growing object memory'), (isStack ifFalse: [#( 26 'interruptChecksEveryNms - force an ioProcessEvents every N milliseconds, in case the image is not calling getNextEvent often')] ifTrue: [#( 26 'heartbeat period (ms; see #58)')]), (isSpur ifFalse: [#( 27 'number of times mark loop iterated for current IGC/FGC includes ALL marking' 28 'number of times sweep loop iterated for current IGC/FGC' 29 'number of times make forward loop iterated for current IGC/FGC' 30 'number of times compact move loop iterated for current IGC/FGC')] ifTrue: [#()]), #( 31 'number of grow memory requests' 32 'number of shrink memory requests'), (isSpur ifFalse: [#( 33 'number of root table entries used for current IGC/FGC' 34 'number of allocations done before current IGC/FGC' 35 'number of survivor objects after current IGC/FGC' 36 'millisecond clock when current IGC/FGC completed' 37 'number of marked objects for Roots of the world, not including Root Table entries for current IGC/FGC' 38 'milliseconds taken by current IGC' 39 'Number of finalization signals for Weak Objects pending when current IGC/FGC completed')] ifTrue: [#( 33 'number of root table entries at last scavenge' 35 'number of survivor objects at last scavenge (if non-zero)' 36 'millisecond clock when current scavenge completed' 38 'milliseconds taken by current scavenge' 39 'Number of finalization signals for Weak Objects pending when current SGC/FGC completed')]), #( 40 'VM word size - 4 or 8'), (isStack ifTrue: [#( 41 'imageFormatVersion for the VM' 42 'number of stack pages available' 43 'desired number of stack pages (stored in image file header, max 65535)' 44 'size of eden, in bytes' 45 'desired size of eden, in bytes (stored in image file header)' 46 'machine code zone size, in bytes (0 in Stack VM)' 47 'desired machine code zone size (0 => default 1Mb)' 48 'various persistent image header flags. See getCogVMFlags in the VM source.' 49 'max size the image promises to grow the external semaphore table to'), (isSpur ifFalse: [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)'. 52 to: 56. 'specific to Spur' }] ifTrue: [{ 50 to: 51. 'reserved for VM parameters that persist in the image (such as size of eden above)' }, #( 52 'root/remembered table capacity' 53 'number of old space segments' 54 'total free old space' 55 'ratio of growth and image size at or above which a GC will be performed post scavenge')]), #( 56 'number of process switches since startup' 57 'number of ioProcessEvents calls since startup' 58 'number of forceInterruptCheck calls since startup' 59 'number of check event calls since startup' 60 'number of stack page overflows since startup' 61 'number of stack page divorces since startup' 62 'compiled code compactions since startup'), (isCog ifFalse: [#()] ifTrue: [#( 63 'total milliseconds in compiled code compactions since startup' 64 'the number of methods that currently have jitted machine-code')]), + { 65. 'Cog feature flags\ bit 0: set if the VM supports MULTIPLE_BYTECODE_SETS.\ bit 1: set if the VM supports read-only objects.\ bit 2: set if the VM has an ITIMER_HEARTBEAT' withCRs. + 66. 'the byte size of a stack page'.}, - #( 65 'whether the VM supports MULTIPLE_BYTECODE_SETS or not.' - 66 'the byte size of a stack page'), (isSpur ifFalse: [{ 67 to: 69. 'reserved for more Cog-related info' }] ifTrue: [#( 67 'the maximum allowed size of old space (if zero there is no limit)' 68 'the average number of live stack pages when scanned by scavenge/gc/become' 69 'the maximum number of live stack pages when scanned by scavenge/gc/become')]), #( 70 'the vmProxyMajorVersion (the interpreterProxy VM_MAJOR_VERSION)' 71 'the vmProxyMinorVersion (the interpreterProxy VM_MINOR_VERSION)')] ifFalse: [#()]) pairsDo: [:idx :desc | | value values | aStream nextPut: $#. idx isInteger ifTrue: [value := vmParameters at: idx. aStream print: idx; tab: (idx < 10 ifTrue: [2] ifFalse: [1]); nextPutAll: ((value isInteger and: [idx ~= 41]) ifTrue: [value asStringWithCommas] ifFalse: [value printString])] ifFalse: [value := vmParameters at: idx first. aStream print: idx first; next: 2 put: $.; print: idx last; tab. values := idx collect: [:i| vmParameters at: i]. values asSet size = 1 ifTrue: [aStream print: value] ifFalse: [values do: [:v| aStream print: v] separatedBy: [aStream nextPutAll: ', ']]]. aStream tab; nextPutAll: desc; cr]!

1 0

The Trunk: Monticello-dtl.685.mcz
by commits＠source.squeak.org 10 Nov '18

10 Nov '18

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.685.mcz ==================== Summary ==================== Name: Monticello-dtl.685 Author: dtl Time: 5 November 2018, 10:52:58.748205 pm UUID: b31c1c5b-d61a-4810-8f97-5fdcaf062dc8 Ancestors: Monticello-eem.684 MCVersionInspector has an 'Adopt' button to allow the selected version to be added to the parent or parents of a working version. Provide a 'Reparent' button to allow a selected version to become the sole parent of a working version. Adjust defaultExtent to accomodate the additional button. Motivated by the exercise of preparing to copy Chronology-Core versions from one repository into equivalent Chronology-Core.UTC versions in another repository (possibly trunk). In this scenario, it is helpful to be able to reparent a newly loaded Chronology-Core version from one repository to be the child of the last saved Chronology-Core.UTC version in another. The '.UTC' suffix in this case is intended to branch those versions from the trunk update stream, allowing later merge to trunk with branch history preserved. =============== Diff against Monticello-eem.684 =============== Item was changed: ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') ----- defaultExtent + ^600@300! - ^450@300! Item was added: + ----- Method: MCVersion>>reparent (in category 'actions') ----- + reparent + "Let aNode be the sole parent of this version" + self workingCopy reparent: self! Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^#( + ('Refresh' refresh 'refresh the version-list') - ^ #(('Refresh' refresh 'refresh the version-list') (Browse browse 'Browse this version' hasVersion) + (History history 'Browse the history of this version' hasVersion) + (Changes changes 'Browse the changes this version would make to the image' hasVersion) + (Load load 'Load this version into the image' hasVersion) + (Merge merge 'Merge this version into the image' hasVersion) + (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) + (Reparent reparent 'Adopt this version as the sole ancestor of your working copy' hasVersion) + (Copy save 'Copy this version to another repository' hasVersion) + (Diff diff 'Create an equivalent version based on an earlier release' hasVersion) + )! - (History history 'Browse the history of this version' hasVersion) - (Changes changes 'Browse the changes this version would make to the - image' hasVersion) - (Load load 'Load this version into the image' hasVersion) - (Merge merge 'Merge this version into the image' hasVersion) - (Adopt adopt 'Adopt this version as an ancestor of your working copy' - hasVersion) - (Copy save 'Copy this version to another repository' hasVersion) - (Diff diff 'Create an equivalent version based on an earlier release' - hasVersion))! Item was added: + ----- Method: MCVersionInspector>>reparent (in category 'accessing') ----- + reparent + (self confirm:'Adopt ',self version info name, ' as the sole ancestor of your working copy?') + ifTrue: [self version reparent]! Item was added: + ----- Method: MCWorkingAncestry>>reparent: (in category 'as yet unclassified') ----- + reparent: aNode + "Let aNode be the sole parent of this version" + ancestors := Array with: aNode + ! Item was added: + ----- Method: MCWorkingCopy>>reparent: (in category 'operations') ----- + reparent: aVersion + "Let aNode be the sole parent of this version" + ancestry reparent: aVersion info. + self changed.!

3 3

The Trunk: MonticelloConfigurations-dtl.154.mcz
by commits＠source.squeak.org 10 Nov '18

10 Nov '18

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.154.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.154 Author: dtl Time: 6 November 2018, 12:48:49.134459 pm UUID: fa8994d2-a6ef-4d3a-a765-e74a3c1b659d Ancestors: MonticelloConfigurations-eem.153 Allow an updater to read its update maps from a local directory repository. Previously only HTTP repositories were supported. A local repository may be useful for testing an update stream prior to publishing update maps to a public location. =============== Diff against MonticelloConfigurations-eem.153 =============== Item was changed: ----- Method: MCMcmUpdater class>>repository:updateMap: (in category 'instance creation') ----- + repository: urlOrDirectoryPath updateMap: baseName - repository: url updateMap: baseName "Answer a new instance with empty last update map, not yet registered" + ^ self repository: urlOrDirectoryPath updateMap: baseName lastUpdateMap: Dictionary new! - ^ self repository: url updateMap: baseName lastUpdateMap: Dictionary new! Item was changed: ----- Method: MCMcmUpdater class>>repository:updateMap:lastUpdateMap: (in category 'instance creation') ----- + repository: urlOrDirectoryPath updateMap: baseName lastUpdateMap: dictionary - repository: url updateMap: baseName lastUpdateMap: dictionary "Answer a new instance, not yet registered" ^ self new + repository: urlOrDirectoryPath; - repository: url; updateMapName: baseName; lastUpdateMap: dictionary! Item was changed: ----- Method: MCMcmUpdater class>>updateMapNamed:repository: (in category 'instance creation') ----- + updateMapNamed: baseName repository: urlOrDirectoryPath - updateMapNamed: baseName repository: url "Answer an instance for the given repository URL with a base update name baseName, Register a new instance if not present in the registry." " | updater1 updater2 | updater1 := self updateMapNamed: 'BAR' repository: 'FOO'. updater2 := self updateMapNamed: 'BAZ' repository: 'FOO'. updater1 unregister. updater2 unregister. Registry" + ^(self forRepository: urlOrDirectoryPath updateMap: baseName) - ^(self forRepository: url updateMap: baseName) ifNil: [ "register a new updater" + (self repository: urlOrDirectoryPath updateMap: baseName) register]. - (self repository: url updateMap: baseName) register]. ! Item was changed: ----- Method: MCMcmUpdater>>getRepositoryFromRepositoryGroup (in category 'private') ----- getRepositoryFromRepositoryGroup "Answer the repository for this updater, ensuring that it is registered in the default MCRepositoryGroup" ^ MCRepositoryGroup default repositories detect: [:r | r description = repository] ifNone: [| r | + r := self repositoryAt: repository. - r := MCHttpRepository - location: repository - user: '' - password: ''. MCRepositoryGroup default addRepository: r. r] ! Item was changed: ----- Method: MCMcmUpdater>>repository: (in category 'accessing') ----- + repository: urlOrDirectoryPath - repository: repositoryURLString + repository := urlOrDirectoryPath! - repository := repositoryURLString! Item was added: + ----- Method: MCMcmUpdater>>repositoryAt: (in category 'private') ----- + repositoryAt: urlOrDirectoryPath + "Answer a repository, assuming that urlOrDirectoryPath represents + either an HTTP repository or a local directory repository. The common + case is an HTTP repository, but a local repository may be useful for + testing an update stream prior to posting the update maps to a public + location." + + (FileDirectory default directoryExists: urlOrDirectoryPath) + ifTrue: [^ MCDirectoryRepository path: urlOrDirectoryPath] + ifFalse: [^ MCHttpRepository + location: repository + user: '' + password: ''] + !

1 0

Personal SqueakSource for 5.2 on SqueakMap
by Chris Muller 10 Nov '18

10 Nov '18

I've completed my first round of updates the "Personal SqueakSource" package for 5.2 running on 64-bit. By running it out of a work directory on your hard drive, it provides mc revision history for all of your own personal code in the same way we access to that for Squeak's base code. **No client code is required** in your images to do this! The installation has been simplified (no more special "squeaksource" user). I did all of the tedious setup work so you don't have to. Complete documentation is here. http://wiki.squeak.org/squeak/6365 I verified in a clean Ubuntu 16.04 Virtual Host with stock 5.2 images that the above Setup instructions "just works" and only takes a few minutes. I hope you'll give it a try and give me your feedback. I'd like to not be the only one who ever touches this code. In the meantime, I will reach out to Dave to see if we can get it running with UTCDateaAndTime installed. After that, I will update the source.squeak.org server with this new version, and the timeouts we've been suffering with will vanish! - Chris PS -- BTW, this is a fantastic "example" server application from the sense of implementing production server best-practices and also the sheer breadth of different technologies it demonstrates (web, raw HTTP requests, emailing, server deployment, availability, RFB, etc.).

2 1

The Trunk: Monticello-dtl.686.mcz
by commits＠source.squeak.org 10 Nov '18

10 Nov '18

David T. Lewis uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-dtl.686.mcz ==================== Summary ==================== Name: Monticello-dtl.686 Author: dtl Time: 9 November 2018, 7:04:36.309744 pm UUID: fe585cb5-06ad-4fa6-89d8-4163b24c9a43 Ancestors: Monticello-eem.685, Monticello-dtl.685 Merge Monticello-dtl.685 from inbox with Monticello-eem.685 in trunk. =============== Diff against Monticello-eem.685 =============== Item was changed: ----- Method: MCRepositoryInspector>>defaultExtent (in category 'morphic ui') ----- defaultExtent + ^600@300! - ^450@300! Item was added: + ----- Method: MCVersion>>reparent (in category 'actions') ----- + reparent + "Let aNode be the sole parent of this version" + self workingCopy reparent: self! Item was changed: ----- Method: MCVersionInspector>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs + ^#( + ('Refresh' refresh 'refresh the version-list') - ^ #(('Refresh' refresh 'refresh the version-list') (Browse browse 'Browse this version' hasVersion) + (History history 'Browse the history of this version' hasVersion) + (Changes changes 'Browse the changes this version would make to the image' hasVersion) + (Load load 'Load this version into the image' hasVersion) + (Merge merge 'Merge this version into the image' hasVersion) + (Adopt adopt 'Adopt this version as an ancestor of your working copy' hasVersion) + (Reparent reparent 'Adopt this version as the sole ancestor of your working copy' hasVersion) + (Copy save 'Copy this version to another repository' hasVersion) + (Diff diff 'Create an equivalent version based on an earlier release' hasVersion) + )! - (History history 'Browse the history of this version' hasVersion) - (Changes changes 'Browse the changes this version would make to the - image' hasVersion) - (Load load 'Load this version into the image' hasVersion) - (Merge merge 'Merge this version into the image' hasVersion) - (Adopt adopt 'Adopt this version as an ancestor of your working copy' - hasVersion) - (Copy save 'Copy this version to another repository' hasVersion) - (Diff diff 'Create an equivalent version based on an earlier release' - hasVersion))! Item was added: + ----- Method: MCVersionInspector>>reparent (in category 'accessing') ----- + reparent + (self confirm:'Adopt ',self version info name, ' as the sole ancestor of your working copy?') + ifTrue: [self version reparent]! Item was added: + ----- Method: MCWorkingAncestry>>reparent: (in category 'as yet unclassified') ----- + reparent: aNode + "Let aNode be the sole parent of this version" + ancestors := Array with: aNode + ! Item was added: + ----- Method: MCWorkingCopy>>reparent: (in category 'operations') ----- + reparent: aVersion + "Let aNode be the sole parent of this version" + ancestry reparent: aVersion info. + self changed.!

1 0

[ANN] Guardians
by Stéphane Rollandin 09 Nov '18

09 Nov '18

Hello, Thanks to all the good people that helped having a working Squeak3D plugin for recent VM, I am pleased to announce the release of a game I started in 2005 and then let kind of forgot, a remake of The Sentinel from 1986 (I used to play this one a lot). It is a Wonderland application, and it works in a 5.1 image. Nice:) So here it is: http://www.zogotounga.net/comp/guardians.htm Still in beta, since I have experimented a fair share of VM crashes, but very much playable. See the above page for instructions. Stef

3 10

The Inbox: Installer-Core-dtl.425.mcz
by commits＠source.squeak.org 09 Nov '18

09 Nov '18

A new version of Installer-Core was added to project The Inbox: http://source.squeak.org/inbox/Installer-Core-dtl.425.mcz ==================== Summary ==================== Name: Installer-Core-dtl.425 Author: dtl Time: 7 November 2018, 9:24:32.82223 pm UUID: 6a5d8822-147f-460a-9aac-b17f02399538 Ancestors: Installer-Core-cmm.424 In the case of a repository containing both 'Chronology-Core-dtl.3' and 'Chronology-Core-dtl.30', the following will incorrectly load version 30 rather than version 3. (Installer ss project: 'UTCDateAndTime') install: 'Chronology-Core-dtl.3' A workaround is to reverse the order of sorting in InstallerMonticello>>mcSortFileBlock, such that 'Chronology-Core-dtl.3' will be detected before 'Chronology-Core-dtl.30' in InstallerMonticello>>mcThing. A possibly better fix is to change InstallerMonticello>>mcDetectFileBlock: to do string equality checks rather than #beginsWith: comparisons. This appears to be correct, but might have side effects, since I do not know the original rationale for using #beginsWith:. This change implements the possibly better fix. =============== Diff against Installer-Core-cmm.424 =============== Item was changed: ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') ----- mcDetectFileBlock: pkg pkg isString ifTrue: [ ^ [ :aMCVersionName | + (pkg beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName = pkg ] ] ]. - (pkg beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName beginsWith: pkg ] ] ]. (pkg isKindOf: Array) ifTrue: [ ^ [ :aMCVersionName | pkg anySatisfy: [ :item | + (item beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName = item ] ] ] ]. - (item beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName beginsWith: item ] ] ] ]. pkg isBlock ifTrue: [ ^ pkg ]. !

4 4

The Inbox: Installer-Core-dtl.426.mcz
by commits＠source.squeak.org 09 Nov '18

09 Nov '18

A new version of Installer-Core was added to project The Inbox: http://source.squeak.org/inbox/Installer-Core-dtl.426.mcz ==================== Summary ==================== Name: Installer-Core-dtl.426 Author: dtl Time: 8 November 2018, 8:14:05.491842 pm UUID: 1467b7b0-9ce6-4b2e-96f4-48c851f5e6e9 Ancestors: Installer-Core-dtl.425 If an explicit MC version is specified for Installer, load that version. Otherwise load the most recent version of the applicable package or package branch. Previously, in the case of a repository containing both 'Chronology-Core-dtl.3' and 'Chronology-Core-dtl.30', the following will incorrectly load version 30 rather than version 3. (Installer ss project: 'UTCDateAndTime') install: 'Chronology-Core-dtl.3' With this update, the correct version is loaded when explicitly specified, otherwise the most recent version of Chronology-Core (or branch therof) will be loaded. =============== Diff against Installer-Core-dtl.425 =============== Item was removed: - ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') ----- - mcDetectFileBlock: pkg - - pkg isString ifTrue: [ ^ [ :aMCVersionName | - (pkg beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName = pkg ] ] ]. - - (pkg isKindOf: Array) - ifTrue: [ ^ [ :aMCVersionName | pkg anySatisfy: [ :item | - (item beginsWith: aMCVersionName packageAndBranchName) and: [aMCVersionName = item ] ] ] ]. - - pkg isBlock ifTrue: [ ^ pkg ]. - ! Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader | loader := self classMCVersionLoader new. "several attempts to read files - repository readableFileNames sometimes fails" self packages + do: [:pkg | + | mcVersion versionNames sortedVersions fileToLoad version | + mcVersion := pkg asMCVersionName . - do: [:pkg | - | versionNames fileToLoad version | versionNames := mc versionNamesForPackageNamed: + (mcVersion versionNumber = 0 - (pkg asMCVersionName versionNumber = 0 ifTrue: [ "Just a package name specified, use it whole." pkg ] + ifFalse: [mcVersion packageName]). + sortedVersions := versionNames sorted: self mcSortFileBlock. + fileToLoad := self versionToLoad: mcVersion fromVersions: sortedVersions. - ifFalse: [pkg asMCVersionName packageName]). - fileToLoad := (versionNames sorted: self mcSortFileBlock) - detect: (self mcDetectFileBlock: pkg) - ifNone: [ nil ]. fileToLoad ifNotNil: [version := mc versionNamed: fileToLoad. (version isKindOf: MCConfiguration) ifTrue: [^ version] ifFalse: [self normalizedRepositories do: [:repo | MCRepositoryGroup default addRepository: repo]. self normalizedRepositories do: [:repo | version workingCopy repositoryGroup addRepository: repo]. loader addVersion: version]. self logCR: ' found ' , version fileName , '...']]. ^ loader! Item was added: + ----- Method: InstallerMonticello>>versionToLoad:fromVersions: (in category 'monticello') ----- + versionToLoad: mcVersion fromVersions: sortedVersions + "From a list of sortedVersions, answer the most recent version or the + exact version if explicitly specified." + ^ sortedVersions + detect: [:aMCVersionName | aMCVersionName = mcVersion "explicit version specified"] + ifNone: [sortedVersions + detect: [:aMCVersionName | (mcVersion beginsWith: aMCVersionName packageAndBranchName) + and: [aMCVersionName beginsWith: mcVersion "most recent version that matches"]] + ifNone: []]!

1 0

A Squeak universe for you!
by Christopher Becker 08 Nov '18

08 Nov '18

To everyone who has contributed to Squeak all these years: https://harmolodia.org/ This blog has a link to a Monticello package that is compatible with Squeak 5.2. Good luck and God bless! Christopher Becker

1 0

← Newer
1
2
3
4
5
6
7
8
9
10
Older →