#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 2018 17:03:09 +0100
changeset 3525 5df4da794cd2
parent 3524 366f04fbfb23
child 3526 d27e02006468
#REFACTORING by cg class: Tools::ViewTreeInspectorApplication changed: #doSelectNextElementStartingIn:forWhich:
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
     ].
 !