<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 10">
<meta name=Originator content="Microsoft Word 10">
<link rel=File-List href="cid:filelist.xml@01C28FE8.471AD280">
<!--[if gte mso 9]><xml>
<o:OfficeDocumentSettings>
<o:DoNotRelyOnCSS/>
</o:OfficeDocumentSettings>
</xml><![endif]--><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:DocumentKind>DocumentEmail</w:DocumentKind>
<w:HyphenationZone>21</w:HyphenationZone>
<w:EnvelopeVis/>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
span.EmailStyle17
{mso-style-type:personal-compose;
mso-style-noshow:yes;
mso-ansi-font-size:10.0pt;
mso-bidi-font-size:10.0pt;
font-family:Arial;
mso-ascii-font-family:Arial;
mso-hansi-font-family:Arial;
mso-bidi-font-family:Arial;
color:windowtext;}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
span.GramE
{mso-style-name:"";
mso-gram-e:yes;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 90.0pt 72.0pt 90.0pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
/* List Definitions */
@list l0
{mso-list-id:217938565;
mso-list-type:hybrid;
mso-list-template-ids:97009650 67895311 202113049 202113051 202113039 202113049 202113051 202113039 202113049 202113051;}
@list l0:level1
{mso-level-tab-stop:36.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level2
{mso-level-tab-stop:72.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level3
{mso-level-tab-stop:108.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level4
{mso-level-tab-stop:144.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level5
{mso-level-tab-stop:180.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level6
{mso-level-tab-stop:216.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level7
{mso-level-tab-stop:252.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level8
{mso-level-tab-stop:288.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l0:level9
{mso-level-tab-stop:324.0pt;
mso-level-number-position:left;
text-indent:-18.0pt;}
@list l1
{mso-list-id:1307666614;
mso-list-template-ids:-1210012944;}
ol
{margin-bottom:0cm;}
ul
{margin-bottom:0cm;}
-->
</style>
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
</head>
<body lang=FR-CA link=blue vlink=purple style='tab-interval:35.4pt'>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span style='mso-tab-count:
1'> </span>I have a game that work in DrScheme103, but I would like
to run it under the 202 version. Is there something I can do to have the same
“Full Scheme Language” of 103 in 202? The “Pretty Big”
language doesn’t contain what I’m looking for… Or how can I
transform those next 2 points in the 202 version? <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><o:p> </o:p></span></font></p>
<ol style='mso-margin-top-alt:0cm' start=1 type=1>
<li class=MsoNormal style='mso-list:l0 level1 lfo3;tab-stops:list 36.0pt'><font
size=2 face=Arial><span lang=EN-CA style='font-size:10.0pt;font-family:
Arial;mso-ansi-language:EN-CA'>It seems I have a problem using
“override”… I receive: “class*/names: override
element is not an identifier or pair of identifiers”. Here’s
my code:<o:p></o:p></span></font></li>
</ol>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>======================================<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>(<span
class=GramE>define</span> my-canvas% <o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>class</span> canvas% ; The
base class is canvas%<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>frame</span>) ; one
extra argument, frame, is provided to make-object <o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>override</span><o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>; Method to handle mouse events<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>[<span class=GramE>on-event</span>
(lambda (event) <o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span>(<span class=SpellE><span class=GramE>cond</span></span>
((<span class=SpellE>eq</span>? (<span class=GramE>send</span> event
get-event-type) '<span class=GramE>left-down</span>)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>send</span>
<span class=SpellE>panneau</span> focus))))]<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>; Method to handle keyboard events<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>[<span class=GramE>on-char</span> (lambda
(event)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>if</span>
(and connect? tour?) (<span class=SpellE><span class=GramE>cond</span></span>
((<span class=SpellE>eq</span>? (<span class=GramE>send</span> event
get-key-code) #\space)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>ask</span>
<span class=SpellE>curseur</span> '<span class=SpellE>selectionne</span>))<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>else</span><o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>ask</span>
<span class=SpellE>curseur</span> '<span class=SpellE>deplace</span> (send
event get-key-code))))))]<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span></span></font><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'>[<span class=SpellE>on-paint</span>
(lambda ()<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'><span
style='mso-spacerun:yes'> </span>(<span class=SpellE>ask</span>
grille '<span class=SpellE>draw-grille</span> #f)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'><span
style='mso-spacerun:yes'> </span><span
style='mso-spacerun:yes'> </span>(<span class=SpellE>ask</span> curseur '<span
class=SpellE>rafraichi</span>)<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'><span
style='mso-spacerun:yes'> </span>(<span class=SpellE>send</span>
panneau <span class=SpellE>focus</span>))])<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
style='font-size:10.0pt;font-family:Arial'><span style='mso-spacerun:yes'>
</span></span></font><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>; Call the <span
class=SpellE>superclass</span> initialization, providing frame<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><span
style='mso-spacerun:yes'> </span>(<span class=GramE>sequence</span>
(super-init frame))))<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:70.8pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>======================================<o:p></o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='margin-left:18.0pt'><font size=2 face=Arial><span
lang=EN-CA style='font-size:10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>2.
I get a similar problem with “<span class=SpellE>ivar</span>/proc”.
It is not recognized in (<span class=SpellE>ivar</span>/proc permission
'get-pen).<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>Is it a big deal to have my
game working?<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'>Thanks <span class=GramE>in<span
style='mso-spacerun:yes'> </span>advance</span> for your response.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=EN-CA style='font-size:
10.0pt;font-family:Arial;mso-ansi-language:EN-CA'><o:p> </o:p></span></font></p>
<p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><font
size=2 face=Arial><span lang=EN-CA style='font-size:10.0pt;font-family:Arial;
mso-ansi-language:EN-CA;mso-no-proof:yes'>Michel Martin <br>
<br>
"True love is born from understading." The Buddha</span></font><span
lang=EN-CA style='mso-ansi-language:EN-CA'><o:p></o:p></span></p>
</div>
</body>
</html>