Hi all ACT-R users,<div>I have a strange problem with the function (get-mouse-coordinates). Actually the problem comes from the <span style="white-space:pre-wrap">(cursor-position) function, that is called by the previous.</span></div>

<div><span style="white-space:pre-wrap"><br></span></div><div><span style="white-space:pre-wrap">Basically, if I load ACT-R and my model in Allegro Lisp, the function is returning the correct mouse coordinates,</span></div>

<div><span style="white-space:pre-wrap">while if I load the model from the ACT-R Environment GUI:</span></div><div><span style="white-space:pre-wrap"><br></span></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

<span style="white-space:pre-wrap">Error:No methods applicable for generic function
#<STANDARD-GENERIC-FUNCTION NCURSOR-POSITION> with args
(#<VISIBLE-VIRTUAL-WINDOW @ #x2145c702> #<position 0 0>) of classes
(VISIBLE-VIRTUAL-WINDOW POSITION)Error in update of Handler: HANDLER7
For object: .ENV_WINDOW
message: #<Closure (:INTERNAL SEND-ENV-WINDOW-UPDATE 0) @ #x21611daa></span></blockquote><div><br></div><div> The code is exactly the same...</div><div><br></div><div>These are some interesting pieces of code:</div>

<div><br></div><div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">(defun init-window () <br><span style="white-space:pre-wrap">   </span>  (setf *screen* (open-exp-window </blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">...</blockquote><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

(setq b2 (add-button-to-exp-window </blockquote><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                 </span>:x x</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                        </span>:y y</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                        </span>:height height</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                        </span>:width  width</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                        </span>:color color</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><span style="white-space:pre-wrap">                        </span>:action #'button-pressed)))</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"> ...</blockquote><div><br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

(defun button-pressed (button)</blockquote><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">          (print-warning "position ~s"  (cursor-position *screen*))</blockquote>

<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">) </blockquote><div><br></div><div>Does somebody have a clue?</div>

<div>Thank you in advance!</div></div><div><br></div><div>Stefano</div>