Packages August 2011

packages@lists.squeakfoundation.org

1 participants
171 discussions

The Trunk: MonticelloConfigurations-cmm.97.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-cmm.97.mcz ==================== Summary ==================== Name: MonticelloConfigurations-cmm.97 Author: cmm Time: 13 August 2011, 7:39:26.257 pm UUID: 1824aaa0-7327-4eb5-9f64-b76f259b116a Ancestors: MonticelloConfigurations-bf.96 - When storing a Configuration, instead of complaining to the user about what versions are missing in the target repository, just copy the missing versions in automatically. =============== Diff against MonticelloConfigurations-bf.96 =============== Item was changed: ----- Method: MCConfigurationBrowser>>checkDependencies (in category 'dependencies') ----- checkDependencies + | missing | + missing := (self dependencies collect: + [ : ea | ea versionInfo name ]) asSet. + self repositories do: + [ : eachRepository | eachRepository cacheAllFileNamesDuring: + [ missing copy do: + [ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ]. + ^ missing isEmpty or: + [ self selectDependency: missing anyOne. + self confirm: + (String streamContents: + [ : strm | strm + nextPutAll: 'No repository found for' ; + cr. + missing do: + [ : r | strm + nextPutAll: r ; + cr ]. + strm nextPutAll: 'Do you still want to store?' ]) ]! - ^self checkModified and: [self checkMissing]! Item was removed: - ----- Method: MCConfigurationBrowser>>checkMissing (in category 'dependencies') ----- - checkMissing - | missing | - missing := (self dependencies collect: - [ : ea | ea versionInfo name ]) asSet. - self repositories do: - [ : eachRepository | eachRepository cacheAllFileNamesDuring: - [ missing copy do: - [ : eachVersionName | (eachRepository includesVersionNamed: eachVersionName) ifTrue: [ missing remove: eachVersionName ] ] ] ]. - ^ missing isEmpty or: - [ self selectDependency: missing anyOne. - self confirm: - (String streamContents: - [ : strm | strm - nextPutAll: 'No repository found for' ; - cr. - missing do: - [ : r | strm - nextPutAll: r ; - cr ]. - strm nextPutAll: 'Do you still want to store?' ]) ]! Item was changed: ----- Method: MCConfigurationBrowser>>store (in category 'actions') ----- store + (self checkRepositories and: [ self checkDependencies ]) ifFalse: [ ^ self ]. + self pickName ifNotNil: + [ : name | self configuration name: name. + self pickRepository ifNotNil: + [ : repo | repo cacheAllFileNamesDuring: + [ self configuration dependencies do: + [ : each | repo + versionWithInfo: each versionInfo + ifAbsent: [ repo storeVersion: (MCRepositoryGroup default versionWithInfo: each versionInfo) ] ] ]. + repo storeVersion: self configuration ] ]! - (self checkRepositories and: [self checkDependencies]) ifFalse: [^self]. - self pickName ifNotNil: [:name | - self configuration name: name. - self pickRepository ifNotNil: [:repo | - repo storeVersion: self configuration]].!

1 0

The Trunk: MonticelloConfigurations-cmm.97.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Monticello-cmm.481.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.481.mcz ==================== Summary ==================== Name: Monticello-cmm.481 Author: cmm Time: 15 August 2011, 9:00:37.25 pm UUID: 5072119a-48d8-4ff5-a804-7ac80b3ea718 Ancestors: Monticello-cmm.480 Better copyAllFrom:. =============== Diff against Monticello-cmm.480 =============== Item was changed: ----- Method: MCRepository>>copyAllFrom: (in category 'versions') ----- copyAllFrom: aMCRepository "Copy all MCVersions from aMCRepository to the receiver." self cacheAllFileNamesDuring: + [ aMCRepository cacheAllFileNamesDuring: + [ | pkgCount | + pkgCount := 0. + 'Copy all package versions from ' , aMCRepository description + displayProgressFrom: 0 + to: aMCRepository allPackageNames size + during: + [ : pkgBar | aMCRepository allPackageNames asArray sort do: + [ : eachPackageName | | versions verCount | + verCount := 0. + versions := (aMCRepository versionNamesForPackageNamed: eachPackageName) difference: (self versionNamesForPackageNamed: eachPackageName). + 'Progress for ' , eachPackageName + displayProgressFrom: 0 + to: versions size + during: + [ : verBar | versions do: + [ : eachVersionName | (aMCRepository versionNamed: eachVersionName) ifNotNil: + [ : ver | self storeVersion: ver ]. + verBar value: (verCount := verCount + 1) ]. + pkgBar value: (pkgCount := pkgCount + 1) ] ] ] ] ]! - [ aMCRepository allVersionsDo: - [ : eachVersion | (self includesVersionNamed: eachVersion versionName) ifFalse: [ self storeVersion: eachVersion ] ] ]!

1 0

The Trunk: Monticello-cmm.481.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Monticello-cmm.481.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Monticello-cmm.480.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.480.mcz ==================== Summary ==================== Name: Monticello-cmm.480 Author: cmm Time: 15 August 2011, 2:59:52.118 pm UUID: 19746f8e-ee8d-471c-995d-be44dd1cde36 Ancestors: Monticello-cmm.479 Added 'copy image versions here' to repository context menu. =============== Diff against Monticello-cmm.479 =============== Item was added: + ----- Method: MCWorkingCopyBrowser>>copyImageVersions (in category 'actions') ----- + copyImageVersions + self repository ifNotNil: [ : repos | repos copyImageVersions ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu self repository ifNil: [^ aMenu]. self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) ('remove repository' #removeRepository) ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) ('flush cached versions' #flushAllCaches) + ('copy image versions here' #copyImageVersions) ). aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs. ^ aMenu !

1 0

The Trunk: Monticello-cmm.480.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Monticello-cmm.480.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

The Trunk: Monticello-cmm.479.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.479.mcz ==================== Summary ==================== Name: Monticello-cmm.479 Author: cmm Time: 14 August 2011, 2:06:47.864 pm UUID: 1499439c-568d-41be-98f6-6306b29113f9 Ancestors: Monticello-cmm.478 Don't need to use #indexSatisfying:startingAt:. =============== Diff against Monticello-cmm.478 =============== Item was changed: ----- Method: String>>withLoadedPackageVersions (in category '*monticello') ----- withLoadedPackageVersions "Everywhere the receiver contains a package version in the format: PackageName-author.123 for which a version of that package is loaded in the image, answer a new String with each of those package versions changed to reflect the currently loaded version." | string | string := self. MCWorkingCopy allManagers do: [ : eachWorkingCopy | | start packageName | start := 1. packageName := eachWorkingCopy packageName. [ start := string findString: packageName startingAt: start. start > 0 and: [ string size > (start + packageName size + 4) ] ] whileTrue: [ | dot end versionName | dot := string indexOf: $. startingAt: (end := start + packageName size) ifAbsent: [ 0 ]. dot > 0 ifTrue: + [ end := (dot + 1 to: string size) + detect: [ : n | (string at: n) isDigit not ] + ifNone: [ 0 ]. - [ end := string - indexSatisfying: - [ : each | each isDigit not ] - startingAt: dot + 1. (end > (dot + 1) and: [ (dot + 1 to: end - 1) allSatisfy: [ : n | (string at: n) isDigit ] ]) ifTrue: [ versionName := string copyFrom: start to: end - 1. versionName asMCVersionName packageName = packageName ifTrue: [ string := string copyReplaceTokens: versionName with: eachWorkingCopy ancestors first name ] ] ifFalse: [ end := start + packageName size ] ]. start := end ] ]. ^ string!

1 0

The Trunk: Monticello-cmm.479.mcz
by commits＠source.squeak.org 16 Aug '11

16 Aug '11

1 0

← Newer
1
2
3
4
5
6
7
8
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2011