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

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}