(let ((name "")
      (age 18)
      (gender :other)
      (skeleton NIL))
  (build-ui
   (border-layout
    :north
    (grid-layout
     :col-sizes '(T 10)
     :row-sizes '(20)
     (label "Title")
     (button "X"))
    :center
    (vertical-linear-layout
     (grid-layout
      :col-sizes '(100 T)
      :row-sizes '(T T T T)
      (label "Name") (input-line name)
      (label "Age") (slider age :range '(1 100))
      (label "Gender") (combo-set gender :value-set '(:male :female :other))
      (label "Skeleton") (switch skeleton))
     (button "Save")))
   (focus-list 0 1 2 3 4 5)
   
   (on activate (0)
     (leave self T))
   (on activate (5)
     (push (list name age gender skeleton) settings))))