#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Tue, 13 Nov 2018 15:42:37 +0100
changeset 18525 de9b7b5fc8ba
parent 18524 d12348dd1014
child 18526 eee03612c7d2
#BUGFIX by stefan class: AbstractFileBrowser changed: #lineEndConvention: fix \"nil asSymbol\"
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Mon Nov 12 19:01:03 2018 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 13 15:42:37 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -3018,7 +3016,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))
                                 ].
                             ].
@@ -4103,9 +4101,10 @@
 !
 
 lineEndConvention: aSymbol
-    self lineEndConventionHolder value: aSymbol asSymbol
+    self lineEndConventionHolder value:(aSymbol ifNotNil:[aSymbol asSymbol])
 
     "Created: / 11-07-2012 / 19:51:58 / cg"
+    "Modified: / 13-11-2018 / 11:13:41 / Stefan Vogel"
 !
 
 lineEndConventionHolder
@@ -8827,7 +8826,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'