added general purpose alert

2009-05-24 17:30:03 -05:00 · 2009-05-24 17:30:03 -05:00 · 101ecfbd63
parent 96d29b7dba
commit 101ecfbd63
1 changed files with 2 additions and 0 deletions
--- 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 ]