VersionDiffBrowser.st
changeset 19157 1e6a35f896a5
parent 19093 6dd45ef2232d
child 19250 3b2a5ea6a056
--- a/VersionDiffBrowser.st	Sun Sep 08 23:48:38 2019 +0200
+++ b/VersionDiffBrowser.st	Mon Sep 09 10:49:15 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2000 by eXept Software AG
 	      All Rights Reserved
@@ -1102,6 +1104,12 @@
             #enabled: #hasChangeSelectedInA
           )
          #(#MenuItem
+            #label: 'Apply All'
+            #translateLabel: true
+            #value: #applyAllChangesInA
+            #enabled: #hasChangeSelectedInA
+          )
+         #(#MenuItem
             #label: 'Browse'
             #translateLabel: true
             #value: #browseClassInA
@@ -1185,6 +1193,12 @@
             #enabled: #hasChangeSelectedInB
           )
          #(#MenuItem
+            #label: 'Apply All'
+            #translateLabel: true
+            #value: #applyAllChangesInB
+            #enabled: #hasChangeSelectedInB
+          )
+         #(#MenuItem
             #label: 'Browse'
             #translateLabel: true
             #value: #browseClassInB
@@ -2010,6 +2024,20 @@
     self applyChange:change
 !
 
+applyAllChanges:listOfChanges
+    listOfChanges do:[:each |
+        self applyChange:each
+    ]
+!
+
+applyAllChangesInA
+    self applyAllChanges:methodsOnlyInAFiltered
+!
+
+applyAllChangesInB
+    self applyAllChanges:methodsOnlyInBFiltered
+!
+
 applyChange:change
     change notNil ifTrue:[
 	change apply
@@ -4343,7 +4371,7 @@
             ].
         ].
         changeClassName notEmptyOrNil ifTrue:[
-            selectorString := ' » ',selectorString
+            selectorString := ' » ',selectorString
         ]
     ].