March 2006 - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

[mcclim-cvs] CVS mcclim
by afuchs 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv22364 Modified Files: decls.lisp Log Message: Fix invoke-with-new-output-record and invoke-with-output-to-output-record's arg lists to conform to the Franz User Guide, as noted in recording.lisp. --- /project/mcclim/cvsroot/mcclim/decls.lisp 2006/03/15 15:38:39 1.37 +++ /project/mcclim/cvsroot/mcclim/decls.lisp 2006/03/30 20:31:06 1.38 @@ -321,9 +321,9 @@ ;; with-output-recording-options (stream &key record draw) &body body [Macro] (defgeneric invoke-with-output-recording-options (stream continuation record draw)) ;; with-new-output-record (stream &optional record-type record &rest initargs) &body body [MAcro] -(defgeneric invoke-with-new-output-record (stream continuation record-type &rest initargs &key parent)) +(defgeneric invoke-with-new-output-record (stream continuation record-type constructor &key &allow-other-keys)) ;; with-output-to-output-record (stream &optional record-type record &rest initargs)) &body body [Macro] -(defgeneric invoke-with-output-to-output-record (stream continuation record-type &rest initargs &key)) +(defgeneric invoke-with-output-to-output-record (stream continuation record-type constructor &rest initargs &key &allow-other-keys)) (defgeneric make-design-from-output-record (record)) ;;;; 21.2

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle/native-panes
by tmoore 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes In directory clnet:/tmp/cvs-serv25437/Backends/beagle/native-panes Modified Files: beagle-scroll-bar-pane.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/native-panes/beagle-scroll-bar-pane.lisp 2006/02/22 10:55:41 1.7 +++ /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp 2006/03/30 12:07:59 1.8 @@ -4,13 +4,7 @@ ;;; Limitations: ;;; ;;; - ignores different NSControl sizes -;;; - inherits from the 'standard' scroll-bar-pane, rather than from the abstract -;;; scroll bar -;;; Inheriting from 'scroll-bar' will probably work if we use the :default-initargs -;;; hackery out of gadgets.lisp (but shouldn't these be part of the abstract type?) - -;;;(defclass beagle-scroll-bar-pane (scroll-bar) (defclass beagle-scroll-bar-pane (scroll-bar) ((tk-obj :initform (%null-ptr) :accessor toolkit-object))) @@ -83,6 +77,54 @@ :min-height width :height width)))) +;;; Change the value of the scroll bar in the application process i.e., +;;; consistently with respect to events that have been received. + +(defmethod drag-callback :before + ((gadget beagle-scroll-bar-pane) client gadget-id value) + (declare (ignore client gadget-id)) + (setf (slot-value gadget 'climi::value) value)) + +(defun update-cocoa-scroll-bar (scroll-bar) + (let* ((range (- (gadget-max-value scroll-bar) + (gadget-min-value scroll-bar))) + (value (if (zerop range) + 0.0 + (/ (- (gadget-value scroll-bar) + (gadget-min-value scroll-bar)) + range))) + (ts (climi::scroll-bar-thumb-size scroll-bar)) + (loz-size (if (<= range 0) + 1.0 + (/ ts (+ range ts))))) + (send (toolkit-object scroll-bar) + :set-float-value (coerce (clamp value 0.0 1.0) 'short-float) + :knob-proportion (coerce (clamp loz-size 0.0 1.0) 'short-float)))) + +(defmethod (setf gadget-min-value) :after + (new-value (pane beagle-scroll-bar-pane)) + (declare (ignore new-value)) + (update-cocoa-scroll-bar pane)) + +(defmethod (setf gadget-max-value) :after (new-value (pane beagle-scroll-bar-pane)) + (declare (ignore new-value)) + (update-cocoa-scroll-bar pane)) + +(defmethod (setf climi::scroll-bar-thumb-size) :after (new-value (pane beagle-scroll-bar-pane)) + (declare (ignore new-value)) + (update-cocoa-scroll-bar pane)) + +(defmethod (setf gadget-value) :after (new-value (pane beagle-scroll-bar-pane) &key invoke-callback) + (declare (ignore new-value invoke-callback)) + (update-cocoa-scroll-bar pane)) + +(climi::defmethod* (setf climi::scroll-bar-values) + (min-value max-value thumb-size value (scroll-bar beagle-scroll-bar-pane)) + (setf (slot-value scroll-bar 'climi::min-value) min-value + (slot-value scroll-bar 'climi::max-value) max-value + (slot-value scroll-bar 'climi::thumb-size) thumb-size + (slot-value scroll-bar 'climi::value) value) + (update-cocoa-scroll-bar scroll-bar)) ;;; No need to update the scrollbar (most of the time) since Cocoa will move ;;; the 'thumb' appropriately. Stick some debug in to see when it's invoked. @@ -91,6 +133,7 @@ ;;; I believe it's safe to leave this alone though since the sb will only be ;;; redrawn once through the event loop it shouldn't be too inefficient to ;;; be changing its value regularly. +#-(and) (defmethod (setf gadget-value) :before (value (gadget beagle-scroll-bar-pane) &key invoke-callback) (declare (ignore invoke-callback)) @@ -101,12 +144,10 @@ (let* ((range (- (gadget-max-value gadget) (gadget-min-value gadget))) - (size (if (eq (gadget-orientation gadget) :vertical) - (bounding-rectangle-height gadget) - (bounding-rectangle-width gadget))) + (size (climi::scroll-bar-thumb-size gadget)) (position (if (<= range 0) 0.0 - (/ value range))) + (/ (- value (gadget-min-value gadget) range))) (loz-size (if (<= range 0) 1.0 (/ size range)))) @@ -115,6 +156,7 @@ :knob-proportion (coerce loz-size 'short-float)))) +;;; Called in the Cocoa App thread. (defun scroll-bar-action-handler (pane sender) ;; Now we need to decide exactly what we do with these events... not sure @@ -132,28 +174,33 @@ (let ((hit-part (send sender 'hit-part))) (cond ((or (eq hit-part #$NSScrollerKnob) ; drag knob (eq hit-part #$NSScrollerKnobSlot)) ; click on knob (or alt-click on slot) - (let ((value (* (send sender 'float-value) ; 0.0 - 1.0 + (let ((value (+ (* (send sender 'float-value) ; 0.0 - 1.0 (- (gadget-max-value pane) ; range; 0.0 -> max extent ... - (gadget-min-value pane))))) ; ... (probably) - (clim:drag-callback pane - (gadget-client pane) - (gadget-id pane) - value))) + (gadget-min-value pane))) + (gadget-min-value pane)))) ; ... (probably) + (queue-callback #'clim:drag-callback + pane + (gadget-client pane) + (gadget-id pane) + value))) ((eq hit-part #$NSScrollerDecrementLine) - (clim:scroll-up-line-callback pane - (gadget-client pane) - (gadget-id pane))) + (queue-callback #'clim:scroll-up-line-callback + pane + (gadget-client pane) + (gadget-id pane))) ((eq hit-part #$NSScrollerDecrementPage) - (clim:scroll-up-page-callback pane - (gadget-client pane) - (gadget-id pane))) + (queue-callback #'clim:scroll-up-page-callback + pane + (gadget-client pane) + (gadget-id pane))) ((eq hit-part #$NSScrollerIncrementLine) - (clim:scroll-down-line-callback pane - (gadget-client pane) - (gadget-id pane))) + (queue-callback #'clim:scroll-down-line-callback + pane + (gadget-client pane) + (gadget-id pane))) ((eq hit-part #$NSScrollerIncrementPage) - (clim:scroll-down-page-callback pane - (gadget-client pane) - (gadget-id pane)))))) - + (queue-callback #'clim:scroll-down-page-callback + pane + (gadget-client pane) + (gadget-id pane))))))

1 0

[mcclim-cvs] CVS mcclim/Backends/beagle
by tmoore 30 Mar '06

30 Mar '06

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

1 0

[mcclim-cvs] CVS mcclim
by tmoore 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv25437 Modified Files: gadgets.lisp 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/gadgets.lisp 2006/03/29 10:43:37 1.98 +++ /project/mcclim/cvsroot/mcclim/gadgets.lisp 2006/03/30 12:07:59 1.99 @@ -460,8 +460,11 @@ :initform nil :reader scroll-bar-scroll-up-page-callback) (thumb-size :initarg :thumb-size :initform 1/4 - :accessor scroll-bar-thumb-size) - ) + :accessor scroll-bar-thumb-size + :documentation "The size of the scroll bar thumb (slug) in the + units of the gadget value. When the scroll bar is drawn the empty region of + the scroll bar and the thumb are drawn in proportion to the values of the + gadget range and thumb size.")) (:default-initargs :value 0 :min-value 0 :max-value 1 @@ -2853,6 +2856,7 @@ (defmethod handle-event ((gadget basic-gadget) (event callback-event)) (apply (callback-function event) + (event-gadget event) (event-client event) (event-client-id event) (event-other-args event))) --- /project/mcclim/cvsroot/mcclim/package.lisp 2006/03/15 22:56:54 1.53 +++ /project/mcclim/cvsroot/mcclim/package.lisp 2006/03/30 12:07:59 1.54 @@ -1947,6 +1947,7 @@ #:port-set-sheet-region #:port-set-sheet-transformation #:port-ungrab-pointer + #:queue-callback #:%set-port-keyboard-focus #:set-sheet-pointer-cursor #:synthesize-pointer-motion-event

1 0

[mcclim-cvs] CVS mcclim/Webpage
by crhodes 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv11257 Modified Files: index.html Log Message: Link to binaries; note their highly-experimental status --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 09:37:02 1.12 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 10:06:08 1.13 @@ -59,6 +59,15 @@ </p> <h2>Recent News</h2> <p> + 2006-03-30: Highly-experimental binaries of McCLIM 0.9.2, set + up to start up the McCLIM listener, and incorporating the + McCLIM demos as well as a graphical debugger and inspector, + are available for download. Supported platforms: <a + href="downloads/mcclim-listener-0.9.2-ppc-osx.tar.bz2">PPC/OS + X</a>, <a + href="downloads/mcclim-listener-0.9.2-x86-linux.tar.bz2">x86/Linux</a>. + + <p> 2006-03-26: McCLIM 0.9.2 "Laetare Sunday" released. </p> <p> @@ -106,7 +115,7 @@ </div> <br> <hr> -$Date: 2006/03/30 09:37:02 $ +$Date: 2006/03/30 10:06:08 $

1 0

[mcclim-cvs] CVS mcclim/Webpage
by crhodes 30 Mar '06

30 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv7900 Modified Files: index.html Log Message: Update the webpage. --- /project/mcclim/cvsroot/mcclim/Webpage/index.html 2005/07/30 17:10:47 1.11 +++ /project/mcclim/cvsroot/mcclim/Webpage/index.html 2006/03/30 09:37:02 1.12 @@ -55,43 +55,58 @@ <h2><a name="downloads">Releases</a></h2> A compressed tar file of the <a href="http://common-lisp.net/cvs_tarballs/mcclim.tar.gz">sources</a> is made nightly. <p> - The most recent release of McCLIM is 0.9.1, in March 2005, available here: <a href="downloads/mcclim-0.9.1.tar.gz">mcclim-0.9.1.tar.gz</a>. It is also available via <a href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. + The most recent release of McCLIM is 0.9.2, in March 2006, available here: <a href="downloads/mcclim-0.9.2.tar.gz">mcclim-0.9.2.tar.gz</a>. It is also available via <a href="http://cliki.net/asdf-install">ASDF-INSTALL</a>. </p> <h2>Recent News</h2> <p> - McCLIM CVS hosting moved to - <a href="http://common-lisp.net/">common-lisp.net</a>; - if you're a developer you should already have heard about - this (if not, mail admin(a)common-lisp.net) - <p> - Tim Moore presented a - <a href="clim-paper.pdf">paper</a> - written by Robert Strandh and himself - at the International Lisp Conference during the last week of October 2002. + 2006-03-26: McCLIM 0.9.2 "Laetare Sunday" released. + </p> + <p> + 2005-03-06: McCLIM 0.9.1 "Mothering Sunday" released. + <p> + 2004-12-09: McCLIM CVS hosting moved to <a + href="http://common-lisp.net/">common-lisp.net</a>; if you're + a developer you should already have heard about this (if not, + mail admin(a)common-lisp.net) + </p> + <p> + 2002-10-29: Tim Moore presented a <a + href="clim-paper.pdf">paper</a> written by Robert Strandh and + himself at the International Lisp Conference during the last + week of October 2002. </p> <h2>Who's involved?</h2> <p> McCLIM is written by a diverse group of individuals from across the world. - The primary developers include: + Contributors past and present include: </p> <ul> + <li>Daniel Barlow</li> <li>Gilbert Baumann</li> <li>Julien Boninfan</li> <li>Alexey Dejneka</li> + <li>Clemens Fruhwirth</li> + <li>Andreas Fuchs</li> + <li>Robert Goldman</li> <li>Iban Hatchondo</li> <li>Andy Hefner</li> + <li>Brian Mastenbrook</li> <li>Mike McDonald</li> <li>Timothy Moore</li> <li>Edena Pixel</li> + <li>Max-Gerd Retzlaff</li> + <li>Christophe Rhodes</li> + <li>Duncan Rose</li> <li>Arnaud Rouanet</li> <li>Lionel Salabartan</li> + <li>Rudi Schlatte</li> <li>Brian Spilsbury</li> <li>Robert Strandh</li> </ul> </div> <br> <hr> -$Date: 2005/07/30 17:10:47 $ +$Date: 2006/03/30 09:37:02 $

1 0

[mcclim-cvs] CVS mcclim/Looks
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Looks In directory clnet:/tmp/cvs-serv13084/Looks Modified Files: pixie.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/Looks/pixie.lisp 2003/10/08 17:00:56 1.15 +++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp 2006/03/29 10:43:50 1.16 @@ -1,4 +1,4 @@ -(in-package :CLIM-INTERNALS) +(in-package :clim-internals) ;;; ; @@ -341,6 +341,7 @@ ; We derive from the slider, since the slider is the same, only ; less so. +;;; XXX Probably should derive from scroll-bar too. (defconstant +pixie-scroll-bar-pane-thumb-size+ 5000.0) (defconstant +pixie-scroll-bar-thumb-half-height+ 17) @@ -476,6 +477,14 @@ (yb (translate-range-value (+ v ts) minv (+ maxv ts) y1 y2))) (make-rectangle* x1 (- ya 1) x2 (+ yb 1))))))))) +(defmethod* (setf scroll-bar-values) + (min-value max-value thumb-size value (scroll-bar pixie-scroll-bar-pane)) + (setf (slot-value scroll-bar 'min-value) min-value + (slot-value scroll-bar 'max-value) max-value + (slot-value scroll-bar 'thumb-size) thumb-size + (slot-value scroll-bar 'value) value) + (dispatch-repaint scroll-bar (sheet-region scroll-bar))) + (defmethod handle-event ((pane pixie-scroll-bar-pane) (event pointer-button-release-event)) (with-slots (armed dragging repeating was-repeating) pane (setf was-repeating repeating)

1 0

[mcclim-cvs] CVS mcclim/Lisp-Dep
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv13084/Lisp-Dep Modified Files: fix-acl.lisp mp-acl.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/Lisp-Dep/fix-acl.lisp 2005/02/07 21:16:58 1.10 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp 2006/03/29 10:43:48 1.11 @@ -11,107 +11,107 @@ (defpackage :clim-mop (:use :clos :common-lisp) - (:export "ACCESSOR-METHOD-SLOT-DEFINITION" - "ADD-DEPENDENT" - "ADD-DIRECT-METHOD" - "ADD-DIRECT-SUBCLASS" - "ADD-METHOD" - "ALLOCATE-INSTANCE" - "BUILT-IN-CLASS" - "CLASS" - "CLASS-DEFAULT-INITARGS" - "CLASS-DIRECT-DEFAULT-INITARGS" - "CLASS-DIRECT-SLOTS" - "CLASS-DIRECT-SUBCLASSES" - "CLASS-DIRECT-SUPERCLASSES" - "CLASS-FINALIZED-P" - "CLASS-NAME" - "CLASS-PRECEDENCE-LIST" - "CLASS-PROTOTYPE" - "CLASS-SLOTS" - "COMPUTE-APPLICABLE-METHODS" - "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" - "COMPUTE-CLASS-PRECEDENCE-LIST" - "COMPUTE-DEFAULT-INITARGS" - "COMPUTE-DISCRIMINATING-FUNCTION" - "COMPUTE-EFFECTIVE-METHOD" - "COMPUTE-EFFECTIVE-SLOT-DEFINITION" - "COMPUTE-SLOTS" - "DIRECT-SLOT-DEFINITION" - "DIRECT-SLOT-DEFINITION-CLASS" - "EFFECTIVE-SLOT-DEFINITION" - "EFFECTIVE-SLOT-DEFINITION-CLASS" - "ENSURE-CLASS" - "ENSURE-CLASS-USING-CLASS" - "ENSURE-GENERIC-FUNCTION" - "ENSURE-GENERIC-FUNCTION-USING-CLASS" - "EQL-SPECIALIZER" - "EQL-SPECIALIZER-OBJECT" - "EXTRACT-LAMBDA-LIST" - "EXTRACT-SPECIALIZER-NAMES" - "FINALIZE-INHERITANCE" - "FIND-METHOD-COMBINATION" - "FORWARD-REFERENCED-CLASS" - "FUNCALLABLE-STANDARD-CLASS" - "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" - "FUNCALLABLE-STANDARD-OBJECT" - "FUNCTION" - "GENERIC-FUNCTION" - "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" - "GENERIC-FUNCTION-DECLARATIONS" - "GENERIC-FUNCTION-LAMBDA-LIST" - "GENERIC-FUNCTION-METHOD-CLASS" - "GENERIC-FUNCTION-METHOD-COMBINATION" - "GENERIC-FUNCTION-METHODS" - "GENERIC-FUNCTION-NAME" - "INTERN-EQL-SPECIALIZER" - "MAKE-INSTANCE" - "MAKE-METHOD-LAMBDA" - "MAP-DEPENDENTS" - "METAOBJECT" - "METHOD" - "METHOD-COMBINATION" - "METHOD-FUNCTION" - "METHOD-GENERIC-FUNCTION" - "METHOD-LAMBDA-LIST" - "METHOD-QUALIFIERS" - "METHOD-SPECIALIZERS" - "READER-METHOD-CLASS" - "REMOVE-DEPENDENT" - "REMOVE-DIRECT-METHOD" - "REMOVE-DIRECT-SUBCLASS" - "REMOVE-METHOD" - "SET-FUNCALLABLE-INSTANCE-FUNCTION" - "SLOT-BOUNDP-USING-CLASS" - "SLOT-DEFINITION" - "SLOT-DEFINITION-ALLOCATION" - "SLOT-DEFINITION-INITARGS" - "SLOT-DEFINITION-INITFORM" - "SLOT-DEFINITION-INITFUNCTION" - "SLOT-DEFINITION-LOCATION" - "SLOT-DEFINITION-NAME" - "SLOT-DEFINITION-READERS" - "SLOT-DEFINITION-TYPE" - "SLOT-DEFINITION-WRITERS" - "SLOT-MAKUNBOUND-USING-CLASS" - "SLOT-VALUE-USING-CLASS" - "SPECIALIZER" - "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" - "SPECIALIZER-DIRECT-METHODS" - "STANDARD-ACCESSOR-METHOD" - "STANDARD-CLASS" - "STANDARD-DIRECT-SLOT-DEFINITION" - "STANDARD-EFFECTIVE-SLOT-DEFINITION" - "STANDARD-GENERIC-FUNCTION" - "STANDARD-INSTANCE-ACCESS" - "STANDARD-METHOD" - "STANDARD-OBJECT" - "STANDARD-READER-METHOD" - "STANDARD-SLOT-DEFINITION" - "STANDARD-WRITER-METHOD" - "UPDATE-DEPENDENT" - "VALIDATE-SUPERCLASS" - "WRITER-METHOD-CLASS")) + (:export #:accessor-method-slot-definition + #:add-dependent + #:add-direct-method + #:add-direct-subclass + #:add-method + #:allocate-instance + #:built-in-class + #:class + #:class-default-initargs + #:class-direct-default-initargs + #:class-direct-slots + #:class-direct-subclasses + #:class-direct-superclasses + #:class-finalized-p + #:class-name + #:class-precedence-list + #:class-prototype + #:class-slots + #:compute-applicable-methods + #:compute-applicable-methods-using-classes + #:compute-class-precedence-list + #:compute-default-initargs + #:compute-discriminating-function + #:compute-effective-method + #:compute-effective-slot-definition + #:compute-slots + #:direct-slot-definition + #:direct-slot-definition-class + #:effective-slot-definition + #:effective-slot-definition-class + #:ensure-class + #:ensure-class-using-class + #:ensure-generic-function + #:ensure-generic-function-using-class + #:eql-specializer + #:eql-specializer-object + #:extract-lambda-list + #:extract-specializer-names + #:finalize-inheritance + #:find-method-combination + #:forward-referenced-class + #:funcallable-standard-class + #:funcallable-standard-instance-access + #:funcallable-standard-object + #:function + #:generic-function + #:generic-function-argument-precedence-order + #:generic-function-declarations + #:generic-function-lambda-list + #:generic-function-method-class + #:generic-function-method-combination + #:generic-function-methods + #:generic-function-name + #:intern-eql-specializer + #:make-instance + #:make-method-lambda + #:map-dependents + #:metaobject + #:method + #:method-combination + #:method-function + #:method-generic-function + #:method-lambda-list + #:method-qualifiers + #:method-specializers + #:reader-method-class + #:remove-dependent + #:remove-direct-method + #:remove-direct-subclass + #:remove-method + #:set-funcallable-instance-function + #:slot-boundp-using-class + #:slot-definition + #:slot-definition-allocation + #:slot-definition-initargs + #:slot-definition-initform + #:slot-definition-initfunction + #:slot-definition-location + #:slot-definition-name + #:slot-definition-readers + #:slot-definition-type + #:slot-definition-writers + #:slot-makunbound-using-class + #:slot-value-using-class + #:specializer + #:specializer-direct-generic-functions + #:specializer-direct-methods + #:standard-accessor-method + #:standard-class + #:standard-direct-slot-definition + #:standard-effective-slot-definition + #:standard-generic-function + #:standard-instance-access + #:standard-method + #:standard-object + #:standard-reader-method + #:standard-slot-definition + #:standard-writer-method + #:update-dependent + #:validate-superclass + #:writer-method-class)) ;;;(eval-when (:compile-toplevel :load-toplevel :execute) ;;; (do-external-symbols (sym :clos) @@ -165,3 +165,6 @@ .args.)))))) (t `(defun ,fun ,args ,@body)))) ) + + + --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2004/03/10 12:03:45 1.5 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-acl.lisp 2006/03/29 10:43:48 1.6 @@ -23,7 +23,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -(in-package :CLIM-INTERNALS) +(in-package :clim-internals) (defconstant *multiprocessing-p* t)

1 0

[mcclim-cvs] CVS mcclim/Experimental/unzip
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Experimental/unzip In directory clnet:/tmp/cvs-serv13084/Experimental/unzip Modified Files: inflate.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/Experimental/unzip/inflate.lisp 2003/03/21 15:15:09 1.2 +++ /project/mcclim/cvsroot/mcclim/Experimental/unzip/inflate.lisp 2006/03/29 10:43:46 1.3 @@ -220,7 +220,7 @@ ;; needed. We loop, until we have enough bits to make a ;; sensible decision. `((lambda (ht) - (declare (type (simple-array T (*)) ht)) + (declare (type (simple-array t (*)) ht)) (let ((m ',(car ms)) (b 0) x) (declare (type (unsigned-byte 24) b)) ;; (bs/ensure-n-bits 24) @@ -246,7 +246,7 @@ `((lambda (huffman-tree n) (declare (type (integer 0 1000) n)) (let ((res (make-array n :initial-element 0))) - (declare (type (simple-array T (*)) res)) + (declare (type (simple-array t (*)) res)) (do ((i 0 i)) ((>= i n)) (declare (type (integer 0 1000) i)) @@ -507,7 +507,7 @@ n-hclen (+ 4 (bs/read-byte 4)) hclens (make-array 19 :initial-element 0)) (locally - (declare (type (simple-array T (*)) hclens) + (declare (type (simple-array t (*)) hclens) (type (unsigned-byte 6) n-hdist) (type (unsigned-byte 5) n-hclen)) (loop

1 0

[mcclim-cvs] CVS mcclim/Experimental
by tmoore 29 Mar '06

29 Mar '06

Update of /project/mcclim/cvsroot/mcclim/Experimental In directory clnet:/tmp/cvs-serv13084/Experimental Modified Files: pointer-doc-hack.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/Experimental/pointer-doc-hack.lisp 2003/06/01 15:07:58 1.1 +++ /project/mcclim/cvsroot/mcclim/Experimental/pointer-doc-hack.lisp 2006/03/29 10:43:44 1.2 @@ -235,7 +235,7 @@ ((eql button +pointer-left-button+) *icon-mouse-left*) ((eql button +pointer-middle-button+) *icon-mouse-middle*) ((eql button +pointer-right-button+) *icon-mouse-right*) - (T name))) + (t name))) (if (not (typep name 'indexed-pattern)) (format pstream "~A: " name) (multiple-value-bind (x y) (stream-cursor-position pstream) (draw-pattern* pstream name x y)

1 0