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.
comment change
authorClaus Gittinger <cg@exept.de>
Thu, 05 Nov 1998 16:12:17 +0100
changeset 3914 1aa1ab6edb7e
parent 3913 19c1b6007f28
child 3915 e32e63ee0d79
comment change
SmallInt.st file | annotate | diff | comparison | revisions
SmallInteger.st file | annotate | diff | comparison | revisions
UndefObj.st file | annotate | diff | comparison | revisions
UndefinedObject.st file | annotate | diff | comparison | revisions 
--- a/SmallInt.st	Thu Nov 05 15:00:36 1998 +0100
+++ b/SmallInt.st	Thu Nov 05 16:12:17 1998 +0100
@@ -140,9 +140,12 @@
 
 canBeSubclassed
     "return true, if its allowed to create subclasses of the receiver.
-     Return nil here - since it is NOT possible for SmallInteger"
+     Return false here - since it is NOT possible for SmallInteger
+     (due to the tagged representation of SmallIntegers)"
 
     ^ false
+
+    "Modified: / 5.11.1998 / 16:11:27 / cg"
 !
 
 hasImmediateInstances
@@ -2855,5 +2858,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.106 1998-10-31 11:35:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.107 1998-11-05 15:12:17 cg Exp $'
 ! !
--- a/SmallInteger.st	Thu Nov 05 15:00:36 1998 +0100
+++ b/SmallInteger.st	Thu Nov 05 16:12:17 1998 +0100
@@ -140,9 +140,12 @@
 
 canBeSubclassed
     "return true, if its allowed to create subclasses of the receiver.
-     Return nil here - since it is NOT possible for SmallInteger"
+     Return false here - since it is NOT possible for SmallInteger
+     (due to the tagged representation of SmallIntegers)"
 
     ^ false
+
+    "Modified: / 5.11.1998 / 16:11:27 / cg"
 !
 
 hasImmediateInstances
@@ -2855,5 +2858,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.106 1998-10-31 11:35:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.107 1998-11-05 15:12:17 cg Exp $'
 ! !
--- a/UndefObj.st	Thu Nov 05 15:00:36 1998 +0100
+++ b/UndefObj.st	Thu Nov 05 16:12:17 1998 +0100
@@ -111,9 +111,12 @@
 
 canBeSubclassed
     "return true, if its allowed to create subclasses of the receiver.
-     Return nil here - since it is NOT possible for UndefinedObject"
+     Return false here - since it is NOT possible for UndefinedObject.
+     (due to the representation of nil as a 0-pointer)"
 
     ^ false
+
+    "Modified: / 5.11.1998 / 16:11:43 / cg"
 !
 
 hasImmediateInstances
@@ -511,6 +514,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.36 1998-05-19 15:42:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/UndefObj.st,v 1.37 1998-11-05 15:11:55 cg Exp $'
 ! !
 UndefinedObject initialize!
--- a/UndefinedObject.st	Thu Nov 05 15:00:36 1998 +0100
+++ b/UndefinedObject.st	Thu Nov 05 16:12:17 1998 +0100
@@ -111,9 +111,12 @@
 
 canBeSubclassed
     "return true, if its allowed to create subclasses of the receiver.
-     Return nil here - since it is NOT possible for UndefinedObject"
+     Return false here - since it is NOT possible for UndefinedObject.
+     (due to the representation of nil as a 0-pointer)"
 
     ^ false
+
+    "Modified: / 5.11.1998 / 16:11:43 / cg"
 !
 
 hasImmediateInstances
@@ -511,6 +514,6 @@
 !UndefinedObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.36 1998-05-19 15:42:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/UndefinedObject.st,v 1.37 1998-11-05 15:11:55 cg Exp $'
 ! !
 UndefinedObject initialize!
hg/stx-libbasic