[mcclim-cvs] CVS mcclim/Backends/Null
rstrandh
rstrandh at common-lisp.net
Tue Jul 17 15:58:47 UTC 2007
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)
More information about the Mcclim-cvs
mailing list