# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1491868663 -7200
# Node ID 5bae62b4cb0896f728a6a0d78e755431a639900f
# Parent  a78a67fcab88a5085b381afd2931d5a6db865ce6
#FEATURE by cg
class: BookmarkMenuBuilder
comment/format in: #visitFolder:

diff -r a78a67fcab88 -r 5bae62b4cb08 BookmarkMenuBuilder.st
--- 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$'
 ! !