Squeak - Como faço para mover um círculo?

Question

No ambiente Squeak Smalltalk, eu estou tentando aprender Morphic. Há muitas, muitas classes de Morphic e eu não posso determinar o mais adequado (s) a ser usado para o meu aplicativo atual, e eu prefiro não para inventar qualquer coisa que já existe neste momento. Links para relevantes código / informação seria apreciada. Enquanto Pharo pode ser mais agradável, estou preso com Squeak atm.

A minha pergunta é:
Usando Squeak e Morphic, como faço para criar uma espécie de tela, solte-o em um, rolagem janela móvel, redimensionável, mostre-a na área de trabalho, soltar um circleMorph sobre essa tela, e permitir que o usuário pegar o círculo e movê-lo na tela?

Obrigado!

Answer 1

Abrir um espaço de trabalho e digite:

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

Isto irá criar um círculo em seu desktop que você pode arrastar e soltar. Navegar na classe CircleMorph para encontrar outras coisas que você pode fazer. Além disso, confira a seção de Documentação em www.squeak.org . Há um monte de bons tutoriais lá.