Добавить imagemorph к прямоугольнику

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.