# HG changeset patch
# User ca
# Date 867926729 -7200
# Node ID 1c3fb15ffd62244efe3956f19cf7572d9be33bdb
# Parent  1188254dcbfc9b0a97c5e93f450e035dc6810c6c
checkClassAndSelector
    different subclass leads to a warning

diff -r 1188254dcbfc -r 1c3fb15ffd62 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.
         ]
     ].