Partial fix for pane selection
parent
318da06a71
commit
4dbb2aa491
basis/ui/gadgets/panes
|
@ -75,7 +75,8 @@ M: pane gadget-selection ( pane -- string/f )
|
||||||
GENERIC: draw-selection ( loc obj -- )
|
GENERIC: draw-selection ( loc obj -- )
|
||||||
|
|
||||||
: if-fits ( rect quot -- )
|
: if-fits ( rect quot -- )
|
||||||
[ clip get over contains-rect? ] dip [ drop ] if ; inline
|
[ clip get origin get vneg offset-rect over contains-rect? ] dip
|
||||||
|
[ drop ] if ; inline
|
||||||
|
|
||||||
M: gadget draw-selection ( loc gadget -- )
|
M: gadget draw-selection ( loc gadget -- )
|
||||||
swap offset-rect [
|
swap offset-rect [
|
||||||
|
|
Loading…
Reference in New Issue