[mcclim-cvs] CVS mcclim

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv20235

Modified Files:
	commands.lisp 
Log Message:
Fix typo, with-bounding-rectangle -> with-bounding-rectangle*.


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2008/02/01 20:28:46	1.76
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2008/02/02 00:10:18	1.77
@@ -1233,7 +1233,7 @@
 						 *command-parser-table*))))
     (if (encapsulating-stream-p stream)
 	(let ((interactor (encapsulating-stream-stream stream)))
-	  (with-bounding-rectangle (x1 y1 x2 y2) (input-editing-stream-output-record stream)
+	  (with-bounding-rectangle* (x1 y1 x2 y2) (input-editing-stream-output-record stream)
 	    (declare (ignore y1 x2))
 	    ;; Start the dialog below the editor area
 	    (letf (((stream-cursor-position interactor) (values x1 y2)))