hg/stx-libtool: comparison Tools

equal deleted inserted replaced

-:950126a7894a
+:d5bb76470ae8
 		metaToggleLabelHolder selectedCategories selectedClasses
 		selectedNamespaces selectedProjects selectionChangeCondition
 		nameSpaceFilterSelection markApplicationsHolder
 		sortVariablesByName showAllClassesInNameSpaceView
 		showMethodInheritance showMethodComplexity showMethodTypeIcon
-		methodVisibilityHolder showCoverageInformation'
+		methodVisibilityHolder showCoverageInformation
+		sortByNameAndInheritance'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
 !
 #(#SubChannelInfoSpec
 #subAspect: #showCoverageInformation
 #aspect: #showCoverageInformation
 )
+#(#SubChannelInfoSpec
+#subAspect: #hidePrivateClasses
+#aspect: #hidePrivateClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #hideUnloadedClasses
+#aspect: #hideUnloadedClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #sortByNameAndInheritance
+#aspect: #sortByNameAndInheritance
+)
 #(#SubChannelInfoSpec
 #subAspect: #doubleClickChannel
 #aspect: #classDoubleClickChannel
 )
 #(#SubChannelInfoSpec
 )
 )
 )
-"Modified: / 27-04-2010 / 16:34:06 / cg"
+"Modified: / 04-07-2011 / 19:05:28 / cg"
 !
 windowSpecNonHierarchical
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 #minorKey: #windowSpec
 #subAspectHolders:
 #(#Array
+#(#SubChannelInfoSpec
+#subAspect: #hidePrivateClasses
+#aspect: #hidePrivateClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #hideUnloadedClasses
+#aspect: #hideUnloadedClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #sortByNameAndInheritance
+#aspect: #sortByNameAndInheritance
+)
 #(#SubChannelInfoSpec
 #subAspect: #showCoverageInformation
 #aspect: #showCoverageInformation
 )
 #(#SubChannelInfoSpec
 )
 )
 )
-"Modified: / 27-04-2010 / 16:34:33 / cg"
+"Modified: / 04-07-2011 / 19:05:47 / cg"
 !
 windowSpecNonHierarchicalWithClassDiagram
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 subAspectHolders:
 (Array
 #(#SubChannelInfoSpec
+#subAspect: #hidePrivateClasses
+#aspect: #hidePrivateClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #hideUnloadedClasses
+#aspect: #hideUnloadedClasses
+)
+#(#SubChannelInfoSpec
+#subAspect: #sortByNameAndInheritance
+#aspect: #sortByNameAndInheritance
+)
+#(#SubChannelInfoSpec
 #subAspect: #showCoverageInformation
 #aspect: #showCoverageInformation
 )
 (SubChannelInfoSpec
 subAspect: doubleClickChannel
 )
 )
 )
-"Modified: / 27-04-2010 / 16:35:06 / cg"
+"Modified: / 04-07-2011 / 19:06:13 / cg"
 !
 windowSpecWithoutMetaToggles
 "This resource specification was automatically generated
 by the UIPainter of ST/X."
 #(#SubChannelInfoSpec
 #subAspect: #hideUnloadedClasses
 #aspect: #hideUnloadedClasses
 )
 #(#SubChannelInfoSpec
+#subAspect: #sortByNameAndInheritance
+#aspect: #sortByNameAndInheritance
+)
+#(#SubChannelInfoSpec
 #subAspect: #markApplicationsHolder
 #aspect: #markApplicationsHolder
 )
 #(#SubChannelInfoSpec
 #subAspect: #immediateUpdate
 )
 )
 )
-"Modified: / 27-04-2010 / 16:35:25 / cg"
+"Modified: / 04-07-2011 / 18:39:40 / cg"
 ! !
 !OrganizerCanvas class methodsFor:'plugIn spec'!
 aspectSelectors
 #classHierarchyTopClass
 #classListMenuHolder
 #filterClassVars
 #hidePrivateClasses
 #hideUnloadedClasses
+#sortByNameAndInheritance
 #immediateUpdate
 #markApplicationsHolder
 #meta
 #metaToggleLabelHolder
 #(nameSpaceDoubleClickChannel action)
 #(variableDoubleClickChannel action)
 #variableFilter
 #variablesMenuHolder
 ).
+"Modified: / 04-07-2011 / 18:54:00 / cg"
 ! !
 !OrganizerCanvas methodsFor:'aspects'!
 classCategoryDoubleClickChannel
 ].
 ^ holder.
 !
 filterClassVars
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 filterClassVars isNil ifTrue:[
-	filterClassVars := ValueHolder new.
+filterClassVars := ValueHolder new.
 "/        filterClassVars addDependent:self.
 ].
 ^ filterClassVars.
-"Created: / 24.2.2000 / 23:29:52 / cg"
+"Created: / 24-02-2000 / 23:29:52 / cg"
 !
 hidePrivateClasses
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 hidePrivateClasses isNil ifTrue:[
-	hidePrivateClasses := false asValue.
+hidePrivateClasses := false asValue.
 "/        hidePrivateClasses addDependent:self.
 ].
 ^ hidePrivateClasses.
-"Created: / 24.2.2000 / 16:18:45 / cg"
+"Created: / 24-02-2000 / 16:18:45 / cg"
 !
 hideUnloadedClasses
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 hideUnloadedClasses isNil ifTrue:[
-	hideUnloadedClasses := false asValue.
+hideUnloadedClasses := false asValue.
 "/        hideUnloadedClasses addDependent:self.
 ].
 ^ hideUnloadedClasses.
