在 smalltalk 中创建从 100@100 到鼠标位置的 LineMorph

Question

我被一个简单的事情困住了，我无法理解请帮助我，我真的被困住了

我需要创建一个会动态变化的 LineMorph 从点 100@100 到 mouse location 我怎样才能实现它？

Answer 1

您应该创建自己的变形子类来处理鼠标事件。或者你可以使用现成的 HandleMorph:

| line handle |
line := (LineMorph from: 100@100 to: 100@100 color: Color red width: 2) openInWorld.
handle := HandleMorph new forEachPointDo:
    [:newPoint | line setVertices: {100@100. newPoint}].
self currentHand attachMorph: handle.

在 smalltalk 中创建从 100@100 到鼠标位置的 LineMorph

Create LineMorph From 100@100 to mouse location in smalltalk

smalltalk

squeak