*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 21 Aug 2006 14:57:15 +0200
changeset 9608 9dbec800d20e
parent 9607 3cae5cf71c03
child 9609 71a00a1e6b88
*** empty log message ***
LibraryDefinition.st
--- a/LibraryDefinition.st	Mon Aug 21 14:03:54 2006 +0200
+++ b/LibraryDefinition.st	Mon Aug 21 14:57:15 2006 +0200
@@ -96,7 +96,7 @@
     "the template code for the bc.def file"
 
 ^ 
-'LIBRARY        %(LIBRARY_NAME)
+'LIBRARY         %(LIBRARY_NAME)
 DESCRIPTION     %(DESCRIPTION)
 CODE            PRELOAD MOVEABLE DISCARDABLE
 SEGMENTS
@@ -463,7 +463,7 @@
 
 objectLine_make_dot_spec
 
-^'    %(CLASS).$(O) \'
+^'    %(CLASSFILE).$(O) \'
 
     "Created: / 08-08-2006 / 20:16:46 / fm"
 ! !
@@ -587,7 +587,7 @@
 objectLine_make_dot_spec_mappings: aClassName
 
 ^Dictionary new                                               
-    at: #'CLASS' put: [(Smalltalk classNamed:aClassName) classFilename asFilename withoutSuffix baseName];
+    at: #'CLASSFILE' put: [(Smalltalk classNamed:aClassName) classFilename asFilename withoutSuffix baseName];
     yourself
 
     "Created: / 08-08-2006 / 20:17:28 / fm"
@@ -735,7 +735,6 @@
         putLineForClass := 
             [:eachClass |
                 |mappings newObjectLine|
-
                 mappings := self objectLine_make_dot_spec_mappings: eachClass name.
                 newObjectLine := self replaceMappings: mappings in: self objectLine_make_dot_spec.
                 s nextPutLine:newObjectLine. 
@@ -947,5 +946,5 @@
 !LibraryDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.31 2006-08-21 12:03:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LibraryDefinition.st,v 1.32 2006-08-21 12:57:15 cg Exp $'
 ! !