[Pkg] Packages: Packages-Core-kph.38.mcz

squeaksource-noreply at iam.unibe.ch squeaksource-noreply at iam.unibe.ch
Mon May 26 11:05:49 UTC 2008


A new version of Packages-Core was added to project Packages:
http://www.squeaksource.com/Packages/Packages-Core-kph.38.mcz

==================== Summary ====================

Name: Packages-Core-kph.38
Author: kph
Time: 26 May 2008, 12:05:47 pm
UUID: df377dae-dd1a-4729-bf81-2435e4359299
Ancestors: Packages-Core-kph.37

removing old packages works.
only update package definitions which have changed

=============== Diff against Packages-Core-kph.37 ===============

Item was changed:
  ----- Method: Packages class>>taskRemoveOldPackages (in category 'tasks - universes') -----
  taskRemoveOldPackages
   
  ^ SakeTask define: [ :task | 
  
  	task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. }.
  		
  	task action: [ 
  		(self selectors difference: 
+ 			(self theUUniverse packageNames collect: [ :each | self asSelector: each ]))
- 			(self theUUniverse packageNames collect: [ :each | self asSelector: each name ]))
  			do: [ :old | self removeSelector: old ]
  	].	
    ]!

Item was changed:
  ----- Method: Packages class>>asSelector: (in category 'utils') -----
  asSelector: aName
  	| toUse |
+  
  	toUse := ''.
  	aName do:
  		[:char | char isAlphaNumeric ifTrue: [toUse := toUse copyWith: char]].
  	(aName size == 0 or: [aName first isLetter not])
  		ifTrue:		[toUse := 'v', toUse].
  
  	^ toUse asSymbol 
   !



More information about the Packages mailing list