# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1539125138 -7200
# Node ID bcf56209c667680eb128bc1b933990f979c74f8d
# Parent  45a9485a7d592ced9e62dc691cb4f6b746b3ed85
#REFACTORING by cg
class: Object
changed:
	#inspect
	#inspectorClass

diff -r 45a9485a7d59 -r bcf56209c667 Object.st
--- a/Object.st	Wed Oct 10 00:44:51 2018 +0200
+++ b/Object.st	Wed Oct 10 00:45:38 2018 +0200
@@ -259,8 +259,6 @@
     "Modified: / 4.8.1999 / 08:54:06 / stefan"
 ! !
 
-
-
 !Object class methodsFor:'Compatibility-ST80'!
 
 rootError
@@ -499,7 +497,6 @@
     InfoPrinting := aBoolean
 ! !
 
-
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -523,12 +520,6 @@
 
 
 
-
-
-
-
-
-
 !Object methodsFor:'Compatibility-GNU'!
 
 display
@@ -545,7 +536,6 @@
     self printCR
 ! !
 
-
 !Object methodsFor:'Compatibility-ST80'!
 
 isMetaclass
@@ -630,7 +620,6 @@
     self errorKeyNotFound:aKey.
 ! !
 
-
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1727,8 +1716,6 @@
     "
 ! !
 
-
-
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1873,8 +1860,6 @@
 ! !
 
 
-
-
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -7255,7 +7240,7 @@
     |cls|
 
     Inspector ~~ MiniInspector ifTrue:[
-        cls := Smalltalk classNamed: #'Tools::Inspector2'.
+        cls := #'Tools::Inspector2' asClassIfAbsent:nil.
     ].
     cls isNil ifTrue:[
         cls := self inspectorClass.
@@ -7276,6 +7261,7 @@
     "
 
     "Modified (format): / 29-11-2017 / 10:40:56 / stefan"
+    "Modified: / 10-10-2018 / 00:41:58 / Claus Gittinger"
 !
 
 inspectorClass
@@ -7287,9 +7273,10 @@
     Inspector notNil ifTrue:[
         ^ Inspector.
     ].
-    ^ (Smalltalk classNamed: #'InspectorView')
+    ^ #'InspectorView' asClassIfAbsent:nil
 
     "Modified: / 08-03-2012 / 16:09:38 / cg"
+    "Modified: / 10-10-2018 / 00:42:11 / Claus Gittinger"
 ! !
 
 !Object methodsFor:'object persistency'!
@@ -7376,7 +7363,6 @@
     "
 ! !
 
-
 !Object methodsFor:'printing & storing'!
 
 _errorPrint
@@ -8389,7 +8375,6 @@
     ^ self
 ! !
 
-
 !Object methodsFor:'secure message sending'!
 
 ?:selector
@@ -9052,7 +9037,6 @@
     "Modified: / 30-07-2018 / 09:02:13 / Stefan Vogel"
 ! !
 
-
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -10900,9 +10884,6 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
-
-
-
 !Object class methodsFor:'documentation'!
 
 version