159 bookmarks add:aDirectoryPath asFilename. |
159 bookmarks add:aDirectoryPath asFilename. |
160 ]. |
160 ]. |
161 ! |
161 ! |
162 |
162 |
163 bookmarksFrom:aFileNameOrString |
163 bookmarksFrom:aFileNameOrString |
164 |bookmarks s fileName| |
164 |bookmarks s fileName line| |
165 |
165 |
166 fileName := aFileNameOrString asFilename. |
166 fileName := aFileNameOrString asFilename. |
167 [ |
167 [ |
168 s := fileName readStream. |
168 s := fileName readStream. |
169 ] on:OpenError do:[:ex| |
169 ] on:OpenError do:[:ex| |
170 ^ nil. |
170 ^ nil. |
171 ]. |
171 ]. |
172 |
172 |
173 bookmarks := OrderedCollection new. |
173 bookmarks := OrderedCollection new. |
174 [s atEnd] whileFalse:[ |
174 [s atEnd] whileFalse:[ |
175 bookmarks add:(Base64Coder decode:s nextLine) asString. |
175 line := s nextLine. |
|
176 (line startsWith:';') ifFalse:[ |
|
177 bookmarks add:(Base64Coder decode:line) asString. |
|
178 ] |
176 ]. |
179 ]. |
177 s close. |
180 s close. |
178 |
181 |
179 ^ bookmarks |
182 ^ bookmarks |
180 ! |
183 ! |
181 |
184 |
182 defaultBookMarksFileDirectory |
185 defaultBookMarksFileDirectory |
|
186 "the directory, where the default bookmarks are stored (as defaultBookMarksFilename)" |
|
187 |
183 ^ Filename homeDirectory |
188 ^ Filename homeDirectory |
184 ! |
189 ! |
185 |
190 |
186 defaultBookMarksFilename |
191 defaultBookMarksFilename |
|
192 "the filename, in which the default bookmarks are stored (in defaultBookMarksDirectory)" |
|
193 |
187 ^ '.fileBrowserBookmarks' |
194 ^ '.fileBrowserBookmarks' |
188 ! |
195 ! |
189 |
196 |
190 directoryBookmarks |
197 directoryBookmarks |
191 DirectoryBookmarks isNil ifTrue:[ |
198 DirectoryBookmarks isNil ifTrue:[ |