Squeak - Comment puis-je déplacer un cercle?

Question

Dans l'environnement Smalltalk Squeak, je suis en train d'apprendre morphique. Il y a beaucoup, beaucoup de classes Morphic et je ne peux pas déterminer le plus approprié (s) à utiliser pour mon application en cours, et je préfère ne pas inventer quelque chose qui existe déjà à ce stade. Liens vers le code correspondant / informations seraient appréciés. Alors que Pharo pourrait être plus agréable, je suis coincé avec atm Squeak.

Ma question est:
En utilisant Squeak et morphique, comment puis-je créer une sorte de toile, déposez-le dans une fenêtre mobile, scrollable, redimensionnable, le montrer sur le bureau, laissez tomber un circleMorph sur cette toile, et permettre à l'utilisateur de saisir le cercle et le déplacer sur la toile?

Merci!

Answer 1

Ouvrir un espace de travail et tapez:

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

Cela va créer un cercle sur votre bureau que vous pouvez glisser-déposer. Parcourir la classe CircleMorph pour trouver d'autres choses que vous pouvez faire. En outre, consultez la section Documentation www.squeak.org . Il y a beaucoup de bons tutoriels là-bas.