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

ui.gadgets.table: mouse-color uses theme.

locals-and-roots
John Benediktsson 2016-05-11 18:39:44 -07:00
parent 6149bf5afc
commit 7d66c331db
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@ single-click?
{ gap initial: 2 } { gap initial: 2 }
column-widths total-width column-widths total-width
focus-border-color focus-border-color
{ mouse-color initial: COLOR: black } mouse-color
column-line-color column-line-color
selection-required? selection-required?
selection-index selection-index
@ -142,7 +142,7 @@ M: table layout*
: draw-moused-row ( table -- ) : draw-moused-row ( table -- )
dup mouse-index>> [ dup mouse-index>> [
dup mouse-color>> gl-color dup mouse-color>> [ text-color ] unless* gl-color
dup mouse-index>> row-bounds gl-rect dup mouse-index>> row-bounds gl-rect
] [ drop ] if ; ] [ drop ] if ;