--- a/BookmarkMenuBuilder.st Sun Apr 09 22:19:00 2017 +0200
+++ b/BookmarkMenuBuilder.st Tue Apr 11 01:57:43 2017 +0200
@@ -170,22 +170,24 @@
visitFolder:anObject
|item submenu|
- anObject parent isNil
- ifTrue:[ anObject children ? #() do:[:child | self visit:child ] ]
- ifFalse:
- [ 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 ].
+ anObject parent isNil ifTrue:[
+ anObject children ? #() do:[:child | self visit:child ]
+ ] ifFalse:[
+ 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
+ ].
"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
@@ -198,14 +200,14 @@
!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$'
! !