(Macro
  finder
  (first next prev typein case Name)
  `(TSplit
     %,Name
     (LightShadow "VeryVeryLightBlue")
     (DarkShadow "Blue")
     (ShadowSize 1.5)
     Flex
     Circular
     (Shape (Width 0 + Inf) (Height 0) "")
     (Shape
       (Height + 0)
       (VBox
         (HPackSplit
           (H (Text "Find"))
           (H (Button %,first (BgColor "VeryPaleBlue") "First"))
           (H (Button %,next (BgColor "VeryPaleBlue") "Next"))
           (H (Button %,prev (BgColor "VeryPaleBlue") "Previous"))
           (H
             (HBox
               (Text (Margin 5) "String:")
               (Frame
                 Lowered
                 (TypeIn %,typein (ShadowSize 0) (BgColor "PaleWhite")))))
           (H (PageButton "Close"))
           (H (Boolean %,case =#TRUE "CaseSensitive")))
         (Bar 1)))))