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

Revert "ui.gadgets.buttons: workaround for windows gradient bug" 

This reverts commit 20a663ab0b.
clean-macosx-x86-32
Alexander Iljin 2019-06-01 09:36:22 +02:00
parent 74313e9b52
commit 7ad6784911
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/ui/gadgets/buttons/buttons.factor
View File

@ -1,11 +1,10 @@
! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs colors colors.constants combinators
combinators.short-circuit combinators.smart fry kernel locals
math.vectors memoize models namespaces sequences system
ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.labels
ui.gadgets.packs ui.gadgets.worlds ui.gestures ui.pens
ui.pens.image ui.pens.solid ui.pens.tile ui.theme
USING: accessors assocs colors combinators combinators.short-circuit
combinators.smart fry kernel locals math.vectors memoize models
namespaces sequences ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.labels ui.gadgets.packs ui.theme ui.gadgets.worlds
ui.gestures ui.pens ui.pens.image ui.pens.solid ui.pens.tile
ui.theme.images ;
FROM: models => change-model ;
IN: ui.gadgets.buttons
@ -129,7 +128,7 @@ PRIVATE>
] 2dip <tile-pen> ;
: <border-button-pen> ( -- pen )
"button" os windows? [ COLOR: grey95 ] [ transparent ] if button-text-color
"button" transparent button-text-color
<border-button-state-pen> dup
"button-clicked" transparent button-clicked-text-color
<border-button-state-pen> dup dup