Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1306.mcz
==================== Summary ====================
Name: Morphic-cmm.1306 Author: cmm Time: 14 September 2016, 4:53:42.843871 pm UUID: 53b3f640-bc3a-42e9-bb01-66c8a4afc483 Ancestors: Morphic-bf.1306
Fix docking bars occluding windows when pinch-resizing them.
=============== Diff against Morphic-bf.1306 ===============
Item was changed: ----- Method: HaloMorph>>doResizeTarget: (in category 'dragging or resizing') ----- + doResizeTarget: evt + | newExtent | - doResizeTarget: evt - - | oldExtent newExtent newPosition | newExtent := originalExtent + (evt position - positionOffset * 2). + (newExtent x > 1 and: [ newExtent y > 1 ]) ifTrue: + [ | oldExtent dockingBarBottom newPosition | + oldExtent := target extent. + dockingBarBottom := owner mainDockingBars + inject: 0 + into: [ : bottomMostBottom : each | bottomMostBottom max: each bottom ]. + target setExtentFromHalo: (newExtent min: owner extent x @ (owner extent y - dockingBarBottom)). + newPosition := target position - (target extent - oldExtent // 2). + newPosition := (newPosition x + min: owner extent x - newExtent x + max: 0) @ + (newPosition y + min: owner extent y - newExtent y + max: dockingBarBottom). + target + setConstrainedPosition: newPosition + hangOut: true ]. + self bounds: self target worldBoundsForHalo! - - (newExtent x > 1 and: [newExtent y > 1]) - ifTrue: [ - oldExtent := target extent. - target setExtentFromHalo: (newExtent min: owner extent). - newPosition := target position - (target extent - oldExtent // 2). - newPosition := (newPosition x min: owner extent x - newExtent x max: 0) @ (newPosition y min: owner extent y - newExtent y max: 0). - target setConstrainedPosition: newPosition hangOut: true]. - - self bounds: self target worldBoundsForHalo.!
packages@lists.squeakfoundation.org