Object.st
changeset 21272 f7669b134b8b
parent 21258 24b2aa09c1a2
child 21278 2b9580d3cabc
--- a/Object.st	Mon Jan 23 14:21:39 2017 +0100
+++ b/Object.st	Mon Jan 23 23:48:27 2017 +0100
@@ -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
@@ -517,6 +519,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'Compatibility-Dolphin'!
 
 stbFixup: anSTBInFiler at: newObjectIndex
@@ -680,6 +684,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1776,6 +1782,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1903,6 +1911,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -2083,6 +2093,7 @@
     ^ aBlock ensure:[ self addDependent:someone ]
 ! !
 
+
 !Object methodsFor:'comparing'!
 
 = anObject
@@ -8179,6 +8190,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 ?:selector
@@ -8784,6 +8796,7 @@
     "
 ! !
 
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -10005,13 +10018,6 @@
     ^ false
 !
 
-isSocket
-    "return true, if the receiver is some kind of socket;
-     false returned here - the method is only redefined in Socket."
-
-    ^ false
-!
-
 isSocketAddress
     ^ false
 !
@@ -10523,7 +10529,7 @@
 notify:aString
     "launch a Notifier, telling user something.
      Use #information: for ignorable messages.
-     If nobody handles the exception, the dafault action of UserNotification
+     If nobody handles the exception, the default action of UserNotification
      pops up a warn dialog."
 
 
@@ -10539,7 +10545,8 @@
      self notify:'hello there'
     "
 
-    "Modified: 20.5.1996 / 10:28:48 / cg"
+    "Modified: / 20-05-1996 / 10:28:48 / cg"
+    "Modified (comment): / 23-01-2017 / 16:17:50 / stefan"
 !
 
 warn:aString
@@ -10585,6 +10592,9 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
+
+
+
 !Object class methodsFor:'documentation'!
 
 version