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