FileBrowser.st
changeset 15832 5fae97ee1a64
parent 15539 b568b4b6b8fd
child 15843 1c2cf683dbd2
child 16636 3f8a494418c6
--- a/FileBrowser.st	Thu Sep 03 11:46:59 2015 +0200
+++ b/FileBrowser.st	Thu Sep 03 11:47:13 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
               All Rights Reserved
@@ -166,6 +164,14 @@
 
 !FileBrowser class methodsFor:'defaults'!
 
+default
+    ^ UserPreferences current fileBrowserClass 
+
+    "   
+     FileBrowser default open
+    "
+!
+
 defaultIcon
     "return the file browsers default window icon"
 
@@ -7537,10 +7543,10 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.669 2015-03-25 19:20:05 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.669 2015-03-25 19:20:05 cg Exp $'
+    ^ '$Header$'
 ! !