--- a/Tools__OrganizerCanvas.st Fri Nov 30 14:25:59 2012 +0000
+++ b/Tools__OrganizerCanvas.st Fri Nov 30 17:23:39 2012 +0000
@@ -13,7 +13,7 @@
"{ NameSpace: Tools }"
-NavigatorModel subclass:#OrganizerCanvas
+Tools::NavigatorModel subclass:#OrganizerCanvas
instanceVariableNames:'projectListSlaveMode namespaceListSlaveMode categoryListSlaveMode
classInheritanceListSlaveMode classListSlaveMode
classHierarchyListSlaveMode organizerMode metaToggle
@@ -54,6 +54,12 @@
other person. No title to or ownership of the software is
hereby transferred.
"
+!
+
+documentation
+"
+ I implement the top part containing the list views in the new system browser
+"
! !
!OrganizerCanvas class methodsFor:'constants'!
@@ -3300,15 +3306,11 @@
!
selectedClasses
- "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."
+ "bad name- it's a holder, baby"
selectedClasses isNil ifTrue:[
- selectedClasses := ValueHolder new.
- selectedClasses addDependent:self.
+ selectedClasses := ValueHolder new.
+ selectedClasses addDependent:self.
].
^ selectedClasses.
@@ -4979,7 +4981,7 @@
flyByHelpTextFor:aComponent
(aComponent isSameOrComponentOf:(builder componentAt:#NameSpaceFilterComboBox)) ifTrue:[
- ^ resources string:'Namespace Filter'
+ ^ resources string:'Namespace filter'
].
^ super flyByHelpTextFor:aComponent
! !
@@ -5032,11 +5034,14 @@
!OrganizerCanvas class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.50 2012/11/03 11:43:46 cg Exp $'
+!
+
version_CVS
- ^ 'Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.47 2012/02/13 13:45:27 cg Exp '
+ ^ '§Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.50 2012/11/03 11:43:46 cg Exp §'
!
version_SVN
- ^ '$Id: Tools__OrganizerCanvas.st 8059 2012-09-27 20:08:20Z vranyj1 $'
+ ^ '$Id: Tools__OrganizerCanvas.st 8074 2012-11-30 17:23:39Z vranyj1 $'
! !
-