(Macro
  Confirm
  (Name question yes no cancel cancelMsg)
  `(ZChild
     %,Name
     (BgColor "VeryPaleBlue")
     (LightShadow "White")
     (DarkShadow "VeryDarkBlue")
     (Border
       (Pen 2)
       (Rim
         (Pen 2)
         (Border
           (Pen 1)
           (Rim
             (Pen 6)
             (Shape
               (Width 300)
               (LabelFont (Family "new century schoolbook"))
               (VBox
                 (Glue 20)
                 ,question
                 (Glue 20)
                 (HBox
                   Fill
                   (VBox
                     (Button %,yes (BgColor "Green") (Shape (Width 75) "Yes"))
                     (Glue 10)
                     (Button %,no (BgColor "Red") (Shape (Width 75) "No")))
                   (Glue 20)
                   (VBox
                     Fill
                     (Filter
                       %,cancel
                       (CloseButton (Shape (Width 75) ,cancelMsg))))
                   Fill)
                 (Glue 20)))))))))