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

Question

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

我需要创建一个动态更改的LineMorph从第 100@100 点开始 到 mouse location我怎样才能实现它？

Answer 1

您应该创建自己的 morph 子类来处理鼠标事件。或者您可以使用现成的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.