[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory clnet:/tmp/cvs-serv15180

Modified Files:
	rectangles.lisp 
Log Message:
Cosmetic changes.

--- /project/eclipse/cvsroot/eclipse/rectangles.lisp	2005/01/17 09:30:40	1.4
+++ /project/eclipse/cvsroot/eclipse/rectangles.lisp	2007/05/08 22:30:47	1.5
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: rectangles.lisp,v 1.4 2005/01/17 09:30:40 ihatchondo Exp $
+;;; $Id: rectangles.lisp,v 1.5 2007/05/08 22:30:47 ihatchondo Exp $
 ;;;
 ;;; This file is part of Eclipse.
 ;;; Copyright (C) 2003 Iban HATCHONDO
@@ -188,12 +188,12 @@
 	  (wm-state (car (wm-state window))))
       (and (or (= n scr-num) (= n +any-desktop+))
 	   (or (eq wm-state 1) (and iconify-p (eq wm-state 3)))
-	   (or (multiple-value-bind (resource class)
+	   (or (member :_net_wm_window_type_dock
+		       (netwm:net-wm-window-type window))
+               (multiple-value-bind (resource class)
 		   (xlib:get-wm-class window)
 		 (declare (ignore resource))
-		 (string= class "Panel"))
-	       (member :_net_wm_window_type_dock
-		       (netwm:net-wm-window-type window)))))))
+		 (string= class "Panel")))))))
 
 (defun find-largest-empty-area (application &key area-include-me-p
 				                 (panels-only-p t) direction