/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.246 by thenriksen, Thu Dec 27 16:27:47 2007 UTC revision 1.247 by thenriksen, Thu Dec 27 16:34:08 2007 UTC
# Line 307  window")) Line 307  window"))
307                       (views climacs)))))                       (views climacs)))))
308    
309  (defmethod esa-current-buffer ((application-frame climacs))  (defmethod esa-current-buffer ((application-frame climacs))
310    (buffer (current-view (esa-current-window application-frame))))    (when (buffer-pane-p (esa-current-window application-frame))
311        (buffer (current-view (esa-current-window application-frame)))))
312    
313  (defmethod (setf esa-current-buffer) ((new-buffer climacs-buffer)  (defmethod (setf esa-current-buffer) ((new-buffer climacs-buffer)
314                                        (application-frame climacs))                                        (application-frame climacs))

Legend:
Removed from v.1.246  
changed lines
  Added in v.1.247

  ViewVC Help
Powered by ViewVC 1.1.5