smalltalk - 将图像变形添加到矩形

Question

我在smalltalk中有一个像这样的矩形

cell := RectangleMorph new
extent: 70@70;
position: (500 + (aPositionWidth))@(100 + (aPositionHeight));
color: lastCellColor.

我正在尝试向每个矩形添加一个图像，如下所示：

  queen := ImageReadWriter formFromFileNamed: '9813.gif'.
    cell addMorph: queen.
    queen position: cell position.

它不起作用如何添加图像？

谢谢先进

Answer 1

ImageReadWriter class>>formFromFileNamed:返回一个Form对象。一个表格看不懂#position:。您需要先将其转换为变形。尝试：

queen := (ImageReadWriter formFromFileNamed: 'queen.jpg') asMorph.