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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 09 May 2003 23:43:43 +0200
changeset 4876 73b629af96d3
parent 4875 210df8610e64
child 4877 afb0c431cb4b
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Fri May 09 18:10:57 2003 +0200
+++ b/NewSystemBrowser.st	Fri May 09 23:43:43 2003 +0200
@@ -14697,10 +14697,13 @@
 
     (LastCategoryRenameOld notNil 
     and:[ self theSingleSelectedCategory notNil ]) ifTrue:[
-        guess := DoWhatIMeanSupport goodRenameDefaultFor:self theSingleSelectedCategory lastOld:LastCategoryRenameOld lastNew:LastCategoryRenameNew
+        guess := DoWhatIMeanSupport 
+                    goodRenameDefaultFor:self theSingleSelectedCategory 
+                    lastOld:LastCategoryRenameOld 
+                    lastNew:LastCategoryRenameNew
     ].
     guess isNil ifTrue:[
-        guess := (LastCategoryRenames ? (self selectedCategoriesValue)) first string.
+        guess := ("LastCategoryRenames ?" (self selectedCategoriesValue)) first string.
     ].
 
     allCategories := Smalltalk allClassCategories asArray sort.
@@ -55940,7 +55943,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.581 2003-05-07 15:17:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.582 2003-05-09 21:43:43 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Fri May 09 18:10:57 2003 +0200
+++ b/Tools__NewSystemBrowser.st	Fri May 09 23:43:43 2003 +0200
@@ -14697,10 +14697,13 @@
 
     (LastCategoryRenameOld notNil 
     and:[ self theSingleSelectedCategory notNil ]) ifTrue:[
-        guess := DoWhatIMeanSupport goodRenameDefaultFor:self theSingleSelectedCategory lastOld:LastCategoryRenameOld lastNew:LastCategoryRenameNew
+        guess := DoWhatIMeanSupport 
+                    goodRenameDefaultFor:self theSingleSelectedCategory 
+                    lastOld:LastCategoryRenameOld 
+                    lastNew:LastCategoryRenameNew
     ].
     guess isNil ifTrue:[
-        guess := (LastCategoryRenames ? (self selectedCategoriesValue)) first string.
+        guess := ("LastCategoryRenames ?" (self selectedCategoriesValue)) first string.
     ].
 
     allCategories := Smalltalk allClassCategories asArray sort.
@@ -55940,7 +55943,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.581 2003-05-07 15:17:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.582 2003-05-09 21:43:43 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool