(Macro
  YesNo
  (Name msg yes no)
  `(ZChild
     %,Name
     (BgColor "VeryPaleGray")
     (LightShadow "White")
     (DarkShadow "VeryDarkGray")
     (Border
       (Pen 2)
       (Rim
         (Pen 2)
         (Border
           (Pen 1)
           (Rim
             (Pen 6)
             (Shape
               (Width 300)
               (VBox
                 (Glue 20)
                 ,msg
                 (Glue 20)
                 (HBox
                   Fill
                   (Button %,yes (BgColor "Red") (Shape (Width 75) "Yes"))
                   Fill
                   (CloseButton %,no (BgColor "Green") (Shape (Width 75) "No"))
                   Fill)
                 (Glue 20)))))))))