[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