Squeak - Comment déplacer un cercle?

Question

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

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, afficher sur le bureau, laissez tomber un circleMorph sur cette toile, et permettre l'utilisateur pour attraper 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. Parcourez la classe CircleMorph pour trouver d'autres choses que vous pouvez faire. Consultez également la section Documentation au www.squeak.org. Il y a beaucoup de bons tutoriels là-bas.