ui.gadgets.buttons: workaround for windows gradient bug

char-rename
nicolas-p 2017-03-10 21:31:05 +01:00 committed by John Benediktsson
parent d60970c0a5
commit 20a663ab0b
1 changed files with 7 additions and 6 deletions

View File

@ -1,10 +1,11 @@
! 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 combinators combinators.short-circuit USING: accessors assocs colors colors.constants combinators
combinators.smart fry kernel locals math.vectors memoize models combinators.short-circuit combinators.smart fry kernel locals
namespaces sequences ui.commands ui.gadgets ui.gadgets.borders math.vectors memoize models namespaces sequences system
ui.gadgets.labels ui.gadgets.packs ui.theme ui.gadgets.worlds ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.labels
ui.gestures ui.pens ui.pens.image ui.pens.solid ui.pens.tile ui.gadgets.packs ui.gadgets.worlds ui.gestures ui.pens
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
@ -128,7 +129,7 @@ PRIVATE>
] 2dip <tile-pen> ; ] 2dip <tile-pen> ;
: <border-button-pen> ( -- pen ) : <border-button-pen> ( -- pen )
"button" transparent button-text-color "button" os windows? [ COLOR: grey95 ] [ transparent ] if 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