hg/stx-libwidg: changeset 5796:5ec407d74401

author	Stefan Vogel <sv@exept.de>
	Wed, 20 Jul 2016 11:36:28 +0200
changeset 5796	5ec407d74401
parent 5795	ee8125645546
child 5797	6d1c27bca35b

#OTHER by stefan use #blackColor and #whiteColor form device instead of (Color black) and (Color white)

--- a/Button.st	Wed Jul 20 11:36:27 2016 +0200
+++ b/Button.st	Wed Jul 20 11:36:28 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1916,7 +1918,7 @@
     buttonStyle := styleSheet at:'button.style' default:nil.
     ((self class == Button) and:[ buttonStyle == #MacOSX ]) ifTrue:[
         borderStyle := styleSheet at:'button.borderStyle'.
-        self border:( (Smalltalk at:borderStyle asSymbol) color:Color black ).
+        self border:( (Smalltalk at:borderStyle asSymbol) color:self blackColor).
         self viewBackground:(View defaultViewBackgroundColor).
     ].