[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	panes.lisp 
Log Message:
Fixed issue reported by Samium Gromoff where the :scroll-bars
parameter would be ignored in `open-window-stream'.


--- /project/mcclim/cvsroot/mcclim/panes.lisp	2007/02/07 12:44:17	1.180
+++ /project/mcclim/cvsroot/mcclim/panes.lisp	2007/03/04 15:08:00	1.181
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.180 2007/02/07 12:44:17 crhodes Exp $
+;;; $Id: panes.lisp,v 1.181 2007/03/04 15:08:00 thenriksen Exp $
 
 (in-package :clim-internals)
 
@@ -2785,10 +2785,12 @@
                                            standard-extended-input-stream
                                            fundamental-character-output-stream
                                            standard-application-frame)
-  ((stream))
+  ((stream)
+   (scroll-bars :initform :vertical
+                :initarg :scroll-bars))
   (:panes
    (io
-    (scrolling (:height 400 :width 700)
+    (scrolling (:height 400 :width 700 :scroll-bar (slot-value *application-frame* 'scroll-bars))
       (setf (slot-value *application-frame* 'stream)
         (make-pane 'window-stream
                    :width 700
@@ -2824,7 +2826,6 @@
                       initial-cursor-visibility
                       text-margin
                       save-under
-                      scroll-bars
                       borders
                       label))
   (setf port (or port (find-port)))
@@ -2838,7 +2839,8 @@
 					:right right
 					:bottom bottom
 					:width width
-					:height height)))
+					:height height
+                                        :scroll-bars scroll-bars)))
     ;; Adopt and enable the pane
     (when (eq (frame-state frame) :disowned)
       (adopt-frame fm frame))