[Pkg] Sake : Sake-Core-kph.66.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Wed Nov 12 04:34:55 UTC 2008


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

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

Name: Sake-Core-kph.66
Author: kph
Time: 12 November 2008, 4:34:52 am
UUID: 07b580b0-d6ef-4c51-95f7-945386041897
Ancestors: Sake-Core-kph.65

fix log problem

=============== Diff against Sake-Core-kph.65 ===============

Item was added:
+ ----- Method: SakeClassTask class>>class:subclass: (in category 'as yet unclassified') -----
+ class: aClassName subclass: bClassName
+ 
+ 	^ (self class: aClassName) subclass: bClassName!

Item was changed:
  ----- Method: SakeTask>>log: (in category 'as yet unclassified') -----
  log: aString
   
+ 	(self respondsTo: #log) ifFalse: [ ^ self ].
+ 	
  	self log sake << aString printString << ' ' <<< self context method selector!

Item was added:
+ ----- Method: SakeClassTask>>subclass: (in category 'accessing') -----
+ subclass: bClassName  
+ 
+ 	^ self subclass: bClassName category: nil ; defined!

Item was added:
+ ----- Method: SakeClassTask>>subclass:category: (in category 'accessing') -----
+ subclass: bClassName category: aCat
+ 
+ 	^ self define: [ :task |
+ 
+ 			task dependsOn: { (SakeClassTask nonMeta: theClassName)  }.
+ 
+ 			task if: [ (Smalltalk classNamed: bClassName) isNil ].
+ 
+ 			task action: [ 
+ 			
+ 				task theClass subclass: bClassName asSymbol
+ 					instanceVariableNames: ''
+ 					classVariableNames: ''
+ 					poolDictionaries: ''
+ 					category: (aCat ifNil: [ task theClass category ]). 
+ 			]
+ 	] !

Item was removed:
- ----- Method: SakeClassTask>>ensureSubclass:category: (in category 'accessing') -----
- ensureSubclass: bClassName category: aCat
- 
- 	^ self define: [ :task |
- 
- 			task dependsOn: { (SakeClassTask nonMeta: theClassName)  }.
- 
- 			task if: [ (Smalltalk classNamed: bClassName) isNil ].
- 
- 			task action: [ 
- 			
- 				task theClass subclass: bClassName asSymbol
- 					instanceVariableNames: ''
- 					classVariableNames: ''
- 					poolDictionaries: ''
- 					category: (aCat ifNil: [ task theClass category ]). 
- 			]
- 	] !

Item was removed:
- ----- Method: SakeClassTask>>ensureSubclass: (in category 'accessing') -----
- ensureSubclass: bClassName  
- 
- 	^ self ensureSubclass: bClassName category: nil ; defined!

Item was removed:
- ----- Method: SakeClassTask class>>class:ensureSubclass: (in category 'as yet unclassified') -----
- class: aClassName ensureSubclass: bClassName
- 
- 	^ (self class: aClassName) ensureSubclass: bClassName!



More information about the Packages mailing list