[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Need help on the scriolling problem



   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