Partial fix for pane selection

db4
Slava Pestov 2009-04-01 22:24:49 -05:00
parent 318da06a71
commit 4dbb2aa491
1 changed files with 2 additions and 1 deletions

View File

@ -75,7 +75,8 @@ M: pane gadget-selection ( pane -- string/f )
GENERIC: draw-selection ( loc obj -- )
: 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 -- )
swap offset-rect [