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