(MAKE-INSTANCE 'MENU :MENU-TITLE "My Menu" :MENU-ITEMS (LIST (MAKE-INSTANCE 'MENU-ITEM :MENU-ITEM-TITLE "Grumpy" :MENU-ITEM-ACTION #'(LAMBDA NIL (FORMAT T "Be fruitful and multiply..."))) (MAKE-INSTANCE 'MENU-ITEM :MENU-ITEM-TITLE "Say Hello" :MENU-ITEM-ACTION #'(LAMBDA NIL (MAKE-INSTANCE 'DIALOG :WINDOW-TYPE :DOCUMENT :WINDOW-TITLE "Good morning!" :VIEW-POSITION 3211349 :VIEW-SIZE 9830700 :VIEW-FONT '("Chicago" 12 :SRCOR :PLAIN) :VIEW-SUBVIEWS (LIST (MAKE-DIALOG-ITEM 'STATIC-TEXT-DIALOG-ITEM 589886 2293928 "Press the button to see the Listener greet you." 'NIL) (MAKE-DIALOG-ITEM 'BUTTON-DIALOG-ITEM 4915306 1048652 "Press here" #'(LAMBDA (ITEM) ITEM (DEFVAR YOUR-NAME) (SETQ YOUR-NAME (GET-STRING-FROM-USER "Please type in your name.")) (FORMAT T "Hello ~A!" YOUR-NAME)) :VIEW-NICK-NAME 'JOE :VIEW-FONT '("Monaco" 12 :SRCOR :PLAIN) :DEFAULT-BUTTON T))))) (MAKE-INSTANCE 'MENU-ITEM :MENU-ITEM-TITLE "")))