#UI_ENHANCEMENT by exept
authorClaus Gittinger <cg@exept.de>
Mon, 26 Aug 2019 10:47:34 +0200
changeset 19029 1122a5f928b6
parent 19028 e3bbd568c7a7
child 19030 892df81100b6
#UI_ENHANCEMENT by exept class: Tools::NewSystemBrowser changed: #selectedPackagesAsEnvironment #selectedProtocolsAsEnvironment
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Mon Aug 26 09:16:19 2019 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Aug 26 10:47:34 2019 +0200
@@ -19923,7 +19923,7 @@
     ^ (PackageEnvironment new)
             packageNames:subjects;
             label:(subjects size = 1
-                    ifTrue:[ 'package' , subjects anyOne ]
+                    ifTrue:[ 'package: ' , subjects anyOne ]
                     ifFalse:[ subjects size printString , ' packages' ]);
             yourself
 
@@ -19952,7 +19952,7 @@
             class: theClass
             protocols: protocols;
             label:(protocols size = 1
-                        ifTrue:[ 'protocol' , protocols anElement printString , ' in ' , className ]
+                        ifTrue:[ 'protocol "' , protocols anElement printString , '" in ' , className ]
                         ifFalse:[ protocols size printString , ' protocols in ' , className ]);
             yourself
     ].