From 07ec9de32b371f164fee6e6b741e7ed6f92f1313 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Mon, 25 May 2009 15:31:43 -0500
Subject: [PATCH] darcs-ui-demo uses bevel buttons

---
 extra/darcs-ui-demo/darcs-ui-demo.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/darcs-ui-demo/darcs-ui-demo.factor b/extra/darcs-ui-demo/darcs-ui-demo.factor
index ccbda7b4b2..fadd4cf7a5 100644
--- 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 ;