--- a/ProjectBrowser.st Thu Jun 24 17:44:30 1999 +0200
+++ b/ProjectBrowser.st Thu Jun 24 18:00:36 1999 +0200
@@ -1491,12 +1491,6 @@
#enabled: #hasProjectSelectedAndProjectFilenameHolder
)
#(#MenuItem
- #label: 'Save As...'
- #translateLabel: true
- #value: #saveProjectAs
- #enabled: #hasProjectSelectedHolder
- )
- #(#MenuItem
#label: '-'
)
#(#MenuItem
@@ -2841,7 +2835,7 @@
self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
self projectType value:(p type).
self projectDirectory value:(p directory).
-
+ self projectPackage value:(p packageName).
self projectNamespace value:(p defaultNameSpace ? Smalltalk) name.
self repositoryModule value:(p repositoryModule).
@@ -2902,6 +2896,7 @@
].
p directory:self projectDirectory value.
+ p packageName:(self projectPackage value) asSymbol.
p repositoryModule:self repositoryModule value.
p repositoryDirectory:self repositoryDirectory value.
@@ -3296,7 +3291,7 @@
p := self currentProject.
p isNil ifTrue:[
- self information:'Selet a project first.'.
+ self information:'Select a project first.'.
^self
].
p directory isNil ifTrue:[
@@ -3307,7 +3302,9 @@
p directory:d
].
- p saveAsProjectFile.
+ self withCursor:Cursor write do:[
+ p saveAsProjectFile.
+ ]
"Modified: / 26.4.1999 / 22:43:57 / cg"
!