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