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