# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 921027068 -3600
# Node ID 2b65eda2938e070d5aae6f5b4d6e497479a7a479
# Parent  148c81e896acba7bbc30e94035cd14db7db94c0b
checkin from browser

diff -r 148c81e896ac -r 2b65eda2938e ProjectBrowser.st
--- a/ProjectBrowser.st	Tue Mar 09 16:57:11 1999 +0100
+++ b/ProjectBrowser.st	Wed Mar 10 01:51:08 1999 +0100
@@ -380,6 +380,45 @@
 
 !ProjectBrowser class methodsFor:'menu specs'!
 
+classesItemMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+    "
+     MenuEditor new openOnClass:ProjectBrowser andSelector:#classesItemMenu
+     (Menu new fromLiteralArrayEncoding:(ProjectBrowser classesItemMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^
+     
+       #(#Menu
+          
+           #(
+             #(#MenuItem
+                #label: 'Add Class...'
+                #translateLabel: true
+                #value: #addClass
+                #enabled: #hasClassesSelectedHolder
+            )
+             #(#MenuItem
+                #label: '-'
+            )
+             #(#MenuItem
+                #label: 'Browse...'
+                #translateLabel: true
+                #value: #browseClasses
+                #enabled: #hasClassesSelectedHolder
+            )
+          ) nil
+          nil
+      )
+!
+
 mainMenu
     "This resource specification was automatically generated
      by the MenuEditor of ST/X."
@@ -817,12 +856,17 @@
 !ProjectBrowser methodsFor:'menus'!
 
 itemMenu
+    |m|
+
     self hasProjectNodeSelected ifTrue:[
         ^ self class projectItemMenu
     ].      
     self hasSubProjectsNodeSelected ifTrue:[
         ^ self class subProjectsItemMenu
     ].      
+    self hasClassesNodeSelected ifTrue:[
+        ^ self class classesItemMenu
+    ].      
 
     ^ nil
 !
@@ -837,6 +881,16 @@
 
 !ProjectBrowser methodsFor:'private'!
 
+hasClassesNodeSelected
+    |selectedNode|
+
+    selectedNode := self selectedTreeNode value.
+    selectedNode isNil ifTrue:[^ false].
+
+    ^ selectedNode contents == #classes
+
+!
+
 hasProjectNodeSelected
     |selectedNode|