Cleanup
parent
f4c690594a
commit
247c55f94c
|
|
@ -15,10 +15,7 @@ C: viewport ( content -- viewport )
|
||||||
[ >r 3 <border> r> add-gadget ] keep
|
[ >r 3 <border> r> add-gadget ] keep
|
||||||
t over set-gadget-clipped? ;
|
t over set-gadget-clipped? ;
|
||||||
|
|
||||||
M: viewport layout*
|
M: viewport layout* gadget-child prefer ;
|
||||||
gadget-child prefer ;
|
|
||||||
! dup gadget-child dup pref-dim rot rect-dim vmax
|
|
||||||
! swap set-layout-dim ;
|
|
||||||
|
|
||||||
M: viewport focusable-child*
|
M: viewport focusable-child*
|
||||||
gadget-child ;
|
gadget-child ;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue