equal
deleted
inserted
replaced
261 (Browslet all asSortedCollection:[:a :b|a label < b label]) do: |
261 (Browslet all asSortedCollection:[:a :b|a label < b label]) do: |
262 [ :browslet | | item | |
262 [ :browslet | | item | |
263 menu addItem: |
263 menu addItem: |
264 (MenuItem |
264 (MenuItem |
265 label: browslet label |
265 label: browslet label |
266 value: [ self show: browslet ])]. |
266 itemValue: [ self show: browslet ])]. |
267 menu showAtPointer. |
267 menu showAtPointer. |
268 |
268 |
269 "Modified: / 04-10-2010 / 23:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
269 "Modified: / 04-10-2010 / 23:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
270 ! ! |
270 ! ! |
271 |
271 |
290 ! ! |
290 ! ! |
291 |
291 |
292 !BrowsletCanvas class methodsFor:'documentation'! |
292 !BrowsletCanvas class methodsFor:'documentation'! |
293 |
293 |
294 version_CVS |
294 version_CVS |
295 ^ '§Header: /cvs/stx/stx/libtool/Tools__BrowsletCanvas.st,v 1.2 2011/07/03 13:40:28 cg Exp §' |
295 ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowsletCanvas.st,v 1.3 2013-06-21 00:45:55 cg Exp $' |
296 ! |
296 ! |
297 |
297 |
298 version_HG |
298 version_HG |
299 |
299 |
300 ^ '$Changeset: <not expanded> $' |
300 ^ '$Changeset: <not expanded> $' |
301 ! |
301 ! |
302 |
302 |
303 version_SVN |
303 version_SVN |
304 ^ '$Id: Tools__BrowsletCanvas.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
304 ^ '$Id: Tools__BrowsletCanvas.st,v 1.3 2013-06-21 00:45:55 cg Exp $' |
305 ! ! |
305 ! ! |
306 |
306 |