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

Reset mouse selection after table model changes

db4
Slava Pestov 2009-02-20 20:52:33 -06:00
parent 591472f7a9
commit ee7bbf8654
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/ui/gadgets/tables/tables.factor
View File

@ -1,11 +1,12 @@
! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays colors colors.constants fry kernel math
math.rectangles math.order math.vectors namespaces opengl sequences
ui.gadgets ui.gadgets.scrollers ui.gadgets.status-bar
ui.gadgets.worlds ui.gestures ui.render ui.pens.solid ui.text ui.commands
ui.images ui.gadgets.menus ui.gadgets.line-support math.rectangles
models math.ranges sequences combinators fonts locals strings ;
math.functions math.rectangles math.order math.vectors namespaces
opengl sequences ui.gadgets ui.gadgets.scrollers ui.gadgets.status-bar
ui.gadgets.worlds ui.gestures ui.render ui.pens.solid ui.text
ui.commands ui.images ui.gadgets.menus ui.gadgets.line-support
math.rectangles models math.ranges sequences combinators fonts locals
strings ;
IN: ui.gadgets.tables
! Row rendererer protocol
@ -61,7 +62,7 @@ GENERIC: cell-height ( font cell -- y )
GENERIC: draw-cell ( font cell -- )
M: string cell-width text-width ;
M: string cell-height text-height ;
M: string cell-height text-height ceiling ;
M: string draw-cell draw-text ;
M: image-name cell-width nip image-dim first ;
@ -245,9 +246,12 @@ PRIVATE>
[ 2drop ]
if ;
: hide-mouse-help ( table -- )
f >>mouse-index [ hide-status ] [ relayout-1 ] bi ;
M: table model-changed
[ nip ] [ initial-selected-index ] 2bi {
[ >>selected-index drop ]
[ >>selected-index f >>mouse-index drop ]
[ show-row-summary ]
[ drop update-selected-value ]
[ drop relayout ]
@ -316,9 +320,6 @@ PRIVATE>
: next-page ( table -- )
1 prev/next-page ;
: hide-mouse-help ( table -- )
f >>mouse-index [ hide-status ] [ relayout-1 ] bi ;
: valid-row? ( row table -- ? )
control-value length 1- 0 swap between? ;