smalltalk - 有一个下降的变形来捕捉到网格(Cuis Smalltalk)

Question

我需要在 Cuis 类 PasteUpMorph 中更改哪种方法才能让放置的变形捕捉到 10 x 10 像素网格？

Answer 1

打开方法查找器:世界/打开/消息名称在文本框中输入“drop”。单击 (搜索)。显示的第一条消息是#acceptDroppingMorph:event:我们很幸运!在 PasteUpMorph 的实现末尾添加:

p := aMorph morphPosition.
p := (p x roundTo: 10) @ (p y roundTo: 10).
aMorph morphPosition: p.

就是这样。也许您想使用自己的变形而不是世界，那么您可以向世界添加一个 DragAndDropAreaMorph，并在该类中添加以下方法:

acceptDroppingMorph: aMorph event: evt
    | p |
    super
        acceptDroppingMorph: aMorph
        event: evt.
    p := aMorph morphPosition.
    p := (p x roundTo: 10) @ (p y roundTo: 10).
    aMorph morphPosition: p