AbstractFileBrowser.st
changeset 12390 70b71b28a20f
parent 12102 9512a4336434
child 12391 87ca5c4d1270
--- a/AbstractFileBrowser.st	Mon Feb 04 18:51:47 2013 +0100
+++ b/AbstractFileBrowser.st	Tue Feb 05 15:28:46 2013 +0100
@@ -161,7 +161,7 @@
 !
 
 bookmarksFrom:aFileNameOrString
-    |bookmarks s fileName|
+    |bookmarks s fileName line|
 
     fileName := aFileNameOrString asFilename.
     [
@@ -172,7 +172,10 @@
 
     bookmarks := OrderedCollection new.
     [s atEnd] whileFalse:[
-        bookmarks add:(Base64Coder decode:s nextLine) asString.
+        line := s nextLine.
+        (line startsWith:';') ifFalse:[
+            bookmarks add:(Base64Coder decode:line) asString.
+        ]
     ].
     s close.
 
@@ -180,10 +183,14 @@
 !
 
 defaultBookMarksFileDirectory
+    "the directory, where the default bookmarks are stored (as defaultBookMarksFilename)"
+
     ^ Filename homeDirectory
 !
 
 defaultBookMarksFilename
+    "the filename, in which the default bookmarks are stored (in defaultBookMarksDirectory)"
+
     ^ '.fileBrowserBookmarks'
 !
 
@@ -9095,10 +9102,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.507 2013-01-15 14:07:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.508 2013-02-05 14:28:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.507 2013-01-15 14:07:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.508 2013-02-05 14:28:46 cg Exp $'
 ! !