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