Tools_OrganizerCanvas.st
changeset 7886 0d121740ae9c
parent 7724 0dbdacddc217
child 8006 cdc85821cae2
--- a/Tools_OrganizerCanvas.st	Mon Nov 05 17:16:31 2007 +0100
+++ b/Tools_OrganizerCanvas.st	Mon Nov 05 17:17:11 2007 +0100
@@ -31,7 +31,9 @@
 		metaToggleLabelHolder selectedCategories selectedClasses
 		selectedNamespaces selectedProjects selectionChangeCondition
 		nameSpaceFilterSelection markApplicationsHolder
-		sortVariablesByName showAllClassesInNameSpaceView'
+		sortVariablesByName showAllClassesInNameSpaceView
+		showMethodInheritance showMethodComplexity showMethodTypeIcon
+		methodVisibilityHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -2251,6 +2253,19 @@
     "Created: / 18.2.2000 / 11:52:55 / cg"
 !
 
+methodVisibilityHolder
+    masterApplication notNil ifTrue:[
+        ^ masterApplication methodVisibilityHolder
+    ].
+
+    methodVisibilityHolder isNil ifTrue:[
+        methodVisibilityHolder := false asValue.
+    ].
+    ^ methodVisibilityHolder.
+
+    "Created: / 05-11-2007 / 16:57:58 / cg"
+!
+
 nameSpaceDoubleClickChannel
     "automatically generated by UIPainter ..."
 
@@ -2574,6 +2589,45 @@
     "Created: / 18.2.2000 / 17:54:57 / cg"
 !
 
+showMethodComplexity
+    masterApplication notNil ifTrue:[
+        ^ masterApplication showMethodComplexity
+    ].
+
+    showMethodComplexity isNil ifTrue:[
+        showMethodComplexity := false asValue.
+    ].
+    ^ showMethodComplexity.
+
+    "Created: / 05-11-2007 / 16:56:36 / cg"
+!
+
+showMethodInheritance
+    masterApplication notNil ifTrue:[
+        ^ masterApplication showMethodInheritance
+    ].
+
+    showMethodInheritance isNil ifTrue:[
+        showMethodInheritance := false asValue.
+    ].
+    ^ showMethodInheritance.
+
+    "Created: / 05-11-2007 / 16:55:35 / cg"
+!
+
+showMethodTypeIcon
+    masterApplication notNil ifTrue:[
+        ^ masterApplication showMethodTypeIcon
+    ].
+
+    showMethodTypeIcon isNil ifTrue:[
+        showMethodTypeIcon := false asValue.
+    ].
+    ^ showMethodTypeIcon.
+
+    "Created: / 05-11-2007 / 16:57:12 / cg"
+!
+
 sortVariablesByName
     sortVariablesByName isNil ifTrue:[
         sortVariablesByName := false asValue.
@@ -2952,6 +3006,17 @@
     "Created: / 18.2.2000 / 11:53:31 / cg"
 !
 
+methodVisibilityHolder:aValueHolder
+    "automatically generated by UIPainter ..."
+
+    "This method is used when I am embedded as subApplication,"
+    "and the mainApp wants to connect its aspects to mine."
+
+    methodVisibilityHolder := aValueHolder.
+
+    "Created: / 05-11-2007 / 16:57:34 / cg"
+!
+
 nameSpaceFilter:something
     "automatically generated by UIPainter ..."
 
@@ -3147,8 +3212,12 @@
 
     selectedNamespaces := something.
     selectedNamespaces onChangeEvaluate:[
-	nameSpaceFilterSelection value:selectedNamespaces value.     
+        nameSpaceFilterSelection notNil ifTrue:[
+            nameSpaceFilterSelection value:selectedNamespaces value.     
+        ]
     ].
+
+    "Modified: / 05-11-2007 / 17:16:56 / cg"
 !
 
 selectedProjects:something
@@ -3178,6 +3247,39 @@
     showClassPackages := something.
 !
 
+showMethodComplexity:aValueHolder
+    "automatically generated by UIPainter ..."
+
+    "This method is used when I am embedded as subApplication,"
+    "and the mainApp wants to connect its aspects to mine."
+
+    showMethodComplexity := aValueHolder.
+
+    "Created: / 05-11-2007 / 16:56:18 / cg"
+!
+
+showMethodInheritance:aValueHolder
+    "automatically generated by UIPainter ..."
+
+    "This method is used when I am embedded as subApplication,"
+    "and the mainApp wants to connect its aspects to mine."
+
+    showMethodInheritance := aValueHolder.
+
+    "Created: / 05-11-2007 / 16:55:12 / cg"
+!
+
+showMethodTypeIcon:aValueHolder
+    "automatically generated by UIPainter ..."
+
+    "This method is used when I am embedded as subApplication,"
+    "and the mainApp wants to connect its aspects to mine."
+
+    showMethodTypeIcon := aValueHolder.
+
+    "Created: / 05-11-2007 / 16:57:02 / cg"
+!
+
 sortVariablesByName:something
     "automatically generated by UIPainter ..."
 
@@ -3917,5 +4019,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.24 2007-03-12 09:40:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.25 2007-11-05 16:17:11 cg Exp $'
 ! !