equal
deleted
inserted
replaced
5190 menu := self class baseBookmarksMenuSpec decodeAsLiteralArray. |
5190 menu := self class baseBookmarksMenuSpec decodeAsLiteralArray. |
5191 |
5191 |
5192 "/ add the bookmark items ... |
5192 "/ add the bookmark items ... |
5193 bookmarks := self class directoryBookmarks. |
5193 bookmarks := self class directoryBookmarks. |
5194 bookmarks notEmptyOrNil ifTrue:[ |
5194 bookmarks notEmptyOrNil ifTrue:[ |
5195 menu addItem:(MenuItem labeled:'-'). |
5195 menu addSeparator. |
5196 bookmarks do:[:dirName | |
5196 bookmarks do:[:dirName | |
5197 menu addItem:(MenuItem |
5197 menu addItem:(MenuItem |
5198 label:dirName asString |
5198 label:dirName asString |
5199 itemValue:[ |
5199 itemValue:[ |
5200 (self currentSelectedDirectories includes:dirName) ifFalse:[ |
5200 (self currentSelectedDirectories includes:dirName) ifFalse:[ |
5229 menu := self class baseBookmarksMenuSpec2 decodeAsLiteralArray. |
5229 menu := self class baseBookmarksMenuSpec2 decodeAsLiteralArray. |
5230 |
5230 |
5231 "/ add the bookmark items ... |
5231 "/ add the bookmark items ... |
5232 bookmarks := self class directoryBookmarks. |
5232 bookmarks := self class directoryBookmarks. |
5233 bookmarks notEmptyOrNil ifTrue:[ |
5233 bookmarks notEmptyOrNil ifTrue:[ |
5234 menu addItem:(MenuItem labeled:'-'). |
5234 menu addSeparator. |
5235 bookmarks do:[:dirName | |
5235 bookmarks do:[:dirName | |
5236 menu addItem:(MenuItem |
5236 menu addItem:(MenuItem |
5237 label:dirName asString |
5237 label:dirName asString |
5238 itemValue:[ |
5238 itemValue:[ |
5239 (self currentSelectedDirectories includes:dirName) ifFalse:[ |
5239 (self currentSelectedDirectories includes:dirName) ifFalse:[ |
9559 ! ! |
9559 ! ! |
9560 |
9560 |
9561 !AbstractFileBrowser class methodsFor:'documentation'! |
9561 !AbstractFileBrowser class methodsFor:'documentation'! |
9562 |
9562 |
9563 version |
9563 version |
9564 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.565 2014-07-08 12:42:41 cg Exp $' |
9564 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.566 2014-07-08 14:37:31 cg Exp $' |
9565 ! |
9565 ! |
9566 |
9566 |
9567 version_CVS |
9567 version_CVS |
9568 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.565 2014-07-08 12:42:41 cg Exp $' |
9568 ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.566 2014-07-08 14:37:31 cg Exp $' |
9569 ! ! |
9569 ! ! |
9570 |
9570 |