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

Half-fix pane selection

db4
Slava Pestov 2009-03-09 18:35:12 -05:00
parent f7489dafcc
commit a3c23c53ca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -104,7 +104,7 @@ M: pane draw-gadget*
dup gadget-selection? [ dup gadget-selection? [
[ selection-color>> gl-color ] [ selection-color>> gl-color ]
[ [
[ [ origin get ] dip loc>> v- ] keep selected-children [ loc>> vneg ] keep selected-children
[ draw-selection ] with each [ draw-selection ] with each
] bi ] bi
] [ drop ] if ; ] [ drop ] if ;