# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 949589119 -3600
# Node ID 3645e52151425316f1f48410974b0dbfa6c32d4d
# Parent  295fe7dc6fbbebaf984c38e4c20c7d28a027de5e
*** empty log message ***

diff -r 295fe7dc6fbb -r 3645e5215142 ProjectBrowser.st
--- 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