[ltk-user] Example of scrollbar available?

[Jason Miller]

On December 12, 2013 3:13:27 PM PST, Josef Wolf wrote:
> On Do, Dez 12, 2013 at 12:27:59 -0800, Jason Miller wrote:
>> ;First make a textbox and a scrollbar to go with it:
>> (let ((tb (make-instance 'text :width 78 :height 20))
>> (tbsb (make-instance 'scrollbar :orientation :vertical)))
>> ;Now put them where you want them; I'm using pack as it's the least 
code:
>> (pack tb :side :left)
>  ...
>
> Thanks for the hint, Jason! But I am still struggling.
>
> Your example works fine. But it covers only a single text 
> widget. I am trying
> to scroll a collection of widgets...
Well, strangely enough, tk doesn't have this as a widget.  There are 
variouls hacks to get it, and it looks like scrolled-frame implements it.  
However, when setting the master of widgets that go in it, you'll need to 
use the INTERIOR accessor like so:

(ltk:with-ltk ()
	   (let ((sf (make-instance 'ltk:scrolled-frame)))
	     (ltk:pack sf)
	     (loop for i from 1 to 20
		  for label = (make-instance 'ltk:label :master (ltk:interior sf) :text 
"Hello, World!")
		  do (ltk:pack label))))

HTH,
Jason