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>
Sat, 17 Nov 2001 12:40:58 +0100
changeset 3440 4e436b41fe3e
parent 3439 0687f5996ad3
child 3441 3b2b4a2d7f89
*** empty log message ***
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Sat Nov 17 12:36:44 2001 +0100
+++ b/NewSystemBrowser.st	Sat Nov 17 12:40:58 2001 +0100
@@ -13404,7 +13404,7 @@
 !
 
 categoryMenuRename
-    |allCategories newCategory box theSingleSelectedCategory|
+    |allCategories newCategory box theSingleSelectedCategory msg|
 
     allCategories := Smalltalk allClassCategories.
 
@@ -13412,10 +13412,11 @@
 
     box := ListSelectionBox new.
     theSingleSelectedCategory notNil ifTrue:[
-        box title:(resources string:'Rename category ''%1'' to:' with:theSingleSelectedCategory allBold).
-    ] ifFalse:[
-        box title:(resources string:'Rename selected categories to:').
-    ].
+        msg := resources string:'Rename category ''%1'' to:' with:theSingleSelectedCategory allBold.
+    ] ifFalse:[
+        msg := resources string:'Rename selected categories to:'.
+    ].
+    box title:msg.
     box list:allCategories.
     box okAction:[:sel | newCategory := sel].
     box initialText:(LastCategoryRenames ? (self selectedCategoriesValue)) first.
@@ -13437,7 +13438,7 @@
     Smalltalk changed:#organization.
     self selectedCategories value:(Array with:newCategory).
 
-    "Modified: / 17.11.2001 / 12:17:04 / cg"
+    "Modified: / 17.11.2001 / 12:37:08 / cg"
 !
 
 categoryMenuRepositoryHistory
@@ -51103,6 +51104,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.261 2001-11-17 11:36:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.262 2001-11-17 11:40:58 cg Exp $'
 ! !
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Sat Nov 17 12:36:44 2001 +0100
+++ b/Tools__NewSystemBrowser.st	Sat Nov 17 12:40:58 2001 +0100
@@ -13404,7 +13404,7 @@
 !
 
 categoryMenuRename
-    |allCategories newCategory box theSingleSelectedCategory|
+    |allCategories newCategory box theSingleSelectedCategory msg|
 
     allCategories := Smalltalk allClassCategories.
 
@@ -13412,10 +13412,11 @@
 
     box := ListSelectionBox new.
     theSingleSelectedCategory notNil ifTrue:[
-        box title:(resources string:'Rename category ''%1'' to:' with:theSingleSelectedCategory allBold).
-    ] ifFalse:[
-        box title:(resources string:'Rename selected categories to:').
-    ].
+        msg := resources string:'Rename category ''%1'' to:' with:theSingleSelectedCategory allBold.
+    ] ifFalse:[
+        msg := resources string:'Rename selected categories to:'.
+    ].
+    box title:msg.
     box list:allCategories.
     box okAction:[:sel | newCategory := sel].
     box initialText:(LastCategoryRenames ? (self selectedCategoriesValue)) first.
@@ -13437,7 +13438,7 @@
     Smalltalk changed:#organization.
     self selectedCategories value:(Array with:newCategory).
 
-    "Modified: / 17.11.2001 / 12:17:04 / cg"
+    "Modified: / 17.11.2001 / 12:37:08 / cg"
 !
 
 categoryMenuRepositoryHistory
@@ -51103,6 +51104,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.261 2001-11-17 11:36:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.262 2001-11-17 11:40:58 cg Exp $'
 ! !
 NewSystemBrowser initialize!
hg/stx-libtool