如何以编程方式在smalltalk80（吱吱声）中创建箭头变形？

Question

我需要从一个给定变形的中心到另一个给定变形的中心绘制一个箭头变形。

如有任何帮助，我们将不胜感激。

Answer 1

假设 a 和 b 是您的变形：

arrow := (LineMorph from: a center to: b center color: Color red width: 2) makeForwardArrow.
arrow openInWorld.

如果要在变形移动后更新位置，请执行以下操作：

arrow setVertices: {a center. b center}