equal
deleted
inserted
replaced
1239 self warn:'a global named ' , specClass , ' exists, but is no class.'. |
1239 self warn:'a global named ' , specClass , ' exists, but is no class.'. |
1240 ^ false. |
1240 ^ false. |
1241 ]. |
1241 ]. |
1242 |
1242 |
1243 specSuperclass isBehavior ifFalse:[ |
1243 specSuperclass isBehavior ifFalse:[ |
1244 superclass := Smalltalk at:specSuperclass asSymbol |
1244 specSuperclass isEmpty ifFalse:[ |
|
1245 superclass := Smalltalk at:specSuperclass asSymbol |
|
1246 ] ifTrue:[ |
|
1247 specSuperclass := nil. |
|
1248 ] |
1245 ] ifTrue:[ |
1249 ] ifTrue:[ |
1246 superclass := specSuperclass |
1250 superclass := specSuperclass |
1247 ]. |
1251 ]. |
|
1252 |
1248 specSuperclass notNil ifTrue:[ |
1253 specSuperclass notNil ifTrue:[ |
1249 superclass isNil ifTrue:[ |
1254 superclass isNil ifTrue:[ |
1250 self warn:'no class named ' , specSuperclass , ' exists.'. |
1255 self warn:'no class named ' , specSuperclass , ' exists.'. |
1251 ^ false. |
1256 ^ false. |
1252 ]. |
1257 ]. |
1254 (cls isSubclassOf:superclass) ifFalse:[ |
1259 (cls isSubclassOf:superclass) ifFalse:[ |
1255 self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'. |
1260 self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'. |
1256 ^ false. |
1261 ^ false. |
1257 ] |
1262 ] |
1258 ]. |
1263 ]. |
|
1264 |
|
1265 superclass isNil ifTrue:[ |
|
1266 cls notNil ifTrue:[ |
|
1267 specSuperclass := cls superclass name |
|
1268 ] |
|
1269 ]. |
|
1270 |
1259 ^ true |
1271 ^ true |
1260 |
1272 |
1261 |
1273 "Modified: 25.6.1997 / 13:37:11 / cg" |
1262 ! |
1274 ! |
1263 |
1275 |
1264 defineClassAndSelector |
1276 defineClassAndSelector |
1265 "launch a dialog to define class, superclass and method" |
1277 "launch a dialog to define class, superclass and method" |
1266 |
1278 |