Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Tools::NewSystemBrowser
authorClaus Gittinger <cg@exept.de>
Mon, 23 Feb 2015 18:06:41 +0100
changeset 15380 6c995fa89939
parent 15379 cc72f4a8a6bc
child 15381 0f76258f9923
class: Tools::NewSystemBrowser changed: #codeMenuMakeAbstractClassVariable: #codeMenuMakeAbstractInstanceVariable: #codeMenuProtectInstanceVariable: #switchToClass:selector:updateHistory:
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/Tools__NewSystemBrowser.st	Mon Feb 23 18:04:48 2015 +0100
+++ b/Tools__NewSystemBrowser.st	Mon Feb 23 18:06:41 2015 +0100
@@ -37177,7 +37177,7 @@
                                          with:definingClass name allBold
                                          with:selectedClass name allBold)
                       label:'Rewrite which classes'
-                      buttonLabels:(Array with:'cancel' with:definingClass name with:selectedClass name)
+                      buttonLabels:(Array with:'Cancel' with:definingClass name with:selectedClass name)
                       values:(Array with:nil with:definingClass with:selectedClass).
         cls isNil ifTrue:[^ self].
     ].
@@ -37208,7 +37208,7 @@
                                          with:definingClass name allBold
                                          with:selectedClass name allBold)
                       label:'Rewrite which classes'
-                      buttonLabels:(Array with:'cancel' with:definingClass name with:selectedClass name)
+                      buttonLabels:(Array with:'Cancel' with:definingClass name with:selectedClass name)
                       values:(Array with:nil with:definingClass with:selectedClass).
         cls isNil ifTrue:[^ self].
     ].
@@ -37355,7 +37355,7 @@
                                          with:definingClass name allBold
                                          with:selectedClass name allBold)
                       label:'Rewrite which classes'
-                      buttonLabels:(Array with:'cancel' with:definingClass name with:selectedClass name)
+                      buttonLabels:(Array with:'Cancel' with:definingClass name with:selectedClass name)
                       values:(Array with:nil with:definingClass with:selectedClass).
         cls isNil ifTrue:[^ self].
     ].
@@ -52662,8 +52662,8 @@
             answer := OptionBox request:'Method not in list.\\Add a buffer for it ?' withCRs
                         label:'New Browser ?'
                         image:(WarningBox iconBitmap)
-                        buttonLabels:(resources array:#('New Browser' 'Add Buffer' 'Cancel'))
-                        values:#(#newBrowser #newBuffer nil)
+                        buttonLabels:(resources array:#( 'Cancel' 'Add Buffer' 'New Browser' ))
+                        values:#(nil #newBuffer #newBrowser)
                         default:#newBuffer
                         onCancel:nil.
             answer notNil ifTrue:[
@@ -62055,11 +62055,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2189 2015-02-23 16:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2190 2015-02-23 17:06:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2189 2015-02-23 16:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.2190 2015-02-23 17:06:41 cg Exp $'
 !
 
 version_HG
@@ -62068,7 +62068,7 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2189 2015-02-23 16:39:50 cg Exp $'
+    ^ '$Id: Tools__NewSystemBrowser.st,v 1.2190 2015-02-23 17:06:41 cg Exp $'
 ! !
hg/stx-libtool