[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory cl-net:/tmp/cvs-serv20917

Modified Files:
	wm.lisp 
Log Message:
Fix: use window hash table machinery.

--- /project/eclipse/cvsroot/eclipse/wm.lisp	2008/08/29 14:57:47	1.57
+++ /project/eclipse/cvsroot/eclipse/wm.lisp	2009/11/17 17:31:25	1.58
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: wm.lisp,v 1.57 2008/08/29 14:57:47 ihatchondo Exp $
+;;; $Id: wm.lisp,v 1.58 2009/11/17 17:31:25 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -653,7 +653,7 @@
 (defun remove-window-from-client-lists (window root)
   "Removes a window from the client lists root properties."
   (with-slots ((rw window) client-list) root
-    (remhash window client-list)
+    (remwinhash window client-list)
     (setf (netwm:net-client-list-stacking rw :mode :remove) window
 	  (gnome:win-client-list rw :mode :remove) window
 	  (netwm:net-client-list rw :mode :remove) window)))
@@ -661,8 +661,8 @@
 (defun add-window-in-client-lists (window root)
   "Add a window in the client lists root properties."
   (with-slots ((rw window) client-list) root
-    (let ((up2date (gethash window client-list)))
-      (setf (gethash window client-list) window)
+    (let ((up2date (getwinhash window client-list)))
+      (setf (getwinhash window client-list) window)
       (update-client-list-stacking root)
       (unless up2date
 	(setf (netwm:net-client-list rw :mode :append) window))
@@ -675,7 +675,7 @@
   "Recompute and set the root property net_client_list_stacking."
   (with-slots (window client-list) root
     (loop for win in (query-application-tree window)
-	  when (gethash win client-list) collect win into wins
+	  when (getwinhash win client-list) collect win into wins
 	  finally (setf (netwm:net-client-list-stacking window) wins))))
 
 (defun update-lists (app state root)