--- 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.
]
]
].