--- a/FileBrowser.st	Thu Jul 18 15:52:21 2002 +0200
+++ b/FileBrowser.st	Thu Jul 18 18:55:31 2002 +0200
@@ -5644,8 +5644,13 @@
     |mime cmd select path suffix|
 
     path := currentDirectory filenameFor:fileName.
-
-    mime := MIMETypes mimeTypeForSuffix:fileName asFilename suffix.
+    suffix := fileName asFilename suffix.
+    cmd := DefaultCommandPerSuffix at:suffix ifAbsent:nil.
+    cmd notNil ifTrue:[
+        aBox initialText:(cmd , ' ' , fileName) selectFrom:1 to:cmd size.
+        ^ self
+    ].
+    mime := MIMETypes mimeTypeForSuffix:suffix.
 "/    mime notNil ifTrue:[
 "/        cmd := self initialCommandForMIME:mime file:path
 "/    ].
@@ -7844,5 +7849,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.475 2002-07-17 10:58:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.476 2002-07-18 16:55:31 cg Exp $'
 ! !