--- a/CodeView.st	Thu May 07 19:42:52 1998 +0200
+++ b/CodeView.st	Thu May 07 19:44:37 1998 +0200
@@ -140,11 +140,11 @@
                           #Accept #Explain)>
     <resource: #programMenu>
 
-    |m sub|
+    |m sub sensor|
 
     m := super editMenu.
 
-    self sensor ctrlDown ifFalse:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifFalse:[
         "
          codeViews do support #accept
          ... add it after #inspectIt
@@ -176,7 +176,7 @@
     ].
     ^ m.
 
-    "Modified: / 9.11.1997 / 01:07:03 / cg"
+    "Modified: / 7.5.1998 / 02:48:01 / cg"
 !
 
 explain
@@ -197,5 +197,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.38 1997-11-11 13:52:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.39 1998-05-07 17:44:37 cg Exp $'
 ! !

--- a/Workspace.st	Thu May 07 19:42:52 1998 +0200
+++ b/Workspace.st	Thu May 07 19:44:37 1998 +0200
@@ -739,11 +739,11 @@
     <resource: #keyboard (#DoIt #PrintIt #InspectIt)>
     <resource: #programMenu>
 
-    |m idx|
+    |m idx sensor|
 
     m := super editMenu.
 
-    self sensor ctrlDown ifTrue:[
+    ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
         m addLabels:(resources array:#('-' 'commentIt' 'uncommentIt' '-' 'timeIt' 'spyOnIt'))
           selectors:#(nil commentSelection uncommentSelection nil timeIt spyOnIt)
           accelerators:#(nil CommentSelection UncommentSelection nil nil nil)
@@ -774,8 +774,8 @@
 
     ^ m.
 
-    "Modified: / 9.11.1997 / 01:06:41 / cg"
     "Modified: / 22.4.1998 / 21:49:06 / ca"
+    "Modified: / 7.5.1998 / 02:47:00 / cg"
 !
 
 inspectIt
@@ -830,5 +830,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.59 1998-04-22 20:06:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.60 1998-05-07 17:44:19 cg Exp $'
 ! !