diff -r feee33f3541f -r 700de064774c AbstractFileBrowser.st --- a/AbstractFileBrowser.st Fri May 24 09:03:19 2019 +0200 +++ b/AbstractFileBrowser.st Sun May 26 02:28:17 2019 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 2002 by eXept Software AG All Rights Reserved @@ -2397,6 +2395,7 @@ enabled: hasFileSelection label: 'Changes Browser' itemValue: openChangesBrowser + labelImage: (ResourceRetriever ToolbarIconLibrary changesBrowser16x16Icon 'Changes Browser') ) (MenuItem enabled: hasFileSelection @@ -3035,7 +3034,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)) ]. ]. @@ -8860,7 +8859,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'