--- a/Tools__ChangeSetDiffList.st Wed Apr 18 08:18:46 2012 +0100
+++ b/Tools__ChangeSetDiffList.st Wed Apr 18 21:29:40 2012 +0100
@@ -28,7 +28,8 @@
"{ NameSpace: Tools }"
BrowserListWithFilter subclass:#ChangeSetDiffList
- instanceVariableNames:'listHolder listEntryLabelGenerator listEntryIconGenerator'
+ instanceVariableNames:'listHolder listEntryLabelGenerator listEntryIconGenerator
+ showVersionMethodDiffsHolder'
classVariableNames:''
poolDictionaries:''
category:'Interface-Diff'
@@ -154,8 +155,10 @@
#listEntryLabelGenerator
#menuHolder
#outGeneratorHolder
+ #showVersionMethodDiffsHolder
).
+ "Modified: / 18-04-2012 / 19:01:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetDiffList methodsFor:'accessing'!
@@ -185,6 +188,35 @@
listHolder := ValueHolder new.
].
^ listHolder
+!
+
+showVersionMethodDiffsHolder
+ "return/create the 'showVersionMethodDiffsHolder' value holder (automatically generated)"
+
+ showVersionMethodDiffsHolder isNil ifTrue:[
+ showVersionMethodDiffsHolder := ValueHolder new.
+ showVersionMethodDiffsHolder addDependent:self.
+ ].
+ ^ showVersionMethodDiffsHolder
+!
+
+showVersionMethodDiffsHolder:something
+ "set the 'showVersionMethodDiffsHolder' value holder (automatically generated)"
+
+ |oldValue newValue|
+
+ showVersionMethodDiffsHolder notNil ifTrue:[
+ oldValue := showVersionMethodDiffsHolder value.
+ showVersionMethodDiffsHolder removeDependent:self.
+ ].
+ showVersionMethodDiffsHolder := something.
+ showVersionMethodDiffsHolder notNil ifTrue:[
+ showVersionMethodDiffsHolder addDependent:self.
+ ].
+ newValue := showVersionMethodDiffsHolder value.
+ oldValue ~~ newValue ifTrue:[
+ self update:#value with:newValue from:showVersionMethodDiffsHolder.
+ ].
! !
!ChangeSetDiffList methodsFor:'change & update'!
@@ -193,10 +225,18 @@
aspect == #resolution ifTrue:[^(self componentAt: #List) invalidateRepairNow: true].
- sender == selectionHolder ifTrue:[^self selectionChanged].
+ sender == selectionHolder ifTrue:[
+ self selectionChanged.
+ ^self.
+ ].
+ sender == showVersionMethodDiffsHolder ifTrue:[
+ ^self updateList.
+ self.
+
+ ].
super update: aspect with: param from: sender.
- "Modified: / 24-11-2009 / 18:34:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-04-2012 / 18:57:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetDiffList methodsFor:'generators'!
@@ -275,6 +315,10 @@
newDiffs := self inGeneratorHolder value ? #().
(newDiffs isKindOf: ChangeSetDiffComponent) ifTrue:
[newDiffs := newDiffs diffs].
+ showVersionMethodDiffsHolder value ifFalse:[
+ newDiffs := newDiffs reject:[:diff|diff isForVersionMethod]
+ ].
+
newDiffs := self filterList: newDiffs.
newList := OrderedCollection new:16.
newDiffs do:
@@ -286,7 +330,7 @@
self listHolder value:newList
"Modified: / 07-07-2011 / 14:17:26 / jv"
- "Modified: / 29-11-2011 / 16:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-04-2012 / 19:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!
@@ -363,5 +407,5 @@
!
version_SVN
- ^ '$Id: Tools__ChangeSetDiffList.st 7948 2012-03-21 01:52:35Z vranyj1 $'
+ ^ '$Id: Tools__ChangeSetDiffList.st 7981 2012-04-18 20:29:40Z vranyj1 $'
! !