AbstractFileBrowser.st
branchjv
changeset 18532 cccb41254edf
parent 17379 028adf14bc05
--- a/AbstractFileBrowser.st	Thu Oct 11 14:14:49 2018 +0200
+++ b/AbstractFileBrowser.st	Wed Nov 14 11:58:00 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2885,7 +2887,7 @@
                                 "/ are perfect here, but usually not available in the font
                                 "/ and we have currently no way of knowing if they are...
                                 "/ (could let the font draw into abitmap and check if there is something...)
-                                "/ therefore, for now, write a dot.·
+                                "/ therefore, for now, write a dot.·
                                 "/ asciiLineStream nextPut:(Character value:(byte + 16r2400))
                                 asciiLineStream nextPut:replacementForUnprintable.
                             ] ifFalse:[
@@ -8391,7 +8393,7 @@
             ] ifFalse:[sig == HaltInterrupt ifTrue:[ |sender|
                 label := msg := 'Breakpoint/Halt in fileIn'.
                 sender := ex suspendedContext.
-                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
+                msg := msg , ('\\in %1 » %2' bindWith:(sender receiver class name) with:(sender sender selector))
             ] ifFalse:[
                 label := 'Error in fileIn'.
                 msg := 'error in fileIn: %1'