scroll-area test

ui.lisp

(button :label "Top-Level Button"
          :on-click (lambda (window)
                      (let* ((container (find-element "container" window))
                             (text (format nil "text~d" *counter*))
                             (label (make-instance 'label :text text))
                             (scroll-position (area-scroll-position container)))
                        (format t "~%scroll-position: ~a" scroll-position)
                        (bodge-util:adopt container label)
                        (setf *counter* (incf *counter*)))))
  (scroll-area :name "container"
               :height 100))

(defparameter *counter* 0)