ProjectDefinition.st
changeset 10869 e8176ae800f0
parent 10864 512cd79cee0e
child 10872 2c1c439ddab3
equal deleted inserted replaced
10868:0f72216e1c1d 10869:e8176ae800f0
   930         ignoreOldEntries ifFalse:[
   930         ignoreOldEntries ifFalse:[
   931             oldSpec do:[:entry |
   931             oldSpec do:[:entry |
   932                 |mclassName mselector|
   932                 |mclassName mselector|
   933 
   933 
   934                 mclassName := entry key asSymbol.
   934                 mclassName := entry key asSymbol.
       
   935                 (mclassName endsWith:' class') ifTrue:[
       
   936                     mclassName := mclassName asString.
       
   937                 ].
   935                 mselector := entry value asSymbol.
   938                 mselector := entry value asSymbol.
   936 
   939 
   937                 s spaces:8.
   940                 s spaces:8.
   938                 mclassName storeArrayElementOn:s.
   941                 mclassName storeArrayElementOn:s.
   939                 s space.
   942                 s space.
  3954 ! !
  3957 ! !
  3955 
  3958 
  3956 !ProjectDefinition class methodsFor:'documentation'!
  3959 !ProjectDefinition class methodsFor:'documentation'!
  3957 
  3960 
  3958 version
  3961 version
  3959     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.173 2008-02-05 10:26:11 stefan Exp $'
  3962     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.174 2008-02-06 10:22:29 cg Exp $'
  3960 ! !
  3963 ! !
  3961 
  3964 
  3962 ProjectDefinition initialize!
  3965 ProjectDefinition initialize!