[stamp-cvs] CVS stamp

[rstrandh]

Update of /project/stamp/cvsroot/stamp
In directory clnet:/tmp/cvs-serv12112

Modified Files:
	stamp.lisp 
Log Message:
Avoid warnings from the compiler by using `frame' rather than
clim:*application-frame* when appropriate, and by declaring 
unused variables to be ignored. 


--- /project/stamp/cvsroot/stamp/stamp.lisp	2007/01/04 03:37:26	1.4
+++ /project/stamp/cvsroot/stamp/stamp.lisp	2007/01/04 03:55:16	1.5
@@ -105,11 +105,12 @@
     (clim:with-text-face (pane :bold)
       (write-string "Folders" pane))
     (terpri pane)
-    (loop with current-folder = (current-folder clim:*application-frame*)
-          for folder in (folders clim:*application-frame*)
+    (loop with current-folder = (current-folder frame)
+          for folder in (folders frame)
           do (when (eq folder current-folder)
                (multiple-value-bind (cursor-x cursor-y)
                    (clim:stream-cursor-position pane)
+                 (declare (ignore cursor-x))
                  (hilight-line pane cursor-y)))
              (write-string "  " pane)
              ;;(clim-clx::draw-image pane *folder-image* 0 0)
@@ -120,10 +121,9 @@
 (defun display-headers (frame pane)
   (clim:with-text-family (pane :sans-serif)
     (let* ((messages (sort (copy-list (mel:messages
-                                       (cdr (current-folder
-                                             clim:*application-frame*))))
+                                       (cdr (current-folder frame))))
                            #'< :key #'mel:date))
-           (current-message (current-message clim:*application-frame*))
+           (current-message (current-message frame))
            (pane-region (clim:pane-viewport-region pane))
            (pane-width (- (clim:bounding-rectangle-width pane-region) 20))
            (index-width (clim:stream-string-width
@@ -145,6 +145,7 @@
             do (when (eq message current-message)
                  (multiple-value-bind (cursor-x cursor-y)
                      (clim:stream-cursor-position pane)
+                   (declare (ignore cursor-x))
                    (hilight-line pane cursor-y)))
                (print-fixed-width-string pane
                                          (princ-to-string index)
@@ -165,7 +166,7 @@
                (terpri pane)))))
 
 (defun display-message (frame pane)
-  (let ((message (current-message clim:*application-frame*)))
+  (let ((message (current-message frame)))
     (when message
       (clim:with-text-family (pane :sans-serif)
         (print-properties-as-table
@@ -191,6 +192,7 @@
     (loop for part in (mel:parts message)
           do (multiple-value-bind (super-type sub-type)
                  (mel:content-type part)
+               (declare (ignore sub-type))
                (if (eq super-type :text)
                    (let ((length (mel:content-octets part)))
                      (push (get-body-string part length) text-parts))
@@ -220,6 +222,7 @@
 (defun get-attached-file-name (part)
   (multiple-value-bind (super-type sub-type properties)
       (mel:content-type part)
+    (declare (ignore super-type sub-type))
     (second (member :name properties))))
 
 (define-stamp-command (com-quit :name t) ()
@@ -323,6 +326,8 @@
   (let ((filename (concatenate 'string
                                (namestring (user-homedir-pathname))
                                (get-attached-file-name part))))
+    ;; avoid warnings
+    (declare (ignore filename))
     ))
 
 ;;; Message composing
@@ -482,6 +487,7 @@
 (defun hilight-line (pane y)
   (multiple-value-bind (pane-x1 pane-y1 pane-x2 pane-y2)
       (clim:bounding-rectangle* pane)
+    (declare (ignore pane-y1 pane-y2))
     (let ((height (clim:text-style-height clim:*default-text-style* pane)))
       (clim:draw-rectangle* pane
                             pane-x1 y pane-x2 (+ y height 1)