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

[Philippe Brochard]

Author: pbrochard
Date: Tue Jun 16 16:22:49 2009
New Revision: 237

Log:
get-fullscreen-size: Adjust default fullscreen sizes.

Modified:
   clfswm/ChangeLog
   clfswm/src/config.lisp

Modified: clfswm/ChangeLog
==============================================================================
--- clfswm/ChangeLog	(original)
+++ clfswm/ChangeLog	Tue Jun 16 16:22:49 2009
@@ -1,5 +1,8 @@
 2009-06-16  Philippe Brochard  <pbrochard at common-lisp.net>
 
+	* src/config.lisp (get-fullscreen-size): Adjust default fullscreen
+	sizes.
+
 	* src/clfswm-placement.lisp (*-child-placement): Adjust
 	coordinates to one pixel in the current child.
 

Modified: clfswm/src/config.lisp
==============================================================================
--- clfswm/src/config.lisp	(original)
+++ clfswm/src/config.lisp	Tue Jun 16 16:22:49 2009
@@ -59,7 +59,7 @@
 (defun get-fullscreen-size ()
   "Return the size of root child (values rx ry rw rh)
 You can tweak this to what you want"
-  (values -2 -2 (+ (xlib:screen-width *screen*) 2) (+ (xlib:screen-height *screen*) 2)))
+  (values -1 -1 (+ (xlib:screen-width *screen*)) (+ (xlib:screen-height *screen*))))
   ;;(values -1 -1 (xlib:screen-width *screen*) (xlib:screen-height *screen*)))
 ;; (values -1 -1 1024 768))
 ;;  (values 100 100 800 600))