3478 builder aspectAt:#patchesList put:(holder := List new). |
3478 builder aspectAt:#patchesList put:(holder := List new). |
3479 ]. |
3479 ]. |
3480 ^ holder. |
3480 ^ holder. |
3481 ! |
3481 ! |
3482 |
3482 |
3483 projectCodeIsLoaded |
3483 projectCodeIsLoadedHolder |
3484 "automatically generated by UIPainter ..." |
3484 "automatically generated by UIPainter ..." |
3485 |
3485 |
3486 |holder| |
3486 |holder| |
3487 |
3487 |
3488 (holder := builder bindingAt:#projectCodeIsLoaded) isNil ifTrue:[ |
3488 (holder := builder bindingAt:#projectCodeIsLoadedHolder) isNil ifTrue:[ |
3489 builder aspectAt:#projectCodeIsLoaded put:(holder := ValueHolder new). |
3489 builder aspectAt:#projectCodeIsLoadedHolder put:(holder := ValueHolder new). |
3490 ]. |
3490 ]. |
3491 ^ holder. |
3491 ^ holder. |
3492 |
3492 |
3493 "Created: / 23.3.1999 / 14:18:05 / cg" |
3493 "Created: / 23.3.1999 / 14:18:05 / cg" |
3494 ! |
3494 ! |
4241 self selectedTreeNode contents == #comment ifTrue:[ |
4241 self selectedTreeNode contents == #comment ifTrue:[ |
4242 self rightCanvasTextHolder value:p comment. |
4242 self rightCanvasTextHolder value:p comment. |
4243 ]. |
4243 ]. |
4244 |
4244 |
4245 self methodsFile value:(p propertyAt:#methodsFile). |
4245 self methodsFile value:(p propertyAt:#methodsFile). |
4246 self projectCodeIsLoaded value:(p isLoaded == true). |
4246 self projectCodeIsLoadedHolder value:(p isLoaded == true). |
4247 p isLoaded == true ifFalse:[ |
4247 p isLoaded == true ifFalse:[ |
4248 self valueOfInfoLabel value:'Projects code is not loaded.' |
4248 self valueOfInfoLabel value:'Projects code is not loaded.' |
4249 ]. |
4249 ]. |
4250 |
4250 |
4251 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4251 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4267 |
4267 |
4268 mPkg ~= pkg ifTrue:[ |
4268 mPkg ~= pkg ifTrue:[ |
4269 (pkg includes:$:) ifTrue:[ |
4269 (pkg includes:$:) ifTrue:[ |
4270 mMod := pkg upTo:$:. |
4270 mMod := pkg upTo:$:. |
4271 mDir := pkg copyFrom:mMod size + 2. |
4271 mDir := pkg copyFrom:mMod size + 2. |
4272 self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4272 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4273 '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs. |
4273 "/ '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs. |
4274 ] ifFalse:[ |
4274 ] ifFalse:[ |
4275 ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[ |
4275 ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[ |
4276 self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4276 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4277 '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs. |
4277 "/ '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs. |
4278 pkg := mMod , ':' , mDir |
4278 pkg := mMod , ':' , mDir |
4279 ] ifFalse:[ |
4279 ] ifFalse:[ |
4280 self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4280 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4281 '\\Please care for the module and directory settings.') withCRs. |
4281 "/ '\\Please care for the module and directory settings.') withCRs. |
4282 ] |
4282 ] |
4283 ] |
4283 ] |
4284 ]. |
4284 ]. |
4285 self projectPackage value:pkg. |
4285 self projectPackage value:pkg. |
4286 self repositoryModule value:mMod. |
4286 self repositoryModule value:mMod. |
4428 self acceptChannel value:true; value:false. |
4428 self acceptChannel value:true; value:false. |
4429 |
4429 |
4430 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4430 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4431 p type:self projectType value. |
4431 p type:self projectType value. |
4432 |
4432 |
4433 dir := self projectDirectory value asFilename. |
4433 dir := self projectDirectory value. |
|
4434 dir := (dir ? '') withoutSeparators asFilename. |
4434 (dir exists and:[dir isDirectory]) ifFalse:[ |
4435 (dir exists and:[dir isDirectory]) ifFalse:[ |
4435 self warn:'Invalid project directory: ' , dir pathName |
4436 self warn:'Invalid project directory: ' , dir pathName |
4436 ]. |
4437 ]. |
4437 |
4438 |
4438 p directory:self projectDirectory value. |
4439 p directory:self projectDirectory value. |
5556 |
5557 |
5557 packageName := Dialog request:'Package to add:'. |
5558 packageName := Dialog request:'Package to add:'. |
5558 packageName size == 0 ifTrue:[^ self]. |
5559 packageName size == 0 ifTrue:[^ self]. |
5559 |
5560 |
5560 p addPrerequisitePackage:packageName. |
5561 p addPrerequisitePackage:packageName. |
5561 self updatePrerequisitePackageListForProject:p. |
5562 "/ self updatePrerequisitePackageListForProject:p. |
5562 |
5563 |
5563 self listOfRequiredProjectsInPrerequisites value add:packageName. |
5564 self listOfRequiredProjectsInPrerequisites value add:packageName. |
5564 self listOfAllProjectsInPrerequisites value remove:packageName ifAbsent:nil. |
5565 self listOfAllProjectsInPrerequisites value remove:packageName ifAbsent:nil. |
5565 self selectedProjectInPrerequisites value:nil. |
5566 self selectedProjectInPrerequisites value:nil. |
5566 |
5567 |