equal
deleted
inserted
replaced
163 self loadBookmarksFrom:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename). |
163 self loadBookmarksFrom:(self defaultBookMarksFileDirectory construct:self defaultBookMarksFilename). |
164 |
164 |
165 DirectoryBookmarks isEmptyOrNil ifTrue:[ |
165 DirectoryBookmarks isEmptyOrNil ifTrue:[ |
166 DirectoryBookmarks := OrderedCollection new. |
166 DirectoryBookmarks := OrderedCollection new. |
167 DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename. |
167 DirectoryBookmarks add:Filename homeDirectory asAbsoluteFilename. |
168 DirectoryBookmarks add:Filename tempDirectory. |
|
169 DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename. |
168 DirectoryBookmarks add:Filename currentDirectory asAbsoluteFilename. |
170 Smalltalk systemPath do:[:path | |
|
171 ((path ~= '.') and:[path asFilename exists]) ifTrue:[ |
|
172 DirectoryBookmarks add:path asFilename. |
|
173 ] |
|
174 ] |
|
175 ] |
169 ] |
176 ]. |
170 ]. |
177 ^ DirectoryBookmarks |
171 ^ DirectoryBookmarks |
178 |
172 |
179 " |
173 " |
180 DirectoryBookmarks := nil |
174 DirectoryBookmarks := nil. |
|
175 self directoryBookmarks. |
181 " |
176 " |
182 ! |
177 ! |
183 |
178 |
184 hasBookmarks |
179 hasBookmarks |
185 ^ self directoryBookmarks notEmptyOrNil |
180 ^ self directoryBookmarks notEmptyOrNil |
246 s := fileName writeStream. |
241 s := fileName writeStream. |
247 bookmarks do:[:eachPath | |
242 bookmarks do:[:eachPath | |
248 |absolutePath| |
243 |absolutePath| |
249 |
244 |
250 absolutePath := eachPath asFilename pathName. |
245 absolutePath := eachPath asFilename pathName. |
251 s nextPutLine:(Base64Coder encodingOf:absolutePath). |
246 s nextPutLine:(Base64Coder new lineLimit:nil; encodingOf:absolutePath). |
252 ]. |
247 ]. |
253 s close. |
248 s close. |
254 ! ! |
249 ! ! |
255 |
250 |
256 !AbstractFileBrowser class methodsFor:'accessing-classes'! |
251 !AbstractFileBrowser class methodsFor:'accessing-classes'! |
6468 ! ! |
6463 ! ! |
6469 |
6464 |
6470 !AbstractFileBrowser class methodsFor:'documentation'! |
6465 !AbstractFileBrowser class methodsFor:'documentation'! |
6471 |
6466 |
6472 version |
6467 version |
6473 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.197 2004-01-15 16:06:46 penk Exp $' |
6468 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.198 2004-01-15 16:34:04 cg Exp $' |
6474 ! ! |
6469 ! ! |