[mcclim-cvs] CVS update: mcclim/design.lisp mcclim/ports.lisp

[Robert Strandh]

Update of /project/mcclim/cvsroot/mcclim
In directory common-lisp.net:/tmp/cvs-serv26220

Modified Files:
	design.lisp ports.lisp 
Log Message:
Removed a few compiler warnings.


Date: Thu Aug 18 21:58:18 2005
Author: rstrandh

Index: mcclim/design.lisp
diff -u mcclim/design.lisp:1.23 mcclim/design.lisp:1.24
--- mcclim/design.lisp:1.23	Wed Oct  6 07:12:12 2004
+++ mcclim/design.lisp	Thu Aug 18 21:58:18 2005
@@ -89,6 +89,8 @@
 
 (define-protocol-class color (design uniform-design))
 
+(defgeneric color-rgb (color))
+
 (defmethod print-object ((color color) stream)
   (print-unreadable-object (color stream :identity nil :type t)
     (multiple-value-call #'format stream "~,4F ~,4F ~,4F" (color-rgb color))))
@@ -239,6 +241,8 @@
              (saturation (atan f2 f1)))
         (values intensity hue saturation)))))
 
+(defgeneric color-ihs (color))
+
 (defmethod color-ihs ((color color))
   (multiple-value-call #'rgb-to-ihs (color-rgb color)))
 
@@ -354,6 +358,8 @@
     (print-unreadable-object (flipper stream :identity nil :type t)
       (format stream "~S ~S" design1 design2))))
 
+(defgeneric make-flipping-ink (design1 design2))
+
 (defmethod make-flipping-ink ((design1 design) (design2 design))
   (make-instance 'standard-flipping-ink :design1 design1 :design2 design2))
 
@@ -396,9 +402,13 @@
 (defun make-pattern (array designs)
   (make-instance 'indexed-pattern :array array :designs designs))
 
+(defgeneric pattern-width (pattern))
+
 (defmethod pattern-width ((pattern indexed-pattern))
   (with-slots (array) pattern
     (array-dimension array 1)))
+
+(defgeneric pattern-height (pattern))
 
 (defmethod pattern-height ((pattern indexed-pattern))
   (with-slots (array) pattern


Index: mcclim/ports.lisp
diff -u mcclim/ports.lisp:1.48 mcclim/ports.lisp:1.49
--- mcclim/ports.lisp:1.48	Tue Feb 22 04:14:26 2005
+++ mcclim/ports.lisp	Thu Aug 18 21:58:18 2005
@@ -92,6 +92,9 @@
 ;;   A method on (SETF KEYBOARD-INPUT-FOCUS) brings them together,
 ;;    calling %SET-PORT-KEYBOARD-FOCUS.
 
+(defgeneric port-keyboard-input-focus (port))
+(defgeneric (setf port-keyboard-input-focus) (focus port))
+
 (defmethod port-keyboard-input-focus (port)
   (declare (ignore port))
   (when *application-frame*
@@ -107,7 +110,7 @@
 ;; now calls (setf keyboard-input-focus), we need something concrete the
 ;; backend can implement to set the focus.    
 (defmethod %set-port-keyboard-focus (port focus &key timestamp)
-  (declare (ignore focus))  
+  (declare (ignore focus timestamp))  
   (warn "%SET-PORT-KEYBOARD-FOCUS is not implemented on ~W" port))