Partial fix for pane selection

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index a6bd5c4e291199f3c3460b6093935ec6dc22c881..41e983eb28b9ae9c3d200ac35b6bbf15539398e2 100644 (file)
--- 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 [