--- a/CodeView.st	Sun Apr 30 15:40:03 1995 +0200
+++ b/CodeView.st	Wed May 03 02:30:14 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	    All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.13 1995-03-06 19:28:05 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.14 1995-05-03 00:28:53 claus Exp $
 '!
 
 !CodeView class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.13 1995-03-06 19:28:05 claus Exp $
+$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.14 1995-05-03 00:28:53 claus Exp $
 "
 !
 
@@ -69,8 +69,9 @@
     "
     idx := m indexOf:#inspectIt.
     idx ~~ 0 ifTrue:[
-	m addLabel:'-' selector:nil after:idx.
-	m addLabel:(resources string:'accept') selector:#accept after:idx + 1.
+	m addLabels:(resources array:#('-' 'accept'))
+	  selectors:#(nil accept)
+	  after:idx.
     ].
 
     "
@@ -79,8 +80,9 @@
     sub := m subMenuAt:#others.
     sub notNil ifTrue:[
 	idx := sub indexOf:#gotoLine.
-	sub addLabel:'-' selector:nil after:idx.
-	sub addLabel:(resources string:'explain') selector:#explain after:idx + 1.
+	sub addLabels:(resources array:#('-' 'explain'))
+	    selectors:#(nil explain)
+	    after:idx.
 	self hasSelection ifFalse:[
 	    sub disable:#explain 
 	].