[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

;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

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?