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

Question

В среде Squeak Smalltalk я пытаюсь изучать морфию. Существует множество классов Morphic, и я не могу определить наиболее подходящие для использования в моем текущем приложении, и я предпочитаю не придумывать ничего, что уже существует на данный момент. Ссылки на соответствующий код / ​​информация будут оценены. В то время как 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, чтобы найти другие вещи, которые вы можете сделать. Также ознакомьтесь с разделом "Документация" на сайте http://www.squeak.org/. Там много хороших уроков.