--- 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 $'
! !