#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Mon, 17 Jul 2017 17:50:51 +0200
changeset 22053 3309b9812005
parent 22052 1f0b557bdb3f
child 22054 bb2019124bed
#FEATURE by cg class: Object
Object.st
--- a/Object.st	Mon Jul 17 17:45:11 2017 +0200
+++ b/Object.st	Mon Jul 17 17:50:51 2017 +0200
@@ -257,6 +257,7 @@
     "Modified: / 4.8.1999 / 08:54:06 / stefan"
 ! !
 
+
 !Object class methodsFor:'Compatibility-ST80'!
 
 rootError
@@ -495,6 +496,7 @@
     InfoPrinting := aBoolean
 ! !
 
+
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -518,6 +520,8 @@
 
 
 
+
+
 !Object methodsFor:'Compatibility-GNU'!
 
 display
@@ -618,6 +622,7 @@
     self errorKeyNotFound:aKey.
 ! !
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1714,6 +1719,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1857,6 +1864,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -2037,6 +2046,7 @@
     ^ aBlock ensure:[ self addDependent:someone ]
 ! !
 
+
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -8146,6 +8156,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 ?:selector
@@ -8804,6 +8815,7 @@
     "Created: / 13-07-2017 / 18:12:34 / cg"
 ! !
 
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -10623,6 +10635,9 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
+
+
+
 !Object class methodsFor:'documentation'!
 
 version