
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

Hi Russel, I had to look at your code for a while and even tried to run it, until I notice: you nowhere pack sf... If you add a (pack sf :fill :both :expand t) at a proper place, it works just as intended. Note however: the scrolling behaviour of the scrolled frame is a bit erratic, because this is not a native Tk widget but rather something I tried to write... Peter
participants (2)
-
Peter Herth
-
Russell McManus