--- a/Tools__OrganizerCanvas.st Mon May 09 21:47:57 2016 +0200
+++ b/Tools__OrganizerCanvas.st Thu May 12 08:33:55 2016 +0200
@@ -34,7 +34,8 @@
sortVariablesByName showAllClassesInNameSpaceView
showMethodInheritance showMethodComplexity showMethodTypeIcon
methodVisibilityHolder showCoverageInformation
- sortByNameAndInheritance nameSpaceListWidgetVisibleHolder'
+ sortByNameAndInheritance nameSpaceListWidgetVisibleHolder
+ groupVariablesByInheritance'
classVariableNames:''
poolDictionaries:''
category:'Interface-Browsers-New'
@@ -630,6 +631,10 @@
subAspect: sortVariablesByName
aspect: sortVariablesByName
)
+ (SubChannelInfoSpec
+ subAspect: groupVariablesByInheritance
+ aspect: groupVariablesByInheritance
+ )
(SubChannelInfoSpec
subAspect: slaveMode
aspect: classListSlaveMode
@@ -1364,6 +1369,10 @@
subAspect: sortVariablesByName
aspect: sortVariablesByName
)
+ (SubChannelInfoSpec
+ subAspect: groupVariablesByInheritance
+ aspect: groupVariablesByInheritance
+ )
(SubChannelInfoSpec
subAspect: slaveMode
aspect: classListSlaveMode
@@ -2415,6 +2424,10 @@
subAspect: sortVariablesByName
aspect: sortVariablesByName
)
+ (SubChannelInfoSpec
+ subAspect: groupVariablesByInheritance
+ aspect: groupVariablesByInheritance
+ )
(SubChannelInfoSpec
subAspect: slaveMode
aspect: classListSlaveMode
@@ -3179,6 +3192,13 @@
"Created: / 24-02-2000 / 23:29:52 / cg"
!
+groupVariablesByInheritance
+ groupVariablesByInheritance isNil ifTrue:[
+ groupVariablesByInheritance := ValueHolder with:true.
+ ].
+ ^ groupVariablesByInheritance.
+!
+
hidePrivateClasses
hidePrivateClasses isNil ifTrue:[
hidePrivateClasses := ValueHolder with:false.
@@ -3662,54 +3682,36 @@
!OrganizerCanvas methodsFor:'aspects-exported'!
-classCategoryDoubleClickChannel:something
- "automatically generated by UIPainter ..."
-
- "This method is used when I am embedded as subApplication,"
- "and the mainApp wants to connect its aspects to mine."
-
- "/ classCategoryDoubleClickChannel removeDependent:self.
-
- classCategoryDoubleClickChannel := something.
-
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.8.2000 / 20:04:48 / cg"
-!
-
-classCategoryListMenuHolder:something
+classCategoryDoubleClickChannel: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."
- "/ classCategoryListMenuHolder removeDependent:self.
-
- classCategoryListMenuHolder := something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
-
- "Created: / 18.2.2000 / 11:53:31 / cg"
+ classCategoryDoubleClickChannel := aValueHolder.
+
+ "Created: / 18.8.2000 / 20:04:48 / cg"
!
-classCategoryListUpdateTrigger:something
+classCategoryListMenuHolder: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."
- "/ classCategoryListUpdateTrigger removeDependent:self.
-
- classCategoryListUpdateTrigger := something.
-
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
+ classCategoryListMenuHolder := aValueHolder.
+
+ "Created: / 18.2.2000 / 11:53:31 / cg"
+!
+
+classCategoryListUpdateTrigger: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."
+
+ classCategoryListUpdateTrigger := aValueHolder.
+
^ self.
"Created: / 18.2.2000 / 02:08:01 / cg"
@@ -3874,6 +3876,15 @@
"Created: / 24.2.2000 / 23:46:16 / cg"
!
+groupVariablesByInheritance: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."
+
+ groupVariablesByInheritance := aValueHolder.
+!
+
hidePrivateClasses:something
"automatically generated by UIPainter ..."
@@ -4276,31 +4287,22 @@
"Created: / 04-07-2011 / 18:42:01 / cg"
!
-sortVariablesByName:something
+sortVariablesByName: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."
- sortVariablesByName := something.
+ sortVariablesByName := aValueHolder.
!
-variableDoubleClickChannel:something
+variableDoubleClickChannel: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."
- "/ |holder|
-
- "/ (holder := builder bindingAt:#variableDoubleClickChannel) notNil ifTrue:[
- "/ holder removeDependent:self.
- "/ ].
- builder aspectAt:#variableDoubleClickChannel put:something.
- "/ something notNil ifTrue:[
- "/ something addDependent:self.
- "/ ].
- ^ self.
+ builder aspectAt:#variableDoubleClickChannel put:aValueHolder.
!
variableFilter:something