author | ca |
Thu, 03 Jul 1997 12:45:29 +0200 | |
changeset 206 | 1c3fb15ffd62 |
parent 205 | 1188254dcbfc |
child 207 | a31cc933368a |
UIPainter.st | file | annotate | diff | comparison | revisions |
--- 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. ] ].