#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Mon, 16 Apr 2018 05:56:48 +0200
changeset 18036 8693f7f542d5
parent 18035 bd6d78114752
child 18037 9e48562729d9
#FEATURE by cg class: AbstractFileBrowser added: #doGotoDocumentsDirectory #doGotoDownloadsDirectory
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Tue Apr 10 16:55:44 2018 +0200
+++ b/AbstractFileBrowser.st	Mon Apr 16 05:56:48 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -2998,7 +3000,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))
                                 ].
                             ].
@@ -5855,6 +5857,14 @@
     self gotoFile:(Filename desktopDirectory).
 !
 
+doGotoDocumentsDirectory
+    self gotoFile:(Filename documentsDirectory).
+!
+
+doGotoDownloadsDirectory
+    self gotoFile:(Filename downloadsDirectory).
+!
+
 doGotoHomeDirectory
     self gotoFile:(Filename homeDirectory).
 !
@@ -8674,7 +8684,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'