mcclim-cvs September 2007

mcclim-cvs@common-lisp.net

5 participants
29 discussions

[mcclim-cvs] CVS mcclim/Backends/CLX
by afuchs 11 Sep '07

11 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv11367/Backends/CLX Modified Files: port.lisp Log Message: In parse-clx-server-path, assert that $DISPLAY is set. Idea and draft implementation by fax on #lisp. --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2007/07/22 06:30:41 1.128 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2007/09/11 19:54:40 1.129 @@ -169,33 +169,35 @@ (defun parse-clx-server-path (path) (pop path) - (let* ((name (get-environment-variable "DISPLAY")) - ;; this code courtesy telent-clx. - (slash-i (or (position #\/ name) -1)) - (colon-i (position #\: name :start (1+ slash-i))) - (decnet-colon-p (eql (elt name (1+ colon-i)) #\:)) - (host (subseq name (1+ slash-i) colon-i)) - (dot-i (and colon-i (position #\. name :start colon-i))) - (display (when colon-i - (parse-integer name - :start (if decnet-colon-p - (+ colon-i 2) - (1+ colon-i)) - :end dot-i))) - (screen (when dot-i - (parse-integer name :start (1+ dot-i)))) - (protocol - (cond ((or (string= host "") (string-equal host "unix")) :local) - (decnet-colon-p :decnet) - ((> slash-i -1) (intern - (string-upcase (subseq name 0 slash-i)) - :keyword)) - (t :internet)))) - (list :clx - :host (getf path :host host) - :display-id (getf path :display-id (or display 0)) - :screen-id (getf path :screen-id (or screen 0)) - :protocol protocol))) + (let ((name (get-environment-variable "DISPLAY"))) + (assert name (name) + "Environment variable DISPLAY is not set") + (let* (; this code courtesy telent-clx. + (slash-i (or (position #\/ name) -1)) + (colon-i (position #\: name :start (1+ slash-i))) + (decnet-colon-p (eql (elt name (1+ colon-i)) #\:)) + (host (subseq name (1+ slash-i) colon-i)) + (dot-i (and colon-i (position #\. name :start colon-i))) + (display (when colon-i + (parse-integer name + :start (if decnet-colon-p + (+ colon-i 2) + (1+ colon-i)) + :end dot-i))) + (screen (when dot-i + (parse-integer name :start (1+ dot-i)))) + (protocol + (cond ((or (string= host "") (string-equal host "unix")) :local) + (decnet-colon-p :decnet) + ((> slash-i -1) (intern + (string-upcase (subseq name 0 slash-i)) + :keyword)) + (t :internet)))) + (list :clx + :host (getf path :host host) + :display-id (getf path :display-id (or display 0)) + :screen-id (getf path :screen-id (or screen 0)) + :protocol protocol)))) (setf (get :x11 :port-type) 'clx-port) (setf (get :x11 :server-path-parser) 'parse-clx-server-path)

1 0

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 09 Sep '07

