From 101ecfbd6367ec335d23b72535decb4e1e625e64 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Sun, 24 May 2009 17:30:03 -0500
Subject: [PATCH] added general purpose alert

---
 extra/ui/gadgets/alerts/alerts.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/ui/gadgets/alerts/alerts.factor b/extra/ui/gadgets/alerts/alerts.factor
index e948c92d43..edecb90ee3 100644
--- a/extra/ui/gadgets/alerts/alerts.factor
+++ b/extra/ui/gadgets/alerts/alerts.factor
@@ -7,6 +7,8 @@ IN: ui.gadgets.alerts
    string 22 wrap-lines <label> T{ font { name "sans-serif" } { size 18 } } >>font { 200 100 } >>pref-dim add-gadget 
    "okay" [ close-window ] quot append <border-button> add-gadget "" open-window ;
 
+: alert* ( str -- ) [ ] swap alert ;
+
 :: ask-user* ( model string -- model' )
    [ [let | lbl  [ string <label>  T{ font { name "sans-serif" } { size 14 } } >>font dup , ]
             fldm [ <frp-field> ->% 1 ]