-"Created: / 18.2.2000 / 17:54:57 / cg"
+"Created: / 18-02-2000 / 17:54:57 / cg"
 !
 immediateUpdate
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 immediateUpdate isNil ifTrue:[
-	immediateUpdate := false asValue.
+immediateUpdate := false asValue.
 "/        immediateUpdate addDependent:self.
 ].
 ^ immediateUpdate.
-"Created: / 18.2.2000 / 00:23:43 / cg"
+"Created: / 18-02-2000 / 00:23:43 / cg"
 !
 initialOrganizerMode
 ^ nil  "/ dummy
 !
 ].
 ^ markApplicationsHolder.
 !
 meta
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 meta isNil ifTrue:[
-	meta := false asValue.
+meta := false asValue.
 "/        meta addDependent:self.
 ].
 ^ meta.
-"Created: / 18.2.2000 / 00:23:43 / cg"
+"Created: / 18-02-2000 / 00:23:43 / cg"
-"Modified: / 18.2.2000 / 00:42:23 / cg"
+"Modified (comment): / 04-07-2011 / 18:52:49 / cg"
 !
 metaToggle
 metaToggle isNil ifTrue:[
 	metaToggle := PluggableAdaptor on:(self meta).
 ].
 ^ metaToggle
 !
 metaToggleLabelHolder
-"automatically generated by UIPainter ..."
+"this is changed from 'Instance/Class' to 'Instance/Static' for Java"
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 metaToggleLabelHolder isNil ifTrue:[
-	metaToggleLabelHolder := (resources string:'Class') asValue.
+metaToggleLabelHolder := (resources string:'Class') asValue.
 "/        metaToggleLabelHolder addDependent:self.
 ].
 ^ metaToggleLabelHolder.
-"Created: / 18.2.2000 / 11:52:55 / cg"
+"Created: / 18-02-2000 / 11:52:55 / cg"
 !
 methodVisibilityHolder
 masterApplication notNil ifTrue:[
 ^ masterApplication methodVisibilityHolder
 "Created: / 05-11-2007 / 16:57:58 / cg"
 !
 nameSpaceDoubleClickChannel
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 |holder|
 (holder := builder bindingAt:#nameSpaceDoubleClickChannel) isNil ifTrue:[
-	holder := TriggerValue new.
+holder := TriggerValue new.
-	builder aspectAt:#nameSpaceDoubleClickChannel put:holder.
+builder aspectAt:#nameSpaceDoubleClickChannel put:holder.
 "/        holder addDependent:self.
 ].
 ^ holder.
+"Modified (comment): / 04-07-2011 / 18:53:36 / cg"
 !
 nameSpaceFilter
 nameSpaceFilter isNil ifTrue:[
 nameSpaceFilter := ValueHolder new.
 "Created: / 24.2.2000 / 23:29:52 / cg"
 !
 nameSpaceFilterDoubleClickChannel
-"automatically generated by UIPainter ..."
-"*** the code below creates a default model when invoked."
-"*** (which may not be the one you wanted)"
-"*** Please change as required and accept it in the browser."
 |holder|
 (holder := builder bindingAt:#nameSpaceFilterDoubleClickChannel) isNil ifTrue:[
-	holder := TriggerValue new.
+holder := TriggerValue new.
-	builder aspectAt:#nameSpaceFilterDoubleClickChannel put:holder.
+builder aspectAt:#nameSpaceFilterDoubleClickChannel put:holder.
-	holder onChangeEvaluate:[
+holder onChangeEvaluate:[
-		    (builder componentAt:#NameSpaceFilterComboBox) closeMenu.
+(builder componentAt:#NameSpaceFilterComboBox) closeMenu.
 "/                    self nameSpaceDoubleClickChannel value:true.
-	       ]
+]
 ].
 ^ holder.
+"Modified (comment): / 04-07-2011 / 18:53:39 / cg"
 !
 nameSpaceFilterPopUpMenu
 ^ self nameSpaceListMenuHolder.
 !
 showMethodTypeIcon := false asValue.
 ].
 ^ showMethodTypeIcon.
 "Created: / 05-11-2007 / 16:57:12 / cg"
+!
+sortByNameAndInheritance
+sortByNameAndInheritance isNil ifTrue:[
+sortByNameAndInheritance := false asValue.
+"/        sortByNameAndInheritance addDependent:self.
+].
+^ sortByNameAndInheritance.
+"Created: / 04-07-2011 / 18:41:22 / cg"
 !
 sortVariablesByName
 sortVariablesByName isNil ifTrue:[
 sortVariablesByName := false asValue.
 "and the mainApp wants to connect its aspects to mine."
 showMethodTypeIcon := aValueHolder.
 "Created: / 05-11-2007 / 16:57:02 / cg"
+!
+sortByNameAndInheritance: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."
+"/ sortByNameAndInheritance removeDependent:self.
+sortByNameAndInheritance := something.
+"/ something notNil ifTrue:[
+"/     something addDependent:self.
+"/ ].
+"Created: / 04-07-2011 / 18:42:01 / cg"
 !
 sortVariablesByName:something
 "automatically generated by UIPainter ..."
 ^ holder
 ! !
 !OrganizerCanvas class methodsFor:'documentation'!
-version
-^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.42 2010-04-28 06:17:41 cg Exp $'
-!
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.42 2010-04-28 06:17:41 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.43 2011-07-04 17:07:38 cg Exp $'
 ! !

changeset 10132	d5bb76470ae8
parent 9450	ceb357dd5ad1
child 10230	66e6b33b6849