--- a/ContextInspectorView.st	Wed Oct 29 17:02:53 1997 +0100
+++ b/ContextInspectorView.st	Wed Oct 29 17:06:29 1997 +0100
@@ -308,39 +308,43 @@
 !ContextInspectorView methodsFor:'initialization'!
 
 fieldMenu
+    <resource: #programMenu >
+
     |labels selectors|
 
     showingTemporaries ifFalse:[
-	labels := #(
-		     'inspect'
-		     'basicInspect'
-		     '-'
-		     'show temporaries'
-		   ).
-	selectors := #(
-		     doInspect
-		     doBasicInspect
-		     nil
-		     showTemporaries
-		   )
+        labels := #(
+                     'inspect'
+                     'basicInspect'
+                     '-'
+                     'show temporaries'
+                   ).
+        selectors := #(
+                     doInspect
+                     doBasicInspect
+                     nil
+                     showTemporaries
+                   )
     ] ifTrue:[
-	labels := #(
-		     'inspect'
-		     'basicInspect'
-		     '-'
-		     'hide temporaries'
-		   ).
-	selectors := #(
-		     doInspect
-		     doBasicInspect
-		     nil
-		     hideTemporaries
-		   )
+        labels := #(
+                     'inspect'
+                     'basicInspect'
+                     '-'
+                     'hide temporaries'
+                   ).
+        selectors := #(
+                     doInspect
+                     doBasicInspect
+                     nil
+                     hideTemporaries
+                   )
     ].
 
     ^ PopUpMenu
-	  labels:(resources array:labels)
-	  selectors:selectors
+          labels:(resources array:labels)
+          selectors:selectors
+
+    "Modified: / 29.10.1997 / 03:40:03 / cg"
 !
 
 initialize
@@ -456,5 +460,5 @@
 !ContextInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.35 1997-06-26 08:42:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.36 1997-10-29 16:06:16 cg Exp $'
 ! !