(MAKE-INSTANCE 'DIALOG
  :WINDOW-TYPE
  :DOCUMENT
  :WINDOW-TITLE
  "Good morning!"
  :VIEW-POSITION
  #@(136 60)
  :VIEW-SIZE
  #@(300 150)
  :VIEW-FONT
  '("Chicago" 12 :SRCOR :PLAIN)
  :VIEW-SUBVIEWS
  (LIST (MAKE-DIALOG-ITEM
          'STATIC-TEXT-DIALOG-ITEM
          #@(60 14)
          #@(168 38)
          "Press the button to see the Listener greet you."
          'NIL)
        (MAKE-DIALOG-ITEM
          'BUTTON-DIALOG-ITEM
          #@(87 71)
          #@(103 25)
          "Press here"
          #'(LAMBDA (ITEM)
              ITEM
              (SETF YOUR-NAME
                    (GET-STRING-FROM-USER "Please type in your name."))
              (FORMAT T "Hello, ~A!" YOUR-NAME))
          :VIEW-FONT
          '("Monaco" 12 :SRCOR :PLAIN)
          :PART-COLOR-LIST
          '(:THUMB 14082070 :FRAME 11536397 :BODY 1354410)
          :DEFAULT-BUTTON
          T)))