Half-fix pane selection

2009-03-09 18:35:12 -05:00 · 2009-03-09 18:35:12 -05:00 · a3c23c53ca
parent f7489dafcc
commit a3c23c53ca
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@ -104,7 +104,7 @@ M: pane draw-gadget*
    dup gadget-selection? [
        [ selection-color>> gl-color ]
        [
-            [ [ origin get ] dip loc>> v- ] keep selected-children
+            [ loc>> vneg ] keep selected-children
            [ draw-selection ] with each
        ] bi
    ] [ drop ] if ;