Tools__ChangeSetBrowser2.st
changeset 11034 526151214698
parent 10953 f1bf748ae2d3
child 11037 c26ee7340812
--- a/Tools__ChangeSetBrowser2.st	Tue Dec 27 09:52:48 2011 +0100
+++ b/Tools__ChangeSetBrowser2.st	Tue Dec 27 10:40:14 2011 +0100
@@ -122,7 +122,7 @@
 
 !ChangeSetBrowser2 class methodsFor:'help specs'!
 
-helpSpec
+flyByHelpSpec
     "This resource specification was automatically generated
      by the UIHelpTool of ST/X."
 
@@ -135,15 +135,17 @@
 
     <resource: #help>
 
-    ^ super helpSpec addPairsFrom:#(
+    ^ super flyByHelpSpec addPairsFrom:#(
 
 #fileLoad
-''
+'Select a file and show its contained changeset'
 
 #fileSave
-''
+'Save the changeset in a file'
 
 )
+
+    "Created: / 27-12-2011 / 10:37:47 / cg"
 ! !
 
 !ChangeSetBrowser2 class methodsFor:'interface opening'!
@@ -1106,14 +1108,14 @@
            (Menu
               (
                (MenuItem
-                  label: 'Open'
+                  label: 'Open...'
                   itemValue: doOpen
                   translateLabel: true
                   isVisible: allowOpenHolder
                   shortcutKey: Ctrlo
                 )
                (MenuItem
-                  label: 'Open current'
+                  label: 'Open Current'
                   itemValue: doOpenCurrent
                   translateLabel: true
                   isVisible: allowOpenHolder
@@ -1216,6 +1218,8 @@
         nil
         nil
       )
+
+    "Modified: / 27-12-2011 / 10:35:16 / cg"
 !
 
 toolbarMenu
@@ -1225,14 +1229,15 @@
     "Do not manually edit this!! If it is corrupted,
      the MenuEditor may not be able to read the specification."
 
+
     "
-     MenuEditor new openOnClass:Tools::ChangeSetBrowser andSelector:#toolbarMenu
-     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser toolbarMenu)) startUp
+     MenuEditor new openOnClass:Tools::ChangeSetBrowser2 andSelector:#toolbarMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::ChangeSetBrowser2 toolbarMenu)) startUp
     "
 
     <resource: #menu>
 
-    ^
+    ^ 
      #(Menu
         (
          (MenuItem
@@ -1250,14 +1255,12 @@
             itemValue: doSave
             translateLabel: true
             isButton: true
-            labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon)
+            labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon)
           )
          )
         nil
         nil
       )
-
-    "Modified: / 08-11-2011 / 16:43:39 / cg"
 ! !
 
 !ChangeSetBrowser2 class methodsFor:'plugIn spec'!
@@ -1770,7 +1773,7 @@
 doOpen
 
     | file changeset |
-    file := Dialog requestFileName:'Select changeset' pattern:'*.chg;*.st'.
+    file := Dialog requestFileName:'Select Changeset to Load' pattern:'*.chg;*.st'.
     file isNil ifTrue:[^self].
     [changeset := ChangeSet fromFile: file]
         on: Error
@@ -1780,7 +1783,7 @@
     self doOpen: changeset
 
     "Modified: / 08-04-2011 / 10:11:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 18-11-2011 / 14:57:02 / cg"
+    "Modified: / 27-12-2011 / 10:39:36 / cg"
 !
 
 doOpen: aChangeSet
@@ -1809,11 +1812,11 @@
 doSaveAs
 
     | file |
-    file := Dialog requestFileName:'Select file' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
+    file := Dialog requestFileName:'Select File for Save' default: (changesetFile ? 'somechanges.chg') pattern:('*.chg').
     file isNil ifTrue:[^self].
     self doSaveAs: file.
 
-    "Modified: / 18-11-2011 / 14:57:07 / cg"
+    "Modified: / 27-12-2011 / 10:39:52 / cg"
 !
 
 doSaveAs: newFile
@@ -2645,11 +2648,11 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.25 2011-12-04 14:48:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.26 2011-12-27 09:40:14 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.25 2011-12-04 14:48:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.26 2011-12-27 09:40:14 cg Exp $'
 !
 
 version_SVN