ui.gadgets: clone loc and dim
parent
4ad97e8ea7
commit
b62dbb887c
|
@ -29,6 +29,8 @@ M: gadget model-changed 2drop ;
|
||||||
|
|
||||||
: new-gadget ( class -- gadget )
|
: new-gadget ( class -- gadget )
|
||||||
new
|
new
|
||||||
|
{ 0 0 } clone >>loc
|
||||||
|
{ 0 0 } clone >>dim
|
||||||
{ 0 1 } >>orientation
|
{ 0 1 } >>orientation
|
||||||
t >>visible?
|
t >>visible?
|
||||||
{ f f } >>graft-state ; inline
|
{ f f } >>graft-state ; inline
|
||||||
|
|
Loading…
Reference in New Issue