Integer.st
changeset 12978 6899c32d29a9
parent 12976 a12aab15ce5a
child 13021 1cbf4cdfc288
equal deleted inserted replaced
12977:fbf5437b15fb 12978:6899c32d29a9
  1137      Abstract subclasses must redefine again."
  1137      Abstract subclasses must redefine again."
  1138 
  1138 
  1139     ^ self == Integer
  1139     ^ self == Integer
  1140 ! !
  1140 ! !
  1141 
  1141 
  1142 
       
  1143 !Integer methodsFor:'Compatibility-Dolphin'!
  1142 !Integer methodsFor:'Compatibility-Dolphin'!
  1144 
  1143 
  1145 & aNumber
  1144 & aNumber
  1146     "return the bitwise-and of the receiver and the argument, anInteger.
  1145     "return the bitwise-and of the receiver and the argument, anInteger.
  1147      Same as bitAnd: - added for compatibility with Dolphin Smalltalk"
  1146      Same as bitAnd: - added for compatibility with Dolphin Smalltalk"
  2399 	 20000000000000 hash
  2398 	 20000000000000 hash
  2400     "
  2399     "
  2401 
  2400 
  2402     "Created: / 14.11.1996 / 12:12:27 / cg"
  2401     "Created: / 14.11.1996 / 12:12:27 / cg"
  2403     "Modified: / 24.2.1998 / 10:07:29 / stefan"
  2402     "Modified: / 24.2.1998 / 10:07:29 / stefan"
       
  2403 ! !
       
  2404 
       
  2405 !Integer methodsFor:'dependents access'!
       
  2406 
       
  2407 addDependent:anObject
       
  2408     Transcript show:'*** trying to make dependent on an integer: '.
       
  2409     thisContext sender printOn:Transcript. Transcript cr.
       
  2410 
       
  2411     "Created: / 28-07-2010 / 20:29:00 / cg"
  2404 ! !
  2412 ! !
  2405 
  2413 
  2406 !Integer methodsFor:'double dispatching'!
  2414 !Integer methodsFor:'double dispatching'!
  2407 
  2415 
  2408 differenceFromFraction:aFraction
  2416 differenceFromFraction:aFraction
  3919     "
  3927     "
  3920 
  3928 
  3921     "Modified: 15.10.1997 / 18:43:49 / cg"
  3929     "Modified: 15.10.1997 / 18:43:49 / cg"
  3922 ! !
  3930 ! !
  3923 
  3931 
  3924 
       
  3925 !Integer methodsFor:'special access'!
  3932 !Integer methodsFor:'special access'!
  3926 
  3933 
  3927 exponent
  3934 exponent
  3928     "return what would be the normalized float's exponent if I were a float.
  3935     "return what would be the normalized float's exponent if I were a float.
  3929      This is not for general use - it has been added for dolphin (soap) compatibility.
  3936      This is not for general use - it has been added for dolphin (soap) compatibility.
  4698 ! !
  4705 ! !
  4699 
  4706 
  4700 !Integer class methodsFor:'documentation'!
  4707 !Integer class methodsFor:'documentation'!
  4701 
  4708 
  4702 version
  4709 version
  4703     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.247 2010-08-02 10:24:37 cg Exp $'
  4710     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.248 2010-08-02 10:34:20 cg Exp $'
  4704 !
  4711 !
  4705 
  4712 
  4706 version_CVS
  4713 version_CVS
  4707     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.247 2010-08-02 10:24:37 cg Exp $'
  4714     ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.248 2010-08-02 10:34:20 cg Exp $'
  4708 ! !
  4715 ! !
  4709 
  4716 
  4710 Integer initialize!
  4717 Integer initialize!