Hello,
Anyone can let me know the method of scrolling window?
Following codes works very poorly. (when I trying to resize the
window....)
;-------------------------------------
(setf my-window (make-instance 'window
:window-title "sketchpad"
:view-size ·@(400 300)))
(setf view-1 (make-instance 'scrolling-fred-view
:view-size ·@(400 300)
:h-pane-splitter :left
:bar-dragger :vertical))
(add-subviews my-window view-1)
;-------------------------------------
Thanks,
Sungwoo