# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931465050 -7200
# Node ID 97444c115c1411c45126c34ad2b7a34d282f2ea4
# Parent  8dc2fbd25cd1b8c6502ade9117b2bb404a2a4877
oops

diff -r 8dc2fbd25cd1 -r 97444c115c14 UIPainter.st
--- a/UIPainter.st	Thu Jul 08 22:17:11 1999 +0200
+++ b/UIPainter.st	Thu Jul 08 22:17:30 1999 +0200
@@ -3341,31 +3341,36 @@
         self doDefineClassAndSelector isNil ifTrue: [^nil]
     ].
 
-    specClass notNil ifTrue:[
-        (specClass includes:$:) ifFalse:[
-            (ns := Smalltalk defaultNameSpace) notNil ifTrue:[
-                cls := ns at:specClass asSymbol
-            ].
-        ].
-        cls isNil ifTrue:[
-            (specClass startsWith:'Smalltalk::') ifTrue:[
-                cls := Smalltalk at: (specClass copyFrom:12) asSymbol.
-            ] ifFalse:[
-                cls := Smalltalk at: specClass asSymbol.
-            ]
-        ].
-        ns := cls nameSpace.
-    ].
-    cls isClass ifFalse:[   
+    (specClass notNil and: [(cls := Smalltalk at: specClass asSymbol) isClass]) ifFalse:[   
         self warn:('Oops - cannot save - class not found: ' , specClass).
         ^nil
     ].
 
-    ns ~~ Smalltalk defaultNameSpace ifTrue:[
-        specClass := ns name , '::' , cls nameWithoutNameSpacePrefix.
-    ] ifFalse:[
-        specClass := cls name.
-    ].
+"/    specClass notNil ifTrue:[
+"/        (specClass includes:$:) ifFalse:[
+"/            (ns := Smalltalk defaultNameSpace) notNil ifTrue:[
+"/                cls := ns at:specClass asSymbol
+"/            ].
+"/        ].
+"/        cls isNil ifTrue:[
+"/            (specClass startsWith:'Smalltalk::') ifTrue:[
+"/                cls := Smalltalk at: (specClass copyFrom:12) asSymbol.
+"/            ] ifFalse:[
+"/                cls := Smalltalk at: specClass asSymbol.
+"/            ]
+"/        ].
+"/        ns := cls nameSpace.
+"/    ].
+"/    cls isClass ifFalse:[   
+"/        self warn:('Oops - cannot save - class not found: ' , specClass).
+"/        ^nil
+"/    ].
+"/
+"/    ns ~~ Smalltalk defaultNameSpace ifTrue:[
+"/        specClass := ns name , '::' , cls nameWithoutNameSpacePrefix.
+"/    ] ifFalse:[
+"/        specClass := cls name.
+"/    ].
 
     painter := self painter.
     painter