[Pkg] Packages: Sake-Packages-test.11.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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