--- a/ProjectBrowser.st Thu Jan 13 19:27:49 2000 +0100
+++ b/ProjectBrowser.st Thu Jan 13 19:40:31 2000 +0100
@@ -3184,7 +3184,7 @@
dir := self projectDirectory value asFilename.
(dir exists and:[dir isDirectory]) ifTrue:[
(self hasProjectSelectedHolder value) ifTrue:[
- self projectCodeIsLoaded value
+ self projectCodeIsLoadedHolder value
] ifFalse:[
false.
]
@@ -3480,13 +3480,13 @@
^ holder.
!
-projectCodeIsLoaded
+projectCodeIsLoadedHolder
"automatically generated by UIPainter ..."
|holder|
- (holder := builder bindingAt:#projectCodeIsLoaded) isNil ifTrue:[
- builder aspectAt:#projectCodeIsLoaded put:(holder := ValueHolder new).
+ (holder := builder bindingAt:#projectCodeIsLoadedHolder) isNil ifTrue:[
+ builder aspectAt:#projectCodeIsLoadedHolder put:(holder := ValueHolder new).
].
^ holder.
@@ -4243,7 +4243,7 @@
].
self methodsFile value:(p propertyAt:#methodsFile).
- self projectCodeIsLoaded value:(p isLoaded == true).
+ self projectCodeIsLoadedHolder value:(p isLoaded == true).
p isLoaded == true ifFalse:[
self valueOfInfoLabel value:'Projects code is not loaded.'
].
@@ -4269,16 +4269,16 @@
(pkg includes:$:) ifTrue:[
mMod := pkg upTo:$:.
mDir := pkg copyFrom:mMod size + 2.
- self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
- '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs.
+"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
+"/ '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs.
] ifFalse:[
((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[
- self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
- '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs.
+"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
+"/ '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs.
pkg := mMod , ':' , mDir
] ifFalse:[
- self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
- '\\Please care for the module and directory settings.') withCRs.
+"/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg ,
+"/ '\\Please care for the module and directory settings.') withCRs.
]
]
].
@@ -4430,7 +4430,8 @@
"/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
p type:self projectType value.
- dir := self projectDirectory value asFilename.
+ dir := self projectDirectory value.
+ dir := (dir ? '') withoutSeparators asFilename.
(dir exists and:[dir isDirectory]) ifFalse:[
self warn:'Invalid project directory: ' , dir pathName
].
@@ -5558,7 +5559,7 @@
packageName size == 0 ifTrue:[^ self].
p addPrerequisitePackage:packageName.
- self updatePrerequisitePackageListForProject:p.
+"/ self updatePrerequisitePackageListForProject:p.
self listOfRequiredProjectsInPrerequisites value add:packageName.
self listOfAllProjectsInPrerequisites value remove:packageName ifAbsent:nil.