#BUGFIX by stefan
class: AbstractFileBrowser
changed: #lineEndConvention:
fix \"nil asSymbol\"
--- 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'