400 classInstanceVariableNames:stringOfClassInstVarNamesOrNil |
400 classInstanceVariableNames:stringOfClassInstVarNamesOrNil |
401 |
401 |
402 className := newName asSymbol. |
402 className := newName asSymbol. |
403 environment := aSystemDictionaryOrClass. |
403 environment := aSystemDictionaryOrClass. |
404 superClass := aClass. |
404 superClass := aClass. |
405 instanceVariableNames := stringOfInstVarNames. |
405 instanceVariableNames := stringOfInstVarNames ? ''. |
406 |
406 |
407 "/ Allowing non-booleans as variableBoolean |
407 "/ Allowing non-booleans as variableBoolean |
408 "/ is a hack for backward (ST-80) compatibility: |
408 "/ is a hack for backward (ST-80) compatibility: |
409 "/ ST-80 code will pass true or false as variableBoolean, |
409 "/ ST-80 code will pass true or false as variableBoolean, |
410 "/ while ST/X also calls it with symbols such as #float, #double etc. |
410 "/ while ST/X also calls it with symbols such as #float, #double etc. |
411 |
411 |
412 flags := self flagsForVariable:variableBoolean pointers:pointersBoolean words:wordsBoolean. |
412 flags := self flagsForVariable:variableBoolean pointers:pointersBoolean words:wordsBoolean. |
413 |
413 |
414 classVariableNames := stringOfClassVarNames. |
414 classVariableNames := stringOfClassVarNames ? ''. |
415 poolDictionaries := stringOfPoolNames. |
415 poolDictionaries := stringOfPoolNames ? ''. |
416 category := categoryString. |
416 category := categoryString. |
417 comment := commentString. |
417 comment := commentString. |
418 changed := changedBoolean. |
418 changed := changedBoolean. |
419 classInstanceVariableNames := stringOfClassInstVarNamesOrNil |
419 classInstanceVariableNames := stringOfClassInstVarNamesOrNil |
420 |
420 |
2369 ! ! |
2369 ! ! |
2370 |
2370 |
2371 !ClassBuilder class methodsFor:'documentation'! |
2371 !ClassBuilder class methodsFor:'documentation'! |
2372 |
2372 |
2373 version |
2373 version |
2374 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.121 2013-04-03 13:45:02 cg Exp $' |
2374 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.122 2013-04-03 13:47:25 cg Exp $' |
2375 ! |
2375 ! |
2376 |
2376 |
2377 version_CVS |
2377 version_CVS |
2378 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.121 2013-04-03 13:45:02 cg Exp $' |
2378 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.122 2013-04-03 13:47:25 cg Exp $' |
2379 ! ! |
2379 ! ! |
2380 |
2380 |
2381 |
2381 |
2382 ClassBuilder initialize! |
2382 ClassBuilder initialize! |