--- a/BookmarkList.st	Wed Apr 04 12:12:00 2012 +0100
+++ b/BookmarkList.st	Wed Apr 04 17:35:25 2012 +0100
@@ -27,7 +27,7 @@
 
 HierarchicalList subclass:#BookmarkList
 	instanceVariableNames:'fileName'
-	classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks'
+	classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks FileBookmarks'
 	poolDictionaries:''
 	category:'Interface-Bookmarks'
 !
@@ -127,6 +127,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:
@@ -190,6 +199,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  |
@@ -385,5 +410,5 @@
 !
 
 version_SVN
-    ^ '$Id: BookmarkList.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+    ^ '$Id: BookmarkList.st 7969 2012-04-04 16:35:25Z vranyj1 $'
 ! !