Squeak - Как мне переместить круг?

Question

В среде Squeak Smalltalk я пытаюсь изучить морфический язык.Существует много-много морфических классов, и я не могу определить наиболее подходящий из них для моего текущего приложения, и я предпочитаю не изобретать ничего, что уже существует на данный момент.Ссылки на соответствующий код / информацию были бы оценены.В то время как Pharo мог бы быть приятнее, я застрял с Squeak atm.

Мой вопрос заключается в следующем:
Используя Squeak и Morphic, как мне создать какой-то холст, поместить его в подвижное окно с возможностью прокрутки и изменения размера, показать его на рабочем столе, поместить CircleMorph на этот холст и позволить пользователю захватывать круг и перемещать его по холсту?

Спасибо!

Answer 1

Откройте рабочую область и введите:

| window canvas circle |
window := SystemWindow new.
canvas := PasteUpMorph new.
window addMorphBack: canvas.
canvas bounds: window bounds.
circle := CircleMorph new.
canvas addMorphCentered: circle.
window openAsIs.

Это создаст на вашем рабочем столе круг, который вы можете перетаскивать.Просмотрите класс CircleMorph, чтобы найти другие вещи, которые вы можете сделать.Кроме того, ознакомьтесь с разделом документации по адресу www.squeak.org.Там есть много хороших руководств.