[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv28241

Modified Files:
	gui.lisp 
Log Message:
A pane is now only a buffer pane if its view is a buffer-view.


--- /project/climacs/cvsroot/climacs/gui.lisp	2007/12/15 07:22:50	1.245
+++ /project/climacs/cvsroot/climacs/gui.lisp	2007/12/27 16:27:47	1.246
@@ -152,7 +152,7 @@
   nil)
 
 (defmethod buffer-pane-p ((pane climacs-pane))
-  t)
+  (typep (view pane) 'drei-buffer-view))
 
 (defmethod in-focus-p ((pane climacs-pane))
   (eq pane (first (windows *application-frame*))))