--- a/AbstractFileBrowser.st	Mon Feb 04 17:15:11 2019 +0100
+++ b/AbstractFileBrowser.st	Tue Feb 05 10:25:34 2019 +0100
@@ -455,19 +455,19 @@
                 ].
                 (suffix = 'tar') ifTrue:[
                     cmd := 'tar tvf %1'.
-                    select := 7.
+                    select := 'tar tvf' size
                 ].
                 (suffix = 'zoo') ifTrue:[
                     cmd := 'zoo -list %1'.
-                    select := 9.
+                    select := 'zoo -list' size
                 ].
                 (suffix = 'zip') ifTrue:[
                     cmd := 'unzip -l %1'.
-                    select := 8.
+                    select := 'unzip -l' size
                 ].
                 (suffix = 'jar') ifTrue:[
                     cmd := 'unzip -l %1'.
-                    select := 8.
+                    select := 'unzip -l' size
                 ].
                 (suffix = 'z') ifTrue:[
                     (baseName asLowercase endsWith:'tar.z') ifTrue:[
@@ -486,7 +486,9 @@
                     ].
                 ].
                 (suffix = 'html') ifTrue:[
-                    cmd := 'netscape %1'
+                    "/ cmd := 'netscape %1'
+                    cmd := 'firefox %1'.
+                    select := 'firefox' size
                 ].
                 (suffix = 'htm') ifTrue:[
                     cmd := 'netscape %1'
@@ -503,14 +505,16 @@
                     select := 6.
                 ].
                 (suffix = 'xbm') ifTrue:[
-                    cmd := 'bitmap %1'
+                    cmd := 'bitmap %1'.
+                    select := 'bitmap' size
                 ].
                 (suffix = 'ps') ifTrue:[
-                    cmd := 'ghostview %1'
+                    cmd := 'ghostview %1'.
+                    select := 'ghostview' size
                 ].
                 ((suffix = '1') or:[suffix = 'man']) ifTrue:[
                     cmd := 'nroff -man %1'.
-                    select := 10.
+                    select := 'nroff -man' size
                 ].
             ].
         ].
@@ -551,6 +555,7 @@
     "Modified: / 24-09-1997 / 16:34:52 / stefan"
     "Modified: / 09-04-1998 / 17:15:57 / cg"
     "Modified: / 09-07-2018 / 11:16:30 / Stefan Vogel"
+    "Modified: / 05-02-2019 / 10:23:20 / Claus Gittinger"
 !
 
 listOfRuntimeValuesToRemember