[mcclim-cvs] CVS mcclim/ESA

[thenriksen]

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

Modified Files:
	esa.lisp 
Log Message:
Added some amazing hacks to pointer-documentation-panes for the notion of a "background message".

This is the beginning of extending pointer-documentation-panes into
more generally useful minibuffer-like panes.

For now, this just means that the Listener shows arglists and other
things for Drei commands. It's still a little flickery, though.


--- /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2008/01/20 19:50:21	1.15
+++ /project/mcclim/cvsroot/mcclim/ESA/esa.lisp	2008/01/27 22:24:07	1.16
@@ -308,7 +308,8 @@
           (funcall continuation minibuffer))))
 
 (defmethod invoke-with-minibuffer-stream ((minibuffer pointer-documentation-pane) continuation)
-  (funcall continuation minibuffer))
+  (clim-extensions:with-output-to-pointer-documentation (stream (pane-frame minibuffer))
+    (funcall continuation stream)))
 
 (defmethod invoke-with-minibuffer-stream ((minibuffer null) continuation)
   nil)