mred:canvas% 中缺少方法？

Question

我使用MrEd Designer为Scheme程序制作用户界面。它包括一个 mred:canvas% ，我想在其上使用 draw-point 绘制点。它被定义为：

(define (naca-ui-init
         {...}
         #:airfoil-canvas-class
         (airfoil-canvas-class canvas%)
         {...})

然后：

(set! airfoil-canvas
        (new
         airfoil-canvas-class
         (parent vertical-pane-2165)
         (horiz-margin 0)
         (min-width 350)
         (vert-margin 0)
         (gl-config #f)
         (stretchable-width #t)
         (enabled #t)
         (stretchable-height #t)
         (min-height 175)
         (label "Canvas")
         (style '(border))))

当我尝试(sendairfoil-canvasdraw-point 15 30)时，但是，我得到：

send: no such method: draw-point for class: canvas%

 === context ===
/usr/local/lib/racket/collects/racket/private/class-internal.rkt:4543:0: obj-error
/home/jason/NACA/naca-ui.scm:29:8: plot-point
/home/jason/NACA/naca.scm:225:23
/home/jason/NACA/naca-ui.scm:21:10: inner

我是否误读了文档，还是还有其他我不明白的内容？

PS：有更多代表的人可以添加标签 MrEd 吗？这在这里是相关的，但是您需要 1500 个才能添加新标签。

Answer 1

回答我自己的问题：简而言之，我的文档发霉了，我应该使用 http://docs.racket- lang.org/。从那里，很容易看出：

(send airfoil-canvas draw-point 15 30)

应该是：

(send (send airfoil-canvas get-dc) draw-point 15 30)

这些天你需要在绘图上下文中进行绘图。