mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 21:27:52 -04:00
16 lines
419 B
Common Lisp
16 lines
419 B
Common Lisp
===
|
|
dotimes
|
|
===
|
|
|
|
(dotimes (i (-> this entries length))
|
|
(let ((label-len (-> (get-string-length (-> this entries i label) font-ctx) length)))
|
|
(when (> label-len max-len)
|
|
(set! max-len label-len))))
|
|
|
|
---
|
|
|
|
(dotimes (i (-> this entries length))
|
|
(let ((label-len (-> (get-string-length (-> this entries i label) font-ctx) length)))
|
|
(when (> label-len max-len)
|
|
(set! max-len label-len))))
|