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

[Philippe Brochard]

Author: pbrochard
Date: Sun Apr  5 13:54:28 2009
New Revision: 203

Log:
info-mode: Ensure integer windows size. Use *default-font-string* for all font-string.

Modified:
   clfswm/ChangeLog
   clfswm/src/clfswm-info.lisp
   clfswm/src/config.lisp
   clfswm/src/package.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Sun Apr  5 13:54:28 2009
@@ -1,3 +1,10 @@
+2009-04-05  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/package.lisp (): Use *default-font-string* for all
+	font-string.
+
+	* src/clfswm-info.lisp (info-mode): Ensure integer windows size.
+
 2009-02-17  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/xlib-util.lisp (null-size-window-p): Better check of null

Modified: clfswm/src/clfswm-info.lisp
==============================================================================
--- clfswm/src/clfswm-info.lisp	(original)
+++ clfswm/src/clfswm-info.lisp	Sun Apr  5 13:54:28 2009
@@ -214,7 +214,7 @@
 						    (min (* (+ (loop for l in info-list maximize (compute-size l)) 2) ilw)
 							 (- (xlib:screen-width *screen*) 2 x)))
 					 :height (or height
-						     (min (+ (* (length info-list) ilh) (/ ilh 2))
+						     (min (round (+ (* (length info-list) ilh) (/ ilh 2)))
 							  (- (xlib:screen-height *screen*) 2 y)))
 					 :background (get-color *info-background*)
 					 :colormap (xlib:screen-default-colormap *screen*)

Modified: clfswm/src/config.lisp
==============================================================================
--- clfswm/src/config.lisp	(original)
+++ clfswm/src/config.lisp	Sun Apr  5 13:54:28 2009
@@ -35,7 +35,7 @@
 ;; This variable may be useful to speed up some slow version of CLX.
 ;; It is particulary useful with CLISP/MIT-CLX.
 (setf *have-to-compress-notify* t)
-  
+
 
 
 ;;; CONFIG - Default modifiers
@@ -193,7 +193,7 @@
   "Config(Second mode group): Second mode window background color")
 (defparameter *sm-foreground-color* "Red"
   "Config(Second mode group): Second mode window foreground color")
-(defparameter *sm-font-string* "9x15bold"
+(defparameter *sm-font-string* *default-font-string*
   "Config(Second mode group): Second mode window font string")
 (defparameter *sm-width* 300
   "Config(Second mode group): Second mode window width")
@@ -205,7 +205,7 @@
 
 
 ;;; CONFIG - Identify key colors
-(defparameter *identify-font-string* "9x15"
+(defparameter *identify-font-string* *default-font-string*
   "Config(Identify key group): Identify window font string")
 (defparameter *identify-background* "black"
   "Config(Identify key group): Identify window background color")
@@ -215,7 +215,7 @@
   "Config(Identify key group): Identify window border color")
 
 ;;; CONFIG - Query string colors
-(defparameter *query-font-string* "9x15"
+(defparameter *query-font-string* *default-font-string*
   "Config(Query string group): Query string window font string")
 (defparameter *query-background* "black"
   "Config(Query string group): Query string window background color")
@@ -234,7 +234,7 @@
   "Config(Info mode group): Info window border color")
 (defparameter *info-line-cursor* "white"
   "Config(Info mode group): Info window line cursor color color")
-(defparameter *info-font-string* "9x15"
+(defparameter *info-font-string* *default-font-string*
   "Config(Info mode group): Info window font string")
 
 ;;; CONFIG - Show key binding colors

Modified: clfswm/src/package.lisp
==============================================================================
--- clfswm/src/package.lisp	(original)
+++ clfswm/src/package.lisp	Sun Apr  5 13:54:28 2009
@@ -153,7 +153,7 @@
 
 (defparameter *main-keys* nil)
 (defparameter *main-mouse* nil)
-(defparameter *second-keys* nil) 
+(defparameter *second-keys* nil)
 (defparameter *second-mouse* nil)
 (defparameter *info-keys* nil)
 (defparameter *info-mouse* nil)