Update of /project/mcclim/cvsroot/mcclim/Backends/Null In directory clnet:/tmp/cvs-serv24460

Modified Files: graft.lisp medium.lisp port.lisp Log Message: Added IGNORE declarations to avoid compiler warnings.

--- /project/mcclim/cvsroot/mcclim/Backends/Null/graft.lisp 2006/03/24 11:45:03 1.1 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/graft.lisp 2007/07/17 15:58:47 1.2 @@ -23,7 +23,9 @@ ())

(defmethod graft-width ((graft null-graft) &key (units :device)) - ()) + (declare (ignore units)) + nil)

(defmethod graft-height ((graft null-graft) &key (units :device)) - ()) + (declare (ignore units)) + nil) --- /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp 2006/03/24 12:03:31 1.2 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/medium.lisp 2007/07/17 15:58:47 1.3 @@ -23,18 +23,22 @@ ((buffering-output-p :accessor medium-buffering-output-p)))

(defmethod (setf medium-text-style) :before (text-style (medium null-medium)) - ()) + (declare (ignore text-style)) + nil)

(defmethod (setf medium-line-style) :before (line-style (medium null-medium)) - ()) + (declare (ignore line-style)) + nil)

(defmethod (setf medium-clipping-region) :after (region (medium null-medium)) - ()) + (declare (ignore region)) + nil)

(defmethod medium-copy-area ((from-drawable null-medium) from-x from-y width height (to-drawable null-medium) to-x to-y) + (declare (ignore from-x from-y width height to-x to-y)) nil)

#+nil ; FIXME: PIXMAP class @@ -43,26 +47,34 @@ from-x from-y width height (to-drawable pixmap) to-x to-y) + (declare (ignore from-x from-y width height to-x to-y)) nil) + (defmethod medium-copy-area ((from-drawable pixmap) from-x from-y width height (to-drawable null-medium) to-x to-y) - ()) + (declare (ignore from-x from-y width height to-x to-y)) + nil) + (defmethod medium-copy-area ((from-drawable pixmap) from-x from-y width height (to-drawable pixmap) to-x to-y) - ())) + (declare (ignore from-x from-y width height to-x to-y)) + nil))

(defmethod medium-draw-point* ((medium null-medium) x y) - ()) + (declare (ignore x y)) + nil)

(defmethod medium-draw-points* ((medium null-medium) coord-seq) - ()) + (declare (ignore coord-seq)) + nil)

(defmethod medium-draw-line* ((medium null-medium) x1 y1 x2 y2) - ()) + (declare (ignore x1 y1 x2 y2)) + nil)

;; FIXME: Invert the transformation and apply it here, as the :around ;; methods on transform-coordinates-mixin will cause it to be applied @@ -74,33 +86,50 @@ nil))

(defmethod medium-draw-polygon* ((medium null-medium) coord-seq closed filled) - ()) + (declare (ignore coord-seq closed filled)) + nil)

(defmethod medium-draw-rectangle* ((medium null-medium) left top right bottom filled) - ()) + (declare (ignore left top right bottom filled)) + nil) + (defmethod medium-draw-rectangles* ((medium null-medium) position-seq filled) - ()) + (declare (ignore position-seq filled)) + nil)

(defmethod medium-draw-ellipse* ((medium null-medium) center-x center-y radius-1-dx radius-1-dy radius-2-dx radius-2-dy start-angle end-angle filled) - ()) + (declare (ignore center-x center-y + radius-1-dx radius-1-dy + radius-2-dx radius-2-dy + start-angle end-angle filled)) + nil)

(defmethod medium-draw-circle* ((medium null-medium) center-x center-y radius start-angle end-angle filled) - ()) + (declare (ignore center-x center-y radius + start-angle end-angle filled)) + nil)

(defmethod text-style-ascent (text-style (medium null-medium)) + (declare (ignore text-style)) 1) + (defmethod text-style-descent (text-style (medium null-medium)) + (declare (ignore text-style)) 1) + (defmethod text-style-height (text-style (medium null-medium)) (+ (text-style-ascent text-style medium) (text-style-descent text-style medium))) + (defmethod text-style-character-width (text-style (medium null-medium) char) + (declare (ignore text-style char)) 1) + ;;; FIXME: this one is nominally backend-independent (defmethod text-style-width (text-style (medium null-medium)) (text-style-character-width text-style medium #\m)) @@ -134,11 +163,16 @@ start end align-x align-y toward-x toward-y transform-glyphs) - ()) + (declare (ignore string x y + start end + align-x align-y + toward-x toward-y transform-glyphs)) + nil)

#+nil (defmethod medium-buffering-output-p ((medium null-medium)) t) + #+nil (defmethod (setf medium-buffering-output-p) (buffer-p (medium null-medium)) buffer-p) @@ -146,18 +180,23 @@ (defmethod medium-draw-glyph ((medium null-medium) element x y align-x align-y toward-x toward-y transform-glyphs) - ()) + (declare (ignore element x y + align-x align-y toward-x toward-y + transform-glyphs)) + nil)

(defmethod medium-finish-output ((medium null-medium)) - ()) + nil) + (defmethod medium-force-output ((medium null-medium)) - ()) + nil)

