Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv19441
Modified Files: panes.lisp Log Message: Removed ancient and seemingly now-unnecessary gilberthack.
--- /project/mcclim/cvsroot/mcclim/panes.lisp 2007/12/16 14:27:22 1.185 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2008/01/01 23:23:07 1.186 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.
-;;; $Id: panes.lisp,v 1.185 2007/12/16 14:27:22 thenriksen Exp $ +;;; $Id: panes.lisp,v 1.186 2008/01/01 23:23:07 thenriksen Exp $
(in-package :clim-internals)
@@ -2784,13 +2784,10 @@ (unless borderp user-sr)))) (when borderp - (setq pane (make-pane 'border-pane - :border-width border-width - :contents (list pane))) - ;; bright, I begin to hate the border-pane - (setf pane (apply #'make-pane 'vrack-pane - :contents (list pane) - user-sr))) + (setq pane (apply #'make-pane 'border-pane + :border-width border-width + :contents (list pane) + user-sr))) pane))))
(defun make-clim-interactor-pane (&rest options)