From c72b6d18868f26d5eae75840d3f213c2806be0ad Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Mon, 27 Nov 2006 02:19:40 +0000
Subject: [PATCH] Minor fixes

---
 library/ui/gadgets/controls.factor  | 2 +-
 library/ui/gadgets/scrolling.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/ui/gadgets/controls.factor b/library/ui/gadgets/controls.factor
index 3a27b1b175..b926e0fd00 100644
--- a/library/ui/gadgets/controls.factor
+++ b/library/ui/gadgets/controls.factor
@@ -15,7 +15,7 @@ C: control ( model gadget quot -- gadget )
     control-model model-value ;
 
 : set-control-value ( value control -- )
-    control-model set-model* ;
+    control-model set-model ;
 
 M: control graft*
     control-self dup dup control-model add-connection
diff --git a/library/ui/gadgets/scrolling.factor b/library/ui/gadgets/scrolling.factor
index 224e4db478..4ef360e339 100644
--- a/library/ui/gadgets/scrolling.factor
+++ b/library/ui/gadgets/scrolling.factor
@@ -28,7 +28,7 @@ scroller H{
     { T{ mouse-scroll } [ do-mouse-scroll ] }
 } set-gestures
 
-: init-scroller-model ( scroller -- point )
+: init-scroller-model ( scroller -- )
     dup scroller-x control-model
     over scroller-y control-model
     2array <compose> swap set-scroller-model ;