--- a/AbstractFileBrowser.st Wed Feb 19 21:05:43 2020 +0100
+++ b/AbstractFileBrowser.st Wed Feb 19 21:06:21 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -3006,7 +3008,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))
].
].
@@ -5884,13 +5886,13 @@
bookmarks notEmptyOrNil ifTrue:[
menu addSeparator.
bookmarks do:[:dirName |
- menu addItem:(MenuItem
- label:dirName asString
- itemValue:[
- (self currentSelectedDirectories includes:dirName) ifFalse:[
- self setCurrentFileName:dirName.
- ].
- ]).
+ menu
+ addItemLabel:dirName asString
+ value:[
+ (self currentSelectedDirectories includes:dirName) ifFalse:[
+ self setCurrentFileName:dirName.
+ ].
+ ].
].
].
menu findGuiResourcesIn:self.
@@ -6073,11 +6075,9 @@
menu := Menu new.
histCopy do:[:aFile|
- menu addItem:(MenuItem
- label:aFile asString
- itemValue:[
- self setCurrentFileName:(aFile path asFilename).
- ]).
+ menu
+ addItemLabel:aFile asString
+ value:[ self setCurrentFileName:(aFile path asFilename) ].
].
menu addSeparator.
@@ -9166,7 +9166,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'