# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1253101891 -7200
# Node ID 94784c846e1229575c406cca70eba19ced22c0aa
# Parent  799201e55e7ecb39c1b092f01b09a6b203211018
comments

diff -r 799201e55e7e -r 94784c846e12 Integer.st
--- a/Integer.st	Wed Sep 16 13:47:20 2009 +0200
+++ b/Integer.st	Wed Sep 16 13:51:31 2009 +0200
@@ -1141,6 +1141,9 @@
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 & aNumber
+    "return the bitwise-and of the receiver and the argument, anInteger.
+     Same as bitAnd: - added for compatibility with Dolphin Smalltalk"
+    
     ^ self bitAnd:aNumber
 
     "
@@ -1193,16 +1196,26 @@
 !
 
 printStringRadix:aRadix padTo:sz
+    "return a printed representation of the receiver in a given radix,
+     padded with spaces (at the right) up to size.
+     If the printString is longer than size,
+     it is returned unchanged (i.e. not truncated).
+     See also printStringRadix:size:fill:"
+
     ^ self printStringRadix:aRadix size:sz fill:$0
 
     "
-     1024 printStringRadix:16 size:4 fill:$0
-     1024 printStringRadix:2 size:16 fill:$.
-     1024 printStringRadix:16 size:8 fill:(Character space)
+     1024 printStringRadix:16 padTo:4 
+     16rABCD printStringRadix:16 padTo:3 
+     1024 printStringRadix:2 padTo:16 
+     1024 printStringRadix:16 padTo:8 
     "
 !
 
 | aNumber
+    "return the bitwise-or of the receiver and the argument, anInteger.
+     Same as bitOr: - added for compatibility with Dolphin Smalltalk"
+
     ^ self bitOr:aNumber
 
     "
@@ -4195,7 +4208,7 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.225 2009-09-04 08:11:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.226 2009-09-16 11:51:31 cg Exp $'
 ! !
 
 Integer initialize!