equal
deleted
inserted
replaced
1053 ] ifTrue:[ |
1053 ] ifTrue:[ |
1054 |
1054 |
1055 "/ dont allow built-in classes to be modified |
1055 "/ dont allow built-in classes to be modified |
1056 |
1056 |
1057 (oldClass notNil and:[oldClass isBuiltInClass and:[instVarChange]]) ifTrue:[ |
1057 (oldClass notNil and:[oldClass isBuiltInClass and:[instVarChange]]) ifTrue:[ |
1058 ClassBuildError raiseErrorString:'the layout of this class is fixed - you cannot change it'. |
1058 ClassBuildError raiseErrorString:'The layout of this class is fixed - you cannot change it.'. |
1059 AbortSignal raise |
1059 AbortSignal raise |
1060 ]. |
1060 ]. |
1061 |
1061 |
1062 ((oldInstVars size == 0) |
1062 ((oldInstVars size == 0) |
1063 or:[newInstVars startsWith:oldInstVars]) ifTrue:[ |
1063 or:[newInstVars startsWith:oldInstVars]) ifTrue:[ |
1105 newClass recompileInvalidatedMethods. |
1105 newClass recompileInvalidatedMethods. |
1106 ]. |
1106 ]. |
1107 ]. |
1107 ]. |
1108 ]. |
1108 ]. |
1109 |
1109 |
1110 "Modified: / 30-10-2011 / 12:07:49 / cg" |
1110 "Modified: / 26-07-2012 / 11:34:12 / cg" |
1111 ! |
1111 ! |
1112 |
1112 |
1113 flagsForVariable:variable pointers:pointers words:words |
1113 flagsForVariable:variable pointers:pointers words:words |
1114 "/ Allowing non-booleans as variable is a hack for STX / ST80 compatibility: |
1114 "/ Allowing non-booleans as variable is a hack for STX / ST80 compatibility: |
1115 "/ ST80 code will pass true or false as variableBoolean, |
1115 "/ ST80 code will pass true or false as variableBoolean, |
2375 ! ! |
2375 ! ! |
2376 |
2376 |
2377 !ClassBuilder class methodsFor:'documentation'! |
2377 !ClassBuilder class methodsFor:'documentation'! |
2378 |
2378 |
2379 version |
2379 version |
2380 ^ '$Id: ClassBuilder.st 10843 2012-09-07 12:46:06Z vranyj1 $' |
2380 ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.116 2012/07/26 09:43:46 cg Exp $' |
2381 ! |
2381 ! |
2382 |
2382 |
2383 version_CVS |
2383 version_CVS |
2384 ^ '§Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.114 2012/01/31 13:14:34 cg Exp §' |
2384 ^ '§Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.116 2012/07/26 09:43:46 cg Exp §' |
2385 ! |
2385 ! |
2386 |
2386 |
2387 version_SVN |
2387 version_SVN |
2388 ^ '$Id: ClassBuilder.st 10843 2012-09-07 12:46:06Z vranyj1 $' |
2388 ^ '$Id: ClassBuilder.st 10844 2012-09-07 16:24:32Z vranyj1 $' |
2389 ! ! |
2389 ! ! |
2390 |
2390 |
2391 ClassBuilder initialize! |
2391 ClassBuilder initialize! |