slava 2006-09-12 20:20:54 +00:00
parent f4c690594a
commit 247c55f94c
1 changed files with 1 additions and 4 deletions

View File

@ -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 ;