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!
packages@lists.squeakfoundation.org