(defmethod medium-clear-area ((medium null-medium) left top right bottom) - ()) + (declare (ignore left top right bottom)) + nil)

(defmethod medium-beep ((medium null-medium)) - ()) + nil)

(defmethod invoke-with-special-choices (continuation (medium null-medium)) (let ((sheet (medium-sheet medium))) --- /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp 2007/02/07 12:44:19 1.3 +++ /project/mcclim/cvsroot/mcclim/Backends/Null/port.lisp 2007/07/17 15:58:47 1.4 @@ -80,19 +80,20 @@

(defmethod port-set-sheet-region ((port null-port) (sheet mirrored-sheet-mixin) region) - ()) + (declare (ignore region)) + nil)

(defmethod port-enable-sheet ((port null-port) (mirror mirrored-sheet-mixin)) - ()) + nil)

(defmethod port-disable-sheet ((port null-port) (mirror mirrored-sheet-mixin)) - ()) + nil)

(defmethod destroy-port :before ((port null-port)) - ()) + nil)

(defmethod port-motion-hints ((port null-port) (mirror mirrored-sheet-mixin)) - ()) + nil)

(defmethod (setf port-motion-hints) (value (port null-port) (sheet mirrored-sheet-mixin)) @@ -100,7 +101,8 @@

(defmethod get-next-event ((port null-port) &key wait-function (timeout nil)) - ()) + (declare (ignore wait-function timeout)) + nil)

(defmethod make-graft ((port null-port) &key (orientation :default) (units :device)) @@ -113,30 +115,37 @@

(defmethod text-style-mapping ((port null-port) text-style &optional character-set) - ()) + (declare (ignore text-style character-set)) + nil)

(defmethod (setf text-style-mapping) (font-name (port null-port) - (text-style text-style) &optional character-set) - ()) + (text-style text-style) &optional character-set) + (declare (ignore font-name text-style character-set)) + nil)

(defmethod port-character-width ((port null-port) text-style char) - ()) + (declare (ignore text-style char)) + nil)

(defmethod port-string-width ((port null-port) text-style string &key (start 0) end) - ()) + (declare (ignore text-style string start end)) + nil)

(defmethod port-mirror-width ((port null-port) sheet) - ()) + (declare (ignore sheet)) + nil)

(defmethod port-mirror-height ((port null-port) sheet) - ()) + (declare (ignore sheet)) + nil)

(defmethod graft ((port null-port)) (first (climi::port-grafts port)))

(defmethod port-allocate-pixmap ((port null-port) sheet width height) - ()) + (declare (ignore sheet width height)) + nil)

(defmethod port-deallocate-pixmap ((port null-port) pixmap) #+nil @@ -147,16 +156,17 @@ (values (slot-value pointer 'x) (slot-value pointer 'y)))

(defmethod pointer-button-state ((pointer null-pointer)) - ()) + nil)

(defmethod port-modifier-state ((port null-port)) - ()) + nil)

(defmethod synthesize-pointer-motion-event ((pointer null-pointer)) - ()) + nil)

(defmethod port-frame-keyboard-input-focus ((port null-port) frame) (frame-properties frame 'focus)) + (defmethod (setf port-frame-keyboard-input-focus) (focus (port null-port) frame) (setf (frame-properties frame 'focus) focus)) @@ -165,35 +175,44 @@ focus)

(defmethod port-keyboard-input-focus ((port null-port)) - ()) + nil)

(defmethod port-force-output ((port null-port)) - ()) + nil)

;; FIXME: What happens when CLIM code calls tracking-pointer recursively? (defmethod port-grab-pointer ((port null-port) pointer sheet) - ()) + (declare (ignore pointer sheet)) + nil)

(defmethod port-ungrab-pointer ((port null-port) pointer sheet) - ()) + (declare (ignore pointer sheet)) + nil)

(defmethod distribute-event :around ((port null-port) event) - ()) + (declare (ignore event)) + nil)

(defmethod set-sheet-pointer-cursor ((port null-port) sheet cursor) - ()) + (declare (ignore sheet cursor)) + nil)

(defmethod bind-selection ((port null-port) window &optional time) - ()) + (declare (ignore window time)) + nil)

(defmethod release-selection ((port null-port) &optional time) - ()) + (declare (ignore time)) + nil)

(defmethod request-selection ((port null-port) requestor time) - ()) + (declare (ignore requestor time)) + nil)

(defmethod get-selection-from-event ((port null-port) event) - ()) + (declare (ignore event)) + nil)

(defmethod send-selection ((port null-port) event string) + (declare (ignore event string)) nil)