--- 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|