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

Modified Files: package.lisp Log Message:

Fix up scroll bars in Beagle. Use the high level gadget events to signal scroll bar changes to the application. Document the unintuitive scroll-bar-thumb-size slot in the scroll-bar gadget.

--- /project/mcclim/cvsroot/mcclim/Backends/beagle/package.lisp 2005/05/17 20:26:37 1.4 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/package.lisp 2006/03/30 12:07:59 1.5 @@ -18,27 +18,15 @@ (:import-from :climi #:+alt-key+ ;; - #:mirror-transformation - #:port-set-sheet-region - #:port-set-sheet-transformation #:port-text-style-mappings #:port-lookup-mirror #:port-register-mirror - #:port-allocate-pixmap - #:port-deallocate-pixmap - #:port-mirror-width - #:port-mirror-height + #:port-event-process #:port-grafts - #:port-enable-sheet - #:port-disable-sheet - #:port-motion-hints - #:port-force-output #:%set-port-keyboard-focus #:set-sheet-pointer-cursor ;; - #:port-set-mirror-region - #:port-set-mirror-transformation #:update-mirror-geometry #:%sheet-mirror-region #:%sheet-mirror-transformation @@ -69,7 +57,6 @@ ;; #:space-requirement ;used as slot, very bogus ;; fbound #:medium-device-region - #:medium-draw-circle* #:draw-image #:text-style-character-width #:height ;this seems bogus @@ -81,9 +68,7 @@ #:port-ungrab-pointer ;; #:invoke-with-special-choices - #:medium-draw-glyph #:medium-miter-limit - #:make-graft ;; classes: #:mirrored-pixmap #:window-destroy-event