checkClassAndSelector
authorca
Thu, 03 Jul 1997 12:45:29 +0200
changeset 206 1c3fb15ffd62
parent 205 1188254dcbfc
child 207 a31cc933368a
checkClassAndSelector different subclass leads to a warning
UIPainter.st
--- a/UIPainter.st	Thu Jul 03 12:42:26 1997 +0200
+++ b/UIPainter.st	Thu Jul 03 12:45:29 1997 +0200
@@ -1363,8 +1363,9 @@
         ].
 
         (cls isSubclassOf:superclass) ifFalse:[
-            self warn:'a global named ' , specClass , ' exists, but is not a subclass of ' , superclass name , '.'.
-            ^ false.
+            self information:('a global named ' , specClass , ' exists,\' ,
+                              'but is not a subclass of ' , superclass name , '.\\' ,
+                              'Check and try again if that is not what you want.') withCRs.
         ]
     ].