1234 "set the classes filename. |
1234 "set the classes filename. |
1235 This is a dangerous (low level) operation, |
1235 This is a dangerous (low level) operation, |
1236 since the comment and primitiveSpecs may no longer be accessable, |
1236 since the comment and primitiveSpecs may no longer be accessable, |
1237 if a wrong filename is set here." |
1237 if a wrong filename is set here." |
1238 |
1238 |
|
1239 "/ cg: somewhere, the filename is set from a temporary (checkout) files name. |
|
1240 "/ we MUST catch and FIX this. |
|
1241 (aFilename asFilename baseName startsWith:'st') ifTrue:[ |
|
1242 (aFilename asFilename baseName at:3) isDigit ifTrue:[ |
|
1243 self halt |
|
1244 ]. |
|
1245 ]. |
1239 classFilename := aFilename |
1246 classFilename := aFilename |
1240 |
1247 |
1241 "Modified: / 08-09-1995 / 14:16:48 / claus" |
1248 "Modified: / 08-09-1995 / 14:16:48 / claus" |
1242 "Modified: / 06-10-2006 / 13:32:52 / cg" |
1249 "Modified: / 25-10-2006 / 13:33:05 / cg" |
1243 ! |
1250 ! |
1244 |
1251 |
1245 setClassVariableString:aString |
1252 setClassVariableString:aString |
1246 "set the classes classvarnames string. |
1253 "set the classes classvarnames string. |
1247 This is a dangerous (low level) operation, since the |
1254 This is a dangerous (low level) operation, since the |