--- a/ProjectView.st	Sat Feb 07 14:12:53 1998 +0100
+++ b/ProjectView.st	Sat Feb 07 16:19:02 1998 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.10 on 19-sep-1997 at 10:58:38 pm'                !
-
 StandardSystemView subclass:#ProjectView
 	instanceVariableNames:'myProject toggle'
 	classVariableNames:'ActiveProjectView'
@@ -136,68 +134,68 @@
     |labels selectors m|
 
     labels := #(
-		    'class documentation'
-		    '-'
-		    'show'
-		    'hide'
-		    '-'
-		    'changes'
-		    'browse'
-		    'browse redefined'
-		    'fileOut classes'
-		    '-'
-		    'fileOut directory ...'
-		    'repository defaults ...'
-		    'package name ...'
-		    'default nameSpace for fileIn ...'
+                    'class documentation'
+                    '-'
+                    'show'
+                    'hide'
+                    '-'
+                    'changes'
+                    'browse'
+                    'browse redefined'
+                    'fileOut classes'
+                    '-'
+                    'fileOut directory ...'
+                    'repository defaults ...'
+                    'package name ...'
+                    'default nameSpace for fileIn ...'
 "/                        '-'
 "/                        'save project code'
 "/                        'build'
-		    '-'
-		    'remove package code'
-		    'remove project'
-		    '-'
-		    'rename ...'
-	       ).
+                    '-'
+                    'remove package code'
+                    'remove project'
+                    '-'
+                    'rename ...'
+               ).
 
      selectors := #(        
-		    showClassDocumentation
-		    nil
-		    showProject
-		    hideProject
-		    nil
-		    browseChanges
-		    browsePackage
-		    browseRedefined
-		    fileOutClasses
-		    nil
-		    projectDirectory
-		    projectRepositoryAndModule
-		    projectPackage
-		    projectNameSpace
+                    showClassDocumentation
+                    nil
+                    showProject
+                    hideProject
+                    nil
+                    browseChanges
+                    browsePackage
+                    browseRedefined
+                    fileOutClasses
+                    nil
+                    projectDirectory
+                    projectRepositoryAndModule
+                    projectPackage
+                    projectNameSpace
 "/                        nil
 "/                        saveProjectFiles
 "/                        buildProject
-		    nil
-		    removePackage
-		    destroy
-		    nil
-		    renameProject
-		).
+                    nil
+                    removePackage
+                    destroy
+                    nil
+                    renameProject
+                ).
 
     m := PopUpMenu
-		labels:(resources array:labels)
-		selectors:selectors
-		receiver:self.
+                labels:(resources array:labels)
+                selectors:selectors
+                receiver:self.
 
     SourceCodeManager isNil ifTrue:[
-	m disableAll:#(#projectRepository #projectPackage).
+        m disableAll:#(#projectRepository #projectRepositoryAndModule).
     ].
 
     ^ m
 
-    "Created: 27.1.1997 / 11:53:30 / cg"
-    "Modified: 27.1.1997 / 11:54:52 / cg"
+    "Created: / 27.1.1997 / 11:53:30 / cg"
+    "Modified: / 6.2.1998 / 12:57:21 / cg"
 ! !
 
 !ProjectView methodsFor:'menu actions'!
@@ -756,5 +754,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.40 1997-10-15 11:17:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.41 1998-02-07 15:19:02 cg Exp $'
 ! !