(defclass test-label (alloy:label*)
  ())

(presentations:define-realization (windowing:window test-label T)
  ((border simple:rectangle)
   (alloy:margins)
   :line-width (alloy:px 1)
   :pattern colors:red))

(presentations:define-update (windowing:window test-label)
  (:label
   :size (alloy:un 7)
   :valign :top))

(define-example test (screen)
  (let* ((window (windowing:make-window screen))
         (scroll (make-instance 'alloy:clip-view :layout-parent window))
         (layout (make-instance 'alloy:vertical-linear-layout :layout-parent scroll))
         (string (with-output-to-string (out)
                   (dotimes (i 10)
                     (format out "Line ~d~%" i)))))
    (dotimes (i 2)
      (alloy:enter (make-instance 'test-label :value string) layout))))