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

Question

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

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

Спасибо!

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 . Там много хороших уроков.