(def b (button :text "XSD" :size [30 :by 30] :margin 2))(def c (button :text "XML" :size [30 :by 30] :margin 2))(def v (button :text "Validate" :size [160 :by 30]:margin 2))(def sd (text "XSD"))
(def splt (top-bottom-split (horizontal-panel :sd b]) (top-bottom-split (horizontal-panel :items [(text "XML") c]) v)))
(listen v :action (fn [e] (alert (apply :message (errors (is-valid-xml? (slurp xml-path)))))))
(def dl (dialog :content "Replace this with something more informative."))