hello~<br />I am making map editor<br />one of the editor&#39;s ability is select tile image from chip-set(kind of town map tile) image<br />and circle the selected tile<br />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 />could somebody give me an little advice?<br /><br />#lang scheme/gui<br />(require 2htdp/image)<br />(define pic dc&lt;%&gt;)<br />(define chipset (make-object bitmap% &quot;town.png&quot; &#39;png))<br />(define f (instantiate frame% (&quot;map editor&quot;)))<br />(define mcan% <br />  (class canvas%<br />    <br />    (override on-event on-paint)<br />    (define on-paint<br />      ( () (send (send this get-dc) draw-bitmap chipset 0 0)))<br />    (define on-event ( (e) <br />                       (send msg set-label <br />                             (string-append (number-&gt;string (floor (/ (send e get-x) 16))) &quot; &quot; <br />                                            (number-&gt;string (floor (/ (send e get-y) 16)))))<br />                       (when (send e get-left-down) <br />                         (begin (set! chipset (place-image (circle 8 &quot;outline&quot; &quot;orange&quot;) <br />                                                           (send e get-x) <br />                                                           (send e get-y) <br />                                                           chipset)) <br />                                (send f refresh)));it doesn&#39;t seems to good way<br />                       ))<br />    (super-instantiate ())))<br /><br />(define mcan (new mcan% (parent f) (min-width (image-width chipset)) (min-height (image-height chipset))))<br /><br />(define msg (instantiate message% (&quot;nothing so far&quot; f)))<br />(define tile-width-field (instantiate text-field% (&quot;width&quot;) (init-value &quot;16&quot;) (parent f) (stretchable-width #f)))<br /><br />(define tile-height-field (instantiate text-field% (&quot;height&quot;) (init-value &quot;16&quot;) (parent f) (stretchable-width #f)))<br /><br />(send f show #t)