[sawfish] fixed two issues in draft animator



commit 935152f5b276c735e81af95f0fbfc67bcb249464
Author: Christopher Roy Bratusek <zanghar freenet de>
Date:   Wed Aug 18 17:20:44 2010 +0200

    fixed two issues in draft animator

 lisp/sawfish/wm/util/window-outline.jl |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/lisp/sawfish/wm/util/window-outline.jl b/lisp/sawfish/wm/util/window-outline.jl
index 8962bac..67b87a7 100644
--- a/lisp/sawfish/wm/util/window-outline.jl
+++ b/lisp/sawfish/wm/util/window-outline.jl
@@ -155,7 +155,7 @@ drawn, currently it may only be `box' for a 3x3 grid."
     (if (= pta-x ptb-x)
 	(progn ; vertical
 	 (if dim-p
-	     (x-draw-string rw gc (cons (+ pta-x x-dim-offset)
+	     (x-draw-text rw gc (cons (+ pta-x x-dim-offset)
 					(+ pta-y (quotient delta-y 2))
 					)
 			    (format nil "%d" delta-y)))
@@ -169,7 +169,7 @@ drawn, currently it may only be `box' for a 3x3 grid."
 	 )
 	(progn ; horizontal
          (if dim-p
-	   (x-draw-string rw gc (cons (+ pta-x (quotient delta-x 2))
+	   (x-draw-text rw gc (cons (+ pta-x (quotient delta-x 2))
 				      (- pta-y y-dim-offset)
 				      )
 			    (format nil "%d" delta-x)))



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]