09 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv13426 Modified Files: medium.lisp port.lisp utils.lisp Log Message: stop setting background color when not rendering filled shapes; get rid of round-coordinate function in favor of simply calling floor; go back to reversing the current pending queue of events; fix a bug in coordinates->points that caused draw-polygon to be called with one less point than was needed; get rid of hard tabs in places I was already editing --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp 2007/09/02 23:10:44 1.7 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp 2007/09/09 03:47:08 1.8 @@ -114,14 +114,14 @@ (gfw:with-graphics-context (gc (climi::port-lookup-mirror (port-of medium) (medium-sheet medium))) (let* ((old-data - (when (font-of medium) - (gfg:data-object (font-of medium) gc))) - (new-font (text-style-to-font gc text-style old-data))) + (when (font-of medium) + (gfg:data-object (font-of medium) gc))) + (new-font (text-style-to-font gc text-style old-data))) (when new-font - (when old-data - (gfs:dispose (font-of medium)) - (setf (font-of medium) nil)) - (setf (font-of medium) new-font))))) + (when old-data + (gfs:dispose (font-of medium)) + (setf (font-of medium) nil)) + (setf (font-of medium) new-font))))) (defun text-style-to-font (gc text-style old-data) (multiple-value-bind (family face size) @@ -212,148 +212,148 @@ (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color)) + (setf (gfg:foreground-color gc) color)) (let ((tr (sheet-native-transformation (medium-sheet medium)))) - (climi::with-transformed-position (tr x y) - (gfg:draw-point gc (gfs:make-point :x (round-coordinate x) - :y (round-coordinate y)))))) + (climi::with-transformed-position (tr x y) + (gfg:draw-point gc (gfs:make-point :x (floor x) + :y (floor y)))))) (add-medium-to-render medium))) (defmethod medium-draw-points* ((medium graphic-forms-medium) coord-seq) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color)) + (setf (gfg:foreground-color gc) color)) (let ((tr (sheet-native-transformation (medium-sheet medium)))) - (loop for (x y) on (coerce coord-seq 'list) by #'cddr do - (climi::with-transformed-position (tr x y) - (gfg:draw-point gc - (gfs:make-point :x (round-coordinate x) - :y (round-coordinate y))))))) + (loop for (x y) on (coerce coord-seq 'list) by #'cddr do + (climi::with-transformed-position (tr x y) + (gfg:draw-point gc + (gfs:make-point :x (floor x) + :y (floor y))))))) (add-medium-to-render medium))) (defmethod medium-draw-line* ((medium graphic-forms-medium) x1 y1 x2 y2) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color)) + (setf (gfg:foreground-color gc) color)) (let ((tr (sheet-native-transformation (medium-sheet medium)))) - (climi::with-transformed-position (tr x1 y1) - (climi::with-transformed-position (tr x2 y2) - (gfg:draw-line gc - (gfs:make-point :x (round-coordinate x1) - :y (round-coordinate y1)) - (gfs:make-point :x (round-coordinate x2) - :y (round-coordinate y2))))))) + (climi::with-transformed-position (tr x1 y1) + (climi::with-transformed-position (tr x2 y2) + (gfg:draw-line gc + (gfs:make-point :x (floor x1) + :y (floor y1)) + (gfs:make-point :x (floor x2) + :y (floor y2))))))) (add-medium-to-render medium))) (defmethod medium-draw-lines* ((medium graphic-forms-medium) coord-seq) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color)) + (setf (gfg:foreground-color gc) color)) (let ((tr (sheet-native-transformation (medium-sheet medium)))) - (loop for (x1 y1 x2 y2) on (coerce coord-seq 'list) by #'cddddr do - (climi::with-transformed-position (tr x1 y1) - (climi::with-transformed-position (tr x2 y2) - (gfg:draw-line gc - (gfs:make-point :x (round-coordinate x1) - :y (round-coordinate y1)) - (gfs:make-point :x (round-coordinate x2) - :y (round-coordinate y2)))))))) + (loop for (x1 y1 x2 y2) on (coerce coord-seq 'list) by #'cddddr do + (climi::with-transformed-position (tr x1 y1) + (climi::with-transformed-position (tr x2 y2) + (gfg:draw-line gc + (gfs:make-point :x (floor x1) + :y (floor y1)) + (gfs:make-point :x (floor x2) + :y (floor y2)))))))) (add-medium-to-render medium))) (defmethod medium-draw-polygon* ((medium graphic-forms-medium) coord-seq closed filled) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (climi::with-transformed-positions - ((sheet-native-transformation (medium-sheet medium)) coord-seq) - (let ((points-list (coordinates->points coord-seq)) - (color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color) - (when (and closed (not filled)) - (push (car (last points-list)) points-list)) - (if filled - (gfg:draw-filled-polygon gc points-list) - (gfg:draw-polygon gc points-list))))) + ((sheet-native-transformation (medium-sheet medium)) coord-seq) + (let ((points-list (coordinates->points coord-seq)) + (color (ink-to-color medium (medium-ink medium)))) + (if filled + (setf (gfg:background-color gc) color)) + (setf (gfg:foreground-color gc) color) + (when (and closed (not filled)) + (push (car (last points-list)) points-list)) + (if filled + (gfg:draw-filled-polygon gc points-list) + (gfg:draw-polygon gc points-list))))) (add-medium-to-render medium))) (defmethod medium-draw-rectangle* ((medium graphic-forms-medium) left top right bottom filled) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((tr (sheet-native-transformation (medium-sheet medium)))) - (climi::with-transformed-position (tr left top) - (climi::with-transformed-position (tr right bottom) - (let ((rect (coordinates->rectangle left top right bottom)) - (color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color) - (if filled - (gfg:draw-filled-rectangle gc rect) - (gfg:draw-rectangle gc rect))))))) + (climi::with-transformed-position (tr left top) + (climi::with-transformed-position (tr right bottom) + (let ((rect (coordinates->rectangle left top right bottom)) + (color (ink-to-color medium (medium-ink medium)))) + (if filled + (setf (gfg:background-color gc) color)) + (setf (gfg:foreground-color gc) color) + (if filled + (gfg:draw-filled-rectangle gc rect) + (gfg:draw-rectangle gc rect))))))) (add-medium-to-render medium))) (defmethod medium-draw-rectangles* ((medium graphic-forms-medium) position-seq filled) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((tr (sheet-native-transformation (medium-sheet medium))) - (color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color) - (loop for i below (length position-seq) by 4 do - (let ((x1 (round-coordinate (elt position-seq (+ i 0)))) - (y1 (round-coordinate (elt position-seq (+ i 1)))) - (x2 (round-coordinate (elt position-seq (+ i 2)))) - (y2 (round-coordinate (elt position-seq (+ i 3))))) - (climi::with-transformed-position (tr x1 y1) - (climi::with-transformed-position (tr x2 y2) - (let ((rect (coordinates->rectangle x1 y1 x2 y2))) - (if filled - (gfg:draw-filled-rectangle gc rect) - (gfg:draw-rectangle gc rect))))))))) + (color (ink-to-color medium (medium-ink medium)))) + (if filled + (setf (gfg:background-color gc) color)) + (setf (gfg:foreground-color gc) color) + (loop for i below (length position-seq) by 4 do + (let ((x1 (floor (elt position-seq (+ i 0)))) + (y1 (floor (elt position-seq (+ i 1)))) + (x2 (floor (elt position-seq (+ i 2)))) + (y2 (floor (elt position-seq (+ i 3))))) + (climi::with-transformed-position (tr x1 y1) + (climi::with-transformed-position (tr x2 y2) + (let ((rect (coordinates->rectangle x1 y1 x2 y2))) + (if filled + (gfg:draw-filled-rectangle gc rect) + (gfg:draw-rectangle gc rect))))))))) (add-medium-to-render medium))) ;; FIXME: completely untested. Not sure we're even using the right GFG h ;; functions. Are start-point and end-point right? (defmethod medium-draw-ellipse* ((medium graphic-forms-medium) center-x center-y - radius-1-dx radius-1-dy - radius-2-dx radius-2-dy - start-angle end-angle filled) + radius-1-dx radius-1-dy + radius-2-dx radius-2-dy + start-angle end-angle filled) (unless (or (= radius-2-dx radius-1-dy 0) (= radius-1-dx radius-2-dy 0)) (error "MEDIUM-DRAW-ELLIPSE* not for non axis-aligned ellipses.")) (when (target-of medium) (gfw:with-graphics-context (gc (target-of medium)) (let ((color (ink-to-color medium (medium-ink medium)))) - (setf (gfg:background-color gc) color - (gfg:foreground-color gc) color)) + (if filled + (setf (gfg:background-color gc) color)) + (setf (gfg:foreground-color gc) color)) (climi::with-transformed-position - ((sheet-native-transformation (medium-sheet medium)) - center-x center-y) - (let* ((radius-dx (abs (+ radius-1-dx radius-2-dx))) - (radius-dy (abs (+ radius-1-dy radius-2-dy))) - (min-x (round-coordinate (- center-x radius-dx))) - (min-y (round-coordinate (- center-y radius-dy))) - (max-x (round-coordinate (+ center-x radius-dx))) - (max-y (round-coordinate (+ center-y radius-dy))) - (rect (coordinates->rectangle min-x min-y max-x max-y)) - (start-point - (gfs:make-point :x (round-coordinate - (* (cos start-angle) radius-dx)) - :y (round-coordinate - (* (sin start-angle) radius-dy)))) - (end-point - (gfs:make-point :x (round-coordinate - (* (cos end-angle) radius-dx)) - :y (round-coordinate - (* (sin end-angle) radius-dy))))) - (if filled - (gfg:draw-filled-pie-wedge gc rect start-point end-point) - (gfg:draw-pie-wedge gc rect start-point end-point))))) + ((sheet-native-transformation (medium-sheet medium)) + center-x center-y) + (let* ((radius-dx (abs (+ radius-1-dx radius-2-dx))) + (radius-dy (abs (+ radius-1-dy radius-2-dy))) + (min-x (floor (- center-x radius-dx))) + (min-y (floor (- center-y radius-dy))) + (max-x (floor (+ center-x radius-dx))) + (max-y (floor (+ center-y radius-dy))) + (rect (coordinates->rectangle min-x min-y max-x max-y)) + (start-point + (gfs:make-point :x (floor + (* (cos start-angle) radius-dx)) + :y (floor + (* (sin start-angle) radius-dy)))) + (end-point + (gfs:make-point :x (floor + (* (cos end-angle) radius-dx)) + :y (floor + (* (sin end-angle) radius-dy))))) + (if filled + (gfg:draw-filled-pie-wedge gc rect start-point end-point) + (gfg:draw-pie-wedge gc rect start-point end-point))))) (add-medium-to-render medium))) ;; FIXME: completely untested. @@ -410,8 +410,9 @@ (setf text-style (or text-style (make-text-style nil nil nil))) (setf text-style (merge-text-styles text-style (medium-default-text-style medium))) + (sync-text-style medium text-style) (gfw:with-graphics-context (gc (target-of medium)) - (let ((font (text-style-to-font gc text-style nil))) + (let ((font (font-of medium))) (setf (gfg:font gc) font) (let ((metrics (gfg:metrics gc font)) (extent (gfg:text-extent gc (subseq string @@ -441,13 +442,13 @@ (gfw:with-graphics-context (gc (target-of medium)) (let ((font (font-of medium))) (if font - (setf (gfg:font gc) font)) + (setf (gfg:font gc) font)) (let ((ascent (gfg:ascent (gfg:metrics gc font))) - (x (round-coordinate x)) - (y (round-coordinate y))) - (gfg:draw-text gc - (subseq string start (or end (length string))) - (gfs:make-point :x x :y (- y ascent)))))) + (x (floor x)) + (y (floor y))) + (gfg:draw-text gc + (subseq string start (or end (length string))) + (gfs:make-point :x x :y (- y ascent)))))) (add-medium-to-render medium))) (defmethod medium-buffering-output-p ((medium graphic-forms-medium)) --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/08 23:54:49 1.7 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/09 03:47:08 1.8 @@ -170,14 +170,14 @@ ;;; (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-top-level) region) - (let ((size (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) - :height (round-coordinate (bounding-rectangle-height region))))) + (let ((size (gfs:make-size :width (floor (bounding-rectangle-width region)) + :height (floor (bounding-rectangle-height region))))) (setf (gfw:size mirror) (gfw::compute-outer-size mirror size)))) (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region) (setf (gfw:size mirror) - (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) - :height (round-coordinate (bounding-rectangle-height region))))) + (gfs:make-size :width (floor (bounding-rectangle-width region)) + :height (floor (bounding-rectangle-height region))))) (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-menu) region) (declare (ignore port mirror region))) @@ -193,8 +193,8 @@ (multiple-value-bind (x y) (transform-position transformation 0 0) (setf (gfw:location mirror) - (gfs:make-point :x (round-coordinate x) - :y (round-coordinate y))))) + (gfs:make-point :x (floor x) + :y (floor y))))) (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-menu) transformation) (declare (ignore port mirror transformation))) @@ -211,7 +211,7 @@ (let* ((mirror (make-instance 'gfw-top-level :sheet sheet :dispatcher *sheet-dispatcher* - :style '(:frame) + :style '(:workspace) :text (frame-pretty-name (pane-frame sheet))))) (let ((menu-bar (make-instance 'gfw-menu :handle (gfs::create-menu)))) (gfw::put-widget (gfw::thread-context) menu-bar) @@ -266,6 +266,7 @@ (cffi:with-foreign-object (msg-ptr 'gfs::msg) (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0))) (gfw::default-message-filter gm msg-ptr)) + (setf (events port) (nreverse (events port))) (pop (events port))))) (defmethod process-next-event :after ((port graphic-forms-port) &key wait-function (timeout nil)) @@ -414,20 +415,18 @@ +white+))) (defmethod gfw:event-paint ((self sheet-event-dispatcher) mirror gc rect) - (declare (ignore gc)) (let ((sheet (sheet mirror))) (when (and (typep sheet 'sheet-with-medium-mixin) - (not (image-of (sheet-medium sheet)))) - (gfw:with-graphics-context (gc mirror) - (let ((c (ink-to-color (sheet-medium sheet) - (sheet-desired-ink sheet)))) - (setf (gfg:background-color gc) c - (gfg:foreground-color gc) c)) - (gfg:draw-filled-rectangle gc rect))) + (not (image-of (sheet-medium sheet)))) + (let ((c (ink-to-color (sheet-medium sheet) + (sheet-desired-ink sheet)))) + (setf (gfg:background-color gc) c + (gfg:foreground-color gc) c)) + (gfg:draw-filled-rectangle gc rect)) (enqueue (port self) - (make-instance 'window-repaint-event - :sheet sheet - :region (translate-rectangle rect))))) + (make-instance 'window-repaint-event + :sheet sheet + :region (translate-rectangle rect))))) (defun generate-configuration-event (mirror pnt size) (make-instance 'window-configuration-event --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/utils.lisp 2007/03/16 14:42:51 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/utils.lisp 2007/09/09 03:47:08 1.3 @@ -21,13 +21,9 @@ (in-package :clim-graphic-forms) -(declaim (inline round-coordinate)) -(defun round-coordinate (x) - (floor (+ x .5))) - (defun requirement->size (req) - (gfs:make-size :width (round-coordinate (space-requirement-width req)) - :height (round-coordinate (space-requirement-height req)))) + (gfs:make-size :width (floor (space-requirement-width req)) + :height (floor (space-requirement-height req)))) (defun translate-rectangle (gfw-rect) (let ((pnt (gfs:location gfw-rect)) @@ -39,13 +35,12 @@ (declaim (inline coordinates->rectangle)) (defun coordinates->rectangle (left top right bottom) - (gfs:create-rectangle :x (round-coordinate left) - :y (round-coordinate top) - :width (round-coordinate (- right left)) - :height (round-coordinate (- bottom top)))) + (gfs:create-rectangle :x (floor left) + :y (floor top) + :width (floor (- right left)) + :height (floor (- bottom top)))) (defun coordinates->points (seq) - (loop for i from 2 below (length seq) by 2 - collect - (gfs:make-point :x (round-coordinate (elt seq i)) - :y (round-coordinate (elt seq (+ i 1)))))) + (loop for i from 0 below (length seq) by 2 + collect (gfs:make-point :x (floor (elt seq i)) + :y (floor (elt seq (+ i 1))))))

1 0

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 08 Sep '07

08 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv2534 Modified Files: port.lisp Log Message: take into account the difference between window outer size and client size when generating configuration events for top-level windows; return empty space requirements for menu bar panes because they are representing used native menu widgets --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/02 19:00:07 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/08 23:54:49 1.7 @@ -169,6 +169,11 @@ ;;; mirror methods ;;; +(defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-top-level) region) + (let ((size (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) + :height (round-coordinate (bounding-rectangle-height region))))) + (setf (gfw:size mirror) (gfw::compute-outer-size mirror size)))) + (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region) (setf (gfw:size mirror) (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) @@ -191,9 +196,6 @@ (gfs:make-point :x (round-coordinate x) :y (round-coordinate y))))) -(defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-top-level) transformation) - (declare (ignore port mirror transformation))) - (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-menu) transformation) (declare (ignore port mirror transformation))) @@ -377,6 +379,10 @@ (defmethod send-selection ((port graphic-forms-port) event string) nil) +(defmethod compose-space ((pane gfw-menu-bar-pane) &key width height) + (declare (ignore width height)) + (make-space-requirement :width 0 :height 0)) + ;;; ;;; dispatchers and callbacks ;;; @@ -433,6 +439,7 @@ (defmethod gfw:event-resize ((self sheet-event-dispatcher) mirror size type) (declare (ignore type)) + (setf size (gfw:client-size mirror)) (let ((sheet (sheet mirror))) (if (and sheet (subtypep (class-of sheet) 'sheet-with-medium-mixin)) (let ((medium (climi::sheet-medium sheet))) @@ -443,7 +450,7 @@ (defmethod gfw:event-move ((self sheet-event-dispatcher) mirror pnt) (enqueue (port self) - (generate-configuration-event mirror pnt (gfw:size mirror)))) + (generate-configuration-event mirror pnt (gfw:client-size mirror)))) (defclass gadget-event (window-event) ()) (defclass button-pressed-event (gadget-event) ())

1 0

[mcclim-cvs] CVS mcclim
by rgoldman 07 Sep '07

07 Sep '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv11817 Modified Files: recording.lisp Log Message: Two fixes to the output-record protocol implementation, per discussion on #lisp in the week of 3 September 2007: 1. The standard-tree-output-record did not implement an output-record-count method. antifuchs supplied one. 2. There was a default method for output-record-count that masked the bug in #1. It returned zero for any object of any output-record subclass that did not implement output-record-count. Per hefner's suggestion, this method has been moved down from basic-output-record to displayed-output-record. We hope that this will cause earlier failure in cases where methods are missing. --- /project/mcclim/cvsroot/mcclim/recording.lisp 2007/07/18 16:31:27 1.134 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2007/09/07 16:49:11 1.135 @@ -619,7 +619,7 @@ record (setf (rectangle-edges* record) (values x y x y)))) -(defmethod output-record-count ((record basic-output-record)) +(defmethod output-record-count ((record displayed-output-record)) 0) (defmethod map-over-output-records-1 @@ -971,6 +971,7 @@ ((children :initform (%make-tree-output-record-tree) :accessor %tree-record-children) (children-hash :initform (make-hash-table :test #'eql) :reader %tree-record-children-cache) + (child-count :initform 0) (last-insertion-nr :initform 0 :accessor last-insertion-nr))) (defun %entry-in-children-cache (record entry) @@ -992,25 +993,33 @@ (let ((entry (make-tree-output-record-entry child (incf (last-insertion-nr record))))) (spatial-trees:insert entry (%tree-record-children record)) (setf (output-record-parent child) record) - (setf (%entry-in-children-cache record child) entry))) + (setf (%entry-in-children-cache record child) entry)) + (incf (slot-value record 'child-count)) + (values)) (defmethod delete-output-record (child (record standard-tree-output-record) &optional (errorp t)) (let ((entry (find child (spatial-trees:search (%entry-in-children-cache record child) (%tree-record-children record)) :key #'tree-output-record-entry-record))) - (cond - ((not (null entry)) - (spatial-trees:delete entry (%tree-record-children record)) - (%remove-entry-from-children-cache record child) - (setf (output-record-parent child) nil)) - (errorp (error "~S is not a child of ~S" child record))))) + (decf (slot-value record 'child-count)) + (cond + ((not (null entry)) + (spatial-trees:delete entry (%tree-record-children record)) + (%remove-entry-from-children-cache record child) + (setf (output-record-parent child) nil)) + (errorp (error "~S is not a child of ~S" child record))))) (defmethod clear-output-record ((record standard-tree-output-record)) - (dolist (child (output-record-children record)) - (setf (output-record-parent child) nil) - (%remove-entry-from-children-cache record child)) + (map nil (lambda (child) + (setf (output-record-parent child) nil) + (%remove-entry-from-children-cache record child)) + (output-record-children record)) + (setf (slot-value record 'child-count) 0) (setf (%tree-record-children record) (%make-tree-output-record-tree))) +(defmethod output-record-count ((record standard-tree-output-record)) + (slot-value record 'child-count)) + (defun map-over-tree-output-records (function record rectangle sort-order function-args) (dolist (child (sort (spatial-trees:search rectangle (%tree-record-children record))

1 0

[mcclim-cvs] CVS mcclim/Apps/Listener
by rgoldman 04 Sep '07

04 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv20834 Modified Files: dev-commands.lisp Log Message: Made com-show-class-slots check to make sure that inheritance was finalized on the class object that the user is inquiring about. ACL is not aggressive about finalizing class inheritance, and if you invoke class-slots on a class that's not finalized, you get an error. The CLIM-Listener will check for this condition and finalize the object class, if necessary. --- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2007/06/02 20:30:53 1.42 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2007/09/04 20:45:54 1.43 @@ -672,25 +672,29 @@ class)))) (define-command (com-show-class-slots :name "Show Class Slots" - :command-table show-commands + :command-table show-commands :menu "Class Slots" - :provide-output-destination-keyword t) + :provide-output-destination-keyword t) ((class-name 'clim:symbol :prompt "class name")) - (let ((class (find-class class-name nil))) - (if (null class) - (format t "~&~A is not a defined class.~%" class-name) - (let ((slots (clim-mop:class-slots class))) - (if (null slots) - (note "~%This class has no slots.~%~%") - (progn - ; oddly, looks much better in courier, because of all the capital letters. -; (with-text-family (t :sans-serif) - (invoke-as-heading - (lambda () - (format t "~&Slots for ") - (with-output-as-presentation (t (clim-mop:class-name class) 'class-name :single-box t) - (princ (clim-mop:class-name class))))) - (present-the-slots class) )))))) + (let* ((class (find-class class-name nil)) + (finalized-p (and class + (progn + (clim-mop:finalize-inheritance class) + (clim-mop:class-finalized-p class)))) + (slots (and finalized-p (clim-mop:class-slots class)))) + (cond + ((null class) + (note "~A is not a defined class.~%" class-name)) + ((not finalized-p) + (note "Class ~A is not finalized." class-name)) + ((null slots) + (note "~%This class has no slots.~%~%")) + (t (invoke-as-heading + (lambda () + (format t "~&Slots for ") + (with-output-as-presentation (t (clim-mop:class-name class) 'class-name :single-box t) + (princ (clim-mop:class-name class))))) + (present-the-slots class))))) (defparameter *ignorable-internal-class-names* '(standard-object))

1 0

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv9041 Modified Files: medium.lisp Log Message: tweak font size mapping in text-style-to-font and reformat code; emit warning when flipping ink is detected in ink-to-color (temporary fix); use medium background color in medium-clear-area --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp 2007/03/18 17:15:55 1.6 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/medium.lisp 2007/09/02 23:10:44 1.7 @@ -58,11 +58,17 @@ ((eql ink +foreground-ink+) (setf ink (medium-foreground medium))) ((eql ink +background-ink+) - (setf ink (medium-background medium)))) - (multiple-value-bind (red green blue) (clim:color-rgb ink) - (gfg:make-color :red (min (truncate (* red 256)) 255) - :green (min (truncate (* green 256)) 255) - :blue (min (truncate (* blue 256)) 255)))) + (setf ink (medium-background medium))) + ((eql ink +flipping-ink+) + (warn "+flipping-ink+ encountered in ink-to-color~%") + (setf ink nil))) + (if ink + (multiple-value-bind (red green blue) (clim:color-rgb ink) + (gfg:make-color :red (min (truncate (* red 256)) 255) + :green (min (truncate (* green 256)) 255) + :blue (min (truncate (* blue 256)) 255))) + (gfw:with-graphics-context (gc (target-of medium)) + (gfg:background-color gc)))) (defun target-of (medium) (let ((sheet (medium-sheet medium))) @@ -128,46 +134,47 @@ ;; have better control over them ;; (let ((face-name (if (stringp family) - family - (ecase family - ((:fix :fixed) "Lucida Console") - (:serif "Times New Roman") - (:sans-serif "Arial")))) - (pnt-size (case size - (:tiny 6) - (:very-small 8) - (:small 10) - (:normal 12) - (:large 14) - (:very-large 16) - (:huge 18) - (otherwise 10))) - (style nil)) + family + (ecase family + ((:fix :fixed) "Lucida Console") + (:serif "Times New Roman") + (:sans-serif "Arial")))) + (pnt-size (case size + (:tiny 6) + (:very-small 7) + (:small 8) + (:normal 10) + (:large 12) + (:very-large 14) + (:huge 16) + (otherwise 10))) + (style nil)) (pushnew (case face - ((:bold :bold-italic :bold-oblique :italic-bold :oblique-bold) - :bold) - (otherwise - :normal)) - style) + ((:bold :bold-italic :bold-oblique :italic-bold :oblique-bold) + :bold) + (otherwise + :normal)) + style) (pushnew (case face - ((:bold-italic :italic :italic-bold) - :italic) - (otherwise - :normal)) - style) + ((:bold-italic :italic :italic-bold) + :italic) + (otherwise + :normal)) + style) (pushnew (case family - ((:fix :fixed) :fixed) - (otherwise :normal)) - style) - (when (or (null old-data) - (not (eql pnt-size (gfg:font-data-point-size old-data))) - (string-not-equal face-name (gfg:font-data-face-name old-data)) - (/= (length style) - (length (intersection style (gfg:font-data-style old-data))))) - (let ((new-data (gfg:make-font-data :face-name face-name - :point-size pnt-size - :style style))) - (make-instance 'gfg:font :gc gc :data new-data)))))) + ((:fix :fixed) :fixed) + (otherwise :normal)) + style) + (if (or (null old-data) + (not (eql pnt-size (gfg:font-data-point-size old-data))) + (string-not-equal face-name (gfg:font-data-face-name old-data)) + (/= (length style) + (length (intersection style (gfg:font-data-style old-data))))) + (let ((new-data (gfg:make-font-data :face-name face-name + :point-size pnt-size + :style style))) + (make-instance 'gfg:font :gc gc :data new-data)) + (make-instance 'gfg:font :gc gc :data old-data))))) (defmethod (setf medium-text-style) :before (text-style (medium graphic-forms-medium)) (sync-text-style medium @@ -402,18 +409,19 @@ (setf string (normalize-text-data string)) (setf text-style (or text-style (make-text-style nil nil nil))) (setf text-style - (merge-text-styles text-style (medium-default-text-style medium))) + (merge-text-styles text-style (medium-default-text-style medium))) (gfw:with-graphics-context (gc (target-of medium)) - (let* ((font (text-style-to-font gc text-style nil)) - (metrics (gfg:metrics gc font)) - (width (gfs:size-width (gfg:text-extent gc (subseq string - start - (or end (length string))))))) - (values width - (gfg:height metrics) - width - (gfg:height metrics) - (gfg:ascent metrics))))) + (let ((font (text-style-to-font gc text-style nil))) + (setf (gfg:font gc) font) + (let ((metrics (gfg:metrics gc font)) + (extent (gfg:text-extent gc (subseq string + start + (or end (length string)))))) + (values (gfs:size-width extent) + (gfg:height metrics) + (gfs:size-width extent) + (gfg:height metrics) + (gfg:ascent metrics)))))) (defmethod climi::text-bounding-rectangle* ((medium graphic-forms-medium) string &key text-style (start 0) end) @@ -434,12 +442,12 @@ (let ((font (font-of medium))) (if font (setf (gfg:font gc) font)) - (let ((h (gfg:height (gfg:metrics gc font))) + (let ((ascent (gfg:ascent (gfg:metrics gc font))) (x (round-coordinate x)) (y (round-coordinate y))) (gfg:draw-text gc (subseq string start (or end (length string))) - (gfs:make-point :x x :y (- y h)))))) + (gfs:make-point :x x :y (- y ascent)))))) (add-medium-to-render medium))) (defmethod medium-buffering-output-p ((medium graphic-forms-medium)) @@ -463,10 +471,11 @@ (defmethod medium-clear-area ((medium graphic-forms-medium) left top right bottom) (when (target-of medium) - (let ((rect (coordinates->rectangle left top right bottom))) + (let ((rect (coordinates->rectangle left top right bottom)) + (color (ink-to-color medium (medium-background medium)))) (gfw:with-graphics-context (gc (target-of medium)) - (setf (gfg:background-color gc) gfg:*color-white* - (gfg:foreground-color gc) gfg:*color-white*) + (setf (gfg:background-color gc) color + (gfg:foreground-color gc) color) (gfg:draw-filled-rectangle gc rect))) (add-medium-to-render medium)))

1 0

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv23722 Modified Files: frame-manager.lisp gadgets.lisp Log Message: disable various debug output --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/frame-manager.lisp 2007/03/14 23:49:05 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/frame-manager.lisp 2007/09/02 19:00:58 1.3 @@ -32,4 +32,4 @@ ()) (defmethod note-space-requirements-changed :after ((graft graphic-forms-graft) pane) - (gfs::debug-format "space requirements changed: ~a~%" pane)) + #+nil (gfs::debug-format "space requirements changed: ~a~%" pane)) --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/gadgets.lisp 2007/03/16 14:42:49 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/gadgets.lisp 2007/09/02 19:00:58 1.4 @@ -121,7 +121,7 @@ ;;; (defmethod realize-mirror ((port graphic-forms-port) (gadget push-button)) - (gfs::debug-format "realizing ~a~%" gadget) + #+nil (gfs::debug-format "realizing ~a~%" gadget) (let* ((parent-mirror (sheet-mirror (sheet-parent gadget))) (mirror (make-instance 'gfw-button :sheet gadget @@ -134,7 +134,7 @@ mirror)) (defmethod realize-mirror ((port graphic-forms-port) (gadget toggle-button)) - (gfs::debug-format "realizing ~a~%" gadget) + #+nil (gfs::debug-format "realizing ~a~%" gadget) (let* ((parent-mirror (sheet-mirror (sheet-parent gadget))) (mirror (make-instance 'gfw-button :parent parent-mirror :style '(:check-box)))) (if (gadget-label gadget) @@ -143,7 +143,7 @@ mirror)) (defmethod realize-mirror ((port graphic-forms-port) (gadget scroll-bar)) - (gfs::debug-format "realizing ~a~%" gadget) + #+nil (gfs::debug-format "realizing ~a~%" gadget) (let* ((parent-mirror (sheet-mirror (sheet-parent gadget))) (mirror (make-instance 'gfw-scroll-bar :parent parent-mirror :style :vertical))) (climi::port-register-mirror port gadget mirror) @@ -168,11 +168,9 @@ (if mirror (setf pref-size (gfw:preferred-size mirror -1 -1)) (progn - (gfs::debug-format "compose-space parent: ~a~%" (sheet-mirror (sheet-parent gadget))) (setf mirror (make-instance 'gfw:button :parent (sheet-mirror (sheet-parent gadget)) :text (gadget-label gadget))) (setf pref-size (gfw:preferred-size mirror -1 -1)) (gfs:dispose mirror) (setf mirror nil))) - (gfs::debug-format "pref size ~a for ~a mirror ~a~%" pref-size gadget mirror) (make-space-requirement :width (gfs:size-width pref-size) :height (gfs:size-height pref-size))))

1 0

[mcclim-cvs] CVS mcclim/Backends/Graphic-Forms
by junrue 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms In directory clnet:/tmp/cvs-serv21935 Modified Files: port.lisp Log Message: assign event timestamp for each event as it is queued; disable various debug output --- /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/03/18 14:29:00 1.5 +++ /project/mcclim/cvsroot/mcclim/Backends/Graphic-Forms/port.lisp 2007/09/02 19:00:07 1.6 @@ -111,6 +111,7 @@ :initform (make-instance 'gfw-pointer)))) (defun enqueue (port event) + (setf (slot-value event 'climi::timestamp) (gfw:obtain-event-time)) (push event (events port))) (defvar *sheet-dispatcher* (make-instance 'sheet-event-dispatcher)) @@ -169,7 +170,6 @@ ;;; (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gf-mirror-mixin) region) - (gfs::debug-format "~a~%" region) (setf (gfw:size mirror) (gfs:make-size :width (round-coordinate (bounding-rectangle-width region)) :height (round-coordinate (bounding-rectangle-height region))))) @@ -180,6 +180,10 @@ (defmethod port-set-mirror-region ((port graphic-forms-port) (mirror gfw-menu-item) region) (declare (ignore port mirror region))) +(defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gfw-top-level) transformation) + ;; FIXME: does McCLIM really need to set position of top-level window's? + ()) + (defmethod port-set-mirror-transformation ((port graphic-forms-port) (mirror gf-mirror-mixin) transformation) (multiple-value-bind (x y) (transform-position transformation 0 0) @@ -201,7 +205,7 @@ ;;; (defmethod realize-mirror ((port graphic-forms-port) (sheet climi::top-level-sheet-pane)) - (gfs::debug-format "realizing ~a~%" (class-of sheet)) + #+nil (gfs::debug-format "realizing ~a~%" (class-of sheet)) (let* ((mirror (make-instance 'gfw-top-level :sheet sheet :dispatcher *sheet-dispatcher* @@ -211,7 +215,6 @@ (gfw::put-widget (gfw::thread-context) menu-bar) (setf (gfw:menu-bar mirror) menu-bar)) (climi::port-register-mirror (port sheet) sheet mirror) - (port-enable-sheet port sheet) mirror)) (defmethod destroy-mirror ((port graphic-forms-port) (sheet climi::top-level-sheet-pane)) @@ -220,22 +223,13 @@ (gfs:dispose mirror))) (defmethod realize-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "---> realizing ~a~%" (class-of sheet)) (let* ((parent (sheet-mirror (sheet-parent sheet))) - (req (compose-space sheet)) (mirror (make-instance 'gfw-panel :sheet sheet :dispatcher *sheet-dispatcher* :style '() ;was: '(:border) :parent parent))) - (setf (gfw:size mirror) (requirement->size req)) - (multiple-value-bind (x y) - (transform-position (climi::%sheet-mirror-transformation sheet) 0 0) - (setf (gfw:location mirror) - (gfs:make-point :x (round-coordinate x) - :y (round-coordinate y)))) (climi::port-register-mirror (port sheet) sheet mirror) - (port-enable-sheet port sheet) mirror)) (defmethod destroy-mirror ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) @@ -268,15 +262,9 @@ (declare (ignore wait-function timeout)) ; FIXME (or (pop (events port)) (cffi:with-foreign-object (msg-ptr 'gfs::msg) - (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0))) - (cffi:with-foreign-slots ((gfs::hwnd gfs::message gfs::wparam gfs::lparam - gfs::time gfs::pnt) - msg-ptr gfs::msg) - (unless (gfw::default-message-filter gm msg-ptr) - (dolist (event (events port)) - (setf (slot-value event 'climi::timestamp) gfs::time))))) - (setf (events port) (nreverse (events port))) - (pop (events port))))) + (let ((gm (gfs::get-message msg-ptr (cffi:null-pointer) 0 0))) + (gfw::default-message-filter gm msg-ptr)) + (pop (events port))))) (defmethod process-next-event :after ((port graphic-forms-port) &key wait-function (timeout nil)) (declare (ignore wait-function timeout)) @@ -288,7 +276,7 @@ :orientation orientation :units units)) (defmethod make-medium ((port graphic-forms-port) sheet) - (gfs::debug-format "creating medium for ~a~%" (class-of sheet)) + #+nil (gfs::debug-format "creating medium for ~a~%" (class-of sheet)) (make-instance 'graphic-forms-medium :port port :sheet sheet)) (defmethod text-style-mapping @@ -301,18 +289,18 @@ ()) (defmethod port-character-width ((port graphic-forms-port) text-style char) - (gfs::debug-format "port-character-width called: ~a ~c~%" text-style char)) + #+nil (gfs::debug-format "port-character-width called: ~a ~c~%" text-style char)) (defmethod port-string-width ((port graphic-forms-port) text-style string &key (start 0) end) - (gfs::debug-format "port-string-width called: ~a ~c~%" text-style string)) + #+nil (gfs::debug-format "port-string-width called: ~a ~c~%" text-style string)) (defmethod port-mirror-width ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "port-mirror-width called for ~a~%" sheet) + #+nil (gfs::debug-format "port-mirror-width called for ~a~%" sheet) (let ((mirror (climi::port-lookup-mirror port sheet))) (gfs:size-width (gfw:size mirror)))) (defmethod port-mirror-height ((port graphic-forms-port) (sheet mirrored-sheet-mixin)) - (gfs::debug-format "port-mirror-height called for ~a~%" sheet) + #+nil (gfs::debug-format "port-mirror-height called for ~a~%" sheet) (let ((mirror (climi::port-lookup-mirror port sheet))) (gfs:size-height (gfw:size mirror)))) @@ -371,10 +359,6 @@ (defmethod port-ungrab-pointer ((port graphic-forms-port) pointer sheet) ()) -(defmethod distribute-event :around ((port graphic-forms-port) event) - ; (gfs::debug-format "distribute-event -> port: ~a event: ~a~%" port event) - (call-next-method)) - (defmethod set-sheet-pointer-cursor ((port graphic-forms-port) sheet cursor) ()) @@ -447,19 +431,19 @@ :width (gfs:size-width size) :height (gfs:size-height size))) -(defmethod gfw:event-move ((self sheet-event-dispatcher) mirror pnt) - (enqueue (port self) - (generate-configuration-event mirror pnt (gfw:client-size mirror)))) - (defmethod gfw:event-resize ((self sheet-event-dispatcher) mirror size type) (declare (ignore type)) (let ((sheet (sheet mirror))) (if (and sheet (subtypep (class-of sheet) 'sheet-with-medium-mixin)) - (let ((medium (climi::sheet-medium sheet))) - (if (and medium (image-of medium)) - (resize-medium-buffer medium size)))) - (enqueue (port self) - (generate-configuration-event mirror (gfw:location mirror) size)))) + (let ((medium (climi::sheet-medium sheet))) + (when (and medium (image-of medium)) + (resize-medium-buffer medium size))))) + (enqueue (port self) + (generate-configuration-event mirror (gfw:location mirror) size))) + +(defmethod gfw:event-move ((self sheet-event-dispatcher) mirror pnt) + (enqueue (port self) + (generate-configuration-event mirror pnt (gfw:size mirror)))) (defclass gadget-event (window-event) ()) (defclass button-pressed-event (gadget-event) ())

1 0

[mcclim-cvs] CVS mcclim
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv21392 Modified Files: mcclim.asd Log Message: Update mcclim versions to 0.9.6-dev. This ends the freeze period. Happy hacking, McCLIM hackers. --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/09/02 17:53:24 1.59 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/09/02 18:55:28 1.60 @@ -465,7 +465,7 @@ ;;; The actual McCLIM system that people should to use in their ASDF ;;; package dependency lists. (defsystem :mcclim - :version "0.9.5" + :version "0.9.6-dev" :depends-on (:clim-looks)) (defmethod perform :after ((op load-op) (c (eql (find-system :clim))))

1 0

[mcclim-cvs] CVS mcclim/Doc
by afuchs 02 Sep '07

02 Sep '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv21392/Doc Modified Files: mcclim.texi Log Message: Update mcclim versions to 0.9.6-dev. This ends the freeze period. Happy hacking, McCLIM hackers. --- /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/09/02 17:53:24 1.9 +++ /project/mcclim/cvsroot/mcclim/Doc/mcclim.texi 2007/09/02 18:55:28 1.10 @@ -6,7 +6,7 @@ @setfilename mcclim @settitle McCLIM User's Manual -@set MCCLIMVERSION 0.9.5 +@set MCCLIMVERSION 0.9.6-dev @copying Copyright @copyright{} 2004,2005,2006 the McCLIM hackers.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs September 2007