# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1267179360 -3600
# Node ID c36ead4db5bc85d69d160932acabc4af50af86dd
# Parent  0c66aa3bfdffb83a34228dd2de76431cfae71535
added:
        #browseModulesProjectDefinition
        #canBrowseSelectedModulesProjectDefinition
        #projectDefinitionClassOfSelectedModule
changed:
        #mainMenu
        #moduleMenu

diff -r 0c66aa3bfdff -r c36ead4db5bc Tools__ObjectModuleInformation.st
--- a/Tools__ObjectModuleInformation.st	Wed Feb 10 23:10:55 2010 +0100
+++ b/Tools__ObjectModuleInformation.st	Fri Feb 26 11:16:00 2010 +0100
@@ -266,6 +266,12 @@
                   itemValue: browseModuleExtensions
                   translateLabel: true
                 )
+             (MenuItem
+                enabled: canBrowseSelectedModulesProjectDefinition
+                label: 'Browse ProjectDefinition'
+                itemValue: browseModulesProjectDefinition
+                translateLabel: true
+              )
          (MenuItem
             label: 'Find a Class...'
             itemValue: findClass
@@ -413,6 +419,12 @@
             translateLabel: true
           )
          (MenuItem
+            enabled: canBrowseSelectedModulesProjectDefinition
+            label: 'Browse ProjectDefinition'
+            itemValue: browseModulesProjectDefinition
+            translateLabel: true
+          )
+         (MenuItem
             label: 'Find a Class...'
             itemValue: findClass
             translateLabel: true
@@ -613,6 +625,10 @@
     "Modified: / 05-10-2007 / 10:51:39 / cg"
 !
 
+canBrowseSelectedModulesProjectDefinition
+    ^ [ self projectDefinitionClassOfSelectedModule notNil ]
+!
+
 canCopyClassNameList
     ^ [table1VisibleHolder value 
     and:[classInfoShown notEmptyOrNil or:[vmInfoShown notEmptyOrNil] ]]
@@ -1202,6 +1218,15 @@
     (UserPreferences browserClass) browseMethods:methods title:('Extensions for ',packageID).
 !
 
+browseModulesProjectDefinition
+    |projectDefinitionClass|
+
+    projectDefinitionClass := self projectDefinitionClassOfSelectedModule.
+    projectDefinitionClass notNil ifTrue:[
+        (UserPreferences browserClass) openInClass:projectDefinitionClass class
+    ].
+!
+
 copyClassOrVMNameList
     |text|
 
@@ -1360,6 +1385,30 @@
     "Created: / 05-10-2007 / 12:43:36 / cg"
 !
 
+projectDefinitionClassOfSelectedModule
+    |info packageID projectDefinitionClass|
+
+    info := self selectedModuleInfo.
+    info isNil ifTrue:[^ nil].
+
+    info classNames 
+        detect:[:nm | 
+            |cls|
+
+            cls := Smalltalk at:nm. 
+            cls notNil ifTrue:[
+                packageID := cls package.
+                true
+            ] ifFalse:[
+                false
+            ]
+        ]
+        ifNone:[^ nil].
+
+    projectDefinitionClass := packageID asPackageId projectDefinitionClass.
+    ^ projectDefinitionClass
+!
+
 updateModuleList
     |showClassLibs showBuiltIn showMethods showCObjects showOthers
      listOfModuleNames allObjects handles methodObjects |