steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
basis/ui/gadgets/panes

3
basis/ui/gadgets/panes/panes.factor
View File

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