A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-test.11.mcz
==================== Summary ====================
Name: Sake-Packages-test.11 Author: test Time: 23 December 2008, 3:08:48 am UUID: 752a9871-4671-40e3-9cd2-f57c5dcac45a Ancestors: Sake-Packages-kph.10
fix to support backward compatibility with Pharo
=============== Diff against Sake-Packages-kph.10 ===============
Item was changed: ----- Method: MCWorkingCopy>>myMenuForPackages: (in category '*sake-packages') ----- myMenuForPackages: aMenu
(self packageInfo propertyAt: #packages) ifNotNilDo: [ :pkgName | aMenu add: 'load latest release using Sake/Packages' + target: (Packages current named: pkgName) - target: (Packages current named: 'pkgName') selector: #run. aMenu add: 'load latest code using Sake/Packages' + target: (Packages beta named: pkgName) - target: (Packages beta named: 'pkgName') selector: #run. ]. !
Item was changed: ----- Method: Packages>>addToPackageInfo (in category 'as yet unclassified') ----- addToPackageInfo
+ " + Here we tell the PackageInfo instance what name was used to load it. + + if a package appears in PackageInfo under a different name to which it + appears in Packages, the PackageInfo name can be told to us via + metadata #mcName: Example: 'Seaside' is in PackageInfo as 'Seaside2'. + " + (self info mcName ifNil: [ self name ]) ifNotNilDo: [ :mcName | (PackageOrganizer default packageNamed: mcName ifAbsent: [ ^ self ]) + in: [ :pkgInfo | + (pkgInfo respondsTo: #propertyAt:put:) + ifTrue: [ pkgInfo propertyAt: #packages put: self name ]. + ]. - propertyAt: #packages put: self name. ]. !
Item was changed: ----- Method: Packages>>doActionEnd (in category 'as yet unclassified') ----- doActionEnd
self isUnloading ifTrue: [ ^ self ]. self class provided in: [ :reg | self provides do: [ :each | reg at: each put: self ]. ].
"if a package appears in Packages under an obscure name, it can tell the PackageInfo instance what name was used to load it via metadata at mcName" + self addToPackageInfo. - (self info mcName ifNil: [ self name ]) ifNotNilDo: [ :mcName | - (PackageOrganizer default packageNamed: mcName ifAbsent: [ ^ self ]) - propertyAt: #packages put: self name. - ]. !
Item was added: + ----- Method: Packages class>>taskGenerateFiles (in category 'accessors') ----- + taskGenerateFiles + + ^ lastUpdate ifNil: [ lastUpdate := DateAndTime now ] !
packages@lists.squeakfoundation.org