equal
deleted
inserted
replaced
80 anObject parent isNil |
80 anObject parent isNil |
81 ifTrue:[ |
81 ifTrue:[ |
82 stack top addItem: addItem. |
82 stack top addItem: addItem. |
83 anObject children ? #() do: [:child|self visit: child]. |
83 anObject children ? #() do: [:child|self visit: child]. |
84 ] ifFalse:[ |
84 ] ifFalse:[ |
85 item := MenuItem labeled: anObject label. |
85 item := MenuItem label: anObject label. |
86 stack top addItem: item. |
86 stack top addItem: item. |
87 submenu := Menu new. |
87 submenu := Menu new. |
88 item submenu: submenu. |
88 item submenu: submenu. |
89 stack push: submenu. |
89 stack push: submenu. |
90 stack top addItem: addItem. |
90 stack top addItem: addItem. |
102 ! ! |
102 ! ! |
103 |
103 |
104 !BookmarkAddMenuBuilder class methodsFor:'documentation'! |
104 !BookmarkAddMenuBuilder class methodsFor:'documentation'! |
105 |
105 |
106 version_CVS |
106 version_CVS |
107 ^ '§Header: /cvs/stx/stx/libtool/BookmarkAddMenuBuilder.st,v 1.2 2011/07/03 18:00:56 cg Exp §' |
107 ^ '$Header: /cvs/stx/stx/libtool/BookmarkAddMenuBuilder.st,v 1.3 2013-08-31 17:41:47 cg Exp $' |
108 ! |
108 ! |
109 |
109 |
110 version_HG |
110 version_HG |
111 |
111 |
112 ^ '$Changeset: <not expanded> $' |
112 ^ '$Changeset: <not expanded> $' |
113 ! |
113 ! |
114 |
114 |
115 version_SVN |
115 version_SVN |
116 ^ '$Id: BookmarkAddMenuBuilder.st 7854 2012-01-30 17:49:41Z vranyj1 $' |
116 ^ '$Id: BookmarkAddMenuBuilder.st,v 1.3 2013-08-31 17:41:47 cg Exp $' |
117 ! ! |
117 ! ! |
118 |
118 |