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

added simple dialogs for the ui

db4
Sam Anklesaria 2009-03-09 20:34:56 -05:00
parent 5a14faecd6
commit 4d453923ae
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/alerts/alerts.factor Normal file
View File

@ -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 ;