<div>hello thank you for your replying</div>So you want the refresh method?<div>no.<div>you can imagine one picture and if you click some point in the picture, then circle that point</div><div>my code can&#39;t update circled picture</div>
<div>could you give me little advice?</div><div><br><div class="gmail_quote">2010/10/27 Robby Findler <span dir="ltr">&lt;<a href="mailto:robby@eecs.northwestern.edu">robby@eecs.northwestern.edu</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
So you want the refresh method?<br>
<br>
Robby<br>
<br>
On Wednesday, October 27, 2010, 김태윤 &lt;<a href="mailto:kty1104@gmail.com">kty1104@gmail.com</a>&gt; wrote:<br>
&gt; doesn&#39;t working properly means I can&#39;t update my canvas by this methodcould somebody tell me how to update canvas with changed image? (when some function is evaluated)<br>
<div><div></div><div class="h5">&gt;<br>
&gt; 2010/10/27  &lt;<a href="mailto:kty1104@gmail.com">kty1104@gmail.com</a>&gt;<br>
&gt; hello~<br>
&gt; I am making map editor<br>
&gt; one of the editor&#39;s ability is select tile image from chip-set(kind of town map tile) image<br>
&gt; and circle the selected tile<br>
&gt; I made a following code  but I don&#39;t think that this is good way to update image and it doesn&#39;t working properly as well.<br>
&gt; could somebody give me an little advice?<br>
&gt;<br>
&gt; #lang scheme/gui<br>
&gt; (require 2htdp/image)<br>
&gt; (define pic dc&lt;%&gt;)<br>
&gt; (define chipset (make-object bitmap% &quot;town.png&quot; &#39;png))<br>
&gt; (define f (instantiate frame% (&quot;map editor&quot;)))<br>
&gt; (define mcan%<br>
&gt;   (class canvas%<br>
&gt;<br>
&gt;     (override on-event on-paint)<br>
&gt;     (define on-paint<br>
&gt;       (λ () (send (send this get-dc) draw-bitmap chipset 0 0)))<br>
&gt;     (define on-event (λ (e)<br>
&gt;                        (send msg set-label<br>
&gt;                              (string-append (number-&gt;string (floor (/ (send e get-x) 16))) &quot; &quot;<br>
&gt;                                             (number-&gt;string (floor (/ (send e get-y) 16)))))<br>
&gt;                        (when (send e get-left-down)<br>
&gt;                          (begin (set! chipset (place-image (circle 8 &quot;outline&quot; &quot;orange&quot;)<br>
&gt;                                                            (send e get-x)<br>
&gt;                                                            (send e get-y)<br>
&gt;                                                            chipset))<br>
&gt;                                 (send f refresh)));it doesn&#39;t seems to good way<br>
&gt;                        ))<br>
&gt;     (super-instantiate ())))<br>
&gt;<br>
&gt; (define mcan (new mcan% (parent f) (min-width (image-width chipset)) (min-height (image-height chipset))))<br>
&gt;<br>
&gt; (define msg (instantiate message% (&quot;nothing so far&quot; f)))<br>
&gt; (define tile-width-field (instantiate text-field% (&quot;width&quot;) (init-value &quot;16&quot;) (parent f) (stretchable-width #f)))<br>
&gt;<br>
&gt; (define tile-height-field (instantiate text-field% (&quot;height&quot;) (init-value &quot;16&quot;) (parent f) (stretchable-width #f)))<br>
&gt;<br>
&gt; (send f show #t)<br>
&gt;<br>
&gt;<br>
</div></div></blockquote></div><br></div></div>