如何以编程方式在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}