(define-example simple-window (screen)
  (let* ((window (windowing:make-window screen))
         (focus (make-instance 'alloy:focus-list :focus-parent window))
         (layout (make-instance 'alloy:vertical-linear-layout :layout-parent window))
         (name "")
         (name (alloy:represent name 'alloy:input-line :focus-parent focus :layout-parent layout))
         (button (alloy:represent "Greet" 'alloy:button))
         (inner-window NIL))
    (alloy:enter button layout)
    (alloy:enter button focus)
    (alloy:on alloy:activate (button)
      (unless inner-window
        (setf inner-window (windowing:make-window screen :background-color colors:white))
        (alloy:enter (alloy:represent-with 'alloy:label (alloy:data name)) inner-window)))))