Smalltalk 代码解析： moveBy: anOffset orTo: aPoint 方法详解

这段代码是一个方法定义，这个方法用于移动或删除一个标记。下面是代码的解释：

• moveBy: anOffset orTo: aPoint: 这是方法的名称，表示可以通过给定的偏移量或给定的点来移动标记。
• | graphThing p |: 这是定义了两个局部变量 graphThing 和 p。
• (p := aPoint) == nil ifTrue: [ p := self position + anOffset ]: 如果给定的点 aPoint 是空的，则将 p 设置为当前标记的位置加上给定的偏移量 anOffset。
• graphThing := self graph nodeUnder: p: 将 graphThing 设置为位于点 p 下的图形节点。
• graphThing class == PCNMark ifTrue: [graphThing := graphThing container]: 如果 graphThing 的类是 PCNMark，则将 graphThing 设置为其容器。
• graphThing class == PCNPlaceChart ifFalse: [ (Dialog confirm: 'Delete the mark?' initialAnswer: true) ifTrue: [self goAway]. ^self ]: 如果 graphThing 的类不是 PCNPlaceChart，则弹出一个对话框询问是否删除标记。如果用户确认删除，则调用 self goAway 方法来删除标记，然后返回。否则，继续执行后面的代码。
• graphThing ~= self container ifTrue: [ self moveToNewContainer: graphThing at: p ] ifFalse: [ super moveBy: anOffset orTo: p ]: 如果 graphThing 不等于当前标记的容器，则调用 self moveToNewContainer:at: 方法将标记移动到新的容器 graphThing 中，并设置位置为 p。否则，调用父类的 moveBy:orTo: 方法将标记移动到给定的偏移量 anOffset 或给定的点 p。