--- a/FileBrowser.st	Mon Nov 19 09:05:39 2001 +0100
+++ b/FileBrowser.st	Mon Nov 19 09:07:03 2001 +0100
@@ -4046,7 +4046,7 @@
 openAboutThisApplication
     "opens an about box for this application."
 
-    |rev box myClass clsRev image msg|
+    |rev myClass clsRev msg|
 
     rev := ''.
     myClass := self class.
@@ -4055,24 +4055,12 @@
 
     msg := '\' withCRs , myClass name asBoldText, rev.
 
-    AboutBox isNil ifTrue:[
-	"/ this handles bad installations of ST/X,
-	"/ where the AboutBox is missing.
-	"/ (May vanish in the future)
-	^ self information:msg
-    ].
-
-    box := AboutBox title:msg.
-
-    image := self class defaultIcon.
-    image notNil ifTrue:[
-	box image:image
-    ].
-    box   label:'About This Application'.
-    box   autoHideAfter:10 with:[].
-    box   showAtPointer.
-
-    "Modified: / 14.8.1998 / 13:20:24 / cg"
+    Dialog
+        about:(resources string:msg)
+        label:(resources string:'About FileBrowser')
+        icon:self class defaultIcon
+
+    "Modified: / 17.11.2001 / 23:07:25 / cg"
 !
 
 openHTMLDocument:relativeDocPath
@@ -7434,5 +7422,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.441 2001-11-16 17:21:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.442 2001-11-19 08:07:03 cg Exp $'
 ! !