scrolling-window or scrolling-fred-dialog-item bug

[cfry@MIT.EDU (Christopher Fry)]

;running MCL2.0p1

(in-package ccl)

(require 'scrolling-windows) ;distributed with MCL2.0
(require 'scrolling-fred-dialog-item) ;distributed with MCL2.0


(require 'quickdraw)


(setq foo (make-instance 'scrolling-window
                         :scroller-class 'scroller
                         :window-type :document-with-zoom
                         :view-size #@(200 200)
                         :track-thumb-p t))

;______ So far so good. Now do the following:

(add-subviews (my-scroller foo) (make-instance 'ccl::scrolling-fred-dialog-item
           :dialog-item-text "asfasfsafsafsaf
ass
ssafsdsd
assdf"))


Initially looks OK. Horizontal scrolling fine.
Now drag the size box of the window until the fred di is fully visible.
So far so good. Now scroll vertically.
Bug! the verticle scroll bar is extended way below the 
di itself.

Perhaps there's more recent versions of the above two files than
was on the CD-ROM?