# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 947788831 -3600
# Node ID f5fcf9ef07ab7b13fa800a0a077a7114591492be
# Parent  2beb244c45df67bc1570946003f2b9752a6ce37b
*** empty log message ***

diff -r 2beb244c45df -r f5fcf9ef07ab ProjectBrowser.st
--- 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.