steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added general purpose alert

db4
Sam Anklesaria 2009-05-24 17:30:03 -05:00
parent 96d29b7dba
commit 101ecfbd63
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/ui/gadgets/alerts/alerts.factor
View File

@ -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 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 ; "okay" [ close-window ] quot append <border-button> add-gadget "" open-window ;
: alert* ( str -- ) [ ] swap alert ;
:: ask-user* ( model string -- model' ) :: ask-user* ( model string -- model' )
[ [let | lbl [ string <label> T{ font { name "sans-serif" } { size 14 } } >>font dup , ] [ [let | lbl [ string <label> T{ font { name "sans-serif" } { size 14 } } >>font dup , ]
fldm [ <frp-field> ->% 1 ] fldm [ <frp-field> ->% 1 ]