extensionlist generator was buggy
authorClaus Gittinger <cg@exept.de>
Mon, 23 Oct 2006 11:10:09 +0200
changeset 10106 c26879b72dfe
parent 10105 092d290344cc
child 10107 1f6b0d1dc78e
extensionlist generator was buggy
ProjectDefinition.st
--- 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!