Remove debug stuff
parent
84e98d8be7
commit
695b97e6e6
|
@ -261,7 +261,7 @@ M: table model-changed
|
||||||
row-rect [ { 0 1 } v* ] change-dim ;
|
row-rect [ { 0 1 } v* ] change-dim ;
|
||||||
|
|
||||||
: (select-row) ( table n -- )
|
: (select-row) ( table n -- )
|
||||||
[ dup [ [ thin-row-rect dup unparse show ] [ drop ] 2bi scroll>rect ] [ 2drop ] if ]
|
[ dup [ [ thin-row-rect ] [ drop ] 2bi scroll>rect ] [ 2drop ] if ]
|
||||||
[ >>selected-index relayout-1 ]
|
[ >>selected-index relayout-1 ]
|
||||||
2bi ;
|
2bi ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue