equal
deleted
inserted
replaced
3845 |
3845 |
3846 "Created: / 13-06-2017 / 03:01:19 / cg" |
3846 "Created: / 13-06-2017 / 03:01:19 / cg" |
3847 "Modified: / 13-06-2017 / 18:01:52 / cg" |
3847 "Modified: / 13-06-2017 / 18:01:52 / cg" |
3848 ! |
3848 ! |
3849 |
3849 |
|
3850 lessFromFloat:aFloat |
|
3851 |d0| |
|
3852 |
|
3853 ^ ((d0 := self d0) > aFloat) |
|
3854 or:[ d0 = aFloat and:[ self d1 > 0.0 ]] |
|
3855 |
|
3856 " |
|
3857 1.0 < (1.0 asQDouble) |
|
3858 1.0 < (1.1 asQDouble) |
|
3859 -1.0 < (-1.1 asQDouble) |
|
3860 -1.1 < (-1.0 asQDouble) |
|
3861 " |
|
3862 ! |
|
3863 |
3850 lessFromQDouble:aQDouble |
3864 lessFromQDouble:aQDouble |
3851 "sent when aQDouble does not know how to compare to the receiver.. |
3865 "sent when aQDouble does not know how to compare to the receiver.. |
3852 Return true if aQDouble < self" |
3866 Return true if aQDouble < self" |
3853 |
3867 |
3854 %{ |
3868 %{ |