# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1175509010 -7200
# Node ID ecab71364dab1931cf4bdd96b10a1297bc484f61
# Parent  959ce825c3b76c68f79ed683fa4541b5a1f417d1
new: #lessEqFromInteger:

diff -r 959ce825c3b7 -r ecab71364dab Fraction.st
--- 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!