added:
authorvrany
Mon, 19 Dec 2011 09:39:53 +0100
changeset 10975 1d7029646c90
parent 10974 575317178314
child 10976 39245c85570d
added: #changesetMenuBrowse: #changesetMenuBrowseA #changesetMenuBrowseA2B #changesetMenuBrowseB changed: #mainMenu #versionALabelSpec #versionBLabelSpec
Tools__ChangeSetDiffTool.st
--- a/Tools__ChangeSetDiffTool.st	Fri Dec 16 01:29:24 2011 +0100
+++ b/Tools__ChangeSetDiffTool.st	Mon Dec 19 09:39:53 2011 +0100
@@ -462,6 +462,12 @@
               resizeForLabel: true
               adjust: left
             )
+           (LabelSpec
+              label: '(A)'
+              name: 'ALabel'
+              layout: (LayoutFrame -30 1 0 0 0 1 0 1)
+              translateLabel: true
+            )
            )
          
         )
@@ -515,10 +521,18 @@
               useDynamicPreferredWidth: true
               usePreferredWidth: true
             )
+             (LabelSpec
+             label: '(B)'
+             name: 'BLabel'
+             layout: (LayoutFrame -30 1 0 0 0 1 0 1)
+             translateLabel: true
+            )
            )
          
         )
       )
+
+    "Modified: / 16-12-2011 / 14:17:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffTool class methodsFor:'menu specs'!
@@ -584,9 +598,10 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
-     MenuEditor new openOnClass:SVN::DiffBrowser andSelector:#mainMenu
-     (Menu new fromLiteralArrayEncoding:(SVN::DiffBrowser mainMenu)) startUp
+     MenuEditor new openOnClass:Tools::ChangeSetDiffTool andSelector:#mainMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetDiffTool mainMenu)) startUp
     "
 
     <resource: #menu>
@@ -626,6 +641,28 @@
             )
           )
          (MenuItem
+            label: 'Changeset'
+            translateLabel: true
+            submenu: 
+           (Menu
+              (
+               (MenuItem
+                  label: 'Browse changes (A)'
+                  itemValue: changesetMenuBrowseA
+                  translateLabel: true
+                )
+                (MenuItem
+                    label: 'Browse changes (B)'
+                    itemValue: changesetMenuBrowseB
+                    translateLabel: true
+                    )
+
+               )
+              nil
+              nil
+            )
+          )
+         (MenuItem
             label: 'Diff'
             translateLabel: true
             submenuChannel: listMenu
@@ -634,6 +671,8 @@
         nil
         nil
       )
+
+    "Modified: / 16-12-2011 / 14:24:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffTool class methodsFor:'plugIn spec'!
@@ -1027,6 +1066,27 @@
 
 !ChangeSetDiffTool methodsFor:'menu actions'!
 
+changesetMenuBrowse: changeset
+
+    Tools::ChangeSetBrowser2 openOn: changeset
+
+    "Created: / 16-12-2011 / 14:31:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+changesetMenuBrowseA
+
+    self changesetMenuBrowse: self diffsetHolder value changesetA
+
+    "Created: / 16-12-2011 / 14:23:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+changesetMenuBrowseB
+
+    self changesetMenuBrowse: self diffsetHolder value changesetB
+
+    "Created: / 16-12-2011 / 14:27:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 fileMenuOpen
 
     | dlg a b |
@@ -1481,7 +1541,7 @@
 !ChangeSetDiffTool class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffTool.st,v 1.4 2011-11-30 11:15:03 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffTool.st,v 1.5 2011-12-19 08:39:53 vrany Exp $'
 !
 
 version_SVN