Partial fix for pane selection

2009-04-01 22:24:49 -05:00 · 2009-04-01 22:24:49 -05:00 · 4dbb2aa491
parent 318da06a71
commit 4dbb2aa491
1 changed files with 2 additions and 1 deletions
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@ -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 [