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

[squeaksource-noreply at iam.unibe.ch]

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

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

Name: Packages-Core-kph.36
Author: kph
Time: 21 May 2008, 12:55:37 pm
UUID: 0076dc5d-7e67-465b-a357-bb1f44b20377
Ancestors: Packages-Core-kph.35

beta falls back to current 

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

Item was added:
+ ----- Method: Packages class>>privateIsDefined: (in category 'private') -----
+ privateIsDefined: packageName
+ 	
+ 	^ self respondsTo: (self asSelector: packageName)!

Item was added:
+ ----- Method: Packages class>>isBeta (in category 'testing') -----
+ isBeta
+ 
+ ^ self name endsWith: 'beta'!

Item was changed:
  ----- Method: Packages class>>basicNamed: (in category 'private') -----
  basicNamed: packageName
  	
+ 	^ ((self isCurrent or: [ self privateIsDefined: packageName ]) ifTrue: [ self  ] ifFalse: [ self current ])
+ 			
+ 				basicNew perform: (self asSelector: packageName); initialize; yourself!
- 	^ self basicNew perform: (self asSelector: packageName); initialize; yourself!

Item was changed:
  ----- Method: Packages class>>current (in category 'public') -----
  current
  
+ 	^  (Smalltalk classNamed: ('Packages' , SystemVersion current version asLegalSelector capitalized) asSymbol)
+ 		
+ 		ifNil: [ Smalltalk classNamed: ('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized) asSymbol ]
+  !
- 	^ Smalltalk classNamed: ('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized) asSymbol!