equal
deleted
inserted
replaced
2537 |
2537 |
2538 ^ |
2538 ^ |
2539 #(#Menu |
2539 #(#Menu |
2540 #( |
2540 #( |
2541 #(#MenuItem |
2541 #(#MenuItem |
2542 #label: '-' |
|
2543 ) |
|
2544 #(#MenuItem |
|
2545 #label: 'Validate...' |
2542 #label: 'Validate...' |
2546 #translateLabel: true |
2543 #translateLabel: true |
2547 #value: #validateAgainstMethodsInImage |
2544 #value: #validateAgainstMethodsInImage |
2548 #enabled: #hasMethodsSelectedHolder |
2545 #enabled: #hasMethodsSelectedHolder |
2549 ) |
2546 ) |
4084 |
4081 |
4085 hasPrerequisitePackagesNodeSelected |
4082 hasPrerequisitePackagesNodeSelected |
4086 ^ self hasNodeSelected:#prerequisitePackages. |
4083 ^ self hasNodeSelected:#prerequisitePackages. |
4087 ! |
4084 ! |
4088 |
4085 |
|
4086 hasPrerequisitesNodeSelected |
|
4087 ^ self hasNodeSelected:#prerequisites. |
|
4088 |
|
4089 ! |
|
4090 |
4089 hasProjectNodeSelected |
4091 hasProjectNodeSelected |
4090 |selectedNode| |
4092 |selectedNode| |
4091 |
4093 |
4092 selectedNode := self selectedTreeNode. |
4094 selectedNode := self selectedTreeNode. |
4093 selectedNode isNil ifTrue:[^ false]. |
4095 selectedNode isNil ifTrue:[^ false]. |
4147 "/ pNode add:(docNode := ProjectTreeItem name:'Documentation'). |
4149 "/ pNode add:(docNode := ProjectTreeItem name:'Documentation'). |
4148 pNode add:(propertiesNode := ProjectTreeItem name:'Properties'). |
4150 pNode add:(propertiesNode := ProjectTreeItem name:'Properties'). |
4149 pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites'). |
4151 pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites'). |
4150 "/ pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects'). |
4152 "/ pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects'). |
4151 pNode add:(classesNode := ProjectTreeItem name:'Classes'). |
4153 pNode add:(classesNode := ProjectTreeItem name:'Classes'). |
4152 pNode add:(patchesNode := ProjectTreeItem name:'Patches'). |
4154 pNode add:(patchesNode := ProjectTreeItem name:'Patches & Extensions'). |
4153 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
4155 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
4154 pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). |
4156 pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). |
4155 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
4157 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
4156 |
4158 |
4157 subprojectsNode notNil ifTrue:[ |
4159 subprojectsNode notNil ifTrue:[ |
4179 userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference'). |
4181 userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference'). |
4180 docNode add:(userDocNode := ProjectTreeItem name:'Error Reports'). |
4182 docNode add:(userDocNode := ProjectTreeItem name:'Error Reports'). |
4181 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
4183 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
4182 ]. |
4184 ]. |
4183 |
4185 |
|
4186 prerequisitesNode contents:#prerequisites. |
4184 prerequisitesNode icon:(self class prerequisitesIcon). |
4187 prerequisitesNode icon:(self class prerequisitesIcon). |
4185 prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages'). |
4188 prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages'). |
4186 prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes'). |
4189 prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes'). |
4187 prerequisitesNode info:'Other projects and classes required by the project'. |
4190 prerequisitesNode info:'Other projects and classes required by the project'. |
4188 |
4191 |
4642 ]. |
4645 ]. |
4643 self hasMethodNodeSelected ifTrue:[ |
4646 self hasMethodNodeSelected ifTrue:[ |
4644 self showMethodSourceOf:selectedNode. |
4647 self showMethodSourceOf:selectedNode. |
4645 ^ self. |
4648 ^ self. |
4646 ]. |
4649 ]. |
4647 |
4650 self hasPrerequisitesNodeSelected ifTrue:[ |
|
4651 self showPrerequisitesInfo. |
|
4652 ^ self. |
|
4653 ]. |
4648 |
4654 |
4649 self currentCanvasHolder value:(self class emptyRightCanvasSpec). |
4655 self currentCanvasHolder value:(self class emptyRightCanvasSpec). |
4650 self rightCanvasTextHolder value:''. |
4656 self rightCanvasTextHolder value:''. |
4651 |
4657 |
4652 "Modified: / 23.3.1999 / 14:16:02 / cg" |
4658 "Modified: / 23.3.1999 / 14:16:02 / cg" |
|
4659 |
4653 ! ! |
4660 ! ! |
4654 |
4661 |
4655 !ProjectBrowser methodsFor:'private - building'! |
4662 !ProjectBrowser methodsFor:'private - building'! |
4656 |
4663 |
4657 checkForMakeProtoFor:aProject |
4664 checkForMakeProtoFor:aProject |
4705 ^ false |
4712 ^ false |
4706 ]. |
4713 ]. |
4707 dir recursiveMakeDirectory. |
4714 dir recursiveMakeDirectory. |
4708 ]. |
4715 ]. |
4709 ^ true |
4716 ^ true |
|
4717 |
|
4718 |
|
4719 ! ! |
|
4720 |
|
4721 !ProjectBrowser methodsFor:'private - info'! |
|
4722 |
|
4723 showPrerequisitesInfo |
|
4724 self showReadOnlyText: |
|
4725 'When loading this package, |
|
4726 these other packages/classes |
|
4727 will be loaded before. |
|
4728 Also, the prerequisite packages'' |
|
4729 directory pathes will be added |
|
4730 to the include path for |
|
4731 stc-compilation.'. |
|
4732 |
|
4733 ^ self. |
4710 |
4734 |
4711 |
4735 |
4712 ! ! |
4736 ! ! |
4713 |
4737 |
4714 !ProjectBrowser methodsFor:'private - table col access'! |
4738 !ProjectBrowser methodsFor:'private - table col access'! |
6124 p removeMethod:mthd. |
6148 p removeMethod:mthd. |
6125 mthd who methodClass removeSelector:mthd who methodSelector. |
6149 mthd who methodClass removeSelector:mthd who methodSelector. |
6126 self updatePatchesListForProject:p. |
6150 self updatePatchesListForProject:p. |
6127 self projectTree remove:self selectedTreeNode. |
6151 self projectTree remove:self selectedTreeNode. |
6128 ] |
6152 ] |
6129 ]. |
6153 ] ifFalse:[ |
|
6154 self information:'No such method in the image (yet)'. |
|
6155 ] |
6130 ! |
6156 ! |
6131 |
6157 |
6132 removeMethodFromProject |
6158 removeMethodFromProject |
6133 |p mthd| |
6159 |p mthd| |
6134 |
6160 |