I've run into a problem trying to plot a point on a MrEd canvas% using draw-point. I simplified the problem to this:<br><br><span style="font-family: courier new,monospace;">(module test-ui scheme</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (require (lib "class.ss")</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (lib "mred.ss" "mred")</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (lib "framework.ss" "framework"))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (provide run</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> plot-points)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (define main-frame (new frame%</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (parent #f)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (height 400)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (width 600)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (label "Canvas Example")))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (define test-canvas (new canvas%</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (parent main-frame)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (stretchable-width #t)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (stretchable-height #t)))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (define (run)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (send main-frame show #t))</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (define (plot-points)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (define (loop n)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (cond ((< n 30)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (send test-canvas draw-point n n)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;"> (loop (+ n 1)))))</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;"> (loop 1)))</span><br><br>Then, when I do<br>
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(run)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">(plot-points)</span><br>
<br>I get:<br><br><span style="font-family: courier new,monospace;">send: no such method: draw-point for class: canvas%</span><br><br>According to the documentation at <a href="http://www.cs.rice.edu/CS/PLT/packages/53/doc/mred/node140.htm#SECTION00560000000000000000">http://www.cs.rice.edu/CS/PLT/packages/53/doc/mred/node140.htm#SECTION00560000000000000000</a>, it looks like that method should exist.<br>
<br>Am I missing newer documentation?<br><br>Thanks,<br><br>Jason R. Fruit<br>