fix: word-wrap never incremented current-len (all text treated as single line); scrollbox wrong offset origin; integration test fixes

src/components/text.lisp

@@ -70,7 +70,9 @@ Breaks at word boundaries. Words exceeding MAX-WIDTH are hard-broken."
           (let ((wl (length word)))
             (cond ((<= wl max-width)
                    (if (and current (<= (+ current-len 1 wl) max-width))
-                       (push word current)
+                       (progn
+                         (push word current)
+                         (incf current-len (1+ wl)))
                        (progn
                          (when current
                            (push (format nil "~{~A~^ ~}" (nreverse current)) lines))