FileBrowser.st
changeset 3654 1d79289e693c
parent 3637 f8743805a6f0
child 3658 e657f7962286
--- a/FileBrowser.st	Mon May 13 11:33:20 2002 +0200
+++ b/FileBrowser.st	Mon May 13 11:34:27 2002 +0200
@@ -163,14 +163,13 @@
     DefaultCommandPerMIME := Dictionary new.
 
     DefaultCommandPerMIME at:'application/x-tar-compressed' put:'gunzip < %1 | tar tvf -'.
-    DefaultCommandPerMIME at:'application/pdf'              put:'acroread %1'.
+    DefaultCommandPerMIME at:'application/pdf'              put:'acroread -display %2 %1'.
 
     "
      self initializeDefaultCommands
     "
 
     "Modified: / 1.8.1998 / 17:39:27 / cg"
-
 !
 
 initializeIcons
@@ -5318,7 +5317,9 @@
         ].
         cmd := DefaultCommandPerMIME at:'application/pdf' ifAbsent:nil.
         cmd notNil ifTrue:[
-            (OperatingSystem executeCommand:(cmd bindWith:aFilename) inDirectory:currentDirectory pathName)
+            (OperatingSystem 
+                executeCommand:(cmd bindWith:aFilename with:Display displayName) 
+                inDirectory:currentDirectory pathName)
             ifTrue:[^true].
         ].
     ].
@@ -7805,5 +7806,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.465 2002-04-23 12:16:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.466 2002-05-13 09:34:27 cg Exp $'
 ! !