]> gitweb.factorcode.org Git - factor.git/commitdiff
Revert "ui.gadgets.buttons: workaround for windows gradient bug"
authorAlexander Iljin <ajsoft@yandex.ru>
Sat, 1 Jun 2019 07:36:22 +0000 (09:36 +0200)
committerAlexander Iljin <ajsoft@yandex.ru>
Sat, 8 Jun 2019 16:47:41 +0000 (18:47 +0200)
This reverts commit 20a663ab0b2d9cca63e48cc144047e6495b80f44.

basis/ui/gadgets/buttons/buttons.factor

index adcaa1a4452233b1315e3385385268e9f2f8e3fa..c7609dbe06da538cee7120a2953cacf17679b1f5 100644 (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