[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv10157

Modified Files:
	util.lisp 
Log Message:
Fix use of underlining to do :move-cursor nil. I think McCLIM previously
interpreted this incorrectly.



--- /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp	2006/03/29 10:43:37	1.21
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp	2007/02/05 03:28:05	1.22
@@ -116,8 +116,6 @@
 	   (merge-pathnames (parse-namestring (concatenate 'string string "/"))
 			    parent)))))
 
-;; FIXME: SB-POSIX now has STAT, so USE IT HERE !!!
-
 #+SBCL
 (defun list-directory (pathname)
   (directory pathname)
@@ -195,11 +193,12 @@
      , at body))
 
 (defmacro bordering ((stream shape) &body body)
-  `(surrounding-output-with-border (,stream :shape ,shape :move-cursor nil)
+  `(surrounding-output-with-border (,stream :shape ,shape :move-cursor t)
      , at body))
 
 (defmacro underlining ((stream) &body body)
-  `(bordering (,stream :underline) , at body))
+  `(surrounding-output-with-border (,stream :shape :underline :move-cursor nil)
+    , at body))
 
 (defun note (string &rest args)
   (let ((stream *query-io*))
@@ -218,7 +217,7 @@
 (defun invoke-as-heading (cont &optional ink)
   (with-drawing-options (t :ink (or ink +royal-blue+) :text-style (make-text-style :sans-serif :bold nil))
     (fresh-line)
-    (bordering (t :underline)
+    (underlining (t)
       (funcall cont))
     (fresh-line)
     (vertical-gap t)))