capi scrolling & scroll-bars

i have built a CAPI GUI for my collection of digital audio albums which 
includes ripped CDs, digitized LPs and downloads from HDTracks.com. 
There are 151 albums at this time. The visual appearance is similar to 
the old Windows Media Player. I have an 800 by 800 pixel visible window 
with album cover images of size 100 x 100 pixels in cells of 144x144 
pixels, laid out alphabetically by album names, in rows of from one to 
five cells (44 rows) . These images are drawn on a 
Tracking-Pinboard-Layout output-pane.

As currently implemented, the drawing pane has no visible scroll-bars 
but does scroll nicely via rotation of the mouse wheel. The issue is 
that accessing an album with a name starting at the end of the alphabet, 
such as "Voices", requires a lot of wheel spinning.

So, I wish add a visible scroll-bar (maybe with a button to turn it 
on/off) but no can do.

Below are two functions. Run-test is similar to my app's (show-albums) 
minus all the app specific stuff. Run-example is similar to the example 
found in Lispworks User Guide and Reference Manual 12.4.1.

(run-example) produces a window with a vertical scroll bar while 
(run-test) does not. I have read and re-read everything I can find in 
the UG about scrolling but maybe I've missed something relevant?

Puzzled,
Paul

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