Integer.st
changeset 6639 d88a51b081ae
parent 6635 3b5525d83d5d
child 6640 2de8925ad2cd
equal deleted inserted replaced
6638:7523142a1152 6639:d88a51b081ae
  1482 
  1482 
  1483 asFixedPoint:scale
  1483 asFixedPoint:scale
  1484     "return the receiver as fixedPoint number, with the given number
  1484     "return the receiver as fixedPoint number, with the given number
  1485      of post-decimal-point digits."
  1485      of post-decimal-point digits."
  1486 
  1486 
  1487     ^ FixedPoint numerator:self denominator:1 scale:scale
  1487     ^ FixedPoint basicNew
       
  1488         setNumerator:self denominator:1 scale:scale
  1488 
  1489 
  1489     "
  1490     "
  1490      100 asFixedPoint:2      
  1491      100 asFixedPoint:2      
  1491      100 asFixedPoint + (0.1 asFixedPoint:2)    
  1492      100 asFixedPoint + (0.1 asFixedPoint:2)    
  1492     "
  1493     "
  2967 ! !
  2968 ! !
  2968 
  2969 
  2969 !Integer class methodsFor:'documentation'!
  2970 !Integer class methodsFor:'documentation'!
  2970 
  2971 
  2971 version
  2972 version
  2972     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.147 2002-07-16 12:48:43 cg Exp $'
  2973     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.148 2002-07-16 13:21:18 cg Exp $'
  2973 ! !
  2974 ! !
  2974 Integer initialize!
  2975 Integer initialize!