Views and subviews

Retrieving the text from an editable text item

• Add a text-retrieval button to the window.
  Enter the following text in the Listener, and press Return.
  

  (add-subviews (target)
                (make-instance 'button-dialog-item
                  :dialog-item-text "Echo"
                  :dialog-item-action
                  #'(lambda (button)
                      (let* ((text-item (view-named 'visitor button))
                             (text (dialog-item-text text-item)))
                        (format t text)))))

Generated with Harlequin WebMaker