# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 948574035 -3600
# Node ID 9ed64bde6ff838eeee0d89f6dde686b763304e33
# Parent  f13d0e144c8269ac4ef3436526f386fd880b5072
*** empty log message ***

diff -r f13d0e144c82 -r 9ed64bde6ff8 ProjectBrowser.st
--- a/ProjectBrowser.st	Sat Jan 22 15:22:22 2000 +0100
+++ b/ProjectBrowser.st	Sat Jan 22 21:47:15 2000 +0100
@@ -170,6 +170,9 @@
 #libType
 'A classLibrary addOn (and support files if any)'
 
+loadProjectCode
+'Load projects classes from the project directory'
+
 #methodsFile
 'Patches & Extensions are stored in this file.'
 
@@ -185,6 +188,9 @@
 #repositoryModule
 'The module (top directory) in the source-repository.'
 
+#saveProjectFile
+'Write a new .prj file.'
+
 )
 ! !
 
@@ -2237,12 +2243,14 @@
                   #label: 'Load From...'
                   #translateLabel: true
                   #value: #openProject
+                  #activeHelpKey: #openProject
                 )
                #(#MenuItem
                   #label: 'Load Project Code'
                   #translateLabel: true
                   #value: #loadProjectCode
                   #enabled: #hasProjectSelectedAndProjectFilenameHolder
+                  #activeHelpKey: #loadProjectCode
                 )
                #(#MenuItem
                   #label: '-'
@@ -2252,6 +2260,7 @@
                   #translateLabel: true
                   #value: #saveProjectFile
                   #enabled: #hasProjectSelectedAndProjectFilenameHolder
+                  #activeHelpKey: #saveProjectFile
                 )
                #(#MenuItem
                   #label: 'Save Project Code'
@@ -3755,7 +3764,13 @@
                     ^ self.
                 ].
                 aParameter package = package ifTrue:[
-                    self halt.
+                    "/ a new class was added to the package;
+                    "/ must look if already there, and possibly update my
+                    "/ tree and classList
+                    (self currentProject includesClass:aParameter) ifFalse:[
+                        self halt.
+                    ].
+                    ^ self.
                 ]
             ]
         ].