صرير - كيف يمكنني نقل الدائرة؟

Question

في البيئة صرير من Smalltalk، واني اسعى لمعرفة Morphic. وهناك العديد والعديد من الفئات Morphic وأنا لا يمكن تحديد أنسب واحد (ق) لاستخدام لطلبي الحالي، وأنا أفضل عدم يخترع أي شيء موجود بالفعل في هذه المرحلة. سيكون موضع تقدير وصلات إلى رمز / المعلومات ذات الصلة. في حين قد يكون Pharo أجمل، وأنا عالقة مع أجهزة الصراف الآلي صرير.

وسؤالي هو:
باستخدام صرير و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 للعثور على الأشياء الأخرى التي يمكن القيام به. أيضا، تحقق من قسم التوثيق في www.squeak.org . هناك الكثير من الدروس الجيدة هناك.