# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1516291389 -3600
# Node ID 5df4da794cd2c4c152a992ba2c40c32ab97e35de
# Parent  366f04fbfb2334f4fdb05f49c7e18aeec2db8cc3
#REFACTORING by cg
class: Tools::ViewTreeInspectorApplication
changed: #doSelectNextElementStartingIn:forWhich:

diff -r 366f04fbfb23 -r 5df4da794cd2 Tools__ViewTreeApplication.st
--- a/Tools__ViewTreeApplication.st	Tue Jan 16 22:33:10 2018 +0100
+++ b/Tools__ViewTreeApplication.st	Thu Jan 18 17:03:09 2018 +0100
@@ -2284,21 +2284,21 @@
     firstFound := nil.
 
     anItem recursiveDo:[:el|
-	el == startItem ifTrue:[
-	    searchNext := false
-	] ifFalse:[
-	    (aBlock value:el) ifTrue:[
-		searchNext ifFalse:[^ model selectItem:el].
-
-		firstFound isNil ifTrue:[
-		    firstFound := el
-		]
-	    ]
-	]
+        el == startItem ifTrue:[
+            searchNext := false
+        ] ifFalse:[
+            (aBlock value:el) ifTrue:[
+                searchNext ifFalse:[^ model selectItem:el].
+
+                firstFound isNil ifTrue:[
+                    firstFound := el
+                ]
+            ]
+        ]
     ].
     firstFound notNil ifTrue:[
-	self window beep.
-	model selectItem:firstFound
+        self beepInEditor.
+        model selectItem:firstFound
     ].
 !