[clfswm-cvs] r235 - in clfswm: . src

[Philippe Brochard]

Author: pbrochard
Date: Thu Jun  4 15:35:31 2009
New Revision: 235

Log:
query-enter-function: Assign font before width and height calculation.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-query.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Thu Jun  4 15:35:31 2009
@@ -1,3 +1,8 @@
+2009-06-04  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-query.lisp (query-enter-function): Assign font before
+	width and height calculation.
+
 2009-06-03  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/xlib-util.lisp (banish-pointer): Use with-placement macro to

Modified: clfswm/src/clfswm-query.lisp
==============================================================================
--- clfswm/src/clfswm-query.lisp	(original)
+++ clfswm/src/clfswm-query.lisp	Thu Jun  4 15:35:31 2009
@@ -107,11 +107,11 @@
 
 
 (defun query-enter-function ()
+  (setf *query-font* (xlib:open-font *display* *query-font-string*))
   (let ((width (- (xlib:screen-width *screen*) 2))
 	(height (* 3 (+ (xlib:max-char-ascent *query-font*) (xlib:max-char-descent *query-font*)))))
     (with-placement (*query-mode-placement* x y width height)
-      (setf *query-font* (xlib:open-font *display* *query-font-string*)
-	    *query-window* (xlib:create-window :parent *root*
+      (setf *query-window* (xlib:create-window :parent *root*
 					       :x x :y y
 					       :width width
 					       :height height