--- a/ProjectDefinition.st Mon Oct 23 10:52:31 2006 +0200
+++ b/ProjectDefinition.st Mon Oct 23 11:10:09 2006 +0200
@@ -748,6 +748,9 @@
^ String streamContents:[:s |
|oldSpec|
+ s nextPutLine:'extensionMethodNames'.
+ s nextPutLine:' ^ #('.
+
oldSpec := self extensionMethodNames pairWiseCollect:[:className :selector | className -> selector ].
ignoreOldEntries ifFalse:[
@@ -765,14 +768,11 @@
].
].
- s nextPutLine:'extensionMethodNames'.
- s nextPutLine:' ^ #('.
self searchForExtensions do:[:eachMethod |
|attributes oldSpecEntry mclassName mselector|
mclassName := eachMethod mclass name.
mselector := eachMethod selector.
-
oldSpecEntry := oldSpec detect:[:entry | entry key = mclassName and:[ entry value = mselector]] ifNone:nil.
(ignoreOldEntries or:[ oldSpecEntry isNil]) ifTrue:[
s spaces:8.
@@ -782,14 +782,18 @@
s cr.
]
].
+
s nextPutLine:' )'
].
-"
- self extensionMethodNames_code
-"
+ "
+ self extensionMethodNames_code_ignoreOldEntries:false
+ stx_libtool extensionMethodNames_code_ignoreOldEntries:false
+ stx_libtool extensionMethodNames_code_ignoreOldEntries:true
+ "
"Created: / 10-10-2006 / 22:02:36 / cg"
+ "Modified: / 23-10-2006 / 11:07:29 / cg"
!
forEachContentsMethodsCodeToCompileDo:aTwoArgBlock ignoreOldDefinition:ignoreOldDefinition
@@ -2975,10 +2979,12 @@
self searchForExtensions
DapasXProject searchForExtensions
DapasX_Datenbasis searchForExtensions
+ stx_libtool searchForExtensions
"
"Modified: / 09-08-2006 / 13:01:26 / fm"
"Created: / 17-08-2006 / 21:17:46 / cg"
+ "Modified: / 23-10-2006 / 11:03:07 / cg"
!
searchForExtensionsWithProject:aProjectID
@@ -3373,7 +3379,7 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.99 2006-10-20 14:34:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.100 2006-10-23 09:10:09 cg Exp $'
! !
ProjectDefinition initialize!