diff -r 76fd22135c81 -r d06a38cd54e9 AbstractFileBrowser.st --- a/AbstractFileBrowser.st Sun Oct 27 10:36:53 2019 +0100 +++ b/AbstractFileBrowser.st Sun Oct 27 19:46:44 2019 +0100 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 2002 by eXept Software AG All Rights Reserved @@ -3008,7 +3006,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 a bitmap and check if there is something...) - "/ For now, write a dot.· + "/ For now, write a dot.· "/ charPrinted := (Character value:(byte + 16r2400)) ]. ]. @@ -3085,7 +3083,7 @@ ] ifFalse:[ f exists ifFalse:[ info := 'oops, "%1" is gone or unreadable.' - ] ifFalse:[ + ] ifTrue:[ f isReadable ifFalse:[ info := '"%1" is unreadable.' ] @@ -9008,7 +9006,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'