Vertical scrollbar won't go to right edge

This is on LW Mac, MacBook Pro with current OS X.

I’ve tried all kinds of fiddling with parameters to get the vertical scrollbar to be at the far right of the BIG-PANE. The idea is to have that pane scroll vertically while the weekday header stays fixed. The scrollbar ends up being placed at about 300 pixels from the left edge.

What’s wrong? Have I been thinking too many impure thoughts, or what?

LW

(defun people-panes ()
  (loop for p in '("Ted" "John" "Paul" "Peter" "Mary" "Nita" "Andrew" "Julianne" "Dianne")
        collect (make-instance 'capi:row-layout
                               :description (list p "last" "1.0" "2.0" "3..0" "4.0" "5.0" "6.0" "7.0")
                               :min-column-width 100
                               :visible-min-height 44
                               :x-uniform-size-p t)))

(capi:define-interface corrections-interface ()
  ((people :accessor people :initform (people-panes)))
  (:panes
   (header-pane capi:grid-layout
                :accessor header-pane
                :rows 1
                :min-column-width 100
                :x-uniform-size-p t
                :description (list "First Name" "Last Name" "Sun" "Mon" "Tues" "Wed" "Thurs" "Fri" "Sat"))
   (footer-pane capi:title-pane
                :accessor footer-pane
                :text "This is the footer.")
   (big-pane capi:column-layout
             :accessor big-pane
             :description people
             :visible-min-width 900
             :vertical-scroll t
             :scroll-height (* 44 (1+ (length people)))))
  (:layouts
   (main-layout capi:column-layout '(header-pane :separator big-pane footer-pane)))
  (:default-initargs :title "Corrections Window"
   :best-x 400
   :best-y 100
   :best-width 900
   :best-height 250))

(capi:display (make-instance 'corrections-interface))

_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html