From 0ff745ffed948ddf21f6a1079b63df587fd48794 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 20 Jul 2008 05:58:40 -0500
Subject: [PATCH] ui.gadgets: add init-gadget
---
extra/ui/gadgets/gadgets.factor | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/extra/ui/gadgets/gadgets.factor b/extra/ui/gadgets/gadgets.factor
index a4cdd69d69..328d6eb749 100755
--- a/extra/ui/gadgets/gadgets.factor
+++ b/extra/ui/gadgets/gadgets.factor
@@ -27,13 +27,13 @@ M: gadget model-changed 2drop ;
: nth-gadget ( n gadget -- child ) children>> nth ;
-: new-gadget ( class -- gadget )
- new
- { 0 0 } clone >>loc
- { 0 0 } clone >>dim
- { 0 1 } >>orientation
- t >>visible?
- { f f } >>graft-state ; inline
+: init-gadget ( gadget -- gadget )
+ init-rect
+ { 0 1 } >>orientation
+ t >>visible?
+ { f f } >>graft-state ; inline
+
+: new-gadget ( class -- gadget ) new init-gadget ; inline
: <gadget> ( -- gadget )
gadget new-gadget ;