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