MenuPanel.st
changeset 5705 c3db8e3414b3
parent 5700 753647f41c3f
child 5707 1344a1eaf146
--- a/MenuPanel.st	Mon Feb 12 18:06:59 2018 +0100
+++ b/MenuPanel.st	Wed Feb 14 12:56:09 2018 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -6586,7 +6584,10 @@
 nameKey:aNameKey
     "sets the nameKey"
 
+    self assert:(aNameKey isNil or:[aNameKey isString]).
     menuItem nameKey:aNameKey.
+
+    "Modified: / 14-02-2018 / 12:23:24 / mawalch"
 !
 
 rawLabel