--- a/CodeView.st	Thu Feb 12 16:00:50 2004 +0100
+++ b/CodeView.st	Thu Feb 12 16:01:06 2004 +0100
@@ -183,7 +183,7 @@
                           #Accept #Explain #Format)>
     <resource: #programMenu>
 
-    |m sub|
+    |m sub subsub|
 
     m := super editMenu.
     self sensor ctrlDown ifTrue:[
@@ -198,9 +198,11 @@
          codeViews do support #accept
          ... add it after #inspectIt
         "
-        m addLabels:(resources array:#('-' 'Accept'))
-          selectors:#(nil accept)
-          accelerators:#(nil #Accept)
+        m 
+          addItemList:#(
+                ('-')
+                ('Accept'       accept          Accept)       
+            )
           after:#inspectIt.
 
         (acceptEnabled == false 
@@ -213,16 +215,23 @@
         "
          and add #explain after $gotoLine in the extra menu
         "
-        sub addLabels:(resources array:#('-' 'Explain'))
-            selectors:#(nil explain)
-            accelerators:#(nil Explain)
-            after:#gotoLine.
+        sub 
+          addItemList:#(
+                ('-')
+                ('Explain'       explain          Explain)       
+            )
+          after:#gotoLine.
 
         formatAction notNil ifTrue:[
-            sub addLabels:(resources array:#('Format'))
-                selectors:#(format)
-                accelerators:#(Format)
-                after:#indent.
+            subsub := sub subMenuAt:#tools.
+
+            subsub notNil ifTrue:[
+                subsub
+                  addItemList:#(
+                        ('Format'       format          Format)       
+                    )
+                  after:#indent.
+            ].
         ].
         (self hasSelection not
         or:[explainAction isNil]) ifTrue:[
@@ -269,5 +278,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.49 2003-04-15 11:57:49 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.50 2004-02-12 15:00:58 cg Exp $'
 ! !