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

[Philippe Brochard]

Author: pbrochard
Date: Tue Jun 16 16:27:19 2009
New Revision: 238

Log:
draw-circulate-mode-window: Ensure that all characters are printable.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-circulate-mode.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Jun 16 16:27:19 2009
@@ -1,5 +1,8 @@
 2009-06-16  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/clfswm-circulate-mode.lisp (draw-circulate-mode-window):
+	Ensure that all characters are printable.
+
 	* src/config.lisp (get-fullscreen-size): Adjust default fullscreen
 	sizes.
 

Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp	(original)
+++ clfswm/src/clfswm-circulate-mode.lisp	Tue Jun 16 16:27:19 2009
@@ -39,8 +39,8 @@
   (raise-window *circulate-window*)
   (clear-pixmap-buffer *circulate-window* *circulate-gc*)
   (let* ((text (format nil "Current: ~A  Focus: ~A"
-		       (child-fullname *current-child*)
-		       (child-fullname (xlib:input-focus *display*))))
+		       (ensure-printable (child-fullname *current-child*))
+		       (ensure-printable (child-fullname (xlib:input-focus *display*)))))
 	 (len (length text)))
     (xlib:draw-glyphs *pixmap-buffer* *circulate-gc*
 		      (truncate (/ (- *circulate-width* (* (xlib:max-char-width *circulate-font*) len)) 2))