ui.gadgets.buttons: workaround for windows gradient bug
parent
d60970c0a5
commit
20a663ab0b
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue