[ltk-user] scrolled-frame

[Russell McManus]

I'm using 0.91, and I'm having trouble getting the scrolled-frame class working.

Here is a program that works for me:

(defun frame-test-1 ()
  (with-ltk ()
    (loop for i from 0 below 20 do
         (let* ((pframe (make-instance 'frame
                                       :pack '(:side :top)))
                (toggle (make-instance 'check-button
                                       :master pframe
                                       :pack '(:side :left)))
                (label (make-instance 'label
                                      :master pframe
                                      :text (format nil "label ~D" i)
                                      :pack '(:side :left))))))))

However I want to do something like this:

(defun frame-test-2 ()
  (with-ltk ()
    (let* ((sf (make-instance 'scrolled-frame
                              :width 100 :height 100)))
      (loop for i from 0 below 20 do
           (let* ((pframe (make-instance 'frame
                                         :master (interior sf)
                                         :pack '(:side :top)))
                  (toggle (make-instance 'check-button
                                         :master pframe
                                         :pack '(:side :left)))
                  (label (make-instance 'label
                                        :master pframe
                                        :text (format nil "label ~D" i)
                                        :pack '(:side :left)))))))))

I.e., I want to create a bunch of widgets inside a scrolled frame.  Any ideas about how to get this to work?

-russ