--- 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