--- a/ColorMenu.st	Wed May 23 17:28:32 2018 +0200
+++ b/ColorMenu.st	Wed May 23 17:32:46 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by eXept Software AG
               All Rights Reserved
@@ -381,19 +383,12 @@
 
 !ColorMenu methodsFor:'accepting'!
 
-accept
-    "must be ignored, as sent by dialogBox's doAccept
-     and is defined in superclass to call accept: with nil argument"
-
-    "Created: / 26-07-2013 / 20:43:26 / cg"
-!
-
-accept:anItem
+accept:anItem isUserAction:isUserAction
     "accept the current selected item (called from my pulldown menus)"
 
     |holder colorAccepted|
 
-    super accept:anItem.
+    super accept:anItem isUserAction:isUserAction.
 
     (anItem notNil and:[((anItem nameKey ? '') startsWith:'pseudo') not]) ifTrue:[
         holder := self colorHolder.