Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
- Tools::ChangeList jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 18 May 2012 09:17:46 +0100
branchjv
changeset 12249 8c861bdf7f51
parent 12248 a97c6f2acc13
child 12250 44df14df50c9
- Tools::ChangeList changed: #selection - Tools::ChangeSetBrowser2 changed: #changeMenuSelectInversion: #selectionDo:
Tools__ChangeList.st file | annotate | diff | comparison | revisions
Tools__ChangeSetBrowser2.st file | annotate | diff | comparison | revisions 
--- a/Tools__ChangeList.st	Fri May 18 00:16:11 2012 +0100
+++ b/Tools__ChangeList.st	Fri May 18 09:17:46 2012 +0100
@@ -375,7 +375,7 @@
 
 selection
 
-    ^self selectionHolder value
+    ^self selectionHolder value reject:[:e|e isNil].
 
     "Created: / 05-12-2009 / 14:48:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -1196,7 +1196,7 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ChangeList.st 7999 2012-05-17 23:13:53Z vranyj1 $'
+    ^ '$Id: Tools__ChangeList.st 8001 2012-05-18 08:17:46Z vranyj1 $'
 !
 
 version_CVS
@@ -1204,5 +1204,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeList.st 7999 2012-05-17 23:13:53Z vranyj1 $'
+    ^ '$Id: Tools__ChangeList.st 8001 2012-05-18 08:17:46Z vranyj1 $'
 ! !
--- a/Tools__ChangeSetBrowser2.st	Fri May 18 00:16:11 2012 +0100
+++ b/Tools__ChangeSetBrowser2.st	Fri May 18 09:17:46 2012 +0100
@@ -2867,7 +2867,7 @@
 
     | oldSel newSel |
     oldSel := changeList selection.
-    newSel := oldSel species new.
+    newSel := OrderedCollection new.
     changeList list do:[:change|
         (oldSel includes: change) ifFalse:[
             newSel add: change.
@@ -3080,14 +3080,14 @@
 "/        (self navigatorChangesetHolder value ? #()) do: aBlock
 "/    ] ifFalse:[
         selection2Holder value isEmptyOrNil not
-            ifTrue:[selection2Holder value do: applyBlock]
-            ifFalse:[selection1Holder value do: applyBlock].
+            ifTrue:[selection2Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]]
+            ifFalse:[selection1Holder value do: [:e|e notNil ifTrue:[applyBlock value:e]]].
 "/    ].
     self redrawChangeListViews
 
     "Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 08-04-2011 / 10:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 20-03-2012 / 17:16:40 / cg"
+    "Modified: / 18-05-2012 / 09:05:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 showProgress: label while: block
@@ -3475,7 +3475,7 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ChangeSetBrowser2.st 7999 2012-05-17 23:13:53Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st 8001 2012-05-18 08:17:46Z vranyj1 $'
 !
 
 version_CVS
@@ -3483,5 +3483,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetBrowser2.st 7999 2012-05-17 23:13:53Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st 8001 2012-05-18 08:17:46Z vranyj1 $'
 ! !
hg/stx-libtool