(Rim (Pen 10)
  (VBox
    "Save changes to"
    (HBox
      (Text RightAlign (Margin 0) "\"")
      (Shape (Width + 0) (Text %saveName (Margin 0) "test"))
      (Text LeftAlign (Margin 0) "\"?")
    )
    (Glue 10)
    (HBox
      Fill
      (Button %saveChanges "Save")
      (Glue 20)
      (Button %discardChanges "Discard")
      Fill
    )
  )
)