[Pkg] Packages: Sake-Packages-damiencassou.4.mcz

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

Damien Cassou uploaded a new version of Sake-Packages to project Packages:
http://www.squeaksource.com/Packages/Sake-Packages-damiencassou.4.mcz

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

Name: Sake-Packages-damiencassou.4
Author: damiencassou
Time: 11 December 2008, 2:40:29 pm
UUID: e1ba0d1c-8bab-4005-8c71-c8706438dd6f
Ancestors: Sake-Packages-kph.3

- Method categorization
- A small comment

=============== Diff against Sake-Packages-kph.3 ===============

Item was changed:
+ ----- Method: Packages>>isUnloading (in category 'testing') -----
- ----- Method: Packages>>isUnloading (in category 'as yet unclassified') -----
  isUnloading
  
  	^ isUnload = true!

Item was changed:
+ ----- Method: Packages>>provides (in category 'accessing') -----
- ----- Method: Packages>>provides (in category 'as yet unclassified') -----
  provides
  
  	provides ifNil: [ provides := #() ].	
  		
  	(provides includes: self name) ifFalse: [ provides := provides copyWith: self name ].
  
  	^ provides!

Item was changed:
+ ----- Method: Packages>>defaultUnloadAction (in category 'defaults') -----
- ----- Method: Packages>>defaultUnloadAction (in category 'as yet unclassified') -----
  defaultUnloadAction
  
  	self info url ifNotNil: [ Installer mc unload: self name ]!

Item was changed:
+ ----- Method: Packages>>version: (in category 'accessing') -----
- ----- Method: Packages>>version: (in category 'as yet unclassified') -----
  version: aPackageVersion
  
  	"the method which versions us is our context"
  	self setContext: thisContext sender.
   
  	self info version: aPackageVersion.
  	version := aPackageVersion.!

Item was changed:
+ ----- Method: Packages>>name (in category 'accessing') -----
- ----- Method: Packages>>name (in category 'as yet unclassified') -----
  name
  
  	^ name ifNil: [ 'No Name' ]!

Item was changed:
+ ----- Method: Packages>>unload (in category 'accessing') -----
- ----- Method: Packages>>unload (in category 'as yet unclassified') -----
  unload
  
  	^ self copy beUnloading !

Item was changed:
+ ----- Method: Packages>>unload: (in category 'accessing') -----
- ----- Method: Packages>>unload: (in category 'as yet unclassified') -----
  unload: aBlock
  
  	unloadBlock := aBlock!

Item was changed:
+ ----- Method: Packages>>hash (in category 'comparing') -----
- ----- Method: Packages>>hash (in category 'as yet unclassified') -----
  hash
+ 	^ super hash bitXor: self version hash!
- ^ super hash bitXor: self version hash!

Item was changed:
+ ----- Method: Packages>>defaultAction (in category 'defaults') -----
- ----- Method: Packages>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  
  	^ [ self info url ifNotNilDo: [ :url | Installer installUrl: url ] ]!

Item was changed:
+ ----- Method: Packages>>isNeeded (in category 'testing') -----
- ----- Method: Packages>>isNeeded (in category 'as yet unclassified') -----
  isNeeded
  
  	self isAlreadyProvided ifTrue: [ ^ false ].
  
  	^ super isNeeded!

Item was changed:
+ ----- Method: Packages>>= (in category 'comparing') -----
- ----- Method: Packages>>= (in category 'as yet unclassified') -----
  = other 
  
  ^ (super = other) and: [ self version = other version ]
  !

Item was changed:
+ ----- Method: Packages>>load: (in category 'initialize') -----
- ----- Method: Packages>>load: (in category 'as yet unclassified') -----
  load: aBlock
  
  	self action: aBlock!

Item was changed:
+ ----- Method: Packages>>provides: (in category 'accessing') -----
- ----- Method: Packages>>provides: (in category 'as yet unclassified') -----
  provides: list
  
  	provides := list.
  	(list includes: self name) ifFalse: [ provides := provides copyWith: self name ].
  !

Item was changed:
+ ----- Method: Packages>>version (in category 'accessing') -----
- ----- Method: Packages>>version (in category 'as yet unclassified') -----
  version
  	^ version!

Item was changed:
+ ----- Method: Packages>>isAlreadyProvided (in category 'testing') -----
- ----- Method: Packages>>isAlreadyProvided (in category 'as yet unclassified') -----
  isAlreadyProvided
  
+ 	(self version includes: '+') ifTrue: [ ^ false ]. "means the package has been loaded without specifying any fixed version"
- 	(self version includes: '+') ifTrue: [ ^ false ].
  
  	^ (self class provided at: self name ifAbsent: [ ^ false ]) version = self version
  
  !

Item was changed:
+ ----- Method: Packages>>action (in category 'accessing') -----
- ----- Method: Packages>>action (in category 'as yet unclassified') -----
  action
  
  	^ self isUnloading 
  		ifTrue: [ unloadBlock ifNil: [ [ self defaultUnloadAction ] ] ]
  		ifFalse: [ super action ].!

Item was changed:
+ ----- Method: Packages>>name: (in category 'accessing') -----
- ----- Method: Packages>>name: (in category 'as yet unclassified') -----
  name: aPackageName
  
  	"the method which names us is our context"
  	self setContext: thisContext sender.
  	name := aPackageName.
  	self info name: aPackageName.!