FileBrowser.st
changeset 18263 cdd0584fff3a
parent 18027 4be2b1bb3a66
child 18427 f1e576436ad5
--- a/FileBrowser.st	Fri Jul 06 03:31:58 2018 +0000
+++ b/FileBrowser.st	Wed Jul 11 12:05:07 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -5338,7 +5340,7 @@
     |cmd|
 
     (aFilename asFilename hasSuffix:'pdf') ifTrue:[
-        cmd := MIMETypes defaultCommandPerMIME at:'application/pdf' ifAbsent:nil.
+        cmd := MIMETypes defaultCommandTemplateToOpenMimeType:'application/pdf'.
         cmd notNil ifTrue:[
             (OperatingSystem 
                 executeCommand:(cmd bindWith:aFilename with:Screen current displayName) 
@@ -5353,8 +5355,9 @@
     ].
     ^ self imageAction:aFilename
 
-    "Modified: 19.6.1996 / 09:44:07 / cg"
-    "Modified: 18.9.1997 / 17:18:04 / stefan"
+    "Modified: / 19-06-1996 / 09:44:07 / cg"
+    "Modified: / 18-09-1997 / 17:18:04 / stefan"
+    "Modified: / 09-07-2018 / 11:17:20 / Stefan Vogel"
 !
 
 doExecuteCommand:commandArg replace:replace