--- a/BrowserView.st	Thu Jul 26 23:12:48 2012 +0200
+++ b/BrowserView.st	Thu Jul 26 23:19:35 2012 +0200
@@ -4724,12 +4724,12 @@
     self 
         classClassDefinitionTemplateFor:ApplicationModel 
         in:currentClassCategory 
-        namespace:false 
+        nameSpace:false 
         private:false.
 
     aspect := nil.
 
-    "Modified: 4.1.1997 / 14:52:16 / cg"
+    "Modified: / 26-07-2012 / 23:09:17 / cg"
 !
 
 classNewClass
@@ -4750,12 +4750,12 @@
     self 
         classClassDefinitionTemplateFor:theClass 
         in:currentClassCategory 
-        namespace:false 
+        nameSpace:false 
         private:false.
 
     aspect := nil.
 
-    "Modified: 4.1.1997 / 14:52:16 / cg"
+    "Modified: / 26-07-2012 / 23:09:12 / cg"
 !
 
 classNewDialog
@@ -4764,38 +4764,40 @@
     self 
         classClassDefinitionTemplateFor:SimpleDialog 
         in:currentClassCategory 
-        namespace:false 
+        nameSpace:false 
         private:false.
 
     aspect := nil.
+
+    "Modified: / 26-07-2012 / 23:09:08 / cg"
 !
 
 classNewPrivateClass
     "create a class-definition prototype in codeview"
 
     self 
-	classClassDefinitionTemplateFor:Object 
-	in:nil 
-	namespace:false 
-	private:true.
+        classClassDefinitionTemplateFor:Object 
+        in:nil 
+        nameSpace:false 
+        private:true.
     aspect := nil.
 
-    "Created: 11.10.1996 / 16:01:20 / cg"
-    "Modified: 4.1.1997 / 14:51:49 / cg"
+    "Created: / 11-10-1996 / 16:01:20 / cg"
+    "Modified: / 26-07-2012 / 23:09:04 / cg"
 !
 
 classNewSubclass
     "create a subclass-definition prototype in codeview"
 
     self doClassMenu:[:currentClass |
-	self classClassDefinitionTemplateFor:currentClass 
-					  in:(currentClass category)
-					  namespace:false
-					  private:false.
-	aspect := nil
-    ]
-
-    "Modified: 4.1.1997 / 14:51:44 / cg"
+        self classClassDefinitionTemplateFor:currentClass 
+                                          in:(currentClass category)
+                                          nameSpace:false
+                                          private:false.
+        aspect := nil
+    ]
+
+    "Modified: / 26-07-2012 / 23:08:58 / cg"
 !
 
 classPrimitiveDefinitions
@@ -5895,7 +5897,7 @@
     ^ true
 !
 
-classClassDefinitionTemplateFor:aClass in:cat namespace:isNameSpace private:isPrivate
+classClassDefinitionTemplateFor:aClass in:cat nameSpace:isNameSpace private:isPrivate
     "common helper for newClass and newSubclass
      - show a template to define a subclass of aClass in category cat.
      Also, set acceptaction to install the class."
@@ -5922,14 +5924,27 @@
     ] ifFalse:[
         theSuperClass := aClass
     ].
-    codeView contents:(self classTemplateFor:theSuperClass in:cat namespace:isNameSpace private:isPrivate).
+    codeView contents:(self classTemplateFor:theSuperClass in:cat nameSpace:isNameSpace private:isPrivate).
     codeView modified:false.
     codeModified := false.
 
     self changeCurrentClass:nil
 
-    "Created: / 23.12.1996 / 12:45:43 / cg"
-    "Modified: / 27.7.1998 / 10:57:09 / cg"
+    "Created: / 26-07-2012 / 23:07:08 / cg"
+!
+
+classClassDefinitionTemplateFor:aClass in:cat namespace:isNameSpace private:isPrivate
+    "common helper for newClass and newSubclass
+     - show a template to define a subclass of aClass in category cat.
+     Also, set acceptaction to install the class."
+
+    <resource: #obsolete>
+
+   ^ self
+        classClassDefinitionTemplateFor:aClass in:cat nameSpace:isNameSpace private:isPrivate
+
+    "Created: / 23-12-1996 / 12:45:43 / cg"
+    "Modified (format): / 26-07-2012 / 23:07:34 / cg"
 !
 
 classDoubleClick:lineNr
@@ -6172,7 +6187,7 @@
     "Modified: / 24.2.2000 / 15:50:17 / cg"
 !
 
-classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate
+classTemplateFor:aSuperClass in:categoryString nameSpace:isNameSpace private:isPrivate
     "return a class definition template - be smart in what is offered initially"
 
     |cat name nameProto namePrefix i existingNames withNameSpaceDirective
@@ -6289,8 +6304,20 @@
 
     ^ s contents
 
-    "Created: / 23.12.1996 / 12:46:31 / cg"
-    "Modified: / 15.6.1998 / 17:23:05 / cg"
+    "Modified: / 15-06-1998 / 17:23:05 / cg"
+    "Created: / 26-07-2012 / 23:07:42 / cg"
+!
+
+classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate
+    "return a class definition template - be smart in what is offered initially"
+
+    <resource: #obsolete>
+
+    ^ self
+        classTemplateFor:aSuperClass in:categoryString nameSpace:isNameSpace private:isPrivate
+
+    "Created: / 23-12-1996 / 12:46:31 / cg"
+    "Modified (format): / 26-07-2012 / 23:08:13 / cg"
 !
 
 doClassMenu:aBlock
@@ -11432,11 +11459,10 @@
 nameSpaceNewNameSpace
     "create a namespace-definition prototype in codeview"
 
-    self classClassDefinitionTemplateFor:nil in:nil namespace:true private:false.
+    self classClassDefinitionTemplateFor:nil in:nil nameSpace:true private:false.
     aspect := nil.
 
-    "Modified: 23.12.1996 / 12:47:06 / cg"
-    "Created: 23.12.1996 / 13:11:48 / cg"
+    "Created: / 23-12-1996 / 13:11:48 / cg"
 !
 
 nameSpaceRemove
@@ -14519,7 +14545,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.836 2012-03-12 13:56:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.837 2012-07-26 21:19:35 cg Exp $'
 ! !
 
 BrowserView initialize!