# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1469007385 -7200
# Node ID d6620afdaa37409aec56315b93b03f3551c56bbf
# Parent  afc1111b53ea1692517ec8f7e537435400b60954
#OTHER by stefan
use #blackColor and #whiteColor form device
instead of (Color black) and (Color white)

diff -r afc1111b53ea -r d6620afdaa37 AboutBox.st
--- a/AboutBox.st	Wed Jul 20 11:36:04 2016 +0200
+++ b/AboutBox.st	Wed Jul 20 11:36:25 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -214,7 +216,7 @@
     (lbl := self formLabel) viewBackground:dark.
     lbl foregroundColor:green backgroundColor:dark.
     (lbl := self textLabel) viewBackground:dark.
-    lbl foregroundColor:Color white backgroundColor:dark.
+    lbl foregroundColor:self whiteColor backgroundColor:dark.
 
     self title:(self class aboutText).
     self okText:(resources string:'Close').