--- a/FileBrowser.st	Thu Sep 14 21:53:07 2000 +0200
+++ b/FileBrowser.st	Sat Sep 16 15:09:31 2000 +0200
@@ -21,7 +21,7 @@
 		icons listUpdateProcess currentFileInFileName
 		lastFileDiffDirectory sortByWhat sortCaseless showingDetails
 		showingHiddenFiles showingBigImagePreview imagePreviewView
-		imageRenderProcess dosEOLMode doAutoUpdate'
+		imageRenderProcess dosEOLMode doAutoUpdate doNotShowFontDialog'
 	classVariableNames:'DirectoryHistory DirectoryHistoryWhere HistorySize DefaultIcon
 		CommandHistory CommandHistorySize Icons DefaultCommandPerSuffix
 		DefaultCommandPerMIME'
@@ -6331,17 +6331,27 @@
             fileEncoding := guess.    
             enc := guess.
         ] ifFalse:[
-            action := Dialog choose:(resources string:'''%1'' seems to require a %2 font.' with:fileName with:pref)
-                           labels:(resources array:#('cancel' 'show' 'change font'))
-                           values:#(nil #show #encoding)
-                           default:#encoding.
+            doNotShowFontDialog == true ifTrue:[
+                action := #show
+            ] ifFalse:[
+                action := Dialog choose:(resources string:'''%1'' seems to require a %2 font.' with:fileName with:pref)
+                               labels:(resources array:#('cancel' 'show' 'dont ask again' 'change font'))
+                               values:#(nil #show #showAlways #encoding)
+                               default:#encoding.
+            ].
+            action == #showAlways ifTrue:[
+                doNotShowFontDialog := true.
+                action := #show.
+            ].
             action isNil ifTrue:[^ self].
             action == #encoding ifTrue:[
                 fileEncoding := guess asSymbol.
                 subView externalEncoding:fileEncoding.
                 self validateFontEncodingFor:fileEncoding ask:false.
             ] ifFalse:[
-                self information:(resources string:'Individual characters may be invisible/wrong in this font.')
+                doNotShowFontDialog ~~ true ifTrue:[
+                    self information:(resources string:'Individual characters may be invisible/wrong in this font.')
+                ]
             ].
             enc := fileEncoding.
         ].
@@ -7112,5 +7122,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.378 2000-09-13 11:30:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.379 2000-09-16 13:09:31 cg Exp $'
 ! !