From 4d453923ae1f7c65d7274b8f2ea83b4f3b160497 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Mon, 9 Mar 2009 20:34:56 -0500
Subject: [PATCH] added simple dialogs for the ui

---
 basis/ui/gadgets/alerts/alerts.factor | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 basis/ui/gadgets/alerts/alerts.factor

diff --git a/basis/ui/gadgets/alerts/alerts.factor b/basis/ui/gadgets/alerts/alerts.factor
new file mode 100644
index 0000000000..3a4120b3de
--- /dev/null
+++ b/basis/ui/gadgets/alerts/alerts.factor
@@ -0,0 +1,4 @@
+USING: accessors ui ui.gadgets ui.gadgets.labels ui.gadgets.buttons ui.gadgets.packs locals sequences io.styles ;
+IN: ui.gadgets.alerts
+:: alert ( quot string -- ) <pile> { 10 10 } >>gap 1 >>align string <label> { "sans-serif" plain 18 } >>font { 200 100 } >>pref-dim add-gadget 
+   "okay" [ close-window ] quot append <bevel-button> add-gadget "" open-window ;
\ No newline at end of file