[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Need help on the scriolling problem
- To: hohmann@csmil.umich.edu
- Subject: Need help on the scriolling problem
- From: Andrew L. M. Shalit <alms>
- Date: Wed, 10 Apr 91 16:58:53 -0400
- Cc: info-macl
- In-reply-to: Luke Hohmann's message of Wed, 10 Apr 91 16:40:53 -0400 <9104102040.AA19438@csmil.umich.edu>
From: Luke Hohmann <hohmann@csmil.umich.edu>
Date: Wed, 10 Apr 91 16:40:53 -0400
(defobfun (window-click-event-handler *soda-text-window*) (where)
(declare (object-variable readln-start-position readln-stop-position))
(cond ((do ((the-cntrl (rref wptr window.controllist)
(rref the-cntrl control.nextcontrol)))
((or (null the-cntrl)
(with-dereferenced-handles
((rect (rref the-cntrl control.rect :storage :pointer)))
(point-in-rect-p rect where)))
the-cntrl))
(usual-window-click-event-handler where))))
I don't have time to work out the details, but your code might
be helped by the trap FindControl. You also might want to
use a with-port.
-andrew