Tools__ViewTreeApplication.st
changeset 3500 51cbdcf5b2cb
parent 3457 3f3ea99e8af5
child 3524 366f04fbfb23
     1.1 --- a/Tools__ViewTreeApplication.st	Wed Nov 01 21:47:48 2017 +0100
     1.2 +++ b/Tools__ViewTreeApplication.st	Sat Nov 11 17:30:01 2017 +0100
     1.3 @@ -1329,13 +1329,17 @@
     1.4  
     1.5      model rootItem recursiveDo:[:anItem|
     1.6          widget := anItem widget.
     1.7 -        origin := widget originRelativeTo:rootView.
     1.8 -
     1.9 -        (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
    1.10 -            newItems add:anItem.
    1.11 -        ]
    1.12 +        widget notNil ifTrue:[
    1.13 +            origin := widget originRelativeTo:rootView.
    1.14 +
    1.15 +            (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[
    1.16 +                newItems add:anItem.
    1.17 +            ]
    1.18 +        ].
    1.19      ].
    1.20      model value:newItems.
    1.21 +
    1.22 +    "Modified: / 11-11-2017 / 17:24:59 / cg"
    1.23  !
    1.24  
    1.25  processEvent:anEvent