Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory clnet:/tmp/cvs-serv13084/Backends/beagle/windowing

Modified Files: mirror.lisp Log Message:

Take out dependencies on case in symbol names. This makes McCLIM sort of work in ACL's so-called modern mode; there have been some CLX fixes recently that may get it all the way there.

Clean up events.lisp.

Add a callback-event, which will be used in ports that get high-level gadget notifications in the event process and need to deliver them to applications.

Changed the implementation of scroll bars. When the drag callback is called, just move the sheet; assume that the gadget itself has updated the value and the graphic representation. add a scroll-bar-values interface that gets and sets all scroll bar values and only updates the bar once. This will break the Beagle back end momentarily.

--- /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/mirror.lisp 2005/06/05 19:52:57 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing/mirror.lisp 2006/03/29 10:43:38 1.7 @@ -455,7 +455,7 @@ (send (send mirror 'window) :frame-rect-for-content-rect rect :style-mask (%beagle-style-mask-for-frame sheet)) - :display T)))) + :display t))))

(defun %beagle-style-mask-for-frame (sheet)