Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#DOCUMENTATION by stefan
authorStefan Vogel <sv@exept.de>
Fri, 02 Aug 2019 10:06:44 +0200
changeset 24505 d6fd2fc59509
parent 24504 a3b2ffb4a2d5
child 24506 11ffd16e28a4
#DOCUMENTATION by stefan class: Behavior comment/format in: #readFrom:onError:
Behavior.st file | annotate | diff | comparison | revisions 
--- a/Behavior.st	Thu Aug 01 11:39:41 2019 +0200
+++ b/Behavior.st	Fri Aug 02 10:06:44 2019 +0200
@@ -3033,8 +3033,10 @@
         |newObject|
 
         newObject := self evaluatorClass evaluateFrom:aStream ifFail:[^ exceptionBlock value].
-        "ProtoObjects do not inherit from Obejct. Take care when restoring them"
-        ((newObject class == self) or:[(newObject isKindOf:self) or:[self == Object and:[newObject isProtoObject]]])
+        "ProtoObjects do not inherit from Object. Take care when restoring them"
+        ((newObject class == self) 
+         or:[(newObject isKindOf:self) 
+         or:[self == Object and:[newObject isProtoObject]]])
             ifTrue:[newObject]
             ifFalse:[exceptionBlock value].
     ] on:Error do:exceptionBlock.
@@ -3064,7 +3066,7 @@
     "Modified: / 16-02-2017 / 21:26:38 / stefan"
     "Modified: / 28-07-2017 / 18:58:13 / cg"
     "Modified: / 05-06-2018 / 12:11:48 / Stefan Vogel"
-    "Modified (comment): / 07-01-2019 / 17:36:46 / Stefan Vogel"
+    "Modified (format): / 01-08-2019 / 18:02:49 / Stefan Vogel"
 !
 
 readFromString:aString
hg/stx-libbasic