从创建线条变形100@100在smalltalk中设置鼠标位置

我被一件简单的事情困住了，我不能理解请帮我解决我真的被困住了

我需要创建一个动态变化的

linemorp

从点开始<代码>100@100至

鼠标位置

---

如何实现它？

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

手柄：

| 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.

您应该创建自己的morph子类来处理鼠标事件。或者您可以使用现成的
手柄：

| 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.

Tnx人-我还有一个问题，如果你能帮助我，我将非常高兴-我想在鼠标点击后激活一个方法-我应该怎么做？正如我所写的，创建你自己的变形。做一个教程，例如，如果你再次陷入困境，发布一个适当的问题。Tnx人-我还有一个问题，如果你能帮助我，我将非常高兴-我想在鼠标点击后激活一个方法-我该怎么做？正如我写的，创建你自己的变形。做一个教程，例如，如果你再次陷入困境，发布一个适当的问题。