--- a/ProjectBrowser.st Thu Feb 03 13:55:57 2000 +0100
+++ b/ProjectBrowser.st Thu Feb 03 15:45:19 2000 +0100
@@ -2539,9 +2539,6 @@
#(#Menu
#(
#(#MenuItem
- #label: '-'
- )
- #(#MenuItem
#label: 'Validate...'
#translateLabel: true
#value: #validateAgainstMethodsInImage
@@ -4086,6 +4083,11 @@
^ self hasNodeSelected:#prerequisitePackages.
!
+hasPrerequisitesNodeSelected
+ ^ self hasNodeSelected:#prerequisites.
+
+!
+
hasProjectNodeSelected
|selectedNode|
@@ -4149,7 +4151,7 @@
pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
"/ pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
pNode add:(classesNode := ProjectTreeItem name:'Classes').
- pNode add:(patchesNode := ProjectTreeItem name:'Patches').
+ pNode add:(patchesNode := ProjectTreeItem name:'Patches & Extensions').
pNode add:(filesNode := ProjectTreeItem name:'Files').
pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options').
pNode add:(deploymentNode := ProjectTreeItem name:'Deployment').
@@ -4181,6 +4183,7 @@
docNode add:(userDocNode := ProjectTreeItem name:'Other').
].
+ prerequisitesNode contents:#prerequisites.
prerequisitesNode icon:(self class prerequisitesIcon).
prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages').
prerequisitesNode add:(prerequisiteClassesNode := ProjectTreeItem name:'Classes').
@@ -4644,12 +4647,16 @@
self showMethodSourceOf:selectedNode.
^ self.
].
-
+ self hasPrerequisitesNodeSelected ifTrue:[
+ self showPrerequisitesInfo.
+ ^ self.
+ ].
self currentCanvasHolder value:(self class emptyRightCanvasSpec).
self rightCanvasTextHolder value:''.
"Modified: / 23.3.1999 / 14:16:02 / cg"
+
! !
!ProjectBrowser methodsFor:'private - building'!
@@ -4711,6 +4718,23 @@
! !
+!ProjectBrowser methodsFor:'private - info'!
+
+showPrerequisitesInfo
+ self showReadOnlyText:
+'When loading this package,
+these other packages/classes
+will be loaded before.
+Also, the prerequisite packages''
+directory pathes will be added
+to the include path for
+stc-compilation.'.
+
+ ^ self.
+
+
+! !
+
!ProjectBrowser methodsFor:'private - table col access'!
classFilenameFromClassInfo:cInfo
@@ -6126,7 +6150,9 @@
self updatePatchesListForProject:p.
self projectTree remove:self selectedTreeNode.
]
- ].
+ ] ifFalse:[
+ self information:'No such method in the image (yet)'.
+ ]
!
removeMethodFromProject