--- a/CodeView.st	Fri Nov 19 15:35:01 1999 +0100
+++ b/CodeView.st	Mon Nov 22 11:44:27 1999 +0100
@@ -179,7 +179,7 @@
      get the superclass menu and add my functions."
 
     <resource: #keyboard (#CommentSelection #UncommentSelection 
-                          #Accept #Explain)>
+                          #Accept #Explain #Format)>
     <resource: #programMenu>
 
     |m sub sensor|
@@ -211,6 +211,13 @@
                 accelerators:#(nil Explain)
                 after:#gotoLine.
 
+            formatAction notNil ifTrue:[
+                sub addLabels:(resources array:#('format'))
+                    selectors:#(format)
+                    accelerators:#(Format)
+                    after:#indent.
+            ].
+
             (self hasSelection not
             or:[explainAction isNil]) ifTrue:[
                 sub disable:#explain 
@@ -219,7 +226,7 @@
     ].
     ^ m.
 
-    "Modified: / 29.7.1998 / 16:14:52 / cg"
+    "Modified: / 22.11.1999 / 11:41:40 / cg"
 !
 
 explain
@@ -257,5 +264,5 @@
 !CodeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.41 1999-02-19 18:11:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/CodeView.st,v 1.42 1999-11-22 10:44:27 cg Exp $'
 ! !