--- a/AboutBox.st	Sat Mar 23 19:41:05 1996 +0100
+++ b/AboutBox.st	Sun Mar 24 18:59:04 1996 +0100
@@ -11,10 +11,10 @@
 "
 
 InfoBox subclass:#AboutBox
-	 instanceVariableNames:''
-	 classVariableNames:'CachedIcon'
-	 poolDictionaries:''
-	 category:'Views-DialogBoxes'
+	instanceVariableNames:''
+	classVariableNames:'CachedIcon'
+	poolDictionaries:''
+	category:'Views-DialogBoxes'
 !
 
 !AboutBox class methodsFor:'documentation'!
@@ -83,6 +83,21 @@
     ^ CachedIcon
 ! !
 
+!AboutBox methodsFor:'accessing'!
+
+backgroundColor:aColor
+    |lbl|
+
+    self withAllSubViewsDo:[:s | s viewBackground:aColor].
+
+    (lbl := self formLabel) viewBackground:aColor.
+    lbl backgroundColor:aColor.
+    (lbl := self textLabel) viewBackground:aColor.
+    lbl backgroundColor:aColor.
+
+    "Created: 24.3.1996 / 18:19:35 / cg"
+! !
+
 !AboutBox methodsFor:'initialization'!
 
 initialize 
@@ -100,17 +115,10 @@
         dark := Color black.
     ].
 
-    self withAllSubViewsDo:[:s | s viewBackground:dark].
-
-    self form:(self class defaultIcon).
-    (lbl := self formLabel) viewBackground:dark.
-    lbl foregroundColor:green backgroundColor:dark.
-    (lbl := self textLabel) viewBackground:dark.
-    lbl foregroundColor:White backgroundColor:dark.
-    self title:(self class aboutText).
-    self okText:'close'.
+    self backgroundColor:dark.
 
     "Created: 7.12.1995 / 17:03:09 / cg"
+    "Modified: 24.3.1996 / 18:58:36 / cg"
 ! !
 
 !AboutBox methodsFor:'show / hide'!
@@ -129,5 +137,5 @@
 !AboutBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.13 1995-12-07 16:03:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.14 1996-03-24 17:59:04 cg Exp $'
 ! !