Tools__ChangeSetBrowser2.st
changeset 12576 57ca4df67791
parent 12525 50b803c4ee6a
child 12594 b3906c30ac21
--- a/Tools__ChangeSetBrowser2.st	Sat Mar 30 01:09:35 2013 +0100
+++ b/Tools__ChangeSetBrowser2.st	Sat Mar 30 02:58:47 2013 +0100
@@ -1216,6 +1216,10 @@
                   indication: showSameAspect
                 )
                (MenuItem
+                  label: 'Show Conflicts Only'
+                  indication: showConflictsOnlyAspect
+                )
+               (MenuItem
                   label: '-'
                 )
                (MenuItem
@@ -1806,16 +1810,33 @@
         codeAspectHolder setValue:
             (change isMethodCodeChange
                 ifTrue:[SyntaxHighlighter codeAspectMethod]
-                ifFalse:[SyntaxHighlighter codeAspectExpression]).
+                ifFalse:[
+                    (change isClassDefinitionChange
+                        ifTrue:[SyntaxHighlighter codeAspectClassDefinition]   
+                        ifFalse:[SyntaxHighlighter codeAspectExpression])]).
         self classHolder value: change changeClass.
         changeSourceHolder setValue: change changeSource"; changed: #value".
         change imageSource = change changeSource ifTrue:[
             imageSourceHolder setValue: nil"; changed: #value".
         ] ifFalse:[
             imageSourceHolder setValue: change imageSource"; changed: #value".
+
+            "/ check agan, based on parser (ignoring indentation)
+            change isClassDefinitionChange ifTrue:[
+                |parseError treeA treeB|
+
+                parseError := false.
+                treeA := RBParser parseExpression:change imageSource onError: [:str :pos | parseError := true].
+                treeB := RBParser parseExpression:change changeSource onError: [:str :pos | parseError := true].
+                parseError ifFalse:[
+                    (treeA equalTo:treeB withMapping:(Dictionary  new)) ifTrue:[
+                        imageSourceHolder setValue: nil
+                    ]
+                ]
+            ].
         ].
         changeSourceHolder changed.
-        "/ imageSourceHolder changed.
+        imageSourceHolder changed.
         codeAspectHolder changed.
 
         self showSource: true
@@ -2803,11 +2824,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.44 2013-03-26 00:01:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.45 2013-03-30 01:58:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.44 2013-03-26 00:01:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.45 2013-03-30 01:58:47 cg Exp $'
 !
 
 version_SVN