--- a/ToolApplicationModel.st	Fri Aug 14 17:36:10 1998 +0200
+++ b/ToolApplicationModel.st	Fri Aug 14 17:38:01 1998 +0200
@@ -151,6 +151,28 @@
     clipboard := anEditObject
 ! !
 
+!ToolApplicationModel class methodsFor:'help'!
+
+openAboutSTX
+    "opens an about box (on ST/X)"
+
+    |box|
+
+    AboutBox isNil ifTrue:[
+        "/ this handles bad installations of ST/X,
+        "/ where the AboutBox is missing.
+        "/ (May vanish in the future)
+        ^ self information:('Smalltalk/X rev.' , Smalltalk versionString)
+    ].
+
+    box := AboutBox new.
+    box autoHideAfter:10 with:[].
+    box showAtPointer
+
+    "Modified: / 14.8.1998 / 13:03:58 / cg"
+    "Created: / 14.8.1998 / 13:17:43 / cg"
+! !
+
 !ToolApplicationModel class methodsFor:'help specs'!
 
 helpSpec
@@ -854,20 +876,9 @@
 openAbout
     "opens an about box (on ST/X)"
 
-    |box|
+    self class openAboutSTX
 
-    AboutBox isNil ifTrue:[
-        "/ this handles bad installations of ST/X,
-        "/ where the AboutBox is missing.
-        "/ (May vanish in the future)
-        ^ self information:('Smalltalk/X rev.' , Smalltalk versionString)
-    ].
-
-    box := AboutBox new.
-    box autoHideAfter:10 with:[].
-    box showAtPointer
-
-    "Modified: / 14.8.1998 / 13:03:58 / cg"
+    "Modified: / 14.8.1998 / 13:17:57 / cg"
 !
 
 openAboutThisApplication
@@ -1239,5 +1250,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.72 1998-08-14 11:04:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.73 1998-08-14 15:38:01 cg Exp $'
 ! !