[mcclim-cvs] CVS mcclim/Examples

[thenriksen]

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

Modified Files:
	clim-fig.lisp 
Log Message:
Fixed undo in CLIM-FIG.

Remaining bugs (such as the semirandom undo order) is probably not the
fault of CLIM-FIG.


--- /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp	2008/01/23 22:18:03	1.33
+++ /project/mcclim/cvsroot/mcclim/Examples/clim-fig.lisp	2008/01/23 23:07:55	1.34
@@ -320,6 +320,9 @@
        status)))
   (:top-level (default-frame-top-level :prompt 'clim-fig-prompt)))
 
+(defmethod frame-standard-output ((frame clim-fig))
+  (find-pane-named frame 'canvas))
+
 (define-presentation-to-command-translator add-figure
     (blank-area com-add-figure clim-fig
                 :gesture :select ; XXX
@@ -338,7 +341,8 @@
 (defmethod generate-panes :after (frame-manager (frame clim-fig))
   (declare (ignore frame-manager))
   (setf (clim-fig-output-record frame)
-	(stream-current-output-record (frame-standard-input frame))
+        ;; *standard-output* not bound to the canvas pane yet.
+	(stream-current-output-record (frame-standard-output frame))
 	(clim-fig-status frame)
 	(find-pane-named frame 'status)))