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

ui.gadgets.sliders: restoring the arrows (temporarily?).

locals-and-roots
John Benediktsson 2016-04-23 10:04:46 -07:00
parent b31415f8a3
commit 6a5f3f192e
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -235,7 +235,11 @@ PRIVATE>
swap >>model swap >>model
16 >>line 16 >>line
dup orientation>> { dup orientation>> {
[ <slider-pen> >>interior ]
[ <thumb> >>thumb ] [ <thumb> >>thumb ]
[ <elevator> >>elevator ] [ <elevator> >>elevator ]
[ drop dup add-thumb-to-elevator 1 track-add ] [ drop dup add-thumb-to-elevator 1 track-add ]
[ <up-button> f track-add ]
[ <down-button> f track-add ]
[ drop <gadget> { 1 1 } >>dim f track-add ]
} cleave ; } cleave ;