--- a/CodeView.st	Wed Mar 03 09:36:36 2004 +0100
+++ b/CodeView.st	Wed Mar 03 17:51:48 2004 +0100
@@ -203,6 +203,7 @@
                 ('-')
                 ('Accept'       accept          Accept)       
             )
+          resources:resources  
           after:#inspectIt.
 
         (acceptEnabled == false 
@@ -220,6 +221,7 @@
                 ('-')
                 ('Explain'       explain          Explain)       
             )
+          resources:resources  
           after:#gotoLine.
 
         formatAction notNil ifTrue:[
@@ -230,6 +232,7 @@
                   addItemList:#(
                         ('Format'       format          Format)       
                     )
+                  resources:resources  
                   after:#indent.
             ].
         ].
@@ -278,5 +281,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.50 2004-02-12 15:00:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.51 2004-03-03 16:51:48 cg Exp $'
 ! !

--- a/Workspace.st	Wed Mar 03 09:36:36 2004 +0100
+++ b/Workspace.st	Wed Mar 03 17:51:48 2004 +0100
@@ -1040,6 +1040,7 @@
                 ('-'                                                                )
                 ('TimeIt'               timeIt                                      )
                 ('SpyOnIt'              spyOnIt                                     ))
+          resources:resources  
           after:#gotoLine.
 
         subsub := sub subMenuAt:#tools.
@@ -1049,6 +1050,7 @@
                     ('-'                                                                )
                     ('Comment'              commentSelection        CommentSelection    )
                     ('Uncomment'            uncommentSelection      UncommentSelection  ))
+              resources:resources  
               after:#'indent'.
         ].
 
@@ -1092,6 +1094,7 @@
                 ('DoIt'         doIt        DoIt     )
                 ('PrintIt'      printIt     PrintIt  )
                 ('InspectIt'    inspectIt   InspectIt))
+              resources:resources  
               after:idx.
             
         ].
@@ -1174,5 +1177,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.137 2004-02-19 14:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.138 2004-03-03 16:51:34 cg Exp $'
 ! !