equal
deleted
inserted
replaced
1327 |
1327 |
1328 newItems := OrderedCollection new. |
1328 newItems := OrderedCollection new. |
1329 |
1329 |
1330 model rootItem recursiveDo:[:anItem| |
1330 model rootItem recursiveDo:[:anItem| |
1331 widget := anItem widget. |
1331 widget := anItem widget. |
1332 origin := widget originRelativeTo:rootView. |
1332 widget notNil ifTrue:[ |
1333 |
1333 origin := widget originRelativeTo:rootView. |
1334 (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[ |
1334 |
1335 newItems add:anItem. |
1335 (rectangle containsRect:(Rectangle origin:origin extent:(widget extent))) ifTrue:[ |
1336 ] |
1336 newItems add:anItem. |
|
1337 ] |
|
1338 ]. |
1337 ]. |
1339 ]. |
1338 model value:newItems. |
1340 model value:newItems. |
|
1341 |
|
1342 "Modified: / 11-11-2017 / 17:24:59 / cg" |
1339 ! |
1343 ! |
1340 |
1344 |
1341 processEvent:anEvent |
1345 processEvent:anEvent |
1342 |button menu| |
1346 |button menu| |
1343 |
1347 |