BrowserView.st
changeset 19548 a6c1c4de568c
parent 19521 b1750a64febf
child 19555 9c62949b3653
--- a/BrowserView.st	Thu Mar 05 11:18:04 2020 +0100
+++ b/BrowserView.st	Thu Mar 05 11:18:13 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -1890,7 +1892,7 @@
                         self refetchClass.
                         self updateCodeView
                     ] ifTrue:[
-                        self warnObsoleteCode:'the classes definition has changed - reselect to update'.
+                        self warnObsoleteCode:'the class''s definition has changed - reselect to update'.
                     ].
 
                     "/ restart a highlight process, in case some variable
@@ -3972,7 +3974,7 @@
                     aStream nextPut:$" ; cr; nextPutLine:' Documentation:'.
                     aStream cr; nextPutLine:commentOrNil; cr.
                     aStream nextPutLine:' Notice: '.
-                    aStream nextPutAll:'   the above text has been extracted from the classes '.
+                    aStream nextPutAll:'   the above text has been extracted from the class''s '.
                     aStream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
                     aStream nextPutLine:'   Any change in it will be lost if you ''accept'' here.'.
                     aStream nextPutAll:'   To change the '.
@@ -5154,7 +5156,7 @@
             self warn:'autoload failed.
 
 Check your source directory and/or 
-the abbreviation file for the classes (correct) shortened name.'.
+the abbreviation file for the class''s (correct) shortened name.'.
             ex return.
         ] do:[
             |text|
@@ -6260,7 +6262,7 @@
  either via the menu or the keyboard (usually CMD-A).
 
  To be nice to others (and yourself later), do not forget to
- add some documentation; preferably under the classes documentation
+ add some documentation; preferably under the class''s documentation
  protocol.
  (see the `create documentation stubs'' item in the methodList menu.)
 "
@@ -12494,7 +12496,7 @@
 
 extractClassAndSelectorFromSelectionInto:aBlock
     "given a string which can be either 
-        'class>>sel', 'class » sel'  or 'class sel', 
+        'class>>sel', 'class » sel'  or 'class sel', 
     extract className and selector, 
     and call aBlock with the result."