[mcclim-cvs] CVS mcclim

[thenriksen]

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)