Issue #41: In project view. selecting a class selects class's package and all extending packages jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 20 Apr 2016 17:01:03 +0100
branchjv
changeset 16300 0566688a620d
parent 16299 3f157c50fd66
child 16301 5b709afd8d92
Issue #41: In project view. selecting a class selects class's package and all extending packages When browser is in package mode and class is selected, DO NOT select all packages that extend the class - doing so would break a common workflow. If I'm in package mode and select a class, I want to see only what belongs to that class AND that package. A common task is to select __NoProject__ and move classes/methods to their respective package. Funny that the fix was there for 2 years - I should have integrated it as soon as I forked stx.libtool. Well...memory...
Tools__OrganizerCanvas.st
--- a/Tools__OrganizerCanvas.st	Wed Apr 20 07:00:21 2016 +0200
+++ b/Tools__OrganizerCanvas.st	Wed Apr 20 17:01:03 2016 +0100
@@ -4861,7 +4861,10 @@
             and:[ orgMode ~~ OrganizerCanvas organizerModePackageDiagram ]) ifTrue:[
                 "/ if the organizerMode is project, avoid clobbering the project selection
                 (orgMode ~~ OrganizerCanvas organizerModeProject
-                or:[ (self selectedProjects value includesAll:( selectedClasses value collect:[:each | each package] )) not ])  ifTrue:[
+                "/ or:[ (self selectedProjects value includesAll:( selectedClasses value collect:[:each | each package] )) not ]
+                or:[ (self selectedProjects value includes: self class nameListEntryForChanged)
+                or:[ (self selectedProjects value includes: self class nameListEntryForALL) ]]
+                ) ifTrue:[
                     self updateOrganizationFromChangedClass.
                 ].
             ].
@@ -4897,6 +4900,7 @@
     super update:something with:aParameter from:changedObject
 
     "Modified: / 27-04-2010 / 16:58:31 / cg"
+    "Modified: / 26-03-2014 / 10:17:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 updateCategorySelectionFromClasses
@@ -5201,5 +5205,10 @@
 
 version_CVS
     ^ '$Header$'
+!
+
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
 ! !