equal
deleted
inserted
replaced
5189 !AbstractFileBrowser methodsFor:'menu accessing'! |
5189 !AbstractFileBrowser methodsFor:'menu accessing'! |
5190 |
5190 |
5191 bookmarksMenu |
5191 bookmarksMenu |
5192 <resource: #programMenu> |
5192 <resource: #programMenu> |
5193 |
5193 |
|
5194 ^ self bookmarksMenuForBaseSpec:self class baseBookmarksMenuSpec. |
|
5195 ! |
|
5196 |
|
5197 bookmarksMenuForBaseSpec:aBaseMenuSpec |
|
5198 <resource: #programMenu> |
|
5199 |
5194 |menu bookmarks| |
5200 |menu bookmarks| |
5195 |
5201 |
5196 menu := self class baseBookmarksMenuSpec decodeAsLiteralArray. |
5202 menu := aBaseMenuSpec decodeAsLiteralArray. |
5197 |
5203 |
5198 "/ add the bookmark items ... |
5204 "/ add the bookmark items ... |
5199 bookmarks := self class directoryBookmarks. |
5205 bookmarks := self class directoryBookmarks. |
5200 bookmarks notEmptyOrNil ifTrue:[ |
5206 bookmarks notEmptyOrNil ifTrue:[ |
5201 menu addSeparator. |
5207 menu addSeparator. |
5228 ! |
5234 ! |
5229 |
5235 |
5230 gotoBookmarksMenu |
5236 gotoBookmarksMenu |
5231 <resource: #programMenu> |
5237 <resource: #programMenu> |
5232 |
5238 |
5233 |menu bookmarks| |
5239 ^ self bookmarksMenuForBaseSpec:self class baseBookmarksMenuSpec2. |
5234 |
|
5235 menu := self class baseBookmarksMenuSpec2 decodeAsLiteralArray. |
|
5236 |
|
5237 "/ add the bookmark items ... |
|
5238 bookmarks := self class directoryBookmarks. |
|
5239 bookmarks notEmptyOrNil ifTrue:[ |
|
5240 menu addSeparator. |
|
5241 bookmarks do:[:dirName | |
|
5242 menu addItem:(MenuItem |
|
5243 label:dirName asString |
|
5244 itemValue:[ |
|
5245 (self currentSelectedDirectories includes:dirName) ifFalse:[ |
|
5246 self setCurrentFileName:dirName. |
|
5247 ]. |
|
5248 ]). |
|
5249 ]. |
|
5250 ]. |
|
5251 menu findGuiResourcesIn:self. |
|
5252 ^ menu |
|
5253 |
|
5254 "Modified: / 14-01-2012 / 21:13:58 / cg" |
|
5255 ! |
5240 ! |
5256 |
5241 |
5257 menuDirHistory:backOrForward |
5242 menuDirHistory:backOrForward |
5258 "initialize the history menu" |
5243 "initialize the history menu" |
5259 |
5244 |
9567 ! ! |
9552 ! ! |
9568 |
9553 |
9569 !AbstractFileBrowser class methodsFor:'documentation'! |
9554 !AbstractFileBrowser class methodsFor:'documentation'! |
9570 |
9555 |
9571 version |
9556 version |
9572 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.571 2014-09-25 15:15:56 cg Exp $' |
9557 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.572 2014-11-28 12:31:39 cg Exp $' |
9573 ! |
9558 ! |
9574 |
9559 |
9575 version_CVS |
9560 version_CVS |
9576 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.571 2014-09-25 15:15:56 cg Exp $' |
9561 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.572 2014-11-28 12:31:39 cg Exp $' |
9577 ! ! |
9562 ! ! |
9578 |
9563 |