(setq dialog1 (make-instance 'window
                :window-type :document-with-zoom
                :window-title "buton dialog"
                :view-position '(:TOP 60)
                :view-size #@(300 150)
                :view-font '("Chicago" 12 :SRCCOPY :PLAIN)
                :view-nick-name 'button-dialog
                :view-subviews
                (list
                 (setq pearlbutton
                       (make-dialog-item 'radio-button-dialog-item
                                         #@(15 28)
                                         #@(118 16)
                                         "pearl button"
                                         #'(lambda (item)
                                             item
                                             (print "elegant !"))
                                         :view-nick-name 'pearlie
                                         :view-font '("Chicago" 0 :SRCCOPY :PLAIN)))
                 (setq flashbutton
                       (make-dialog-item 'radio-button-dialog-item
                                         #@(15 70)
                                         #@(217 16)
                                         "flashy plastic button"
                                         #'(lambda (item)
                                             item
                                             (print "tacky !"))
                                         :view-nick-name 'flash
                                         :view-font '("Chicago" 0 :SRCCOPY :SHADOW))))))