--- a/Fraction.st	Wed Apr 17 12:32:29 1996 +0200
+++ b/Fraction.st	Wed Apr 17 12:43:09 1996 +0200
@@ -11,10 +11,10 @@
 "
 
 Number subclass:#Fraction
-	 instanceVariableNames:'numerator denominator'
-	 classVariableNames:'FractionOne FractionZero'
-	 poolDictionaries:''
-	 category:'Magnitude-Numbers'
+	instanceVariableNames:'numerator denominator'
+	classVariableNames:'FractionOne FractionZero'
+	poolDictionaries:''
+	category:'Magnitude-Numbers'
 !
 
 !Fraction class methodsFor:'documentation'!
@@ -268,6 +268,14 @@
     ^ self asInteger asLargeInteger
 !
 
+asShortFloat
+    "return a shortFloat with (approximately) my value"
+
+    ^ (numerator asShortFloat) / (denominator asShortFloat)
+
+    "Created: 17.4.1996 / 12:21:08 / cg"
+!
+
 coerce:aNumber
     "return aNumber converted into receivers type"
 
@@ -470,6 +478,6 @@
 !Fraction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.27 1996-04-02 22:01:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.28 1996-04-17 10:43:09 cg Exp $'
 ! !
 Fraction initialize!