Nice.
Those TransformationMorphs that raise debuggers are really unfriendly.

Best.,
Karl

On Thu, Sep 26, 2019 at 11:26 AM <commits at source.squeak.org> wrote:

> Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
> http://source.squeak.org/trunk/Morphic-mt.1544.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-mt.1544
> Author: mt
> Time: 26 September 2019, 11:26:14.016433 am
> UUID: c3372aee-2104-9049-a6ef-4faa1f0eb079
> Ancestors: Morphic-mt.1543
>
> If you happen to end up with a TransformationMorph that has no children,
> you can now:
>
> - open a halo on it to move/resize/delete it
> - drag-and-drop it around in the world without a debugger nagging you
>
> =============== Diff against Morphic-mt.1543 ===============
>
> Item was changed:
>   ----- Method: HaloMorph>>addScaleHandle: (in category 'handles') -----
>   addScaleHandle: haloSpec
> +
> +       (target isFlexMorph and: [target renderedMorph ~~ target])
> +               ifTrue: [(self addHandle: haloSpec
> +                                       on: #mouseDown send:
> #startScale:with: to: self)
> +                                       on: #mouseMove send:
> #doScale:with: to: self]
> +               ifFalse: [(self addHandle: haloSpec
> +                                       on: #mouseDown send:
> #startGrow:with: to: self)
> +                                       on: #mouseMove send: #doGrow:with:
> to: self].
> -       target isFlexMorph ifTrue:
> -               [(self addHandle: haloSpec
> -                               on: #mouseDown send: #startScale:with: to:
> self)
> -                               on: #mouseMove send: #doScale:with: to:
> self].
> -       "This or addGrowHandle:, but not both, will prevail at any one
> time"
>   !
>
> Item was changed:
>   ----- Method: HaloMorph>>addSimpleHandlesTo:box: (in category 'halos and
> balloon help') -----
>   addSimpleHandlesTo: aHaloMorph box: aBox
>         | aHandle |
>         simpleMode := true.
>
>         target isWorldMorph ifTrue: [^ self addSimpleHandlesForWorldHalos].
>
>         self removeAllMorphs.  "remove old handles, if any"
>
>         self bounds: target renderedMorph worldBoundsForHalo.  "update my
> size"
>
>         self addHandleAt: (((aBox topLeft + aBox leftCenter) // 2) + self
> simpleFudgeOffset) color: Color paleBuff icon: 'Halo-MoreHandles'
>                 on: #mouseDown send: #addFullHandles to: self.
>
>         aHandle := self addGraphicalHandle: #Rotate at: aBox bottomLeft
> on: #mouseDown send: #startRot:with: to: self.
>         aHandle on: #mouseMove send: #doRot:with: to: self.
>
> +       (target isFlexMorph and: [target renderedMorph ~~ target])
> -       target isFlexMorph
>                 ifTrue: [(self addGraphicalHandle: #Scale at: aBox
> bottomRight  on: #mouseDown send: #startScale:with: to: self)
>                                 on: #mouseMove send: #doScale:with: to:
> self]
>                 ifFalse: [(self addGraphicalHandle: #Scale at: aBox
> bottomRight on: #mouseDown send: #startGrow:with: to: self)
>                                 on: #mouseMove send: #doGrow:with: to:
> self].
>
>         innerTarget wantsSimpleSketchMorphHandles ifTrue:
>                 [self addSimpleSketchMorphHandlesInBox: aBox].
>
>         growingOrRotating := false.
>         self layoutChanged.
>         self changed.
>   !
>
> Item was changed:
>   ----- Method: TransformationMorph>>extent: (in category 'geometry') -----
>   extent: newExtent
> +
> +       self renderedMorph == self
> +               ifTrue: [super extent: newExtent]
> +               ifFalse: [
> +                       self adjustAfter: [
> +                               | scaleFactor |
> +                               scaleFactor := (self scale * newExtent r /
> self fullBounds extent r) max: 0.1.
> +                               self scale: (scaleFactor detentBy: 0.1
> atMultiplesOf: 1.0 snap: false)]].!
> -
> -       self adjustAfter:
> -               [ | scaleFactor |
> -               scaleFactor := (self scale * newExtent r / self fullBounds
> extent r) max: 0.1.
> -               self scale: (scaleFactor detentBy: 0.1 atMultiplesOf: 1.0
> snap: false)]!
>
> Item was added:
> + ----- Method: TransformationMorph>>initialize (in category
> 'initialization') -----
> + initialize
> +
> +       super initialize.
> +
> +       self
> +               color: ((Color gray: 0.7) alpha: 0.5);
> +               borderStyle: (DashedBorder color: (Color gray: 0.4) width:
> 1).!
>
> Item was changed:
>   ----- Method: TransformationMorph>>shouldDropOnMouseUp (in category
> 'dropping/grabbing') -----
>   shouldDropOnMouseUp
> +
> +       ^ self renderedMorph in: [:target |
> +               target == self
> +                       ifTrue: [super shouldDropOnMouseUp]
> +                       ifFalse: [target shouldDropOnMouseUp]]!
> -       "check if my submorph should drop "
> -       ^self firstSubmorph shouldDropOnMouseUp!
>
> Item was added:
> + ----- Method: TransformationMorph>>wantsHaloFromClick (in category
> 'halos and balloon help') -----
> + wantsHaloFromClick
> +
> +       ^ self renderedMorph == self!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20190926/c641778d/attachment.html>