noise-ui: Add a MAIN:

2012-08-03 12:29:35 -07:00 · 2012-08-03 12:29:35 -07:00 · f52195b0c8
parent 37001708cd
commit f52195b0c8
1 changed files with 2 additions and 0 deletions
--- a/extra/noise-ui/noise-ui.factor
+++ b/extra/noise-ui/noise-ui.factor
@ -60,3 +60,5 @@ M: bw-noise-gadget ungraft* [ stop-animation ] [ call-next-method ] bi ;
 
 : open-noise-window ( -- )
    [ <bw-noise-gadget> with-fps "Black and White noise" open-window ] with-ui ;
+
+MAIN: open-noise-window