--- a/ProjectView.st	Wed Oct 13 02:01:32 1993 +0100
+++ b/ProjectView.st	Wed Oct 13 02:03:08 1993 +0100
@@ -1,4 +1,14 @@
-'From Smalltalk/X, Version:2.6.4 on 27-Apr-1993 at 20:02:12'!
+"
+ COPYRIGHT (c) 1993 by Claus Gittinger
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
 
 StandardSystemView subclass:#ProjectView
          instanceVariableNames:'myProject toggle'
@@ -47,8 +57,10 @@
     toggle middleButtonMenu:(
         PopUpMenu
                 labels:#('rename'
+                         'properties'
+                         'changes'
                          '-'
-                         'changes'
+                         'build'
                          '-'
                          'show'
                          'hide'
@@ -56,8 +68,10 @@
                          'destroy'
                         )
              selectors:#(renameProject
+                         browseProps
+                         browseChanges
                          nil
-                         browseChanges
+                         buildProject
                          nil
                          showProject
                          hideProject
@@ -76,10 +90,24 @@
 
 !ProjectView methodsFor:'menu actions'!
 
+buildProject
+!
+
 browseChanges
     ChangeSetBrowser startOn:(myProject changeSet)
 !
 
+browseProps
+    |p|
+
+    p := myProject properties.
+    p isNil ifTrue:[
+        p := DIctionary new.
+        myProject properties:p
+    ].
+    p inspect
+!
+
 destroyProject
     |box|