--- a/BrowserView.st	Thu Feb 26 16:35:43 2004 +0100
+++ b/BrowserView.st	Thu Feb 26 18:23:38 2004 +0100
@@ -11914,7 +11914,7 @@
         panel horizontalLayout:#fitSpace.
 
         whereChannel := RadioButtonGroup new.
-        b := CheckBox label:(resources string:'everywhere').
+        b := CheckBox label:(resources string:'Everywhere').
         panel add:b. whereChannel add:b value:#everywhere.
         areas add:#everywhere.
         box makeTabable:b.
@@ -11927,7 +11927,7 @@
 "/        ].
 
         currentNamespace ~= '* all *' ifTrue:[
-            b := CheckBox label:(resources string:'current nameSpace').
+            b := CheckBox label:(resources string:'Current NameSpace').
             panel add:b. whereChannel add:b value:#currentNameSpace.
             areas add:#currentNameSpace.
             box makeTabable:b.
@@ -11935,7 +11935,7 @@
             (currentClass notNil 
             and:[(ns := currentClass nameSpace) notNil 
             and:[ns ~~ Smalltalk]]) ifTrue:[
-                b := CheckBox label:(resources string:'classes nameSpace (''%1'')' with:ns name).
+                b := CheckBox label:(resources string:'Classes NameSpace (''%1'')' with:ns name).
                 panel add:b. whereChannel add:b value:#currentClassesNameSpace.
                 areas add:#currentClassesNameSpace.
                 box makeTabable:b.
@@ -11943,19 +11943,19 @@
         ].
 
         currentClassCategory notNil ifTrue:[
-            b := CheckBox label:(resources string:'class category (''%1'')' with:currentClassCategory).
+            b := CheckBox label:(resources string:'Class Category (''%1'')' with:currentClassCategory).
             panel add:b. whereChannel add:b value:#classCategory.
             areas add:#classCategory.
             box makeTabable:b.
         ].
 
         currentClass notNil ifTrue:[
-            b := CheckBox label:(resources string:'class (''%1'')' with:currentClass name).
+            b := CheckBox label:(resources string:'Class (''%1'')' with:currentClass name).
             panel add:b. whereChannel add:b value:#class.
             areas add:#class.
             box makeTabable:b.
 
-            b := CheckBox label:(resources string:'class & superclasses').
+            b := CheckBox label:(resources string:'Class & Superclasses').
             panel add:b. whereChannel add:b value:#classAndSuperclasses.
             areas add:#classAndSuperclasses.
             box makeTabable:b.
@@ -11963,7 +11963,7 @@
                 b disable
             ].
 
-            b := CheckBox label:(resources string:'class & subclasses').
+            b := CheckBox label:(resources string:'Class & Subclasses').
             panel add:b. whereChannel add:b value:#classHierarchy.
             areas add:#classHierarchy.
             box makeTabable:b.
@@ -11972,7 +11972,7 @@
                 b disable.
             ].
 
-            b := CheckBox label:(resources string:'class & private classes').
+            b := CheckBox label:(resources string:'Class & Private Classes').
             panel add:b. whereChannel add:b value:#classWithPrivateClasses.
             areas add:#classWithPrivateClasses.
             box makeTabable:b.
@@ -11986,7 +11986,7 @@
                 b disable
             ].
 
-            b := CheckBox label:(resources string:'class & subclasses & all private classes').
+            b := CheckBox label:(resources string:'Class & Subclasses & All Private Classes').
             panel add:b. whereChannel add:b value:#classHierarchyWithPrivateClasses.
             areas add:#classHierarchyWithPrivateClasses.
             box makeTabable:b.
@@ -12032,11 +12032,11 @@
         where := whereChannel value.
 
         sel isEmpty ifTrue:[
-            self warn:'nothing entered for search'.
+            self warn:'Nothing entered for search'.
             ^ self.
         ].
         where isNil ifTrue:[
-            self warn:'no class(es) for search'.
+            self warn:'No class(es) for search'.
             ^ self.
         ].
         sel := sel string.
@@ -12090,7 +12090,7 @@
         ].
 
         classes isEmpty ifTrue:[
-            self warn:'no class(es) given for search'.
+            self warn:'No class(es) given for search'.
         ] ifFalse:[
             self withSearchCursorDo:[
                 withCaseIgnore ifTrue:[
@@ -14626,7 +14626,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.767 2003-12-05 13:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.768 2004-02-26 17:23:38 cg Exp $'
 ! !
 
 BrowserView initialize!