ui.gadgets.panes: rewrite sloppy-pick-up*
parent
0f49bd5284
commit
3233a2e161
|
@ -332,10 +332,8 @@ M: paragraph stream-format
|
||||||
|
|
||||||
GENERIC: sloppy-pick-up* ( loc gadget -- n )
|
GENERIC: sloppy-pick-up* ( loc gadget -- n )
|
||||||
|
|
||||||
M: pack sloppy-pick-up*
|
M: pack sloppy-pick-up* ( loc gadget -- n )
|
||||||
dup gadget-orientation
|
[ orientation>> ] [ children>> ] bi (fast-children-on) ;
|
||||||
swap gadget-children
|
|
||||||
(fast-children-on) ;
|
|
||||||
|
|
||||||
M: gadget sloppy-pick-up*
|
M: gadget sloppy-pick-up*
|
||||||
gadget-children [ inside? ] with find-last drop ;
|
gadget-children [ inside? ] with find-last drop ;
|
||||||
|
|
Loading…
Reference in New Issue