--- a/ViewWithAcceptAndCancelBar.st	Thu Jul 10 14:21:39 2014 +0200
+++ b/ViewWithAcceptAndCancelBar.st	Thu Jul 10 18:54:25 2014 +0200
@@ -263,18 +263,24 @@
     acceptButton := ButtonWithHelpText new.
     acceptButton origin:0.0 @ 0.0 corner:1.0@0.7.
     acceptButton backgroundColor:Color green.
+    acceptButton enteredBackgroundColor:Color green lightened.
+    acceptButton activeBackgroundColor:Color green darkened.
     acceptButton flyByHelpText:(resources string:'Accept').
     self add:acceptButton.
 
     cancelButton := ButtonWithHelpText new.
     cancelButton origin:0.0 @ 0.7 corner:1.0@0.9.
     cancelButton backgroundColor:Color red.
+    cancelButton enteredBackgroundColor:Color red lightened.
+    cancelButton activeBackgroundColor:Color red darkened.
     cancelButton flyByHelpText:(resources string:'Cancel').
     self add:cancelButton.
 
     compareButton := ButtonWithHelpText new.
     compareButton origin:0.0 @ 0.9 corner:1.0@1.0.
     compareButton backgroundColor:Color yellow.
+    compareButton enteredBackgroundColor:Color yellow lightened lightened.
+    compareButton activeBackgroundColor:Color yellow darkened.
     compareButton flyByHelpText:(resources string:'Compare against Original').
     compareButton label:'?'.
     self add:compareButton.
@@ -299,10 +305,10 @@
 !ViewWithAcceptAndCancelBar class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.14 2014-06-01 10:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.15 2014-07-10 16:54:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.14 2014-06-01 10:17:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ViewWithAcceptAndCancelBar.st,v 1.15 2014-07-10 16:54:25 cg Exp $'
 ! !