equal
deleted
inserted
replaced
25 " |
25 " |
26 "{ Package: 'stx:libtool' }" |
26 "{ Package: 'stx:libtool' }" |
27 |
27 |
28 HierarchicalList subclass:#BookmarkList |
28 HierarchicalList subclass:#BookmarkList |
29 instanceVariableNames:'fileName' |
29 instanceVariableNames:'fileName' |
30 classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks' |
30 classVariableNames:'BrowserBookmarks WorkspaceBookmarks WebBookmarks FileBookmarks' |
31 poolDictionaries:'' |
31 poolDictionaries:'' |
32 category:'Interface-Bookmarks' |
32 category:'Interface-Bookmarks' |
33 ! |
33 ! |
34 |
34 |
35 !BookmarkList class methodsFor:'documentation'! |
35 !BookmarkList class methodsFor:'documentation'! |
127 "Modified: / 18-11-2011 / 14:32:24 / cg" |
127 "Modified: / 18-11-2011 / 14:32:24 / cg" |
128 ! ! |
128 ! ! |
129 |
129 |
130 !BookmarkList class methodsFor:'accessing'! |
130 !BookmarkList class methodsFor:'accessing'! |
131 |
131 |
|
132 forFileBrowser |
|
133 FileBookmarks isNil ifTrue:[ |
|
134 self initializeFileBookmarks |
|
135 ]. |
|
136 ^ FileBookmarks |
|
137 |
|
138 "Created: / 04-04-2012 / 12:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
139 ! |
|
140 |
132 forSystemBrowser |
141 forSystemBrowser |
133 |
142 |
134 BrowserBookmarks isNil ifTrue: |
143 BrowserBookmarks isNil ifTrue: |
135 [self initializeBrowserBookmarks]. |
144 [self initializeBrowserBookmarks]. |
136 ^BrowserBookmarks |
145 ^BrowserBookmarks |
188 BrowserBookmarks := self new fileName: file pathName. |
197 BrowserBookmarks := self new fileName: file pathName. |
189 |
198 |
190 "Created: / 23-05-2011 / 10:06:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
199 "Created: / 23-05-2011 / 10:06:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
191 "Modified: / 23-05-2011 / 16:35:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
200 "Modified: / 23-05-2011 / 16:35:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
192 "Modified: / 29-11-2011 / 11:21:06 / cg" |
201 "Modified: / 29-11-2011 / 11:21:06 / cg" |
|
202 ! |
|
203 |
|
204 initializeFileBookmarks |
|
205 |
|
206 | file | |
|
207 file := Filename defaultDirectory / 'file-bookmarks.rc'. |
|
208 FileBookmarks := self readFromFile: file onError:[nil]. |
|
209 FileBookmarks notNil ifTrue:[^self]. |
|
210 |
|
211 file := Filename homeDirectory / '.smalltalk' / 'file-bookmarks.rc'. |
|
212 FileBookmarks := self readFromFile: file onError:[nil]. |
|
213 FileBookmarks notNil ifTrue:[^self]. |
|
214 |
|
215 FileBookmarks := self new fileName: file pathName. |
|
216 |
|
217 "Created: / 04-04-2012 / 12:05:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
193 ! |
218 ! |
194 |
219 |
195 initializeWebBookmarks |
220 initializeWebBookmarks |
196 |
221 |
197 | file | |
222 | file | |
379 ! ! |
404 ! ! |
380 |
405 |
381 !BookmarkList class methodsFor:'documentation'! |
406 !BookmarkList class methodsFor:'documentation'! |
382 |
407 |
383 version_CVS |
408 version_CVS |
384 ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $' |
409 ^ '$Header: /cvs/stx/stx/libtool/BookmarkList.st,v 1.7 2014-02-05 18:59:48 cg Exp $' |
385 ! |
410 ! |
386 |
411 |
387 version_SVN |
412 version_SVN |
388 ^ '$Id: BookmarkList.st,v 1.6 2013-07-29 14:08:33 stefan Exp $' |
413 ^ '$Id: BookmarkList.st,v 1.7 2014-02-05 18:59:48 cg Exp $' |
389 ! ! |
414 ! ! |
390 |
415 |