--- a/Fraction.st Mon Apr 02 12:16:02 2007 +0200
+++ b/Fraction.st Mon Apr 02 12:16:50 2007 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Number subclass:#Fraction
@@ -729,6 +728,12 @@
"
!
+lessEqFromInteger:anInteger
+ "sent when an integer does not know how to compare to the receiver, a fraction"
+
+ ^ (denominator * anInteger) <= numerator
+!
+
lessFromFraction:aFraction
"sent when a fraction does not know how to compare to the receiver"
@@ -1098,7 +1103,7 @@
!Fraction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.72 2005-07-08 17:15:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Fraction.st,v 1.73 2007-04-02 10:16:50 stefan Exp $'
! !
Fraction initialize!