--- a/ToolApplicationModel.st	Wed Oct 18 13:11:49 2006 +0200
+++ b/ToolApplicationModel.st	Wed Oct 25 17:29:43 2006 +0200
@@ -9,9 +9,6 @@
  other person. No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libview2' }"
 
 ApplicationModel subclass:#ToolApplicationModel
@@ -93,35 +90,42 @@
 authorLinesForAboutBox
     "extracts the author(s) from the documentation method."
 
-    |firstClassWithDocumentation src s line lines|
+    |firstClassWithDocumentation docMethod src s line lines|
 
     firstClassWithDocumentation := self class withAllSuperclasses detect:[:metacls| metacls includesSelector:#documentation].
     firstClassWithDocumentation notNil ifTrue:[
         (firstClassWithDocumentation inheritsFrom:ToolApplicationModel class) ifTrue:[
-            src := (firstClassWithDocumentation compiledMethodAt:#documentation) source.
-            src notNil ifTrue:[
-                s := src readStream.
-                s upToAll:'[author:]'.
-                s nextLine.   "/ skip to end
-                line := s nextLine.   "/ line after [author:]
-                lines := OrderedCollection new.
-                [line notEmptyOrNil] whileTrue:[
-                    line := line withoutSeparators.
-                    line size > 1 ifTrue:[
-                        lines add:line withoutSeparators.
-                        line := s nextLine.
-                    ] ifFalse:[
-                        line := nil
-                    ]
-                ].
-                ^ lines.
+            docMethod := firstClassWithDocumentation compiledMethodAt:#documentation.
+            docMethod notNil ifTrue:[
+                src := docMethod source.
+                src notNil ifTrue:[
+                    s := src readStream.
+                    s upToAll:'[author:]'.
+                    s nextLine.   "/ skip to end
+                    line := s nextLine.   "/ line after [author:]
+                    lines := OrderedCollection new.
+                    [line notEmptyOrNil] whileTrue:[
+                        line := line withoutSeparators.
+                        line size > 1 ifTrue:[
+                            lines add:line withoutSeparators.
+                            line := s nextLine.
+                        ] ifFalse:[
+                            line := nil
+                        ]
+                    ].
+                    ^ lines.
+                ]
             ]
         ]
     ].
-    ^ #('unknown')
+    ( #('stx' 'exept') includes:self class package asPackageId module) ifTrue:[
+        ^ #('eXept Software AG')
+    ].
 
-    "Created: / 1.2.1998 / 15:41:43 / cg"
-    "Modified: / 1.2.1998 / 15:59:10 / cg"
+    ^ #('?')
+
+    "Created: / 01-02-1998 / 15:41:43 / cg"
+    "Modified: / 25-10-2006 / 17:29:35 / cg"
 !
 
 forgetInstance:anInstance
@@ -1622,5 +1626,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.128 2006-07-24 12:31:43 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.129 2006-10-25 15:29:43 cg Exp $'
 ! !