#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Thu, 18 Jan 2018 17:03:09 +0100
changeset 35255df4da794cd2
parent 3524 366f04fbfb23
child 3526 d27e02006468
#REFACTORING by cg
class: Tools::ViewTreeInspectorApplication
changed: #doSelectNextElementStartingIn:forWhich:
Tools__ViewTreeApplication.st
     1.1 --- a/Tools__ViewTreeApplication.st	Tue Jan 16 22:33:10 2018 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Thu Jan 18 17:03:09 2018 +0100
     1.3 @@ -2284,21 +2284,21 @@
     1.4      firstFound := nil.
     1.5  
     1.6      anItem recursiveDo:[:el|
     1.7 -	el == startItem ifTrue:[
     1.8 -	    searchNext := false
     1.9 -	] ifFalse:[
    1.10 -	    (aBlock value:el) ifTrue:[
    1.11 -		searchNext ifFalse:[^ model selectItem:el].
    1.12 -
    1.13 -		firstFound isNil ifTrue:[
    1.14 -		    firstFound := el
    1.15 -		]
    1.16 -	    ]
    1.17 -	]
    1.18 +        el == startItem ifTrue:[
    1.19 +            searchNext := false
    1.20 +        ] ifFalse:[
    1.21 +            (aBlock value:el) ifTrue:[
    1.22 +                searchNext ifFalse:[^ model selectItem:el].
    1.23 +
    1.24 +                firstFound isNil ifTrue:[
    1.25 +                    firstFound := el
    1.26 +                ]
    1.27 +            ]
    1.28 +        ]
    1.29      ].
    1.30      firstFound notNil ifTrue:[
    1.31 -	self window beep.
    1.32 -	model selectItem:firstFound
    1.33 +        self beepInEditor.
    1.34 +        model selectItem:firstFound
    1.35      ].
    1.36  !
    1.37