hg/stx-libtool: comparison BookmarkMenuBuilder.st

equal deleted inserted replaced

-:a78a67fcab88
+:5bae62b4cb08
 !
 visitFolder:anObject
 |item submenu|
-anObject parent isNil
+anObject parent isNil ifTrue:[
-ifTrue:[ anObject children ? #() do:[:child | self visit:child ] ]
+anObject children ? #() do:[:child | self visit:child ]
-ifFalse:
+] ifFalse:[
-[ item := self menuItemFolder: anObject.
+item := self menuItemFolder: anObject.
 stack top addItem:item.
 submenu := Menu new.
 item submenu:submenu.
 stack push:submenu.
 anObject children ? #() do:[:child | self visit:child ].
 stack top hasItems ifTrue:[ stack top addSeparator ].
 item := self menuItemAddBookmark:anObject.
 stack top addItem:item.
-stack pop ].
+stack pop
+].
 "Created: / 23-05-2011 / 10:38:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 "Modified: / 21-06-2011 / 08:08:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified (format): / 11-04-2017 / 01:57:33 / cg"
 !
 visitSeparator:anObject
 stack top addItem: MenuItem separator
 ! !
 !BookmarkMenuBuilder class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+^ '$Header$'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+^ '$Header$'
 !
 version_SVN
-^ '$Id: BookmarkMenuBuilder.st,v 1.10 2015-02-20 15:37:15 cg Exp $'
+^ '$Id$'
 ! !