Tools__ViewTreeApplication.st
changeset 3658 18137fdc0f76
parent 3628 dae68c3b50a6
child 3660 4b4a427f8976
     1.1 --- a/Tools__ViewTreeApplication.st	Tue Apr 30 15:13:35 2019 +0200
     1.2 +++ b/Tools__ViewTreeApplication.st	Tue Apr 30 23:17:10 2019 +0200
     1.3 @@ -2039,46 +2039,48 @@
     1.4      |theProcess|
     1.5  
     1.6      aRootItemOrNil isNil ifTrue:[
     1.7 -	process := nil.
     1.8 +        process := nil.
     1.9      ] ifFalse:[
    1.10 -	"/ expand tree to level 3
    1.11 -	aRootItemOrNil do:[:aRootChild|
    1.12 -	    aRootChild do:[:aSubChild| aSubChild expand ].
    1.13 -	    aRootChild expand.
    1.14 -	].
    1.15 -	aRootItemOrNil expand.
    1.16 -
    1.17 -	process isNil ifTrue:[
    1.18 -	    theProcess := process :=
    1.19 -		Process
    1.20 -		    for:[
    1.21 -			|update testModeChannel|
    1.22 -
    1.23 -			update := false.
    1.24 -			testModeChannel := model testModeChannel.
    1.25 -
    1.26 -			[process == theProcess] whileTrue:[
    1.27 -			    Delay waitForSeconds:0.5.
    1.28 -
    1.29 -			    (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
    1.30 -				(testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
    1.31 -				    self selectFocusView.
    1.32 -				].
    1.33 -				update ifTrue:[
    1.34 -				    self updateShownStatus.
    1.35 -				].
    1.36 -				update := update not.
    1.37 -			    ].
    1.38 -			].
    1.39 -		    ]
    1.40 -		    priority:(Processor userSchedulingPriority).
    1.41 -	    theProcess name:'ViewTreeInspector - Focus Follower'.
    1.42 -	    theProcess resume.
    1.43 -	].
    1.44 +        "/ expand tree to level 3
    1.45 +        aRootItemOrNil do:[:aRootChild|
    1.46 +            aRootChild do:[:aSubChild| aSubChild expand ].
    1.47 +            aRootChild expand.
    1.48 +        ].
    1.49 +        aRootItemOrNil expand.
    1.50 +
    1.51 +        process isNil ifTrue:[
    1.52 +            "/ the focusFollower process terminates itself, when process is not longer theProcess
    1.53 +            theProcess := process :=
    1.54 +                Process
    1.55 +                    for:[
    1.56 +                        |update testModeChannel|
    1.57 +
    1.58 +                        update := false.
    1.59 +                        testModeChannel := model testModeChannel.
    1.60 +
    1.61 +                        [process == theProcess] whileTrue:[
    1.62 +                            Delay waitForSeconds:0.5.
    1.63 +
    1.64 +                            (treeView notNil and:[process == theProcess and:[treeView shown]]) ifTrue:[
    1.65 +                                (testModeChannel value == true and:[followFocusChannel value == true]) ifTrue:[
    1.66 +                                    self selectFocusView.
    1.67 +                                ].
    1.68 +                                update ifTrue:[
    1.69 +                                    self updateShownStatus.
    1.70 +                                ].
    1.71 +                                update := update not.
    1.72 +                            ].
    1.73 +                        ].
    1.74 +                    ]
    1.75 +                    priority:(Processor userSchedulingPriority).
    1.76 +            theProcess name:'ViewTreeInspector - Focus Follower'.
    1.77 +            theProcess resume.
    1.78 +        ].
    1.79      ].
    1.80      model rootItem:aRootItemOrNil.
    1.81  
    1.82      "Modified: / 25-07-2013 / 12:03:44 / cg"
    1.83 +    "Modified (format): / 30-04-2019 / 22:32:23 / Claus Gittinger"
    1.84  !
    1.85  
    1.86  updateShownStatus