--- a/BrowserView.st	Mon Feb 13 20:07:48 2017 +0100
+++ b/BrowserView.st	Mon Feb 13 20:09:08 2017 +0100
@@ -3001,7 +3001,7 @@
             dialog window withWaitCursorDo:[
                 list do:[:container |
                     "/
-                    "/ special: if its a 'loadAll' file,
+                    "/ special: if it's a 'loadAll' file,
                     "/ or a project-file, extract all from the repository
                     "/ and perform some special load action.
                     "/
@@ -3177,6 +3177,7 @@
     ]
 
     "Modified: / 07-11-2006 / 13:58:29 / cg"
+    "Modified (format): / 13-02-2017 / 19:56:18 / cg"
 !
 
 classCategoryRepositoryHistory
@@ -5910,8 +5911,8 @@
 
 classDoubleClick:lineNr
     "double click on a class;
-     if its unloaded, load it.
-     if its an application-class, start the app"
+     if it's unloaded, load it.
+     if it's an application-class, start the app"
 
     |testRunner|
 
@@ -5944,6 +5945,7 @@
     "Created: / 29-10-1997 / 15:50:26 / cg"
     "Modified: / 16-02-1998 / 11:55:25 / stefan"
     "Modified: / 06-07-2011 / 14:04:39 / cg"
+    "Modified (comment): / 13-02-2017 / 19:56:25 / cg"
 !
 
 classListUpdate
@@ -9140,7 +9142,7 @@
 
                         pName := aProcess nameOrId.
 
-                        "/ if its a windowGroup process,
+                        "/ if it's a windowGroup process,
                         "/ fetch its first topViews name and add.
                         "/ (allows selecting among multiple browsers ...)
                         winLabel := ''.
@@ -9177,9 +9179,10 @@
     box open.
     box destroy
 
-    "Created: / 14.10.1996 / 15:40:53 / cg"
-    "Modified: / 2.2.1998 / 12:39:38 / stefan"
-    "Modified: / 16.11.2001 / 11:49:23 / cg"
+    "Created: / 14-10-1996 / 15:40:53 / cg"
+    "Modified: / 02-02-1998 / 12:39:38 / stefan"
+    "Modified: / 16-11-2001 / 11:49:23 / cg"
+    "Modified (comment): / 13-02-2017 / 19:56:35 / cg"
 !
 
 methodChangeCategory
@@ -11427,7 +11430,7 @@
 !
 
 nameSpaceRemove
-    "remove that nameSpace - but only if its empty"
+    "remove that nameSpace - but only if it's empty"
 
     (currentNamespace ~~ Smalltalk
     and:[currentNamespace allClasses isEmpty]) ifTrue:[
@@ -11440,7 +11443,8 @@
         ]
     ].
 
-    "Modified: 18.8.1997 / 15:44:31 / cg"
+    "Modified: / 18-08-1997 / 15:44:31 / cg"
+    "Modified (comment): / 13-02-2017 / 19:56:40 / cg"
 !
 
 nameSpaceRemoveAllClasses
@@ -11526,35 +11530,35 @@
 
 displayedClassNameOf:aClass
     "depending on the current nameSpace, either show a classes
-     fullname or its name without the namespace prefix (if its in the current)"
+     fullname or its name without the namespace prefix (if it's in the current)"
 
     |owner nm ns|
 
     aClass isJavaClass ifTrue:[
-	^ aClass fullName "/ asString replaceAll:$/ with:$.
+        ^ aClass fullName "/ asString replaceAll:$/ with:$.
     ].
 
     "/ in which nameSpace is that class (or its owner) ?
 
     owner := aClass topOwningClass.
     owner notNil ifTrue:[
-	ns := owner nameSpace.
+        ns := owner nameSpace.
     ] ifFalse:[
-	ns := aClass nameSpace.
+        ns := aClass nameSpace.
     ].
 
     "/ this 'cannot' happen (should always be Smalltalk)
     ns isNil ifTrue:[
-	^ aClass name
+        ^ aClass name
     ].
 
     currentNamespace = '* all *' ifTrue:[
-	(ns == Smalltalk) ifTrue:[
-	    nm := aClass nameWithoutNameSpacePrefix.
-	    ^ nm
-	].
-	nm := aClass nameWithoutNameSpacePrefix.
-	^ ns name , '::' , nm   "/ full name
+        (ns == Smalltalk) ifTrue:[
+            nm := aClass nameWithoutNameSpacePrefix.
+            ^ nm
+        ].
+        nm := aClass nameWithoutNameSpacePrefix.
+        ^ ns name , '::' , nm   "/ full name
 "/        ^ aClass name        "/ full name
     ].
 
@@ -11563,15 +11567,16 @@
     "/ is it in one of the selected namespaces ?
 
     (self findClassNamedInNameSpace:nm) isNil ifTrue:[
-	^ ns name , '::' , nm   "/ full name
+        ^ ns name , '::' , nm   "/ full name
     ].
     currentNamespace = ns ifFalse:[
-	^ ns name , '::' , nm   "/ full name
+        ^ ns name , '::' , nm   "/ full name
     ].
     ^ nm.
 
-    "Created: 20.12.1996 / 17:46:41 / cg"
-    "Modified: 31.7.1997 / 22:57:16 / cg"
+    "Created: / 20-12-1996 / 17:46:41 / cg"
+    "Modified: / 31-07-1997 / 22:57:16 / cg"
+    "Modified (comment): / 13-02-2017 / 19:56:30 / cg"
 !
 
 listOfAllNamespaces
@@ -14152,21 +14157,21 @@
 
     name := variableListView selectionValue.
     name isNil ifTrue:[
-	self unhilightMethodCategories.
-	self unhilightMethods.
-	self autoSearch:nil.
-	^ self
+        self unhilightMethodCategories.
+        self unhilightMethods.
+        self autoSearch:nil.
+        ^ self
     ].
 
     "
      first, check if the selected variable is really the one 
-     we get - reselect if its hidden (for example, a class variable
+     we get - reselect if it's hidden (for example, a class variable
      with the same name could be defined in a subclass)
     "
     idx := variableListView list findLast:[:entry | entry = name].
     idx ~~ lineNr ifTrue:[
-	"select it - user will see whats going on"
-	variableListView setSelection:idx
+        "select it - user will see what's going on"
+        variableListView setSelection:idx
     ].
 
     "search for methods in the current category, which access the selected
@@ -14175,7 +14180,8 @@
     self hilightMethodsInMethodCategoryList:true inMethodList:true.
     self autoSearch:name.
 
-    "Modified: 25.5.1996 / 12:26:07 / cg"
+    "Modified: / 25-05-1996 / 12:26:07 / cg"
+    "Modified (format): / 13-02-2017 / 20:08:43 / cg"
 ! !
 
 !BrowserView methodsFor:'variable stuff'!