ui.gadgets: clone loc and dim

2008-07-20 04:57:04 -05:00 · 2008-07-20 04:57:04 -05:00 · b62dbb887c
parent 4ad97e8ea7
commit b62dbb887c
1 changed files with 2 additions and 0 deletions
--- a/extra/ui/gadgets/gadgets.factor
+++ b/extra/ui/gadgets/gadgets.factor
@ -29,6 +29,8 @@ M: gadget model-changed 2drop ;

 : new-gadget ( class -- gadget )
    new
+        { 0 0 } clone >>loc
+        { 0 0 } clone >>dim
        { 0 1 } >>orientation
        t >>visible?
        { f f } >>graft-state ; inline