[Eclipse-cvs] CVS update: eclipse/lib/netwm-manager.lisp

[Iban Hatchondo]

Update of /project/eclipse/cvsroot/eclipse/lib
In directory common-lisp.net:/tmp/cvs-serv24305/lib

Modified Files:
	netwm-manager.lisp 
Log Message:
fix invalid array range.

Date: Thu Nov 20 19:04:08 2003
Author: ihatchondo

Index: eclipse/lib/netwm-manager.lisp
diff -u eclipse/lib/netwm-manager.lisp:1.8 eclipse/lib/netwm-manager.lisp:1.9
--- eclipse/lib/netwm-manager.lisp:1.8	Thu Nov 20 18:48:54 2003
+++ eclipse/lib/netwm-manager.lisp	Thu Nov 20 19:04:08 2003
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: EXTENDED-WINDOW-MANAGER-HINTS -*-
-;;; $Id: netwm-manager.lisp,v 1.8 2003/11/20 23:48:54 ihatchondo Exp $
+;;; $Id: netwm-manager.lisp,v 1.9 2003/11/21 00:04:08 ihatchondo Exp $
 ;;;
 ;;; This is the CLX support for the managing with gnome.
 ;;;
@@ -375,7 +375,7 @@
   "return the strut property as a multiple value (left right top bottom)."
   (let ((v (get-property window :_NET_WM_STRUT :result-type 'vector)))
     (declare (type (or null (simple-array integer (4))) v))
-    (when v (values (aref v 1) (aref v 2) (aref v 3) (aref v 4)))))
+    (when v (values (aref v 0) (aref v 1) (aref v 2) (aref v 3)))))
 
 (defsetf net-wm-strut (window) (strut)
   "set the strut property. The given strut is expected to be a list or a
@@ -393,9 +393,9 @@
   (let ((v (get-property window :_NET_WM_STRUT_PARTIAL :result-type 'vector)))
     (declare (type (or null (simple-array integer (12))) v))
     (when v
-      (values (aref v 1) (aref v 2) (aref v 3) (aref v 4)
-	      (aref v 5) (aref v 6) (aref v 7) (aref v 8)
-	      (aref v 9) (aref v 10) (aref v 11) (aref v 12)))))
+      (values (aref v 0) (aref v 1) (aref v 2) (aref v 3)
+	      (aref v 4) (aref v 5) (aref v 6) (aref v 7)
+	      (aref v 8) (aref v 9) (aref v 10) (aref v 11)))))
 
 (defsetf net-wm-strut-partial (window) (strut)
   "set the strut partial property. The given strut is expected to be a