--- a/DropObject.st	Fri Mar 05 18:56:19 2004 +0100
+++ b/DropObject.st	Fri Mar 05 20:04:29 2004 +0100
@@ -422,24 +422,23 @@
 !
 
 isPrintable
-    "returns false if file contains nonprintable characters"
-
+    "return false if file contains nonprintable characters"
+    
     |stream buff size|
 
     isPrintable isNil ifTrue:[
         isPrintable := false.
-
-        (info isNil or:[self isDirectory]) ifFalse:[
+        (info isNil or:[ self isDirectory ]) ifFalse:[
             stream := theObject readStreamOrNil.
             stream notNil ifTrue:[
                 buff := String new:300.
                 size := stream nextBytes:300 into:buff.
                 stream close.
-            ].
-            1 to:size do:[:i|
-                (buff at:i) isPrintable ifFalse:[
-                    ^ isPrintable
-                ]
+                1 to:size do:[:i | 
+                    (buff at:i) isPrintable ifFalse:[
+                        ^ false
+                    ]
+                ].
             ].
             isPrintable := true
         ]
@@ -513,5 +512,5 @@
 !DropObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.14 2003-06-12 11:09:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropObject.st,v 1.15 2004-03-05 19:03:49 stefan Exp $'
 ! !

--- a/GIFReader.st	Fri Mar 05 18:56:19 2004 +0100
+++ b/GIFReader.st	Fri Mar 05 20:04:29 2004 +0100
@@ -75,9 +75,9 @@
     "install myself in the Image classes fileFormat table
      for the `.gif' extensions."
 
-    ImageSeparator := $, asciiValue.
-    Extension := $!! asciiValue.
-    Terminator := $; asciiValue.
+    ImageSeparator := $, codePoint.
+    Extension := $!! codePoint.
+    Terminator := $; codePoint.
 
     MIMETypes defineImageType:'image/gif' suffix:'gif' reader:self.
 
@@ -148,7 +148,7 @@
      b ok|
 
     type := aStream nextByte.
-    type == $R asciiValue ifTrue:[
+    type == $R codePoint ifTrue:[
         "/
         "/ Ratio extension
         "/
@@ -978,7 +978,7 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.89 2003-11-19 15:28:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.90 2004-03-05 19:04:17 stefan Exp $'
 ! !
 
 GIFReader initialize!

--- a/XPMReader.st	Fri Mar 05 18:56:19 2004 +0100
+++ b/XPMReader.st	Fri Mar 05 20:04:29 2004 +0100
@@ -224,7 +224,7 @@
             key := s next:charsPerPixel.
             characterTranslation at:key put:colorIndex - 1.
         ] ifFalse:[
-            index := s next asciiValue.
+            index := s next codePoint.
             characterTranslation at:index put:colorIndex - 1.
         ].
 
@@ -447,7 +447,7 @@
             1 to:width do:[:col |
                 key := line at:srcIndex.
                 key ~~ lastKey ifTrue:[
-                    lastXLation := characterTranslation at:key asciiValue.
+                    lastXLation := characterTranslation at:key codePoint.
                     lastKey := key
                 ].
                 data at:dstIndex put:lastXLation.
@@ -634,7 +634,7 @@
 !XPMReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.61 2004-02-12 23:25:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.62 2004-03-05 19:04:29 stefan Exp $'
 ! !
 
 XPMReader initialize!