equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
499 oldVal := nonMetaClass classVarAt:eachVariableName. |
501 oldVal := nonMetaClass classVarAt:eachVariableName. |
500 oldVal notNil ifTrue:[ val := oldVal numericValue ]. |
502 oldVal notNil ifTrue:[ val := oldVal numericValue ]. |
501 (val ? maxSoFar) max:maxSoFar |
503 (val ? maxSoFar) max:maxSoFar |
502 ]. |
504 ]. |
503 |
505 |
504 initCode := WriteStream on: String new. |
506 initCode := WriteStream on:''. |
505 initCode nextPutLine:'initialize'. |
507 initCode nextPutLine:'initialize'. |
506 runValue := maxValue + 1. |
508 runValue := maxValue + 1. |
507 enumValues keysAndValuesDo:[:idx :eachVariableName | |
509 enumValues keysAndValuesDo:[:idx :eachVariableName | |
508 |oldValue thisValue| |
510 |oldValue thisValue| |
509 |
511 |
794 metaClass := aClass theMetaclass. |
796 metaClass := aClass theMetaclass. |
795 className := nonMetaClass name. |
797 className := nonMetaClass name. |
796 |
798 |
797 poolVars := nonMetaClass classVarNames. |
799 poolVars := nonMetaClass classVarNames. |
798 |
800 |
799 initCode := WriteStream on: String new. |
801 initCode := WriteStream on:''. |
800 initCode nextPutLine:'initialize'. |
802 initCode nextPutLine:'initialize'. |
801 |
803 |
802 poolVars do:[:eachVariableName | |
804 poolVars do:[:eachVariableName | |
803 |oldValue thisValue| |
805 |oldValue thisValue| |
804 |
806 |