equal
deleted
inserted
replaced
1361 self warn:'no class named ' , specSuperclass , ' exists.'. |
1361 self warn:'no class named ' , specSuperclass , ' exists.'. |
1362 ^ false. |
1362 ^ false. |
1363 ]. |
1363 ]. |
1364 |
1364 |
1365 (cls isSubclassOf:superclass) ifFalse:[ |
1365 (cls isSubclassOf:superclass) ifFalse:[ |
1366 self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'. |
1366 self information:('a global named ' , specClass , ' exists,\' , |
1367 ^ false. |
1367 'but is not a subclass of ' , superclass name , '.\\' , |
|
1368 'Check and try again if that is not what you want.') withCRs. |
1368 ] |
1369 ] |
1369 ]. |
1370 ]. |
1370 |
1371 |
1371 superclass isNil ifTrue:[ |
1372 superclass isNil ifTrue:[ |
1372 cls notNil ifTrue:[ |
1373 cls notNil ifTrue:[ |