📄 visible.clp
字号:
(defclass A (is-a USER) (role concrete) (slot foo (type NUMBER)) (slot bar))(defclass B (is-a A) (slot foo (visibility public)))(defmessage-handler A woz () ?self:foo)(defmessage-handler A quoxnar (?value) (bind ?self:foo 34 ?value))(defmessage-handler B fribban () ?self:bar)(definstances A-B (a of A) (b of B))(deffunction go () (reset) (send [a] woz) (send [b] woz))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -