--- a/BookmarkList.st	Wed Feb 05 19:59:46 2014 +0100
+++ b/BookmarkList.st	Wed Feb 05 19:59:48 2014 +0100
@@ -27,7 +27,7 @@
 
 HierarchicalList subclass:#BookmarkList
 	instanceVariableNames:'fileName'
-	classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks'
+	classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks FileBookmarks'
 	poolDictionaries:''
 	category:'Interface-Bookmarks'
 !
@@ -129,6 +129,15 @@
 
 !BookmarkList class methodsFor:'accessing'!
 
+forFileBrowser
+    FileBookmarks isNil ifTrue:[
+        self initializeFileBookmarks
+    ].
+    ^ FileBookmarks
+
+    "Created: / 04-04-2012 / 12:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 forSystemBrowser
 
     BrowserBookmarks isNil ifTrue:
@@ -192,6 +201,22 @@
     "Modified: / 29-11-2011 / 11:21:06 / cg"
 !
 
+initializeFileBookmarks
+
+    | file  |
+    file := Filename defaultDirectory / 'file-bookmarks.rc'.
+    FileBookmarks := self readFromFile: file onError:[nil].
+    FileBookmarks notNil ifTrue:[^self].    
+
+    file := Filename homeDirectory / '.smalltalk' / 'file-bookmarks.rc'.
+    FileBookmarks := self readFromFile: file onError:[nil].
+    FileBookmarks notNil ifTrue:[^self].    
+
+    FileBookmarks := self new fileName: file pathName.
+
+    "Created: / 04-04-2012 / 12:05:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 initializeWebBookmarks
 
     | file  |
@@ -381,10 +406,10 @@
 !BookmarkList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.7 2014-02-05 18:59:48 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $'
+    ^ '$Id: BookmarkList.st,v 1.7 2014-02-05 18:59:48 cg Exp $'
 ! !