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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 26 Nov 2002 12:41:38 +0100
changeset 6898 d0182256f3ff
parent 6897 7282c0dc54d3
child 6899 9ed8494c9f10
*** empty log message ***
FixedPoint.st file | annotate | diff | comparison | revisions
Float.st file | annotate | diff | comparison | revisions
LongFloat.st file | annotate | diff | comparison | revisions
ShortFloat.st file | annotate | diff | comparison | revisions 
--- a/FixedPoint.st	Tue Nov 26 12:13:50 2002 +0100
+++ b/FixedPoint.st	Tue Nov 26 12:41:38 2002 +0100
@@ -265,6 +265,12 @@
     "
 ! !
 
+!FixedPoint class methodsFor:'queries'!
+
+exponentCharacter
+    ^ $s
+! !
+
 
 !FixedPoint methodsFor:'accessing'!
 
@@ -966,5 +972,5 @@
 !FixedPoint class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.24 2002-11-26 11:13:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FixedPoint.st,v 1.25 2002-11-26 11:41:07 cg Exp $'
 ! !
--- a/Float.st	Tue Nov 26 12:13:50 2002 +0100
+++ b/Float.st	Tue Nov 26 12:41:38 2002 +0100
@@ -565,6 +565,10 @@
 
 !Float class methodsFor:'queries'!
 
+exponentCharacter
+    ^ $d
+!
+
 hasSharedInstances
     "return true if this class has shared instances, that is, instances
      with the same value are identical.
@@ -2275,7 +2279,7 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.128 2002-11-26 09:33:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.129 2002-11-26 11:41:23 cg Exp $'
 ! !
 
 Float initialize!
--- a/LongFloat.st	Tue Nov 26 12:13:50 2002 +0100
+++ b/LongFloat.st	Tue Nov 26 12:41:38 2002 +0100
@@ -250,6 +250,10 @@
 
 !LongFloat class methodsFor:'queries'!
 
+exponentCharacter
+    ^ $q
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -1030,5 +1034,5 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.19 2002-06-11 21:42:53 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.20 2002-11-26 11:41:32 cg Exp $'
 ! !
--- a/ShortFloat.st	Tue Nov 26 12:13:50 2002 +0100
+++ b/ShortFloat.st	Tue Nov 26 12:41:38 2002 +0100
@@ -296,6 +296,10 @@
 
 !ShortFloat class methodsFor:'queries'!
 
+exponentCharacter
+    ^ $e
+!
+
 isBuiltInClass
     "return true if this class is known by the run-time-system.
      Here, true is returned for myself, false for subclasses."
@@ -1081,5 +1085,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.68 2002-11-26 09:34:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.69 2002-11-26 11:41:38 cg Exp $'
 ! !
hg/stx-libbasic