CodeView.st
changeset 6216 d3bf0f1dec62
parent 5530 6e888d60be5a
child 6265 cee20d1e21a8
--- a/CodeView.st	Thu Oct 12 18:36:45 2017 +0200
+++ b/CodeView.st	Fri Oct 20 11:19:09 2017 +0200
@@ -259,14 +259,16 @@
          codeViews do support #accept
          ... add it after #inspectIt
         "
-        m 
-          addItemList:#(
-                ('-')
-                ('Accept'       accept          Accept)       
-            )
-          resources:resources  
-          after:#inspectIt.
-
+        (m indexOf:'Accept') == 0 ifTrue:[
+            m 
+              addItemList:#(
+                    ('-')
+                    ('Accept'       accept          Accept)       
+                )
+              resources:resources  
+              after:#inspectIt.
+        ].
+        
         (acceptEnabled == false 
         or:[acceptAction isNil]) ifTrue:[
             m disable:#accept
@@ -304,7 +306,7 @@
     ].
     ^ m ? sub.
 
-    "Modified: / 12.11.2001 / 16:04:46 / cg"
+    "Modified: / 20-10-2017 / 11:18:23 / cg"
 !
 
 explain