--- a/ProjectView.st	Tue Jan 23 15:44:48 2007 +0100
+++ b/ProjectView.st	Tue Jan 23 19:19:38 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 StandardSystemView subclass:#ProjectView
@@ -691,35 +690,35 @@
     "open a documentViewer on the projects classes documentation only"
 
     self topView withWaitCursorDo:[
-	|classes packageName methods methodList anyClasses anyMethods 
-	 html|
+        |classes packageName methods methodList anyClasses anyMethods 
+         html|
 
-	anyMethods := anyClasses := false.
+        anyMethods := anyClasses := false.
 
-	packageName := myProject packageName.
-	classes := myProject classes.
-	(classes notNil and:[classes notEmpty]) ifTrue:[
-	    anyClasses := true.
-	].
-	(anyClasses or:[anyMethods]) ifFalse:[
-	    self information:(resources string:'no classes or methods in this project (yet)').
-	    ^ self.
-	].
+        packageName := myProject package.
+        classes := myProject classes.
+        (classes notNil and:[classes notEmpty]) ifTrue:[
+            anyClasses := true.
+        ].
+        (anyClasses or:[anyMethods]) ifFalse:[
+            self information:(resources string:'no classes or methods in this project (yet)').
+            ^ self.
+        ].
 
-	methods := myProject individualMethods.
-	methods notEmpty ifTrue:[
-	    anyMethods := true.
-	    "/ not yet shown ...
-	].
+        methods := myProject individualMethods.
+        methods notEmpty ifTrue:[
+            anyMethods := true.
+            "/ not yet shown ...
+        ].
 
-	anyClasses ifFalse:[ ^ self].
+        anyClasses ifFalse:[ ^ self].
 
-	html := HTMLDocGenerator 
-			htmlClasses:classes 
-			title:'project classes' 
-			backTo:#none.
+        html := HTMLDocGenerator 
+                        htmlClasses:classes 
+                        title:'project classes' 
+                        backTo:#none.
 
-	HTMLDocumentView openFullOnText:html
+        HTMLDocumentView openFullOnText:html
     ]
 
     "Created: 11.4.1996 / 19:29:50 / cg"
@@ -770,5 +769,5 @@
 !ProjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.51 2006-09-05 16:45:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProjectView.st,v 1.52 2007-01-23 18:19:38 stefan Exp $'
 ! !