--- a/Launcher.st Thu Oct 28 13:52:29 1999 +0200
+++ b/Launcher.st Thu Oct 28 17:52:32 1999 +0200
@@ -728,32 +728,32 @@
|project projectName projectDir packageName defNameSpace msg args|
(Project isNil or:[(project := Project current) isNil]) ifTrue:[
- projectName := '* none *'.
- projectDir := '.'.
- packageName := '* none *'.
+ projectName := '* none *'.
+ projectDir := '.'.
+ packageName := '* none *'.
] ifFalse:[
- projectName := project name.
- projectDir := project directory.
- packageName := project packageName.
- defNameSpace := project defaultNameSpace.
+ projectName := project name.
+ projectDir := project directory.
+ packageName := project package.
+ defNameSpace := project defaultNameSpace.
].
defNameSpace isNil ifTrue:[
- defNameSpace := Smalltalk.
+ defNameSpace := Smalltalk.
].
defNameSpace == Smalltalk ifTrue:[
- msg := 'project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
- args := Array
- with:projectName
- with:packageName
- with:(projectDir contractTo:30).
+ msg := 'project: ''%1'' fileOut to: ''%3'' package: ''%2'''.
+ args := Array
+ with:projectName
+ with:packageName
+ with:(projectDir contractTo:30).
] ifFalse:[
- msg := 'project: ''%1'' fileOut to: ''%3'' package: ''%2'' nameSpace: %4'.
- args := Array
- with:projectName
- with:packageName
- with:(projectDir contractTo:30)
- with:defNameSpace name.
+ msg := 'project: ''%1'' fileOut to: ''%3'' package: ''%2'' nameSpace: %4'.
+ args := Array
+ with:projectName
+ with:packageName
+ with:(projectDir contractTo:30)
+ with:defNameSpace name.
].
projectInfoHolder value:(resources string:msg withArgs:args)
@@ -1715,5 +1715,5 @@
!Launcher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.402 1999-02-24 10:45:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.403 1999-10-28 15:52:32 cg Exp $'
! !