darcs-ui-demo uses bevel buttons

diff --git a/extra/darcs-ui-demo/darcs-ui-demo.factor b/extra/darcs-ui-demo/darcs-ui-demo.factor
index ccbda7b4b24daec4a39eab166037333afb09dc5a..fadd4cf7a50aca93eb77d2fecc25efa72e825a64 100644 (file)
--- a/extra/darcs-ui-demo/darcs-ui-demo.factor
+++ b/extra/darcs-ui-demo/darcs-ui-demo.factor
@@ -17,7 +17,7 @@ IN: darcs-ui-demo
 
 : patches-quot ( -- model-of-quot )
    [ whatsnew [ length <model> ] keep <model>
-      [ <change-list> ->% 1 "okay" <frp-button> [ close-window ] >>hook
+      [ <change-list> ->% 1 "okay" <frp-bevel-button> [ close-window ] >>hook
          -> <updates> [ [ answer ] 2curry ] 2fmap-&
       ] <vbox> { 229 200 } >>pref-dim "select changes" open-window
    ] [ drop [ ] "No changes!" alert f <model> ] recover ;