--- 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